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