Леонид писал(а):
Пример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,[])
}
fox-video писал(а):
Еще пример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"
}