FiveTech Support Forums

function Main
local hBmp, bmp1:="C:\TMP\map.bmp", bmp2:="C:\TMP\lgd.bmp"
local img:={FW_ReadImage( nil, bmp1 ), ; // [3],[4] are width and height
                  FW_ReadImage( nil, bmp2 )}
local oCommDlg, oFiles


  hBmp := FW_MakeYourBitmap( img[1,3]+10, img[1,4]+6, ;
                  { |hDC, w, h| PaintOverlay( hDC, w, h, img) } )

  PalBmpFree( img[1] )
  PalBmpFree( img[2] )

  FW_SaveImage( hBmp, pr1 ) // cSave can be bmp,jpg,png

  DeleteObject( hBmp )

  ************************************************
  oCommDlg := FWGetOleObject( "WIA.CommonDialog" )
  oFiles   := FWGetOleObject( "WIA.Vector")

  if valtype(oFiles)="O"
     oFiles:Add(bmp1)
     oCommDlg:ShowPhotoPrintingWizard(oFiles)

  else
 ? "Not found WiaAut.dll"
  endif

return NIL

static function PaintOverlay( hDC, w, h, img)
local t,l

  FW_DrawImage( hDC, img[1] )

  t :=10 && top
  l := w - img[2, 3] - 20 && left

  FW_DrawImage( hDC, img[2], { t, l, t + img[2, 4], l + img[2, 3] } )
return nil

static function PaintOverlay( hDC, w, h, img)
local t,l

  FW_DrawImage( hDC, img[1] )

  t :=10 && top
  l := w - img[2, 3] - 20 && left

  FW_DrawImage( hDC, img[2], { t, l, t + img[2, 4], l + img[2, 3] } )
return nil