Add(InlineCode,54413,317,212)
{
 WorkPoints=#49:doPrintImages=Открывает мастер печати изображений|
 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.|
}