Show and scroll with Meta-file

[Marc Vanzegbroeck]

Hi,

I'm creating drawings in meta-files, and show them in a window.
Sometimes the drawings ar larges than the screen, and want to move around like Adobe-reader.

How can I do this?

[nageswaragunupudi]

can you please send me a sample metafile by email?
nageswaragunupudi [at] gmail [dot] com

[nageswaragunupudi]

First please try this.
We will make some more improvements.

Code: Select all  Expand view

  local oDlg, oImage
   local cFile := "NW1151L.emf"

   DEFINE DIALOG oDlg SIZE 900,600 PIXEL TRUEPIXEL

   @ 20,20 XIMAGE oImage SOURCE cFile SIZE -20,-20 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED
 

You can zoom and unzoom with mouse scroll and pan the image by dragging with mouse.
Btw, you can also use fingers on a touch screen to zoom/unzoom and pan the image on a touch screen.

[Marc Vanzegbroeck]

Thank you, that is what I wanted

[ukoenig]

Marc,

by default :lBmpTransparent := .T.

Using non transparent images like Your drawing
maybe You need

@ 20,20 XIMAGE oImage SOURCE cFile SIZE -20,-20 OF oDlg
oImage:lBmpTransparent := .F.

otherwise it could show something like ( format JPG )
is showing transparent areas on the left upper corner



I tested the mousewheel but there I noticed problems with zoom / unzoom
( it works only sometimes )
moving the image works.

regards
Uwe

[Marc Vanzegbroeck]

Thank you for the info Uwe.

[nageswaragunupudi]

I tested the mousewheel but there I noticed problems with zoom / unzoom
( it works only sometimes )

Please test again.
It works always.
Make sure the mouse pointer is inside the actual image area.

[Marc Vanzegbroeck]

For me it seems to work always.

[nageswaragunupudi]

For me it seems to work always.

Yes, it does.

[ukoenig]

It is working now.
There was a hardware-problem, I didn't noticed before.
After changing the mouse it was ok.

regards
Uwe

[nageswaragunupudi]

Using non transparent images like Your drawing
maybe You need

@ 20,20 XIMAGE oImage SOURCE cFile SIZE -20,-20 OF oDlg
oImage:lBmpTransparent := .F.

otherwise it could show something like ( format JPG )
is showing transparent areas on the left upper corner

This is not relevant for EMF files.

Using transparency, please see this variation:

Code: Select all  Expand view

  local oDlg, oImage, oBrush
   local cFile := "NW1151L.emf"

   DEFINE BRUSH oBrush FILE "c:\fwh\bitmaps\backgrnd\stone.bmp"
   DEFINE DIALOG oDlg SIZE 900,600 PIXEL TRUEPIXEL

   @ 20,20 XIMAGE oImage SOURCE cFile SIZE -20,-20 OF oDlg
   oImage:SetBrush( oBrush )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE BRUSH oBrush
 

[Marc Vanzegbroeck]

Is it also possible to know the location when you do a doubleclick?
Since when you swipe or zoom, the locations are different. Mayme a hyperlink would me nice

[nageswaragunupudi]

Ok.
Please keep testing and ask all your requirements. We will try to provide them.