Вверх ↑
Ответов: 2200
Рейтинг: 673
#1: 2023-03-17 16:54:58 ЛС | профиль | цитата
Думаю что рисовать "дешевле" все же:
Add(CounterEx,9911111,455,301)
{
Max=359
Point(onThroughMax)
Point(onThroughMin)
Point(doPrev)
Point(doStep)
Point(doMax)
link(onNext,12465343:doRefresh,[])
}
Add(MainForm,12061819,497,175)
{
@Hint=#8:3.3.2023|
Width=500
Height=499
Color=16777215
Ctl3D=0
Caption="Img"
BorderStyle=0
DragForm=0
Point(Handle)
Point(onKeyDown)
link(onCreate,11240625:doColor,[])
link(onKeyDown,3448284:doCase,[(536,202)(536,167)(431,167)(431,195)])
}
Add(Timer,4020990,413,301)
{
Interval=33
Point(doInterval)
link(onTimer,9911111:doNext,[])
}
Add(WinTools,8023775,595,161)
{
Point(doTransparentColor)
link(Handle,9629725:Var2,[])
}
Add(Bitmap,359550,553,245)
{
@Hint=#18:Вставить картинку!|
FillColor=16777215
AddHint(-141,10,114,13,@Hint)
}
Add(SelectColor,11240625,553,189)
{
Color=16777215
link(onColor,8023775:doTransparentColor,[])
}
Add(MoveWindow,945688,630,336)
{
link(Handle,9629725:Var3,[(636,152)])
}
Add(GetDataEx,9629725,595,147)
{
Angle=3
link(Data,12061819:Handle,[(546,152)(546,217)(503,217)])
}
Add(Case,3448284,455,189)
{
Value=Integer(27)
link(onTrue,12061819:doClose,[])
}
Add(PaintBox,12465343,497,301)
{
Left=615
Top=245
Align=5
Color=16777215
ClearBeforeDraw=0
Point(onMouseDown)
link(onBeforeDraw,4757424:doDraw,[])
link(onMouseDown,945688:doMove,[(540,314)(540,342)])
}
Add(Img_Bmp,4757424,546,301)
{
Point(Transform)
link(Bitmap,12465343:Bitmap,[(552,290)(535,290)(535,345)(503,345)])
link(SourceBitmap,359550:Bitmap,[])
link(Transform,3452604:Transform,[(566,293)(594,293)])
}
Add(Img_UseRotate,3452604,588,245)
{
link(Angle,9911111:Count,[(601,235)(403,235)(403,345)(461,345)])
}
карма: 11

0
Редактировалось 1 раз(а), последний 2023-03-17 16:56:45