В строке состояния TStatusBar выводится только 127 символов

Delphi , Компоненты и Классы , TStatusBar

В строке состояния TStatusBar выводится только 127 символов

Можно ли как-нибудь увеличить это число?

Code:

procedure TForm1.Button1Click(Sender:  TObject);

        {©Drkb v.3(2007): www.drkb.ru}

        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;

Автор: Mikel

Взято с Vingrad.ru http://forum.vingrad.ru

Статья В строке состояния TStatusBar выводится только 127 символов раздела Компоненты и Классы TStatusBar может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: TStatusBar ::

19.04.2024 13:15:45/0.033344984054565/0