Вверх ↑
Ответов: 263
Рейтинг: 18
#1: 2019-07-21 18:28:06 ЛС | профиль | цитата
Тоже делал утилитку подбора цвета.

Add(MainForm,2953706,91,56)
{
Width=268
Height=123
Caption=""
Position=1
}
Add(Button,13568107,91,294)
{
Left=85
Top=5
Hint="Нажать и не отпуская перемещать по экрану"
Caption="С экрана"
Point(onMouseDown)
Point(onMouseUp)
link(onMouseDown,3327043:doTimer,[])
link(onMouseUp,3327043:doStop,[])
}
Add(ColorDialog,13758133,266,56)
{
link(onSelect,76405:doEvent1,[])
}
Add(Edit,14323533,203,112)
{
Left=5
Top=30
Width=70
Text="свой"
link(onChange,4612069:doWork2,[])
}
Add(LED,5626277,385,118)
{
Left=150
Top=5
Width=95
Height=75
Shape=1
Blick=1
ColorOn=0
ColorOff=0
Point(doColorOff)
}
Add(Hub,76405,336,56)
{
InCount=3
link(onEvent1,5263215:doText2,[])
link(onEvent2,4612069:doWork1,[(368,69)])
}
Add(HubEx,4612069,364,112)
{
Angle=1
link(onEvent,5626277:doColorOff,[(368,145)])
}
Add(ColorBox,12392203,203,175)
{
Left=5
Top=55
Width=135
Height=21
DataType=1
link(onClick,76405:doEvent2,[(313,181)(313,69)])
}
Add(Edit,5263215,385,49)
{
Left=5
Top=5
Width=70
Text=""
ReadOnly=0
}
Add(Img_GetPoint,12257611,245,301)
{
DrawSource=1
link(onGetPixel,76405:doEvent3,[(320,307)(320,76)])
link(Bitmap,12408615:Value,[(251,286)(209,286)])
link(X,9384859:MouseX,[])
link(Y,9384859:MouseY,[])
}
Add(MouseEvent,9384859,252,245)
{
}
Add(Timer,3327043,161,301)
{
Interval=100
Enable=1
link(onTimer,12257611:doGetPixel,[])
}
Add(Memory,12408615,203,245)
{
Default=Integer(0)
}
Add(Button,315674,200,56)
{
Left=85
Top=30
Caption="Палитра"
link(onClick,13758133:doOpen,[])
}

карма: 3

0