Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TGroupBox - Höhe des Clientbereichs? (https://www.delphipraxis.net/170448-tgroupbox-hoehe-des-clientbereichs.html)

ralfiii 17. Sep 2012 16:23

TGroupBox - Höhe des Clientbereichs?
 
Hallo!

Sagen wir mal ich hab eine GroupBox und ich will zur Laufzeit deren Höhe dynmaisch an etwas das drin eingeblendet wird anpassen.
Dann wär's mal nicht ganz unpraktisch zu wissen wie viel Margin die GroupBox hat.
Blöderweise seh ich da keine Property die mir weiterhelfen würde.
ClientHeight liefert das selbe wie Height.
Ich dachte es wird halt Height - abs(Font.Size) - Margin.Top - Margin.Bottom sein. Aber das stimmt auch nicht mehr sobald man die Fontgrösse ändert.

Wie komm ich auf die Höhe des GroupBox-Clientbereichs?

Danke!

uligerhardt 17. Sep 2012 16:26

AW: TGroupBox - Höhe des Clientbereichs?
 
Probier mal
Delphi-Quellcode:
TCustomGroupBox.AdjustClientRect
.

ralfiii 18. Sep 2012 09:48

AW: TGroupBox - Höhe des Clientbereichs?
 
Zitat:

Zitat von uligerhardt (Beitrag 1183318)
Probier mal
Delphi-Quellcode:
TCustomGroupBox.AdjustClientRect
.

Danke für den Tip!
Der Vollständigkeit halber, die Client-Höhe ist demnach
Delphi-Quellcode:
     i:=gb.Height;
     Canvas.Font := gb.Font;
     Dec(i, Canvas.TextHeight('0')+2);
     if gb.Ctl3d then Dec(i,2);


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz