Problem in creating progress bar in form6i

Question

dear all
how are you?
i created a progress bar but i face a problem.
in the when button pressed trigger i write this
declare
cursor MY_cur is
select col1,col2,col3
from base_table;
vWIDTH number :=0;
vSTEP NUMBER := 0;
begin
SELECT COUNT(1)
INTO vROWS
FROM base_table;
vSTEP := 300 / vCOUNT;
show_view('progress_bar_stack');
for i in MY_cur is
loop
insert int my_tab(c1,c2,c3)
values(i.col1,i.col2,i.col3);
set_item_property('progree_item',width,width+vSTEP);
synchronize;
end loop;
end;
I ASK IS THIS A GOOD WAY TO CREATE A PROGRESS BAR OR NOT . AND IS THERE ANOTHE WAY TO CREATE A PROGRESS OTHER THAN THIS.
PLEASE IF YOU HAVE A WAY , WRITE IT .
TAREK FATHI
2005 05 31

Answer 1

my way of implementig a progress bar is:
window wn_pbar with canvas cn_pbar and a button bt_pbar. The Button has a width of 1 pixel and max 300.
now I have a procedure pbar.init (P_<wn-name>, P_<max-value>) which writes a window-header in the wn_pbar and a max-value in a package-variable.
another function named pbar.next (P_<value> DEFAULT 1) increments an internal variable act-value. This act-value is initially 0 and can increment to max-value. The act-value/max-value is the percentage of the width of the button. e.g. 1200/2000 means 60% -> 60% of width 300 = 180 width for the button.
another procedure pbar.destroy deletes the variables, closes the window wn_pbar and goes back to the item, where the focus was before the pbar started.
with this steps you can easily group these objects in a objectgroup and inherit it to all forms you need a pbar. the sourcecode is still in a library pbar.pll which you have to attach.
it looks like your functionality, but you can use it anywhere you need it.
try it
Gerd
PS: This is a very useful method for forms client/server. In the web you have to check, that the button not refreshes to open.... the more network-roundtrips, the fewer performance...