On Fri, 19 Dec 2008, Mattias Gaertner wrote:
> On Fri, 19 Dec 2008 11:52:18 +0100 > Andrea Mauri <[email protected]> wrote: > > > The code I wrote in the e-mail is just a sample! > > Anyway, create a new project, drop a label, a statusbar and a button > > on the form. Create a panel on the statusbar. > > On buttonclick drop the following code: > > > > 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; > > > > Clicking on the button the text in the statusbar panel start to be > > updated, and it flickers. The text in the caption is updated only at > > the end of the while do cycle. > > Great. There you have the bug. The statusbar should not update, just > like the label. As far as I know, in Delphi the statusbar updates immediatly, contrary to a label. Michael. _______________________________________________ Lazarus mailing list [email protected] http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
