Установить размер шрифта для панели TStatusBar
01.01.2007
With StatusBar1.Panels[1] do begin Text := Edit1.Text; Canvas.Font.Size := StatusBar1.Font.Size; Width := Canvas.TextWidth(Text) + 10; end;
DelphiWorld 6.0
With StatusBar1.Panels[1] do begin Text := Edit1.Text; Canvas.Font.Size := StatusBar1.Font.Size; Width := Canvas.TextWidth(Text) + 10; end;
DelphiWorld 6.0