GRID in RPREVIEW

[Silvio]

I wish create lines grid in rpreview but I not Know How make it
perhap we can init from shadow method....
I wish to create it



please can YOU help me

[Otto]

Hello Silvio,
I once tried to inset a HairCross into preview. I think with this code you could also make a grid.

Regards,
Otto



HairCross Cursor is working:

Insert

oMeta1:bMMoved:={|y,x,flags|hairCross(oMeta1,y,x) }

in FUNCTION RPreview( oDevice ) in rpreview.prg.

func hairCross(oMeta1,y,x)
nCount:=nCount+1
IF nCount > 5
nCount:=0
oMeta1:refresh()
sysrefresh()
oMeta1:line (0,x,1800,x)
oMeta1:line (y,0,y,1500)
ENDIF
return nil

[Silvio]

thanks otto but I have allready try with haircross
with no success

exit a function drawgrid but I not know How run it

METHOD Grid() CLASS Tmetafile

if !::lGrid
return nil
endif

::oWnd:GetDC()

DRAWGRID(::oWnd:hDC, 8, 8,

::oWnd:ReleaseDC()

return nil


but it not run