Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
|
|||
Редактировалось 1 раз(а), последний 2017-03-03 00:03:34 |
|||
карма: 0 |
|
Ответов: 8918
Рейтинг: 823
|
|||
CASPER_Y, спасибо, а думаю о женщине!
|
|||
карма: 19 |
|
Ответов: 676
Рейтинг: 5
|
|||
Немного усовершенствованый вариант
[code:1]Add(Label,11419821,350,252) { Left=98 Top=43 Width=32 Font=[MS Sans Serif,8,1,0,1] Transparent=0 Caption="0%" AutoSize=1 Alignment=1 Point(doLeft) Point(doWidth) Point(Left) } Add(Label,15491982,413,182) { Left=98 Top=43 Width=32 Font=[MS Sans Serif,8,1,16777215,1] Transparent=0 Caption="0%" AutoSize=1 Alignment=1 Point(doLeft) Point(doWidth) Point(Left) } Add(Hub,2871186,224,259) { link(onEvent1,8794906:doNext,[]) link(onEvent2,11419821:doWidth,[]) } Add(If_else,1812421,77,252) { Type=4 Op2=Integer(39) link(onTrue,14376012:doCompare,[]) } Add(MainForm,11882859,224,168) { Left=400 Top=200 Width=248 Height=98 Caption="Установка программы" BorderStyle=4 } Add(ProgressBar,1639564,294,119) { Left=10 Top=40 Width=220 ProgressColor=-16777203 } Add(Timer,8737190,119,119) { Interval=100 Enable=1 AutoStop=100 Point(onStop) link(onTimer,4033994:doNext,[]) link(onStop,2418561:doMessage,[(163,132)(163,195)]) } Add(Counter,8794906,273,259) { Max=127 Step=2 Default=96 link(onNext,11419821:doLeft,[]) } Add(Message,2418561,175,189) { Message="Установка программы успешно завершена!" Caption="Установка завершена" Icon=4 link(onMessage,11882859:doClose,[]) } Add(If_else,14376012,126,252) { Type=4 Op2=Integer(55) link(onFalse,7730620:doNext,[(166,265)(138,265)]) } Add(Hub,13719296,224,119) { OutCount=3 link(onEvent1,1639564:doPosition,[]) link(onEvent2,11888525:doString,[(275,132)(275,188)]) link(onEvent3,1812421:doCompare,[(266,139)(266,160)(63,160)(63,258)]) } Add(Button,14066993,63,119) { Left=10 Top=10 Width=100 Caption="Начать установку!" link(onClick,8737190:doTimer,[]) } Add(Counter,4033994,175,119) { link(onNext,13719296:doEvent1,[]) } Add(FormatStr,11888525,294,182) { DataCount=1 Mask="%1%" link(onFString,12109419:doEvent1,[]) } Add(Hub,12109419,350,182) { link(onEvent1,15491982:doText,[(397,188)(397,188)]) link(onEvent2,11419821:doText,[(392,195)(392,233)(340,233)(340,258)]) } Add(Counter,7730620,175,259) { Max=32 Step=2 Type=1 link(onNext,2871186:doEvent1,[]) } [/code:1] |
|||
карма: 1 |
|
Ответов: 3655
Рейтинг: 69
|
|||
CASPER_Y, Вариант -=Dima=-, Более стандартен.
|
|||
карма: 0 |
|
Гость
Ответов: 17029
Рейтинг: 0
|
|||
Редактировалось 1 раз(а), последний 2017-03-03 00:03:35 |
|||
карма: 0 |
|
5