by Silvio » Sat Nov 18, 2006 10:42 pm
there is anothe method into tregla :
METHOD SetSel(aPosic) CLASS TRegla
LOCAL hDc
LOCAL InicX,FinX,InicY,Finy
InicX :=iif(::lHorizontal,aPosic[2],::nWidth)
InicY :=iif(::lHorizontal,::nHeight,aPosic[1])
FinX :=iif(::lHorizontal,aPosic[2],0)
FinY :=iif(::lHorizontal,0,aPosic[1])
hDc:=::GetDc()
IF ::lHorizontal
GflPolyLine(hDc,{InicX,InicX-3,InicX+3,InicX},{InicY,InicY-5,InicY-5,InicY})
ELSE
GflPolyLine(hDc,{InicX,InicX-5,InicX-5,InicX},{InicY,InicY-3,InicY+3,InicY})
ENDIF
GflLine(hDc,InicX,InicY,FinX,FinY)
::ReleaseDc()
RETURN NIL
Best Regards, Saludos
Falconi Silvio