ProgressBarGadget() - please help

[zxretrosoft]

I have this problem.

I have a large database. When displaying the items is reflected delay. I need to get there ProgressBar. The user should see how much time is left.
Unfortunately ProgressBar but during the FOR-NEXT is not working.
I am doing something wrong?

Thanks in advance!

Code: Select all

Procedure olomouc()
  Define i.i,j.i
  
  Define px18.i,py18.i
  px18=Random(76,8):py18=Random(60,10)
  
  OpenWindow(#oknoolomouc,px18,py18,1010,600,"Olomoucký kraj",#PB_Window_SystemMenu|#PB_Window_SizeGadget)
  
  j=1
  For i=1 To 6254
    If r4(i)=1
      ry1(j)=rx1(i)
      ry4(j)=rx4(i)
      ry7(j)=rx7(i)
      ry9(j)=rx9(i)
      ry11(j)=rx11(i)
      ry13(j)=rx13(i)
      ry26(j)=rx26(i)
      ry28(j)=rx28(i)
      ry29(j)=rx29(i)
      j+1
    EndIf
  Next i
  
  ListIconGadget(#pricka3,5,5,1000,580,"Nr.",31,#PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines|#PB_ListIcon_MultiSelect)
  AddGadgetColumn(#pricka3,2,"Obec",160)
  AddGadgetColumn(#pricka3,3,"ZUJ",55)
  AddGadgetColumn(#pricka3,4,"Kategorie",90)
  AddGadgetColumn(#pricka3,5,"Kraj",102)
  AddGadgetColumn(#pricka3,6,"NUTS 2",140)
  AddGadgetColumn(#pricka3,7,"Základní působnost",160)
  AddGadgetColumn(#pricka3,8,"Matriční úřad",160)
  AddGadgetColumn(#pricka3,9,"Stavební úřad",160)
  AddGadgetColumn(#pricka3,10,"Pověřený úřad",160)
  AddGadgetColumn(#pricka3,11,"ORP",160)
  
 ProgressBarGadget(12000,1,1,258,7,0,100)
  

  For i=1 To j-1
       SetGadgetState(12000,i)
         AddGadgetItem(#pricka3,-1,Str(i)+#LF$+ry1(i)+#LF$+ry26(i)+#LF$+ry29(i)+#LF$+ry4(i)+#LF$+ry28(i)+#LF$+ry1(i)+#LF$+ry7(i)+#LF$+ry9(i)+#LF$+ry11(i)+#LF$+ry13(i))

  Next i
    
  BindEvent(#PB_Event_CloseWindow,@CloseWindowEvent())
EndProcedure