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

Reply via email to