Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
21. Mär 2008
Angelehnt an die Funktion von shima könnte die AutoResize Funktion so aussehen.
(verwendet anstatt die von shima verwendete TrueFontWidth Funktion Canvas.Font := Font)
uses
CommCtrl;
procedure AutoSizeStatusbarPanels(sb: TStatusbar);
var
iPanel: Word;
borders : array of Integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
20. Mär 2008
Hallo,
Mache diese Font Zuweisung vor dem Aufrufen des TextWidth(...)
StatusBar.Canvas.Font := StatusBar.Font;