Вверх ↑
Ответов: 5227
Рейтинг: 586
#1: 2020-04-04 17:55:41 ЛС | профиль | цитата
fox-video, на скрине прогрессы VistaProBar которые у тебя есть
но можно и этим Shape делать прогрессы по оси Х
Пример


схема

Add(MainForm,2953706,63,63)
{
Width=358
Height=258
Color=15793151
}
Add(janShape,8983628,490,168)
{
Left=25
Top=30
Width=290
Height=25
Color=12632256
Font=[Arial Narrow,10,1,65535,204]
GradientColor2=8421376
Point(doScaleX)
Point(doCaption)
}
Add(janShape,9669505,490,70)
{
Left=25
Top=75
Width=290
Height=25
Color=12632256
Font=[Arial Narrow,10,1,16777215,204]
GradientColor2=16711680
Point(doScaleX)
Point(doCaption)
}
Add(janShape,2957169,490,119)
{
Left=25
Top=120
Width=290
Height=25
Color=12632256
Font=[Arial Narrow,10,1,0,204]
GradientColor2=255
Point(doScaleX)
Point(doCaption)
}
Add(StrCat,10250202,434,175)
{
Str2="%"
link(onStrCat,8983628:doCaption,[])
}
Add(StrCat,5833595,434,126)
{
Str2="%"
link(onStrCat,2957169:doCaption,[])
}
Add(Hub,8442269,399,168)
{
link(onEvent1,8983628:doScaleX,[])
link(onEvent2,10250202:doStrCat,[])
}
Add(Hub,9878110,399,119)
{
link(onEvent1,2957169:doScaleX,[])
link(onEvent2,5833595:doStrCat,[])
}
Add(Hub,7739350,399,70)
{
link(onEvent1,9669505:doScaleX,[])
link(onEvent2,13423538:doStrCat,[])
}
Add(StrCat,13423538,434,77)
{
Str2="%"
link(onStrCat,9669505:doCaption,[])
}
Add(Random,6560146,350,70)
{
link(onRandom,7739350:doEvent1,[])
}
Add(Random,2673622,350,119)
{
link(onRandom,9878110:doEvent1,[])
}
Add(Random,16220065,350,168)
{
link(onRandom,8442269:doEvent1,[])
}
Add(Hub,9497817,294,70)
{
OutCount=3
link(onEvent1,6560146:doRandom,[])
link(onEvent2,2673622:doRandom,[(329,83)(329,125)])
link(onEvent3,16220065:doRandom,[(322,90)(322,174)])
}
Add(Timer,12775126,238,70)
{
Interval=200
Point(onStop)
link(onTimer,9497817:doEvent1,[])
}
Add(Button,8739760,126,63)
{
Left=25
Top=170
Width=110
Height=32
TabOrder=-1
Caption="Start/Stop"
link(onClick,16046822:doSwitch,[])
}
Add(Switch,16046822,182,63)
{
Default=0
Point(onOn)
Point(onOff)
link(onOn,12775126:doTimer,[])
link(onOff,12775126:doStop,[])
}


--- Добавлено в 2020-04-04 17:57:48

По эффектам:
C FPC не стабильно работает, если устраивает отправлю...
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Редактировалось 1 раз(а), последний 2020-04-04 17:57:48