Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2005-10-30 14:50:06 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:03:34
карма: 0

0
Ответов: 8918
Рейтинг: 823
#2: 2005-10-30 15:59:05 ЛС | профиль | цитата
CASPER_Y, спасибо, а думаю о женщине!
карма: 19

0
Ответов: 676
Рейтинг: 5
#3: 2005-10-30 16:21:09 ЛС | профиль | цитата
Немного усовершенствованый вариант
[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

0
Ответов: 3655
Рейтинг: 69
#4: 2005-10-30 17:23:52 ЛС | профиль | цитата
CASPER_Y, Вариант -=Dima=-, Более стандартен.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2005-10-30 19:28:41 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:03:35
карма: 0

0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)