GdPicture Imaging

[Syn17]

Hi,

I want to print the second page of a TIF file but before, i want to hide a part of it.

so i use :
GDVIEWER with GetRectValues to collect mouse selection,
GDIMAGING with createimagefromfile
GDIMAGIN argb to have white color
GDIMAGIN DrawFillRectangle to draw a white rectangle
GDIMAGIN PrintImageDialogFit

This method always print the first page of the document with a perfect mask (white rectangle).

Thx to guide me

[Loïc]

Hi,

Here a code to do that:

Code: Select all

  Dim ImageID As Long
  Dim nTop As Long
  Dim nLeft As Long
  Dim nWidth As Long
  Dim nHeight As Long
 
  Call GdViewer1.GetRectValues(nLeft, nTop, nWidth, nHeight)
  ImageID = Imaging1.CreateClonedImage(GdViewer1.GetNativeImage)
  Call Imaging1.DrawFillRectangle(nLeft, nTop, nWidth, nHeight, Imaging1.argb(255, 255, 255, 255))
  Imaging1.PrintImage
  Imaging1.CloseNativeImage

Kind regards,

Loïc