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
