Wahre Höhe eines Controls bestimmen

[LazProgger]

Im OnCreate erstelle ich einige Controls (Labels, Buttons, Checkboxen) dynamisch. Um die Controls anzuornden, muss ich deren Höhe wissen, die ja je nach System und Theme eine andere sein kann. Dazu benutze ich die .Height Property der Controls.

Das merkwürdige: Im OnCreate haben die Controls andere Höhen als zur Laufzeit. Ein Label kommt bei mir zum Beispiel im OnCreate auf eine Höhe von 17, zur Laufzeit hat es dann eine Höhe von 15.

Ich habe den Code testweise einmal aus dem OnCreate ins OnShow verschoben. Hier lassen sich tatsächlich die richtigen Höhen ermitteln, allerdings nur für die sichtbaren Controls. Problematisch wird dies zum Beispiel bei einem TabSheet: Die Controls auf dem sichtbaren Tab haben die "richtigen" Höhen, die auf den nicht geöffneten Tab haben die "alten" Höhen, wie sie auch im OnCreate auslesbar sind.

Um die Controls vernünftig anzuordnen bräuchte ich natürlich einheitliche Höhen und zwar die, die auch später im GUI zu sehen sind. Gibts eine Möglichkeit die zu ermitteln?

Mein Testsystem ist übrigens Windows 7, unter Linux sieht es aber auch nicht anders aus.

PS: Bitte keine Tipps zu Alternativlösungen wie Anchoring, Alignment etc, in meinem Fall geht es wirklich um die Bestimmung der wahren Höhen.

Vielen Dank für eure Tipps!

[theo]

So schon probiert? http://wiki.freepascal.org/Theme_library

[LazProgger]

So schon probiert? http://wiki.freepascal.org/Theme_library

Es geht ja nicht darum eine neue Theme zu implementieren, die Theme soll immer die des Betriebssystems sein, auf dem das Programm gerade läuft.

Das einzige Problem ist, wie ich an die Höhe eines Controls komme um es dann entsprechend anzuordnen. Mit den Controls selber bin ich zufrieden bzw der Meinung dass man hier ruhig die Standard-Controls nehmen kann damit das Programm zum jeweiligen OS Design passt.

[corpsman]

wie wärs wenn du "onShow" nimmst. Das nehme ich immer gern, wenn graphische sachen anstehen.

Code: Alles auswählen

 
TForm.OnCreate()
begin
  allowreoder := true;
end;
 
TForm.onSHow();
begin
if allowreoder then begin
allowreoder := false;
// Hier Plazierungen durchführen
end;
end;
 

[LazProgger]

wie wärs wenn du "onShow" nimmst. Das nehme ich immer gern, wenn graphische sachen anstehen.

Das hatte ich ja schon in meine Frage geschrieben, dass es im OnShow funktioniert, aber eben nicht für alles. Zum Beispiel für die nicht sichtbaren TabSheets vom PageControl geht diese Lösung nicht.

Ein Workaround wäre hier den Code jedes mal im OnChange des PageControls neu durchzuführen, aber lieber wäre mir hier eine elegantere Lösung..

Gibt es nicht irgendeine Möglichkeit die Höhen schon vorher zu ermitteln bevor sie gezeichnet sind?

[Michl]

MMn benötigst Du dafür die Rückmeldung vom System in Abhängigkeit vom jeweiligen Widgetset.

D.h., Du hast mMn folgende Möglichkeiten:

- jedes mal im OnChange des PageControls neu durchzuführen

- ins OnShow verschoben. Hier lassen sich tatsächlich die richtigen Höhen ermitteln, allerdings nur für die sichtbaren Controls

- Anchoring, Alignment

- Du definierst selber Fixe Höhen / Breiten für Deine Controls unabhängig vom Widgetset
- oder machst sowas in der Art ("initialisiere" alle Controls per erstem sichtbarem Tabsheet):

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1:=TCheckBox.Create(Self);
  CheckBox2:=TCheckBox.Create(Self);
  CheckBox1.Parent:=TabSheet1;
  CheckBox2.Parent:=TabSheet1;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  CheckBox2.Parent:=TabSheet2;
end; 

K.A. was für Dich die beste Lösung darstellt, ich nutze oft Anchoring, manchmal Alignment, selten fest definierte Bounds noch seltener (eigentlich nur bei Inplace-Editoren) berechne ich die Größe selber.