В строке состояния TStatusBar выводится только 127 символов
Материал из DRKB
В строке состояния TStatusBar выводится только 127 символов[править | править код]
В строке состояния TStatusBar выводится только 127 символов. Можно ли как-нибудь увеличить это число?
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
s: string;
begin
s := '';
for i := 1 to 150 do
s := s + IntToStr(i mod 10);
Label1.Caption := s;
Form1.Paint;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Label1.Repaint;
Application.ProcessMessages; { yield; }
StatusBar1.Canvas.CopyRect(
Rect(2, Round((StatusBar1.Height - Label1.Height)/2), Label1.Width, Label1.Height),
Label1.Canvas,
Rect(0, 0, Label1.Width, Label1.Height));
end;
Author: Mikel
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00523