Вверх ↑
Ответов: 1376
Рейтинг: 197
#1: 2012-10-15 15:45:28 ЛС | профиль | цитата
tig-rrr, вот ещё вариант (с сервисом: перетаскивание и растягивание), но не пунктирный
code_29309.txt
ещё вариант

Add(MainForm,10850516,196,175)
{
Width=151
Height=128
Ctl3D=0
WinStyle=2
Caption=""
BorderStyle=0
DragForm=0
Position=1
Point(Handle)
}
Add(Image,7558073,336,217)
{
Width=131
Height=128
Align=5
ViewStyle=5
Point(onDblClick)
Point(onMouseDown)
link(onDblClick,10850516:doClose,[(378,230)(378,168)(184,168)(184,202)])
link(onMouseDown,11685691:doMove,[(378,237)(378,257)(184,257)(184,223)])
}
Add(ChildForm,11641923,287,217)
{
link(onEvent1,7558073:doLoad,[])
}
BEGIN_SDK
Add(EditMulti,4056548,3,3)
{
EventCount=1
WorkCount=1
Width=118
Height=116
link(doWork1,980558:doColor,[(32,9)(32,55)])
}
Add(MainForm,980558,42,21)
{
Left=35
Top=105
Width=128
Height=128
Color=0
Ctl3D=0
AlphaBlendValue=100
BorderStyle=7
DragForm=0
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(onResize)
Point(onMove)
Point(doColor)
link(onResize,15427047:doWork2,[])
link(onMove,15427047:doWork3,[(88,55)])
}
Add(Img_Copy,12929925,35,77)
{
DrawSource=1
Point(Width)
Point(Height)
link(onCopy,4056548:onEvent1,[(98,83)(98,9)])
link(Source,8818213:Text,[(41,71)(27,71)])
link(X,980558:Left,[])
link(Y,980558:Top,[])
link(Width,980558:Width,[])
link(Height,980558:Height,[])
}
Add(VisualStrings,8818213,21,56)
{
Width=11
Height=10
}
Add(HubEx,15427047,84,42)
{
Angle=3
link(onEvent,12929925:doCopy,[(88,16)(17,16)(17,83)])
}
END_SDK
Add(MoveWindow,11685691,196,217)
{
link(Handle,10850516:Handle,[])
}
Add(ScrollBar,6315773,245,217)
{
Left=131
Width=20
Height=128
Align=3
Max=16777215
Kind=1
link(onPosition,11641923:doWork1,[])
}
карма: 1

1
файлы: 1code_29309.txt [1.8KB] [243]
Голосовали:tig-rrr