CON EL AFAN DE AYUDARTE TE ENVIO ESTA SOLUCION QUE EN SU OPORTUNIDAD ENCONTRE EN ESTE MISMO SITIO Y ME FUNCIONO BIEN.
ESTA SOLUCION FUE ENVIADA POR ARTURO ORDOÑEZ, ESPERO QUE NO SE MOLESTE POR REENVIARLA.
---------------------------------------------------------------------------------------------------------------
Una solucion que encontre fue la siguiente.
Se crea un DISPLAY-ITEM se le da la forma deseada en cuanto a tamaño, color y forma, los adornos que le quieran dar.
Luego se le hace crecer a lo ancho con el procedimiento abajo descrito.
PROCEDURE barra_progreso IS
v NUMBER:= 1000;
x NUMBER := 0;
t constant number := get_item_property('barra_progreso.barra', WIDTH);
BEGIN
Set_Item_Property('barra_progreso.barra', WIDTH, 0 );
v := (t/v);
for i in 1..100000 loop
if x <= t then
begin
Set_Item_Property('barra_progreso.barra', WIDTH, x+v );
synchronize;
x := x+v;
end;
end if;
end loop;
end;
Arturo Ordoñez.
-------------------------------------------------------------------------------------------------------------
