![](/img/icon_plus.gif) Еще пример
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" }
|