ShowPrintStitchedImagesDlg example for Delphi
Function TForm1.DoPrintStitchedImages ( hDevMode: L_HGLOBAL;
hDevNames: L_HGLOBAL;
rcMargin: TRect;
rcMinMargins: TRect;
Icon: TIcon ): L_INT;
var
i: L_INT;
FileNames: Array [ 0..2 ] of String;
begin
LEADDlgFile1.MarginsRect:= rcMargin;
LEADDlgFile1.MinMarginsRect:= rcMinMargins;
LEADDlgFile1.DevModeHandle:= hDevMode;
LEADDlgFile1.DevNamesHandle:= hDevNames;
LEADDlgFile1.WindowIcon:= Icon;
LEADDlgFile1.CommandShow:= SW_SHOW;
LEADDlgFile1.ItemsCount:= 3;
FileNames[0]:= 'e:\image1.jpg';
FileNames[1]:= 'e:\image2.jpg';
FileNames[2]:= 'e:\image3.jpg';
for i:= 0 to 2 do
begin
LEADImage2.LoadStamp ( FileNames[i] );
LEADDlgFile1.ItemDescription [i]:= IntToStr(i);
LEADDlgFile1.ItemFileName [i]:= FileNames[i];
LEADDlgFile1.ItemBitmap [i]:= LEADImage2.Bitmap;
end;
Result:= LEADDlgFile1.ShowPrintStitchedImagesDlg ( Self );
end;