------------ Дoбавленo в 03.43:
Добавил на SVN новый компонент PointInRectParam. Вот пример на базе предыдущих
Add(MainForm,4411517,49,112)
{
Width=701
Height=507
Name="form"
Position=1
Point(onPaint)
Point(MouseX)
Point(MouseY)
Point(onMouseDown)
link(onCreate,14690565:doEnum,[])
link(onPaint,279301:doDraw,[])
link(onMouseDown,475158:doCheck,[(120,146)(120,216)])
}
Add(PC_TextParameters,14690565,182,119)
{
Document="dt_01"
Point(doEnum)
Point(onEnum)
link(onEnum,15828443:doSplit,[])
}
Add(DocumentTemplate,279301,133,133)
{
DrawSource=2
Name="dt_01"
}
BEGIN_SDK
Add(Print_Text,9200955,35,42)
{
Name="t_01"
X=38
Y=45
Width=150
Height=25
Text="Button_0"
Font=[Arial Narrow,10,1,0,204]
FrameStyle=0
Vertical=1
Left=0
Top=0
Right=0
Bottom=0
}
Add(Print_Text,9568590,196,42)
{
Name="t_02"
X=199
Y=45
Width=150
Height=25
Text="Button_1"
Font=[Arial Narrow,10,1,0,204]
FrameStyle=0
Vertical=1
Left=0
Top=0
Right=0
Bottom=0
}
Add(Print_Text,14996159,357,42)
{
Name="t_03"
X=360
Y=45
Width=150
Height=25
Text="Button_2"
Font=[Arial Narrow,10,1,0,204]
FrameStyle=0
Vertical=1
Left=0
Top=0
Right=0
Bottom=0
}
END_SDK
Add(MultiStrData,15828443,238,126)
{
Char="|"
From=2
Count=1
link(onPart1,10633605:doAdd,[])
}
Add(StrList,10633605,294,126)
{
}
Add(PointInRectParam,475158,280,210)
{
Point2AsOffset=0
link(onTrue,14696354:doMessage,[])
link(X,4411517:MouseX,[(286,194)(55,194)])
link(Y,4411517:MouseY,[(293,187)(62,187)])
link(Parameters,10633605:Text,[])
}
Add(Message,14696354,350,210)
{
}
Пример упростил именно до представления кнопок с кликом в их области