Тоже делал утилитку подбора цвета.
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,[]) }
|