В строке состояния 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