Штатный диалог с прогрессом (delphi & FPC)
Может добрый юзер иконку смастерит?
В принципе ничего не мешает для включения в пакет, диалог то штатный

andrestudio, у меня не работает, рантайм ерор кричит. Покопавшись узнал что виновник CoCreateInstance, выдает HResult = 800401F0 (CO_E_NOTINITIALIZED - CoInitialize has not been called). Добавил в конец:
Ошибка пропала.

Вот такое безобразие могу предложить:

И еще интересно почему doPosition (Устанавливает позицию прогресса) выводит сообщение, почему не doCreate или doShow или doMessage, а потом уже doPosition?

Доводите до ума, тестируйте.

sla8a, спасибо за иконку и за выловленную багу. Я видать эту инициализацию в ActiveX.pas воткнул и забыл. У тебя кстати на сей день какая windows? Что касаемо точек типа doShowDlg, doHideDlg изначально они и были, но потом от них отказался (просто лишние затраты для логики) Прогресс а точнее диалог с прогрессом по сути и так отображается с учётом итераций, ну и скрывается по окончанию. (принудительно скрыть -> doProgress >= Max ничего сложного)
Непонятно одно, довольно удобная тузла (аж с vin98) не очень то и распространёна в применении. Вот тут есть немного чтива, но мне там доп. фишки не нужны http://users.skynet.be/oleole/ProgressDialog.htm

andrestudio, а это му-му в 10-ке работает? Пока не ставил, подожду окончательного релиза

nesco, у меня нет 10-ки, но что-то мне подсказывает что от shell(a) там не отказались

andrestudio, нашел в файлах test_tabcontrol - не подскажешь что там за компонент? Уж очень прикольно смотрятся кнопки с картинками

Iliya, там ещё много чего доделать надо. (коды ваще не причёсаны). Скажем так, по сути они и ещё ряд компонентов которые ещё не реализованы понадобятся мне для реализации некоего проекта для участия в конкурсе по "FreeSCADA" Заранее зная свой провал но всё же иду во банк "проект будет в HiAsm". Пока нужно fpc по изучать...

ХP (есть и семерка, но там HiAsm для тестирования в основном)
andrestudio, насколько понял то для закрытия нужно отлавливать onCancel и использовать таймер, так может всунуть таймер внутрь?

andrestudio, звени что не по теме но не мог бы ты скинуть elv.dll последней версии. Буду очень благодарен.

sla8a, да по идее как бы нужен (например что то пошло не так и итерации на вход не поступают, возможно ведь такое?) может коллеги что посоветуют? Spectr20, всё пропало (диск накрылся), выкладывал с исходниками, залей куда нибудь попробую собрать. Сегодня не обещаю, домашними делами припахали.

andrestudio, про FreeScada интересно очень... Наработки будут открыты ?