On tregla class I saw :
GflPolyLine and GflLine
Where I can found these functions ?
Where I can found these functions?
Where I can found these functions?
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
- James Bott
- Posts: 4654
- Joined: Fri Nov 18, 2005 4:52 pm
- Location: San Diego, California, USA
- Contact:
yes it is of Jose Ignacio Jimenez Alarcon
but there is another version correct by thefull
I have the Alarcon's class and I'll want the tregla modify bt rafa carmona(thefull)
I write they but they have not still answered me !!!!!!!!!!!!!!!
If you succeed to contact they.....
but there is another version correct by thefull
I have the Alarcon's class and I'll want the tregla modify bt rafa carmona(thefull)
I write they but they have not still answered me !!!!!!!!!!!!!!!
If you succeed to contact they.....
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
-
- Posts: 824
- Joined: Thu Oct 13, 2005 7:39 am
- Location: Germany
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
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
Falconi Silvio