Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,49,546)
{
 Width=461
 Height=462
 Caption="QuickScreen"
 BorderStyle=1
 Icon=[]
 DragForm=0
 Position=1
 link(onActivate,1957500:doValue,[(105,552)(105,547)])
}
Add(ClipboardHook,3168112,259,245)
{
 link(onBitmap,272115:doEvent1,[])
}
Add(hcKeyHandler,10090766,98,182)
{
 link(onKeyDown,972662:doData,[])
}
Add(If_else,4536764,161,266)
{
 Op2=Integer(44)
 link(onTrue,3168112:doSetText,[(226,272)(226,251)])
 link(Op1,972662:GetData,[(167,229)(202,229)])
}
Add(EventFromData,972662,196,182)
{
}
Add(Timer,851141,98,245)
{
 Interval=100
 link(onTimer,4536764:doCompare,[(146,251)(146,272)])
}
Add(PictureStream,1358522,610,303)
{
 Quality=100
 link(Bitmap,7260585:Var1,[(623,287)(629,287)])
}
Add(Hub,272115,315,252)
{
 OutCount=3
 link(onEvent1,7260585:doWork1,[(476,258)(476,244)])
 link(onEvent2,8608750:doString,[(434,265)(434,293)])
 link(onEvent3,10068715:doNext,[(392,272)(392,62)])
}
Add(Counter,10068715,462,56)
{
 Max=999999
}
Add(FormatStr,8608750,525,287)
{
 DataCount=4
 Mask="%1\%2_%3%4"
 link(onFString,1358522:doSave,[(583,293)(583,316)])
 link(Str1,2709212:Value,[(531,275)(429,275)(429,366)(328,366)])
 link(Str2,3675856:Text,[(538,177)(356,177)])
 link(Str3,10068715:Count,[(545,198)(468,198)])
 link(Str4,7709279:String,[(552,211)(643,211)])
}
Add(Edit,3675856,350,49)
{
 Left=165
 Top=42
 Width=185
 Text="Photo"
 link(onChange,3675856:doText,[(394,55)(394,43)(338,43)(338,55)])
}
Add(ComboBox,7709279,630,91)
{
 Left=355
 Top=42
 Width=90
 Height=21
 Strings=#4:.jpg|4:.bmp|
 Text=".bmp\r\n"
 DataType=1
 ReadOnly=0
}
Add(TrayIcon,4285517,182,56)
{
 link(onDblClick,4285517:doShow,[(226,69)(226,65)(170,65)(170,62)])
}
Add(Browse,3839984,210,385)
{
 Title="Выберите папку"
 Edit=1
 link(onBrowse,2709212:doValue,[(289,391)(289,328)])
 link(onCancel,641752:doMessage,[(317,398)(317,433)])
}
Add(Button,130569,126,385)
{
 Left=100
 Top=72
 Width=60
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Указать"
 link(onClick,3839984:doBrowse,[])
}
Add(Memory,2709212,322,322)
{
 link(onData,5371802:doText,[(443,328)(443,426)])
}
Add(Message,641752,392,427)
{
 Message="Вы не выбрали папку, фото не сохранится!!"
 Caption="Внимание"
 Icon=3
}
Add(Label,16146993,119,42)
{
 Left=10
 Top=45
 Width=151
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Имя для ваших скринов:"
}
Add(ChildGroupBox,7260585,623,238)
{
}
BEGIN_SDK
  Add(EditMulti,12474927,21,21)
  {
   WorkCount=1
   VarCount=1
   link(doWork1,9011090:doLoad,[(89,27)(89,110)])
   link(Var1,9011090:ImageBitmap,[(27,179)(162,179)])
  }
  Add(GroupBox,4950011,35,105)
  {
   Left=25
   Top=105
   Width=402
   Height=314
   Caption="Текущие фото буфера"
  }
  Add(Image,9011090,156,104)
  {
   Left=15
   Top=20
   Width=375
   Height=280
  }
END_SDK
Add(Label,2106421,133,112)
{
 Left=10
 Top=75
 Width=86
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Путь к папке:"
}
Add(StyleXP,1338274,49,126)
{
}
Add(Label,5371802,532,420)
{
 Left=165
 Top=75
 Width=25
 Height=17
 Font=[MS Sans Serif,8,1,128,1]
 Caption="non"
}
Add(ToolBar,6311941,189,539)
{
 Width=460
 Height=37
 Caption=0
 Wrapable=1
 Buttons=['Опции'=[]]
 link(onClick,13448176:doEvent,[])
}
Add(IndexToChanel,13448176,315,539)
{
 link(onEvent1,1516757:doWork1,[])
 link(onEvent2,66019:doWork1,[(429,552)(429,587)])
}
Add(ChildForm,1516757,490,539)
{
}
BEGIN_SDK
  Add(EditMulti,2043356,21,21)
  {
   WorkCount=1
   link(doWork1,6586544:doVisible,[(63,27)(63,62)])
  }
  Add(MainForm,6586544,77,28)
  {
   Left=35
   Top=105
   Visible=1
   Caption="Опции"
   BorderStyle=4
   Position=1
   Point(doVisible)
  }
END_SDK
Add(ChildForm,66019,490,581)
{
}
BEGIN_SDK
  Add(EditMulti,8816545,21,21)
  {
   WorkCount=1
   link(doWork1,13675523:doVisible,[(28,27)(28,139)])
  }
  Add(MainForm,13675523,35,105)
  {
   Left=35
   Top=105
   Visible=1
   Caption="Справка"
   BorderStyle=4
   Position=1
   Point(doVisible)
  }
  Add(Label,12623622,14,21)
  {
   Left=15
   Top=10
   Width=365
   Height=95
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Программа простая в использование\r\nвам достаточно указать путь к папке,имя и тип для сохранения ваших скринов и тыкать на кнопку PrintScreen на вашей клавиатуре.\r\nЧто бы программа не мешала вам, ее можно свернуть в трее,а двойным кликом развернуть."
   AutoSize=1
  }
  Add(Label,12880959,70,182)
  {
   Left=25
   Top=125
   Width=339
   Height=55
   Font=[MS Sans Serif,10,1,0,1]
   Transparent=0
   Caption="Электронная почта автора: com_vad@mail.ru\r\nСледите за обновлениями на сайте Hiasm.com"
   AutoSize=1
  }
END_SDK
Add(Memory,1957500,130,541)
{
 Default=Integer(1)
 link(onData,6311941:doDisable,[(176,547)(176,552)])
}