Щас буду разбираться как "пристигнуть иконку", или "написать на элементе"
Создание стандартных элементов мне, пока, не подходит, я сижу на нескольких компах, и периодически переставляю винду. Прийдется в HiAsm постоянно их устанавливать. Переносимость мне нужна более простая.
------------ Дoбавленo в 03.52:
Все получилось, работают и Имена и Иконки (жаль, что иконки не берутся из папки с проектом). Спасибо!
У меня есть еще вариант "быстрого хаба", но он почему-то хоть и генерит все события, но передает данные только на одну из точек.
Add(MainForm,2260457,91,189)
{
Left=20
Top=105
Width=336
Height=253
Color=8421376
Caption=":("
BorderStyle=3
}
Add(Button,11229748,189,189)
{
Left=80
Top=55
Width=65
Height=30
Caption="аЁб?аАб?б?"
Data=String(с переди)
link(onClick,473379:doEvent1,[])
}
Add(TimeCounter,16367636,273,154)
{
link(onStart,7814300:doFor,[(331,160)(331,118)])
link(onStop,7587951:doText,[])
}
Add(For,7814300,357,112)
{
End=2000000
link(onEvent,2069367:doEvent1,[])
link(onStop,16367636:doStop,[(410,125)(410,100)(261,100)(261,167)])
}
Add(TimeCounter,5948833,287,287)
{
link(onStart,381516:doFor,[(345,293)(345,251)])
link(onStop,8951079:doText,[])
}
Add(For,381516,371,245)
{
End=2000000
link(onEvent,3776895:do_in1,[])
link(onStop,5948833:doStop,[(424,258)(424,233)(275,233)(275,300)])
}
Add(Label,7587951,357,161)
{
Left=160
Top=55
}
Add(Label,8951079,371,294)
{
Left=160
Top=75
}
Add(Hub,473379,245,189)
{
link(onEvent1,16367636:doStart,[(266,195)(266,160)])
link(onEvent2,5948833:doStart,[(266,202)(266,293)])
}
Add(InlineCode,3776895,497,245)
{
WorkPoints=#6:do_in1|
EventPoints=#4:out1|4:out2|4:out3|4:out4|
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|18: out1:THI_Event;|18: out2:THI_Event;|18: out3:THI_Event;|18: out4:THI_Event;|48: procedure do_in1(var Data:TData; index:word);|3: |5: end;|0:|14:implementation|0:|0:|0:|0:|29:procedure THiAsmClass.do_in1;|15:var s1:integer;|7:begin |0:|26: _hi_OnEvent(out1, Data);|26: _hi_OnEvent(out2, Data);|26: _hi_OnEvent(out3, Data);|26: _hi_OnEvent(out4, Data);|2: |4:end;|0:|0:|0:|0:|4:end.|
}
Add(Hub,2069367,511,112)
{
OutCount=4
}
Add(MainForm,2953706,168,182)
{
Width=527
Height=275
}
Add(InlineCode,3776895,287,182)
{
WorkPoints=#6:do_in1|
EventPoints=#4:out1|4:out2|4:out3|4:out4|
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|18: out1:THI_Event;|18: out2:THI_Event;|18: out3:THI_Event;|18: out4:THI_Event;|48: procedure do_in1(var Data:TData; index:word);|3: |5: end;|0:|14:implementation|0:|0:|0:|0:|29:procedure THiAsmClass.do_in1;|15:var s1:integer;|7:begin |0:|26: _hi_OnEvent(out1, Data);|26: _hi_OnEvent(out2, Data);|26: _hi_OnEvent(out3, Data);|26: _hi_OnEvent(out4, Data);|2: |4:end;|0:|0:|0:|0:|4:end.|
link(out1,6944392:doText,[(345,188)(345,146)])
link(out2,403253:doText,[])
link(out3,14854456:doText,[(345,202)(345,237)])
link(out4,10569844:doText,[(335,209)(335,286)])
}
Add(Button,9872729,238,182)
{
Left=230
Top=55
Data=Integer(123)
link(onClick,3776895:do_in1,[])
}
Add(Label,6944392,371,140)
{
Left=365
Top=55
}
Add(Label,403253,371,189)
{
Left=365
Top=85
}
Add(Label,14854456,371,231)
{
Left=365
Top=115
}
Add(Label,10569844,371,280)
{
Left=365
Top=145
}
Dilma писал(а):
IC от login, работает быстрее только потому, что убрана верхняя точка DataТа не, то я, просто, не доделал ее тогда:
Add(MainForm,2260457,91,189)
{
Left=20
Top=105
Width=336
Height=253
Color=8421376
Caption=":("
BorderStyle=3
}
Add(Button,11229748,189,189)
{
Left=80
Top=55
Width=65
Height=30
Caption="аЁб?аАб?б?"
Data=String(с переди)
link(onClick,473379:doEvent1,[])
}
Add(TimeCounter,16367636,273,154)
{
link(onStart,7814300:doFor,[(331,160)(331,118)])
link(onStop,7587951:doText,[])
}
Add(For,7814300,357,112)
{
End=2000000
link(onEvent,12904234:doValue,[])
link(onStop,16367636:doStop,[(410,125)(410,100)(261,100)(261,167)])
}
Add(TimeCounter,5948833,287,287)
{
link(onStart,381516:doFor,[(345,293)(345,251)])
link(onStop,8951079:doText,[])
}
Add(For,381516,371,245)
{
End=2000000
link(onEvent,3613068:in1,[])
link(onStop,5948833:doStop,[(424,258)(424,233)(275,233)(275,300)])
}
Add(Memory,12904234,567,112)
{
Point(Data)
}
Add(Label,7587951,357,161)
{
Left=160
Top=55
}
Add(Label,8951079,371,294)
{
Left=160
Top=75
}
Add(Hub,473379,245,189)
{
link(onEvent1,16367636:doStart,[(266,195)(266,160)])
link(onEvent2,5948833:doStart,[(266,202)(266,293)])
}
Add(InlineCode,3613068,567,245)
{
WorkPoints=#3:in1|
EventPoints=#4:out1|
VarPoints=#4:var1|
DataPoints=#4:dat1|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|12: s1:TData;|9: public|18: out1:THI_Event;|18: dat1:THI_Event;|3: |45: procedure in1(var Data:TData; index:word);|46: procedure var1(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|26:procedure THiAsmClass.in1;|0:|5:begin|9:s1:=Data;|0:|26: _hi_OnEvent(dat1, Data);|28: _hi_OnEvent(out1, Data); |4:end;|0:|27:procedure THiAsmClass.var1;|0:|5:begin|12: Data := s1;|28: _hi_OnEvent(dat1, Data); |4:end;|0:|4:end.|
}
Add(Button,9985643,504,301)
{
Left=80
Top=100
Caption="б?аИб?аЛаО"
link(onClick,9960144:doMessage,[])
}
Add(Message,9960144,567,301)
{
link(Message,3613068:var1,[])
}
На скорость это не влияет. Вот если начать пользоваться верхней точкой, то скорость падает:
Add(MainForm,2260457,77,217)
{
Left=20
Top=105
Width=336
Height=253
Color=8421376
Caption=":("
BorderStyle=3
}
Add(Button,11229748,175,217)
{
Left=80
Top=55
Width=65
Height=30
Caption="аЁб?аАб?б?"
Data=String(с переди)
link(onClick,473379:doEvent1,[])
}
Add(TimeCounter,16367636,259,182)
{
link(onStart,7814300:doFor,[(317,188)(317,146)])
link(onStop,7587951:doText,[])
}
Add(For,7814300,343,140)
{
End=2000000
link(onEvent,12904234:doValue,[])
link(onStop,16367636:doStop,[(396,153)(396,128)(247,128)(247,195)])
}
Add(TimeCounter,5948833,273,315)
{
link(onStart,381516:doFor,[(331,321)(331,279)])
link(onStop,8951079:doText,[])
}
Add(For,381516,357,273)
{
End=2000000
link(onEvent,3613068:in1,[])
link(onStop,5948833:doStop,[(410,286)(410,261)(261,261)(261,328)])
}
Add(Memory,12904234,553,140)
{
Point(Data)
link(Data,3500935:Value,[])
}
Add(Label,7587951,343,189)
{
Left=160
Top=55
}
Add(Label,8951079,357,322)
{
Left=160
Top=75
}
Add(Hub,473379,231,217)
{
link(onEvent1,16367636:doStart,[(252,223)(252,188)])
link(onEvent2,5948833:doStart,[(252,230)(252,321)])
}
Add(InlineCode,3613068,553,273)
{
WorkPoints=#3:in1|
EventPoints=#4:out1|
VarPoints=#4:var1|
DataPoints=#4:dat1|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|12: s1:TData;|9: public|18: out1:THI_Event;|18: dat1:THI_Event;|3: |45: procedure in1(var Data:TData; index:word);|46: procedure var1(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|26:procedure THiAsmClass.in1;|0:|5:begin|9:s1:=Data;|0:|26: _hi_OnEvent(dat1, Data);|28: _hi_OnEvent(out1, Data); |4:end;|0:|27:procedure THiAsmClass.var1;|0:|5:begin|12: Data := s1;|28: _hi_OnEvent(dat1, Data); |4:end;|0:|4:end.|
link(dat1,13016430:Value,[])
}
Add(Button,9985643,490,329)
{
Left=80
Top=100
Caption="б?аИб?аЛаО"
link(onClick,9960144:doMessage,[])
}
Add(Message,9960144,553,329)
{
link(Message,3613068:var1,[])
}
Add(Memory,3500935,553,91)
{
Default=String(веолвенлугнлнвглмболюол)
}
Add(Memory,13016430,553,224)
{
Default=String(веолвенлугнлнвглмболюол)
}
Правда из-за верхней точки, чуть-чуть медленнее работает извлечение из памяти, но мне верхняя, пока, не была нужна ни разу
Поиск
Друзья
Администрация