E
Erik Wanta
Guest
Any suggestions on the best way to create a progress bar in SKILL? I
thought I would resize a form field as a progress bar (see below),
however it is not visible during execution.
---
Erik
procedure(pbform()
prog(()
ff_list=list(
list(
hiCreateLabel(
?name 'pb_message
?labelText "msg1"
)
(0:10)
(0:10)
) ; list
list(
hiCreateStringField(
?name 'pb
?prompt ""
?editable nil
)
(0:30)
(20:10)
0
) ; list
) ; list
hiCreateAppForm(
?name 'pb_form
?formTitle "progress bar"
?fields ff_list
?dontBlock t
)
;display form
hiDisplayForm(pb_form)
return(t)
)
)
pbform()
for(i 1 200
dprint(i)
)
pb_form->pb_message->value="msg2"
hiResizeField(pb_form 'pb (50:30))
thought I would resize a form field as a progress bar (see below),
however it is not visible during execution.
---
Erik
procedure(pbform()
prog(()
ff_list=list(
list(
hiCreateLabel(
?name 'pb_message
?labelText "msg1"
)
(0:10)
(0:10)
) ; list
list(
hiCreateStringField(
?name 'pb
?prompt ""
?editable nil
)
(0:30)
(20:10)
0
) ; list
) ; list
hiCreateAppForm(
?name 'pb_form
?formTitle "progress bar"
?fields ff_list
?dontBlock t
)
;display form
hiDisplayForm(pb_form)
return(t)
)
)
pbform()
for(i 1 200
dprint(i)
)
pb_form->pb_message->value="msg2"
hiResizeField(pb_form 'pb (50:30))