Вверх ↑
Ответов: 8921
Рейтинг: 823
#1: 2020-08-05 10:26:15 ЛС | профиль | цитата
Пример


Add(MainForm,2905288,322,147)
{
Width=391
Height=195
Caption="Autoscreenshoter"
}
Add(GHotKey,11502743,322,105)
{
Key=44
}
Add(Image,13086423,546,105)
{
Width=366
Height=103
}
Add(ScreenShort,1079835,406,105)
{
link(onCapture,9329280:doCopy,[])
}
Add(Img_Copy,9329280,455,105)
{
X=879
Y=511
Width=366
Height=103
link(onCopy,10277054:doEvent1,[])
}
Add(Edit,10982621,476,154)
{
Left=85
Top=115
Width=200
Font=[MS Sans Serif,4,0,0,1]
Text="C:\Autoscreenshoter"
}
Add(Label,819873,322,189)
{
Left=45
Top=115
Width=28
Height=17
Caption="Путь"
}
Add(Edit,4778298,392,154)
{
Left=310
Top=115
Text="2"
DataType=2
}
Add(Label,13812494,322,196)
{
Left=290
Top=115
Width=15
Height=17
Caption="№"
}
Add(Hub,10277054,504,105)
{
link(onEvent1,13086423:doLoad,[])
link(onEvent2,3466615:doOperation,[(529,118)(529,146)(368,146)(368,202)])
}
Add(Button,9117620,364,105)
{
Left=5
Top=115
Width=35
Caption="Scr"
link(onClick,1079835:doCapture,[])
}
Add(PictureStream,4173069,539,196)
{
link(Bitmap,13086423:ImageBitmap,[])
}
Add(FormatStr,12378737,476,203)
{
Mask="%1\MyScr%2.jpg"
link(onFString,4173069:doSave,[])
link(Str1,10982621:Text,[])
}
Add(Hub,6604123,441,196)
{
link(onEvent1,4778298:doText,[(466,202)(466,181)(382,181)(382,160)])
link(onEvent2,12378737:doString,[])
}
Add(Math,3466615,392,196)
{
Op2=1
ResultType=0
link(onResult,6604123:doEvent1,[])
link(Op1,4778298:Text,[])
}

карма: 19

0