Add(MainForm,2953706,77,112)
{
 Width=373
}
Add(InlineCode,54413,518,280)
{
 WorkPoints=#49:doPrintImages=Открывает мастер печати изображений|
 EventPoints=#
 VarPoints=#
 DataPoints=#50:ImagesPath=Список изображений для вывода на печать|
 Code=#80:{*******************************************************************************|80:  HiAsm stamp component builder v0.8 (autor - andrestudio <andrestudio@list.ru>)|25:  Component - PrintImages|15:  Version - 1.0|21:  Autor - andrestudio|30:  E-mail - andrestudio@list.ru|43:  Create - пятница, 23. Июнь 2017, 16:45:37|69:  Description:  Печать изображений по списку с помощью мастера печати|80:*******************************************************************************}|0:|15:unit HiAsmUnit;|0:|9:interface|0:|47:uses Windows,Kol,Share,Debug,KOLComObj,ActiveX;|0:|4:type|0:|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:   { Data points}|48:     { Список изображений для вывода на печать }|27:     ImagesPath: THI_Event;|0:|14:   { Methods }|44:     { Открывает мастер печати изображений }|55:     procedure doPrintImages(var dt: TData; idx: Word);|0:|6:  end;|0:|14:implementation|0:|39:{ Открывает мастер печати изображений }|36:procedure THiAsmClass.doPrintImages;|3:var|24:  CommonDlg: OleVariant;|28:  ImgCollection: OleVariant;|23:  ImgLstPath: PStrList;|13:  i: integer;|5:begin|27:  ImgLstPath := NewStrList;|47:  ImgLstPath.Text := ToStringEvent(ImagesPath);|51:  CommonDlg := CreateOleObject('WIA.CommonDialog');|49:  ImgCollection := CreateOleObject('WIA.Vector');|37:  for i := 0 to ImgLstPath.Count-1 do|7:  begin|43:    ImgCollection.Add(ImgLstPath.Items[i]);|6:  end;|51:  CommonDlg.ShowPhotoPrintingWizard(ImgCollection);|30:  VariantClear(ImgCollection);|26:  VariantClear(CommonDlg);|18:  ImgLstPath.Free;|4:end;|0:|14:initialization|10:  OleInit;|20:  CoInitialize(nil);|0:|12:finalization|19:  CoUninitialize();|0:|4:end.|
 link(ImagesPath,12074218:Value,[])
}
Add(Button,11445976,469,280)
{
 Left=185
 Top=230
 Caption="Печать"
 link(onClick,54413:doPrintImages,[])
}
Add(Button,6653705,77,168)
{
 Left=5
 Top=5
 Caption="Open"
 link(onClick,3943615:doBrowse,[])
}
Add(Image,14835776,616,224)
{
 Left=105
 Top=35
 Width=240
 Height=180
}
Add(FileSearch,2629711,196,189)
{
 SubDir=1
 link(onSearch,11342127:doCompare,[])
}
Add(StrMask,11342127,245,189)
{
 Mask="*.jpg"
 link(onFalse,8264849:doCompare,[])
 link(onTrue,16622419:doWork2,[(282,202)(282,228)])
}
Add(StrMask,8264849,287,189)
{
 Mask="*.png"
 link(onFalse,11212944:doCompare,[])
 link(onTrue,16622419:doWork1,[(326,202)])
}
Add(StrMask,11212944,329,189)
{
 Mask="*.bmp"
 link(onFalse,3744750:doCompare,[])
 link(onTrue,9353415:doWork1,[(368,202)])
}
Add(StrMask,3744750,371,189)
{
 Mask="*.ico"
 link(onTrue,3057264:doWork2,[])
}
Add(Hub,11569590,161,168)
{
 OutCount=3
 link(onEvent1,475780:doClear,[])
 link(onEvent2,16253885:doClear,[(445,181)(445,216)])
 link(onEvent3,2629711:doSearch,[(186,188)(186,195)])
}
Add(StrList,16253885,469,203)
{
 Point(doGetString)
 Point(onGetString)
 link(onGetString,12074218:doValue,[(508,216)(508,230)])
}
Add(Browse,3943615,119,168)
{
 link(onBrowse,11569590:doEvent1,[])
}
Add(HubEx,3057264,412,196)
{
 link(onEvent,3730717:doEvent1,[])
}
Add(HubEx,16622419,322,222)
{
 link(onEvent,9353415:doWork2,[])
}
Add(HubEx,9353415,364,222)
{
 link(onEvent,3057264:doWork3,[(416,228)])
}
Add(Hub,3730717,427,196)
{
 link(onEvent1,143408:doPart,[(452,202)(452,167)])
 link(onEvent2,16253885:doAdd,[])
}
Add(FilePartElm,143408,469,161)
{
 Mode=2
 link(onPart,475780:doAdd,[])
}
Add(ListBox,475780,518,161)
{
 Top=30
 Width=95
 Height=225
 link(onClick,16253885:doGetString,[(557,174)(557,265)(459,265)(459,251)])
}
Add(Memory,12074218,518,224)
{
 link(onData,2116283:doLoad,[])
}
Add(PictureStream,2116283,567,224)
{
 link(onLoad,14835776:doLoad,[])
}