Помогите разобраться с этой штуковиной, как настроить прогресс бар когда выполняется какой нибудь процесс, желательно на несложном примере. Я сиавлю этот элемент в своей апликухе и вот например когда я нажимаю кнопку которая выполняет определённую операцию в базе данных ио хотелось бы видеть как она проходит по этой самой прогресс бар.


Вот мой код внизу - подскажите как поставить эту прогресс бар (hpb_1), пожалуйста:

String ls_sparetype, ls_orderline, ls_shipstores, ls_multivendor

SetPointer(HourGlass!)

cb_1.Enabled = False

ls_unitid = STRING(dw_1.Object.unitid[dw_1.getrow()])
ls_unitid1 = STRING(dw_2.Object.unitid[dw_2.getrow()])

sle_1.text = String(ls_unitid)
sle_2.text = String(ls_unitid1)

//ВОТ ТУТ НАЧАТЬ ПРОГРЕСС

update amos.sparetype
set stockunitid = :ls_unitid1
where stockunitid = :ls_unitid
using SQLCA;

if SQLCA.sqlcode <>0 then //check SQL code
Messagebox('Error Message', SQLCA.SQLErrtext) //error message
else
Commit;
end if

update amos.orderline
set unitid = :ls_unitid1
where unitid = :ls_unitid
using SQLCA;

if SQLCA.sqlcode <>0 then //check SQL code
Messagebox('Error Message', SQLCA.SQLErrtext) //error message
else
Commit;
end if

update amos.shipstores
set unitid = :ls_unitid1
where unitid = :ls_unitid
using SQLCA;

if SQLCA.sqlcode <>0 then //check SQL code
Messagebox('Error Message', SQLCA.SQLErrtext) //error message
else
Commit;
end if

update amos.multivendor
set purchaseunitid = :ls_unitid1
where purchaseunitid = :ls_unitid
using SQLCA;

if SQLCA.sqlcode <>0 then //check SQL code
Messagebox('Error Message', SQLCA.SQLErrtext) //error message
else
Commit;
end if

Update amos.unit
set name = 'TO_Cancel'
where unitid = :ls_unitid
using SQLCA;

if SQLCA.sqlcode <>0 then //check SQL code
Messagebox('Error Message', SQLCA.SQLErrtext) //error message
else
Commit;
end if

dw_1.SetTransObject(sqlca)
dw_1.Retrieve()

// А ТУТ ЗАКОНЧИТЬ ПРОГРЕСС
SetPointer(Arrow!)
cb_1.Enabled = True

pb_user

А если выражение всего одно но занимает продолжительное время как быть в этом случае?

pb_user

А Вы не знаете как можно показать прогресс бар из Windows (ne которая встроена в ресурсах Windows) или там всякие анимированные картинки как например в инсталяшках используются. Как это делается подскажите плиз.

Филипп

Спасибо, я немного не это имел в виду, я имел в виду можно ли просто указать как нибудь показывать уже готовый элемент Windows? которых в Windows полно на всякие случаи, что то типа запуска файла что ли.