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 не стабильно работает, если устраивает отправлю... Редактировалось 1 раз(а), последний 2020-04-04 17:57:48
|