Вверх ↑
Этот топик читают: Гость
Ответов: 178
Рейтинг: 14
#1: 2018-08-08 22:55:02 ЛС | профиль | цитата
Всем привет.
Как грамотно сделать, или так нормально?

Add(MainForm,2953706,154,238)
{
Width=169
Height=86
}
Add(Label,11088423,413,301)
{
Left=62
Top=35
Width=28
Height=20
Font=[MS Sans Serif,10,1,16711680,1]
Name="остаток"
Transparent=0
Caption="000"
Alignment=2
Point(doFont)
}
Add(Font,1713396,413,252)
{
Font=[MS Sans Serif,10,1,16711680,1]
link(onFont,11088423:doFont,[(456,258)(456,292)(401,292)(401,314)])
link(Color,12118910:Value,[(426,244)(419,244)])
}
Add(If_else,9108434,294,266)
{
Type=3
Op2=Integer(25)
link(onTrue,1172002:doData,[(337,272)(337,209)])
link(onFalse,12118910:doClear,[(396,279)(396,216)])
}
Add(If_else,1471480,238,266)
{
Type=3
Op2=Integer(15)
link(onTrue,11573135:doData,[(278,272)(278,209)])
link(onFalse,9108434:doCompare,[(285,279)(285,272)])
}
Add(Memory,1516712,350,154)
{
@Hint=#6:желтый|
Default=Integer(65535)
AddHint(-6,-38,54,13,@Hint)
}
Add(DoData,11573135,287,203)
{
Data=Integer(0)
link(onEventData,14108895:doWork1,[(329,209)(329,195)(396,195)])
link(Data,2858841:Value,[])
}
Add(Memory,12118910,413,203)
{
@Hint=#5:синий|
Default=Integer(16711680)
link(onData,1713396:doFont,[(453,209)(453,244)(401,244)(401,258)])
}
Add(Memory,2858841,287,154)
{
@Hint=#7:красный|
Default=Integer(255)
AddHint(-32,-39,59,13,@Hint)
}
Add(DoData,1172002,350,203)
{
Data=Integer(0)
link(onEventData,14108895:doWork2,[])
link(Data,1516712:Value,[])
}
Add(Hub,284675,203,294)
{
link(onEvent1,1471480:doCompare,[(227,300)(227,272)])
link(onEvent2,11088423:doText,[])
}
Add(Edit,3091973,154,294)
{
Left=55
Top=10
Text="100"
DataType=2
link(onChange,284675:doEvent1,[])
}
Add(HubEx,14108895,392,203)
{
link(onEvent,12118910:doValue,[])
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 204
Рейтинг: 2
#2: 2018-08-08 23:09:28 ЛС | профиль | цитата
А что конкретно не нравится? Всё корректно работает. Как говорится: лучшее враг хорошего!
Если смущает нагромождение компонентов, можно упаковать в контейнер. и будет ультра минимализм! )))


Add(Label,11088423,714,574)
{
Left=62
Top=35
Width=28
Height=20
Font=[MS Sans Serif,10,1,16711680,1]
Name="остаток"
Transparent=0
Caption="000"
Alignment=2
Point(doFont)
}
Add(Edit,3091973,560,574)
{
Left=55
Top=10
Text="100"
DataType=2
link(onChange,1270919:doWork1,[])
}
Add(MultiElement,1270919,630,574)
{
link(onEvent1,12717441:doEvent1,[])
}
BEGIN_SDK
Add(EditMulti,3058182,21,21)
{
EventCount=1
WorkCount=1
Width=636
Height=445
link(doWork1,11877053:doEvent1,[(109,27)(109,307)])
}
Add(Font,592690,406,259)
{
Font=[MS Sans Serif,10,1,16711680,1]
link(onFont,7467598:doWork2,[])
link(Color,10320304:Value,[])
}
Add(If_else,8775486,287,273)
{
Type=3
Op2=Integer(25)
link(onTrue,12830782:doData,[(330,279)(330,216)])
link(onFalse,10320304:doClear,[(389,286)(389,223)])
}
Add(If_else,13502714,231,273)
{
Type=3
Op2=Integer(15)
link(onTrue,6413414:doData,[(271,279)(271,216)])
link(onFalse,8775486:doCompare,[(278,286)(278,279)])
}
Add(Memory,10874171,343,161)
{
@Hint=#6:желтый|
Default=Integer(65535)
AddHint(-6,-38,54,13,@Hint)
}
Add(DoData,6413414,280,210)
{
Data=Integer(0)
link(onEventData,7387103:doWork1,[(322,216)(322,202)(389,202)])
link(Data,11998052:Value,[])
}
Add(Memory,10320304,413,210)
{
@Hint=#5:синий|
Default=Integer(16711680)
link(onData,592690:doFont,[(453,216)(453,251)(394,251)(394,265)])
}
Add(Memory,11998052,280,161)
{
@Hint=#7:красный|
Default=Integer(255)
AddHint(-32,-39,59,13,@Hint)
}
Add(DoData,12830782,343,210)
{
Data=Integer(0)
link(onEventData,7387103:doWork2,[])
link(Data,10874171:Value,[])
}
Add(HubEx,7387103,385,210)
{
link(onEvent,10320304:doValue,[])
}
Add(Hub,11877053,182,301)
{
link(onEvent1,13502714:doCompare,[(220,307)(220,279)])
link(onEvent2,7467598:doWork3,[(548,314)])
}
Add(HubEx,7467598,544,259)
{
Angle=3
link(onEvent,3058182:onEvent1,[(548,27)])
}
END_SDK
Add(Hub,12717441,679,574)
{
link(onEvent1,11088423:doText,[])
link(onEvent2,11088423:doFont,[])
}

