Вверх ↑
Ответов: 1731
Рейтинг: 68
#1: 2012-08-24 16:49:41 ЛС | профиль | цитата
Add(MainForm,1071012,140,168)
{
Width=436
Height=565
Color=0
Caption="ТЕЛЕФОННЫЙ СПРАВОЧНИК"
BorderStyle=1
Position=1
Point(onClose)
link(onCreate,12420397:doFor,[])
}
Add(ChildPanelEx,63122,266,182)
{
Mode=1
link(onClick,15480179:doCompare,[(315,188)(315,279)(254,279)(254,244)])
}
BEGIN_SDK
Add(EditMultiEx,15987547,21,21)
{
WorkCount=#5:##add|8:##select|8:unselect|
EventCount=#7:onClick|
VarCount=#7:##index|12:##eventIndex|
Width=314
Height=144
VOffset=49
Point(##add)
Point(##select)
Point(##index)
Point(##eventIndex)
link(##add,524552:doEvent1,[])
link(##select,11068011:doFont,[(56,83)(56,90)])
link(unselect,2752956:doFont,[(49,90)(49,125)])
}
Add(Panel,10207691,203,28)
{
Left=5
Top=5
Width=30
Height=30
Layout="parent.AZB"
}
Add(Memory,14104506,203,112)
{
}
Add(Hub,524552,154,70)
{
link(onEvent1,16064671:doCaption,[])
link(onEvent2,14104506:doValue,[(186,83)(186,118)])
}
Add(DoData,6242721,280,70)
{
link(onEventData,15987547:onClick,[])
link(Data,14104506:Value,[(286,58)(248,58)(248,156)(209,156)])
}
Add(BitBtn,16064671,203,70)
{
Left=2
Top=2
Width=26
Height=26
Align=5
Font=[Arial,11,1,16711680,204]
Caption=""
Flat=1
Point(doFont)
link(onClick,6242721:doData,[])
}
Add(Font,11068011,63,84)
{
Font=[Arial,11,1,255,1]
link(onFont,8822118:doWork2,[])
}
Add(Font,2752956,98,119)
{
Font=[Arial,11,1,16711680,1]
link(onFont,8822118:doWork3,[(140,125)])
}
Add(HubEx,8822118,136,84)
{
Angle=3
link(onEvent,16064671:doFont,[(140,57)(194,57)(194,83)])
}
END_SDK
Add(GridLayout,9612136,140,203)
{
Name="AZB"
Space=5
Padding=10
Rows=15
Cols=2
}
Add(InlineCode,12420397,203,182)
{
WorkPoints=#5:doFor|
EventPoints=#5:onFor|5:onEnd|
Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|9: onFor,|19: onEnd:THI_Event;|48: procedure doFor(var _Data:TData; Index:Word);|0:|5: end;|53:const al: string=('АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЭЮЯ'); |0:|14:implementation|28:procedure THiAsmClass.doFor;|15: var i:integer;|5:begin|45: for i:=1 to 30 do _hi_onEvent(onFor,al[i]);|23: _hi_onEvent(onEnd,0);|4:end;|4:end.|
link(onFor,63122:##add,[])
link(onEnd,13709505:doWork2,[])
}
Add(If_else,15480179,266,238)
{
link(onFalse,5120808:doEvent1,[])
link(Op1,63122:##index,[])
link(Op2,3582101:Var2,[])
}
Add(Hub,5120808,329,245)
{
link(onEvent1,63122:unselect,[(363,251)(363,162)(254,162)(254,202)])
link(onEvent2,11465498:doData,[])
}
Add(DoData,11465498,378,252)
{
link(onEventData,13709505:doWork3,[(421,258)(421,157)(249,157)])
link(Data,3582101:Var3,[(384,229)])
}
Add(GetDataEx,3582101,273,224)
{
link(Data,63122:##eventIndex,[])
}
Add(HubEx,13709505,245,189)
{
link(onEvent,63122:##select,[])
}



Маленький фикс
карма: 1

2
Голосовали:Tad, ser_davkin