FiveTech Software tech support forums

... if defined from METHOD Paint() CLASS TWindow      if ValType( ::bPainted ) == "B"         uVal = Eval( ::bPainted, ::hDC, ::cPS, Self )      endif ::cPS is initialized from METHOD _BeginPaint() and contains a PAINTSTRUCT: https://learn.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-paintstruct ...

... a grid into printer not screen perhaps for the screen you can use this ( I coied it from forum many year ago ) It is as DrawGrid( oDlg:hWnd, hDC, cPS, 8, 8 ) //----------------------------------------------------------------------------//#pragma BEGINDUMP#include <Windows.h>#include <HbApi.h>//----------------------------------------------------------------------------//HB_FUNC( ...

Antonio, I use it for a Panel I made oApp:oSpiaggia:bPainted:= {|hDC, cPS| ; SetDlgGradient( { { 0.1, CLR_CYAN, CLR_CYAN }, { 0.9, COLORE_SABBIA, COLORE_SABBIA } } ); } then on this tPanel I use btnbmp and ( on top ) the objects Ximage the colors are bpainted ...

José,

Do you mean to print it on a window or dialog ?

If so, then please try:

oWnd:bPainted = { | hDC, cPS | DrawGrid( oWnd:hWnd, hDC, cPS, 5, 5 ) }

There is an example of use in FWH\visual\design.prg

When we create from source, the bottom-line also is drawn.
Wonder why the bottom-line is not drawn in the above case.

Any way, you may use oBrw:bPainted to draw the bottom-line yourself.

oBrw:bPainted := { |hDC, cPS, brw| yourfunction( hDC, cPC, brw ) }

Otto,

In design.prg please make this change:

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( oDlg:nOpacity := 150, PlaceControl( oDlg ) ) ;
ON PAINT If( lDesign, DrawGrid( oDlg:hWnd, hDC, cPS, 8, 8 ),) ;
ON RIGHT CLICK EditDialog( nRow, nCol, oDlg )

Estimados Amigos La verdad que he estado desconectado del foro mucho tiempo por que dejo de funcionar mi usuario y mi clave Bueno ya solicite la clave y ya me tienen por aca de vuelta Hace mucho tiempo atras realize un ide en fivewin desde luego tuve que agrandar la clase twindow para poder tener da...

... el valor de la región a pintar insertando los valores directamente en el rcPaint de la PAINTSTRUCTURE (o como se llame) que se guarda en ::cPS, pero no consigo que funcione, pues no sé si es porque la estructura se guarda en ::cPS como string (no tene por qué), o porque rcPaint se reconfigura ...

...  1661  1665  1668 CPROMPT                WINDOW.PRG     1509  1509  1515  1515  1733  1734  1736  1736  1737  1769                   1770  1771 CPS                    WINDOW.PRG      434   575   575  2929  3743  3751  3752  3752 CRC                    WINDOW.PRG     2036  2038  2039  2040  2041 ...

Antonio,

Antonio Linares wrote:Enrico,

You can convert from units to pixels and viceversa, so I don't see any limitation

The problem is that the pixels coordinates have to be rounded after the conversion.

EMG

Enrico,

You can convert from units to pixels and viceversa, so I don't see any limitation

Antonio,

I think it's not possible to use a bitmap when the grid dots have to be aligned to dialog units and not pixels, am I wrong?

EMG

Antonio,

Antonio Linares wrote:Here it is

Thank you. I'll study it.

EMG

...  oForm:cTitle = "Form1"   oForm:nTop  = 175   oForm:nLeft = 291   // oForm:bPainted = { | hDC, cPS | DrawGrid( oForm:hWnd, hDC, cPS, 8, 8 ) }   oForm:bRClicked = { | nRow, nCol | ShowPopup( nRow, nCol ) }   oForm:bLClicked ...

As the dots distance is variable we should have to create the bitmap for the brush dinamically...