FiveTech Software tech support forums

... de separacion oForm es el objeto dialogo func ponergrilla(oForm,nwnGridX,nwnGridY) Local nGridX := 6, nGridY := 6 oForm:bPainted = { | hDC, cPS | DrawGrid( oForm:hWnd, hDC, cPS, nGridX, nGridY ) } oForm:Refresh() retu .t. En este codigo plantailla el 0.5 que es medio centimetro function Main() ...

i not know how call drawgrid function
can you make a small test in a dialog?
i not found cps variable...

thanks in advance

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, 8) ::oWnd:ReleaseDC() return nil but it not run

... Report Designer";end if file(rclipper()+"BITMAP\"+BMP+".BMP") DEFINE BITMAP obmpfon FILE rclipper()+"BITMAP\"+BMP+".BMP" ENDIF setgridsize(1,1) //drawgrid(10) if empty(ntimp) define window oWndr from 0, 0 TO 25, 70 title TITI vscroll hscroll else define window oWndr from -1,-1 TO -2, -2 title ...