Forum > Windows

[SOLVED] ProgrressBar.Min do not touch ProgrressBar.Max?

(1/1)

d2010:
Hello..
I set Progress.Min:=00;
I set Progress.Max:=03;
In debuger mode, always max of  Progress.Min=02 and not 03.

d2010:
I fixed, the source contain multiple errors.
But only in Delphi,  next week, I try Lazarus.x32.


--- Code: ---//Inf=After the time is overfull, then you must blocked the stepit with "exit;"
Var qquit:array[0..1] of integer=(0,5);

procedure TForm1.Timer_out_Each10Step10(Sender : TObject);
Var openra:word;
Begin                 
   openra:=00;
   if assigned (progre1) then else exit;
   if Progre1.Position >= Progre1.Max  then
     Begin dec(qquit[01]);
             if (qquit[01]<00) then mnuQuitClicked(sender) else exit;
     End;
   Progre1.StepIt;
End;

--- End code ---
:8)
In Lazarus Size-of-Step = 02Default or Delphi5 sizeof-step=10Default, then  you  set all four ranges-number for progresBar.

--- Code: --- Progre1 := TProgressBar.Create (Self);
Progre1.Parent := Self;
Progre1.Left := 10;
Progre1.Top  :=10;
Progre1.Width:=500;
        div3:=Progre1.Width shr 02;
Progre1.Height:= 15;
        Progre1.Min:=00;
        Progre1.Max:=10;
Progre1.Show;

--- End code ---
Eu multumesc tie ArsenieBoca2025. Doamne milueste-ne.
You add both Lines, of bottom:
        Progre1.Position:=00;
        Progre1.Step:=01;

QQuit=5*1000= 5 second, You must wait 5seconds after the progressBar is fulled with blue-color.
Thank you.

Navigation

[0] Message Index