Programm an Bildschirmauflösung anpassen

[p80286]

@omata

Bei mir hat sich festgesetzt, daß auch das Memo1 mit align:=alLeft versorgt sein muß, damit der Splitter funktioniert. War das mal so? oder hab ich da etwas falsch verstanden?

Gruß
K-H

[omata]

Das Memo sitzt auf einem Panel und das Panel hat Align:=alLeft. Das Memo selbst sollte ja nicht den ganzen linken Bereich einnehmen, deshalb das Panel + Memo-Anchors.

Also du hast das schon richtig verstanden.

[blubber443]

hi, ich kanns nicht öffnen kann mir jemand den code einfach geben?
hab auch das problem mit dem bildschirm

[p80286]

Zitat:

Zitat von blubber443 (Beitrag 1153412)

hi, ich kanns nicht öffnen kann mir jemand den code einfach geben?
hab auch das problem mit dem bildschirm

Dabei hab ich gerade noch herein geschaut.
Seltsam...
object FMain: TFMain
Left = 206
Top = 113
Width = 800
Height = 600
Caption = 'FMain'
Color = clBtnFace
Constraints.MinHeight = 600
Constraints.MinWidth = 800
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 233
Top = 0
Width = 8
Height = 532
Beveled = True
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 233
Height = 532
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
233
532)
object Memo1: TMemo
Left = 0
Top = 0
Width = 233
Height = 473
Anchors = [akLeft, akTop, akRight, akBottom]
Lines.Strings = (
'Memo1')
TabOrder = 0
end
end
object Panel2: TPanel
Left = 0
Top = 532
Width = 792
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
DesignSize = (
792
41)
object Button1: TButton
Left = 710
Top = 9
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Button1'
TabOrder = 0
end
object Button2: TButton
Left = 624
Top = 9
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Button2'
TabOrder = 1
end
end
object WebBrowser1: TWebBrowser
Left = 241
Top = 0
Width = 551
Height = 532
Align = alClient
TabOrder = 2
ControlData = {...}
end
end