карма: 1

0
Ответов: 8886
Рейтинг: 823
#3: 2018-08-08 23:27:33 ЛС | профиль | цитата
Stalevar,
чуть меньше


Add(MainForm,1744500,308,182)
{
Width=169
Height=108
Color=32768
}
Add(Label,11088423,567,245)
{
Left=62
Top=35
Width=28
Height=20
Font=[MS Sans Serif,10,1,16711680,1]
Name="остаток"
Transparent=0
Caption="000"
Alignment=2
Point(doFont)
}
Add(Font,1713396,567,196)
{
Font=[MS Sans Serif,18,1,16711680,1]
link(onFont,11088423:doFont,[(610,202)(610,236)(555,236)(555,258)])
link(Color,12118910:Value,[])
}
Add(If_else,9108434,448,210)
{
Type=3
Op2=Integer(25)
link(onTrue,1516712:doClear,[(487,216)(487,160)])
link(onFalse,12118910:doClear,[(543,223)(543,160)])
}
Add(If_else,1471480,392,210)
{
Type=3
Op2=Integer(15)
link(onTrue,2858841:doClear,[(431,216)(431,160)])
link(onFalse,9108434:doCompare,[(439,223)(439,216)])
}
Add(Memory,1516712,504,147)
{
@Hint=#6:желтый|
Default=Integer(65535)
link(onData,12118910:doValue,[])
AddHint(-6,-38,54,13,@Hint)
}
Add(Memory,12118910,574,147)
{
@Hint=#5:синий|
Default=Integer(16711680)
link(onData,1713396:doFont,[(613,153)(613,188)(557,188)(557,202)])
}
Add(Memory,2858841,441,147)
{
@Hint=#7:красный|
Default=Integer(255)
link(onData,1516712:doValue,[])
AddHint(-32,-39,59,13,@Hint)
}
Add(Hub,284675,357,238)
{
link(onEvent1,1471480:doCompare,[(381,244)(381,216)])
link(onEvent2,11088423:doText,[])
}
Add(Edit,3091973,308,238)
{
Left=55
Top=10
Text="100"
DataType=2
link(onChange,284675:doEvent1,[])
}
Add(Timer,2962736,210,238)
{
Interval=50
link(onTimer,6968064:doNext,[])
}
Add(Counter,6968064,259,238)
{
Max=40
link(onNext,3091973:doText,[])
}

карма: 19

0
Ответов: 178
Рейтинг: 14
#4: 2018-08-09 00:18:25 ЛС | профиль | цитата
Спасибо.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2018-08-09 12:06:43 ЛС | профиль | цитата
Леонид писал(а):
чуть меньше


Add(MainForm,1744500,252,196)
{
Width=169
Height=108
Color=32768
Position=1
}
Add(Label,11088423,399,259)
{
Left=62
Top=35
Width=28
Height=20
Font=[MS Sans Serif,10,1,16711680,1]
Name="остаток"
Transparent=0
Caption="000"
Alignment=2
Point(doFont)
}
Add(Font,1713396,399,210)
{
Font=[MS Sans Serif,18,1,16711680,1]
link(onFont,11088423:doFont,[(441,216)(441,296)(387,296)(387,272)])
link(Color,10385434:vColor,[(412,198)(385,198)(385,254)(349,254)])
}
Add(Hub,284675,301,252)
{
link(onEvent1,10385434:doWork,[(328,258)(328,216)])
link(onEvent2,11088423:doText,[])
}
Add(Edit,3091973,252,252)
{
Left=55
Top=10
Text="100"
DataType=2
link(onChange,284675:doEvent1,[])
}
Add(Timer,2962736,154,252)
{
Interval=50
link(onTimer,6968064:doNext,[])
}
Add(Counter,6968064,203,252)
{
Max=40
link(onNext,3091973:doText,[])
}
Add(InlineCode,10385434,343,210)
{
WorkPoints=#6:doWork|
EventPoints=#5:onRes|
VarPoints=#6:vColor|
Code=#15:unit HiAsmUnit;|17:// TAD 09.08.2018|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|18: FColor:Integer;|9: public|16:{ Event Points }|19: onRes : THI_Event;|0:|15:{ Work Points }|46:Procedure doWork(var _Data:TData; Index:word);|0:|14:{ Var Points }|46:Procedure vColor(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|15:{ Work Points }|30:Procedure THiAsmClass.doWork;|5:Begin|25: Case toInteger(_Data) of|22: 1..15: FColor := 255;|24: 16..25:FColor := 65535;|27: else FColor := 16711680;|5: end;|23: _hi_onEvent(onRes,'');|4:end;|0:|14:{ Var Points }|29:Procedure THiAsmClass.vColor;|5:Begin|26: dtInteger(_Data,FColor);|4:end;|0:|4:end.|
link(onRes,1713396:doFont,[])
}

