implement CmLine TPrinter

[ronaldo]

I would like to implement the method cmline in TPrinter but want to do it in another prg

I did so, but gives error


winfunc.prg

CLASS TPrinter FROM TPrinter

METHOD CmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE
::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;
MoveTo( ::hDCOut, nLeft, nTop ),;
LineTo( ::hDCOut, nRight, nBottom,;
If( oPen != nil, oPen:hPen, 0 ) )

ENDCLASS

[Kleyber]

Ronaldo,

See my answer in http://www.fivewin.com.br/forum/topic.a ... C_ID=20664

Regards,