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 von blubber443:

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