[/spoiler]
Редактировалось 1 раз(а), последний 2018-08-09 12:08:38
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 178
Рейтинг: 14
#6: 2018-08-09 12:14:36 ЛС | профиль | цитата

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#7: 2018-08-09 21:58:43 ЛС | профиль | цитата
Кто меньше

Add(MainForm,4023366,217,119)
{
Width=151
Height=134
Color=12639424
BorderStyle=1
Position=1
}
Add(InlineCode,6673039,266,161)
{
@Color=16755455
WorkPoints=#6:doWork|
DataPoints=#7:PHandle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|25: Phandle : THI_Event;|51: Procedure doWork(var Dt:TData; Index:Word); |0:|5: end;|0:|14:implementation|0:|29:Procedure THiAsmClass.doWork;|17:var iC: PControl;|14: a:integer;|5:BEGIN|42: iC := PControl(ToIntegerEvent(Phandle));|21: a := toInteger(Dt);|11: Case a of|31: 0..15: iC.font.color := 255;|33: 16..25: iC.font.color := 65535;|36: else iC.font.color := 16711680;|6: end;|27: iC.Caption := int2Str(a);|4:END;|4:end.|
link(PHandle,15591309:PHandle,[])
}
Add(Label,15591309,259,119)
{
Left=60
Top=55
Color=12639424
Font=[MS Sans Serif,14,1,0,1]
Caption=""
Point(PHandle)
}
Add(Edit,3091973,217,161)
{
Left=55
Top=10
Text="100"
DataType=2
link(onChange,6673039:doWork,[])
}
Add(Timer,2962736,119,161)
{
Interval=50
link(onTimer,6968064:doNext,[])
}
Add(Counter,6968064,168,161)
{
Max=40
link(onNext,3091973:doText,[])
}


Редактировалось 1 раз(а), последний 2018-08-10 06:43:16
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#8: 2018-08-10 16:38:41 ЛС | профиль | цитата
Tad писал(а):
Кто меньше

Армянскому радио задает вопрос пионер Петя: скажите пожалуйста, что такое синхрофазотрон ???
Армянское радио отвечает: пионер Петя, не выёживайся !!!
карма: 9

0
Ответов: 9906
Рейтинг: 351
#9: 2018-08-12 13:38:14 ЛС | профиль | цитата
А если на штатных элементах (в смысле - не выделываться), то достаточно двух: MathParse + Font
Add(MainForm,1744500,266,147)
{
Width=169
Height=108
Color=32768
}
Add(Label,11088423,483,210)
{
Left=62
Top=20
Width=40
Height=28
Font=[MS Sans Serif,22,1,16711680,1]
Name="остаток"
Transparent=0
Caption="000"
Alignment=2
Point(doFont)
}
Add(Font,1713396,420,217)
{
Font=[MS Sans Serif,22,1,0,1]
link(onFont,11088423:doFont,[])
}
Add(Hub,284675,315,203)
{
link(onEvent1,13415551:doCalc,[(340,209)(340,223)])
link(onEvent2,11088423:doText,[])
}
Add(Timer,2962736,217,203)
{
Interval=300
link(onTimer,6968064:doNext,[])
}
Add(Counter,6968064,266,203)
{
Max=40
link(onNext,284675:doEvent1,[])
}
Add(MathParse,13415551,364,217)
{
DataCount=1
MathStr="$FF0000 - (%1<=25)*$FE0001 - (%1<=15)*$00FF00"
link(onResult,1713396:doFont,[])
}

Редактировалось 1 раз(а), последний 2018-08-12 13:38:44
карма: 9

0
Ответов: 178
Рейтинг: 14
#10: 2018-08-12 13:44:23 ЛС | профиль | цитата

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#11: 2018-08-13 07:40:49 ЛС | профиль | цитата
Galkov писал(а):
А если на штатных элементах
IC - тоже штатный элемент.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)