Установить размер шрифта для панели 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;
01.01.2007
With StatusBar1.Panels[1] do
begin
Text := Edit1.Text;
Canvas.Font.Size := StatusBar1.Font.Size;
Width := Canvas.TextWidth(Text) + 10;
end;
|
Previous page:
OwnerDraw в компоненте TStatusBar |
Top: DRKB |
Next page: TStatusBar + TProgressBar |