FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour implement CmLine TPrinter
Posts: 139
Joined: Fri Nov 25, 2005 04:38 PM
implement CmLine TPrinter
Posted: Wed Apr 25, 2012 07:14 PM

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

Ronaldo Minacapelli
Sistemas, Hospedagem e Criação de WebSites
http://www.bazevani.com.br
Posts: 581
Joined: Tue Oct 11, 2005 11:28 AM
Re: implement CmLine TPrinter
Posted: Thu Apr 26, 2012 01:22 AM
Kleyber Derick



FWH / xHb / xDevStudio / SQLLIB

Continue the discussion