Вверх ↑
Ответов: 263
Рейтинг: 18
#1: 2020-08-05 10:35:17 ЛС | профиль | цитата
Еще пример


Add(MainForm,2905288,196,224)
{
Width=428
Height=336
Caption="Autoscreenshoter"
link(onCreate,11502743:doStartHotKey,[])
}
Add(GHotKey,11502743,273,238)
{
Key=44
link(onEventHotKey,15281471:doEvent1,[])
}
Add(Label,13812494,539,83)
{
Left=305
Top=10
Width=82
Caption="Кол-во файлов"
}
Add(Edit,9623043,434,182)
{
Left=40
Top=5
Width=220
Text="C:\Screen"
}
Add(Button,607278,273,189)
{
Left=265
Top=5
Width=25
Caption="..."
link(onClick,16754600:doBrowse,[])
}
Add(Browse,16754600,336,189)
{
link(onBrowse,9623043:doText2,[])
}
Add(Monitors,8554995,637,238)
{
Monitor=-1
link(onScreenShot,6077580:doLoad,[])
}
Add(Image,6077580,693,238)
{
Left=5
Top=55
Width=400
Height=235
}
Add(Hub,15281471,336,238)
{
OutCount=5
link(onEvent1,8554995:doScreenShotMonitor,[])
link(onEvent2,6255423:doExists,[(413,251)(413,314)])
link(onEvent3,10206432:doOperation,[(392,258)(392,349)])
link(onEvent4,174760:doString,[(378,265)(378,419)])
link(onEvent5,5995516:doSave,[(364,272)(364,489)])
}
Add(DirTools,6255423,434,287)
{
Point(doExists)
link(onOK,15941078:doEvent,[])
link(Source,16600904:Var2,[])
}
Add(IndexToChanel,15941078,490,287)
{
Count=1
link(onEvent1,13148587:doDir,[])
}
Add(Dir,13148587,546,287)
{
Point(Dir)
link(Dir,12012352:Var2,[])
}
Add(GetDataEx,16600904,434,259)
{
link(Data,9623043:Text,[])
}
Add(Label,12433048,427,85)
{
Left=5
Top=7
Width=28
Height=17
Caption="Путь"
}
Add(Label,7502886,483,84)
{
Left=5
Top=33
Width=26
Height=17
Caption="Имя"
}
Add(Edit,11324702,616,182)
{
Left=40
Top=30
Width=220
Text="Screen"
}
Add(PictureStream,5995516,686,476)
{
link(FileName,174760:FString,[(692,460)(615,460)])
link(Bitmap,6077580:ImageBitmap,[])
}
Add(Memory,424037,497,343)
{
Default=Integer(0)
link(onData,7272098:doText,[])
}
Add(Math,10206432,434,343)
{
Op2=1
link(onResult,424037:doValue,[])
link(Op1,424037:Value,[(440,331)(472,331)(472,387)(503,387)])
}
Add(Label,7272098,553,343)
{
Left=305
Top=30
Width=70
Height=20
Font=[MS Sans Serif,12,1,0,1]
Caption="0"
AutoSize=1
Alignment=2
}
Add(FormatStr,174760,609,413)
{
DataCount=3
Mask="%1\%2%3.bmp"
Point(FString)
link(Str1,12012352:Var3,[(615,264)])
link(Str2,11324702:Text,[])
link(Str3,6065464:FormatTime,[(629,394)(650,394)])
}
Add(GetDataEx,12012352,546,259)
{
Angle=3
link(Data,16600904:Var3,[])
}
Add(Time,6065464,644,343)
{
Format="Y-M-D_h-m-s"
}

карма: 3

0