lazarus/statusbar.pas at 1c0f3e699cc859e74bf95fc4340de105c09c9a32 - lazarus - brudnopis.ovh - Gitea

paweld/lazarus

mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-06 00:12:46 +02:00

vincents 11588a8f97 use lowercase file name

git-svn-id: trunk@13102 -

2007-12-01 14:45:51 +00:00

5 lines

121 B

ObjectPascal

Raw Blame History

 procedure TTrivialForm1.Splitter1Moved(Sender: TObject);
 begin
   StatusBar1.SimpleText := IntToStr(Splitter1.Left);
 end;