El ratón al moverse deja "rastro" en las reglas
Posted: Fri Aug 15, 2014 3:29 pm
Lo primero: vamos a localizar desde donde se dibujan las líneas...
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=31&t=29077
Antonio Linares wrote:Lo primero: vamos a localizar desde donde se dibujan las líneas...
FUNCTION SetReticule( nRow, nCol, nArea )
aRuler[nArea,2]:Move( nRowPos, 0, ;
IIF( lShow, ER_GetPixel( oGenVar:aAreaSizes[nArea,1] ) + nRuler, nRuler ), 1, .T. )
AEVAL( aRuler, {|x,y| IIF( x[1] <> NIL, ;
( x[1]:Move( nRulerTop-nRuler, nColPos, 1, ;
IIF( lShow, ER_GetPixel( oGenVar:aAreaSizes[y,2] ) + nRuler, nRuler ), .T. ) ), ) } )
aRuler[nArea,1]:Move( nRulerTop-nRuler, nColPos, 1, ;
IIF( lShow, ER_GetPixel( oGenVar:aAreaSizes[nArea,2] ) + nRuler, nRuler ) )
if !empty( aOldRect )
InvertRect( oRulerBmp1:hDC , aOldRect )
endif
aNewRect := { nRulerTop - nRuler, nColPos, nRulerTop, nColPos }
InvertRect( oRulerBmp1:hDC , aNewRect )
aOldRect := aNewRect
// aOldRect y aNewRect son variables static
cnavarro wrote:Efectivamente, ya lo habia modificado yo en mi prg
Y de lo del InvertRect, cómo lo ves?