[SOLVED] ProgrressBar.Min do not touch ProgrressBar.Max?
lazarus / 67-Windows

----------------------------------------------------------------------
d2010 · 2025-03-29 13:25

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

----------------------------------------------------------------------
d2010 · 2025-04-04 01:21

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

Code: [Select]//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;
:
In Lazarus Size-of-Step = 02Default or Delphi5 sizeof-step=10Default,
then  you  set all four ranges-number for progresBar.
Code: [Select]  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;
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.