FiveTech Support Forums

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

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

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, <!-- s8) --><img src="{SMILIES_PATH}/icon_cool.gif" alt="8)" title="Cool" /><!-- s8) -->

  ::oWnd:ReleaseDC()

return nil

but it not run