Hello, this simple code is not working. Put a button and a progressbar controls on a form. OnButtonClick write : ------------------------- var i : Integer; begin ShowMessage('starting'); Progressbar1.Smooth := true; Progressbar1.Min := 0; Progressbar1.Max := 768*512; for i := 0 to 768*512 do begin Progressbar1.Position := i; Application.ProcessMessages; end; ShowMessage('done'); -------------------------
Tested on Lazarus 0.9.10 / Windows XP. Works on Delphi. Should I report it as a bug ? _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives