[Lazarus] statusbar flickers

Andrea Mauri andrea.mauri.75 at gmail.com
Wed Feb 22 15:33:37 CET 2017


Hello,

I have an issue with TStausBar, when I update the text in a panel fastly 
it starts flickering.

To test it, drop a label a button and a statusbar with at least one 
panel on a form.
Then add this code to ButtonClick.

procedure TForm1.Button1Click(Sender: TObject);
var
   i: integer;
begin
   i:= 0;
   while i < 10000 do
   begin
     Application.ProcessMessages;
     label1.Caption:= Format('Number: %d', [i]);
     statusbar1.Panels[0].Text:= Format('Number: %d', [i]);
     Inc(i);
   end;
end;

Tlabel does not flickers, Tstatusbar flickers.
Tested on windows.

Is it a known issue? Should I create a bug-report?

Best regards,
Andrea Mauri


More information about the Lazarus mailing list