Использование ProgressBar в ObjectDCL

Достаточно просто.
Создаешь окно modeless с элементом ProgressBar, добавляеш текст или еще что-либо по усмотрению
Вызываешь окно перед циклом
так это будет выглядеть с элементами созданными по умолчанию:
[code]
  (Odcl_Form_Show Untitled_DclForm1)
[/code
  Устанавливаешь максимальные и минимальное заначения  ProgressBar в соответствии с числом повторений твоего цикла
  К приме для цикла из 100 повторений
[code]
(Odcl_Control_SetProperty "MinValue" 0)
(Odcl_Control_SetProperty "MaxValue" 100)
[/code]
теперь в цикле нужно устонавливать позицию методом "SetPos"
[code]
(setq i 0)
(repeat    100
  (setq i (1+ i))
;;;ваши функции
  (Odcl_Control_SetPos
    Untitled_DclForm1_ProgressBar1
    i
  ) ;_ end_Odcl_Control_SetPos
) ;_ end_repeat
[/code]
Потом закрываешь окно
  вот вроде и все

Для ProgressBar есть DOSlib.
Хм..ProgressBar актуально использовать в функциях, которые обрабатывают информацию в цикле.

> kpblc
doslib16.arx весит 280 кб. попробуйте сделать в ObjectARX  простой проект с одной функцией. Получите что-то в районе 250 кб

До ObjectARX мне еще далеко...так что пока придется отказаться от использования ProgressBar :)

> serzh
Только objARX слишком сильно завязан на конкретную версию. Так что для полноты картины придется таскать 280 кб для 2002, 280 кб для 2004-2006 и еще 280 для 2007. Итого уже метр без малого.

> Михаил
есть простой вариант:
http://www.afralisp.net/lispa/lisp53.htm
и не надо ничего за собой таскать.

Надискутировали...:)
А еще можно в статусной строке рисовать | <-палочки, или % с чисолом (55%). Как вариант и все на лиспе. Тогда ничего таскать не нужно.

> kpblc
немного поколдовал:
LSP

(defun C:PROGRESS (/ loopmax dcltut_dat)
  (setq dcltut_dat (load_dialog "_dcl.dcl"))
  (new_dialog "dcltut" dcltut_dat)
  (setq loopmax 10000)
  (setq fillx (dimx_tile "progbar"))
  (setq filly (dimy_tile "progbar"))
  (start_image "progbar")
  (fill_image 0 0 fillx filly -15)
  (end_image)
  (loopfunc)
  (term_dialog)
  (unload_dialog dcltut_dat)
  (princ)
  )
(defun loopfunc (/ fillx filly loopfunc loopmax loop-counter)
 (setq fillx (dimx_tile "progbar"))
 (setq filly (dimy_tile "progbar"))
 (start_image "progbar")
 (fill_image 0 0 fillx filly -15)
 (end_image)
 (setq loop-counter 0)
 (setq loopmax 10000)
 (while (<= loop-counter loopmax)
   (start_image "progbar")
   (fill_image 0 0 (/ (* loop-counter fillx) loopmax) filly 5)
   (end_image)
   (setq loop-counter (1+ loop-counter))
   )
  (princ)
  )

DCL

dcltut: dialog {fixed_width=true; label="DCL Progress Bar";
  :image {key="progbar"; width=50; height=1; is_cancel=true;}
}

осталось все соединить в один файл с программной загрузкой DCL и подредактировать чуть-чуть.