Rectangle as bitmap

[Natter]

Hi.

There is a dialog box with brush. I need to select a certain rectangle on this window and save it to a file as a bitmap. How to do it ?

[Antonio Linares]

You may start it this way:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oGrp

   DEFINE DIALOG oDlg

   @ 1, 2 GROUP oGrp TO 6, 12 OF oDlg

   oGrp:bRClicked = { | nRow, nCol | ShowPopup( nRow, nCol, oGrp )}

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oGrp:lDrag := .T., oGrp:CheckDots(), .T. )

return nil

function ShowPopup( nRow, nCol, oGrp )

   local oPopup

   MENU oPopup POPUP
      MENUITEM "Save as BMP" ACTION MsgInfo( "ok" )
   ENDMENU

   ACTIVATE POPUP oPopup WINDOW oGrp AT nRow, nCol

return nil

Next is to create and save the bitmap

[Antonio Linares]

Enhanced version:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oGrp, oBrush

   DEFINE BRUSH oBrush FILENAME "c:\fwh\bitmaps\olga1.jpg"

   DEFINE DIALOG oDlg BRUSH oBrush SIZE 380, 400

   @ 1, 2 GROUP oGrp TO 6, 12 OF oDlg TRANSPARENT

   oGrp:bRClicked = { | nRow, nCol | ShowPopup( nRow, nCol, oGrp )}

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oGrp:lDrag := .T., oGrp:CheckDots(), .T. )

return nil

function ShowPopup( nRow, nCol, oGrp )

   local oPopup

   MENU oPopup POPUP
      MENUITEM "Save as BMP" ACTION oGrp:SaveToBmp( "test.bmp" )
   ENDMENU

   ACTIVATE POPUP oPopup WINDOW oGrp AT nRow, nCol

return nil  
 

[Natter]

Thank you, Antonio ! So I can use this solution not only for Group, but also for an arbitrary-form rectangle ?

[Antonio Linares]

Yes, it works for all kind of controls

[nageswaragunupudi]

Code: Select all  Expand view

oDlg:SaveAsImage( cImageFile, aRect )

cImageFile can be .bmp, .jpg. ,png, etc.
aRect is the rectangle you want to crop and save. : { nTop, nLeft, nBottom, nRight }

This works with Window, Dialog or any Control, to crop a rectangle inside and save.

[Natter]

Rao, thank you for the clarification !

[Natter]

Will this scheme work if the dialog is larger than the monitor screen and, accordingly, the allocated rectangle is also larger than the monitor screen ?

[Antonio Linares]

Yes, it should work the same

[Natter]

Thank you, Antonio, this is what you need !

[Natter]

I am trying to create a bmp file from an Activex control that is larger than the screen. I tried SaveToBmp(), SaveAsImage(). SaveWindow() . As a result, I get a bmp file of the appropriate size, but containing only the part of the control visible on the screen,.

https://cloud.mail.ru/public/ZDY3/19fCRaLfk

What can I do wrong ?

FW 09.2006

[nageswaragunupudi]

but containing only the part of the control visible on the screen,.

Yes.

[Natter]

And how can I get a picture of the entire control surface ?

[Antonio Linares]

oControl:SaveToBmp("test.bmp")

Enviado desde mi SM-M325FV mediante Tapatalk

[Natter]

Same result