[GELÖST] Dynamisches SynMemo Anchors Problem

[compmgmt]

Ich habe ein Problem. Ich habe ein dynamisch erstelltes SynMemo in einem TabSheet. Dieses liegt natürlich in einem PageControl. Ich habe auf das SynMemo Anchors gesetzt, allerdings funktionieren diese nur bei dem ersten erstellten Memo und TabSheet, beim verändern der Fenstergröße ändert sich die Größe des TabSheets, aber nicht die des SynMemos (außer eben beim ersten erstellen).

OS: Windows XP SP3
Laz-Ver: 1.4.0

Code: Alles auswählen

NewPage := TTabSheet.Create(self);
  with NewPage do begin
    Parent := PC_Main;
    Name := 'PAGE' + IntToStr(PageCount);
    Anchors := [akTop,akLeft,akRight,akBottom]; // kann ich auch weglassen kommt auf das gleiche drauf an
    OnShow := @PageClick;
    Cursor := crHandPoint; // Damit ich erkenne ob sich die Größe des TabSheets ändert, was sie tut
	end;
  NewSynM := TSynMemo.Create(self);
  with NewSynM do begin
    Parent := NewPage;
    Name := 'SYNM' + IntToStr(PageCount);
    Width := PC_Main.Width - 6; // PC_Main ist das PageControl
    Height := PC_Main.Height - 24;
    Anchors := [akTop,akLeft,akRight,akBottom];
    Text := '';
    OnChange := @synmChange;
    Hint := 'Unbenannt';
	end;

Vielen Dank für eine Antwort im Voraus.

Mit freundlichen Grüßen
compmgmt

[martin_frb]

Zunaechst mal, das hat wahrscheinlich nix mit SynMemo zu tun, und duerfte auch mit panel, memo oder .... passieren.

Off topic:
http://wiki.lazarus.freepascal.org/Laza ... Deprecated
SynMemo ist veraltet.

Nicht getestet, aber ich vermute:
Jedes tabsheet bleibt auf seiner anfangs-groesse, bis es das erste mal sichtbar wird. (Nehmen wir als Beispiel 200x100)

Wenn das PageControl eine andere Groesse hat (500x400)

Code: Alles auswählen

Width := PC_Main.Width - 6; // PC_Main ist das PageControl

bedeutet das memo wird viel groesser als das sheet.

Allerdings wuerde ich dann erwarten, das das memo diese uebergroesse (oder untergroesse) relative behaelt. Wenn das nicht der Fall ist, dann ist da noch ein anderes Problem.

Auf jeden fall, die Groesse des Memo relativ zum sheet setzen

Code: Alles auswählen

Width := NewPage.Width - 6; 

[compmgmt]

Funktioniert leider auch nicht... ):

[wp_xyz]

Ich glaube, sowas ähnliches hatte ich auch schon mal, hat nichts mit SynMemo zu tun. Offenbar muss der Parent des Controls mit den gesetzten Anchors sichtbar sein, damit die Anchors aktiv werden. Setze NewPage.Visible := true bevor das SynMemo erzeugt wird.

Alternativ kannst du statt der Anchors auch das Align des SynMemo auf alClient setzen - das geht immer, auch bei unsichtbarem Parent (zumindest bei Win7, Laz trunk/fpc 3)

[theo]

Ja,

Code: Alles auswählen

Align:=alClient;

löst das Problem.
Bug bei Anchors auf Win32?
Auf GTK2 gibt es das Problem übrigens nicht.

[compmgmt]

Mit Align klapp es.

Vielen Dank