Установить размер шрифта для панели StatusBar
Falk0ner, вс, 06/07/2008 - 15:34.
Установить размер шрифта для панели StatusBar
With StatusBar1.Panels[1] do
begin
Text := Edit1.Text;
Canvas.Font.Size := StatusBar1.Font.Size;
Width := Canvas.TextWidth(Text) + 10;
end;
begin
Text := Edit1.Text;
Canvas.Font.Size := StatusBar1.Font.Size;
Width := Canvas.TextWidth(Text) + 10;
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий