Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2007-12-02 14:28:30 ЛС | профиль | цитата

#sha
Add(ChildScrollBox,4773463,238,91)
{
}
BEGIN_SDK
Add(EditMulti,11152684,21,21)
{
Width=510
Height=403
}
Add(ScrollBox,16529181,112,196)
{
Left=15
Top=10
Width=365
Height=240
Point(doVisible)
}
Add(Image,14427663,210,140)
{
Width=1555
Height=2000
ViewStyle=4
}
END_SDK
Add(Timer,3904087,84,133)
{
Interval=5000
AutoStop=1
link(onTimer,7683234:doEvent1,[])
}
Add(ChildFormEx,10074607,238,140)
{
}
BEGIN_SDK
Add(EditMultiEx,12577962,21,21)
{
WorkCount=#11:doShowModal|
link(doShowModal,2350234:doVisible,[(44,27)(44,132)])
}
Add(MainForm,2350234,119,91)
{
Left=35
Top=105
Visible=1
Point(doShowModal)
Point(doVisible)
}
Add(Button,1736910,63,42)
{
Left=155
Top=90
Data=String(Jgga)
link(onClick,2783278:doText,[])
}
Add(Label,2783278,119,42)
{
Left=245
Top=95
}
END_SDK
Add(Hub,7683234,140,133)
{
link(onEvent1,14053264:SSS,[])
link(onEvent2,10074607:doShowModal,[])
}
Add(InlineCode,14053264,189,133)
{
WorkPoints=#3:SSS|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|37: procedure SSS(var D:TData;i:word);|0:|5: end;|0:|14:implementation|26:procedure THiAsmClass.SSS;|5:begin|17: ReleaseCapture;|4:end;|0:|4:end.|
}
карма: 9

0