Search found 8 matches: nmetawidth

Return to advanced search

Preview error on windows seven ... RESOLVED!!!!

... .and. ::nZFactor > 1, 20, 0 ) - 10 - ;                        I f( LargeFonts(), 100,86 ) //100  80              if ! ::lZoom                 nMetaWidth = ( nHeight - 40 ) * nFactor              else                 nMetaWidth = nWidth * nFactor              endif              oCoors1 := TRect():New( ...
by Silvio
Wed May 11, 2011 8:16 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Preview error on windows seven ... RESOLVED!!!!
Replies: 8
Views: 1580

Re: preview alpha 2

... METHOD PaintMeta() CLASS TPreview local oCoors1, oCoors2 local aFiles := ::oDevice:aMeta // DEVICE local nWidth, nHeight, nFactor, nMetaWidth if ::oWnd != nil .and. IsIconic( ::oWnd:hWnd ) return nil endif do case case ! ::lTwoPages if ! ::lZoom if ::oDevice:nHorzSize() >= ; ...
by dobfivewin
Thu Jan 14, 2010 10:08 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: preview alpha 2
Replies: 2
Views: 2030

Re: GetPrintDC()

... static function PaintMeta() local oCoors1, oCoors2 local aFiles := DEVICE:aMeta local nWidth, nHeight, nFactor, nMetaWidth if IsIconic(oWnd:hWnd) RETU nil endif DO case case ! lTwoPages if ! lZoom if DEVICE:nHorzSize() >= ; // landscape (apaisado) DEVICE:nVertSize() ...
by jbrita
Tue Nov 24, 2009 11:29 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: GetPrintDC()
Replies: 4
Views: 2704

Re: Preview desde Tprinter (para Antonio Linares)

... de esta manera METHOD PaintMeta() CLASS TPreview local oCoors1, oCoors2 local aFiles := ::oDevice:aMeta // DEVICE local nWidth, nHeight, nFactor, nMetaWidth if ::oWnd != nil .and. IsIconic( ::oWnd:hWnd ) return nil endif msginfo("PME "+sTR(Len(aFiles))) ............... [color=#0000BF]Resto ...
by Pedro
Sun Aug 09, 2009 11:37 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Preview desde Tprinter (para Antonio Linares) SOLUCIONADO
Replies: 10
Views: 1533

... static function PaintMeta() local oCoors1, oCoors2 local aFiles := DEVICE:aMeta local nWidth, nHeight, nFactor, nMetaWidth if IsIconic(oWnd:hWnd) RETU nil endif DO case case ! lTwoPages if ! lZoom if DEVICE:nHorzSize() >= ; // landscape (apaisado) DEVICE:nVertSize() ...
by Manuel Valdenebro
Thu Feb 28, 2008 4:30 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: RPREVIEW modificada por Manuel Valdenebro ?
Replies: 8
Views: 3361

Angel,

Prueba a implementar este fix para el rpreview.prg línea 530:

(Atención, este fix es sólo para FWH 2.6 and 2.7)

oCoors1 := TRect():New( 40,;
Max( ( nWidth / 2 ) - nMetaWidth, 10 ),;
nHeight,;
Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )
by Antonio Linares
Mon Nov 28, 2005 6:34 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Report en Apaisado y Preview
Replies: 2
Views: 794

Warning: This fix is just for FWH 2.6 and 2.7.

Fixed. This change in needed in source\classes\rpreview.prg line 530:

oCoors1 := TRect():New( 40,;
Max( ( nWidth / 2 ) - nMetaWidth, 10 ),;
nHeight,;
Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )
by Antonio Linares
Sat Nov 26, 2005 6:18 am
 
Forum: Bugs report & fixes / Informe de errores y arreglos
Topic: Report preview bug (fixed)
Replies: 2
Views: 1883

Fixed. This change in needed in source\classes\rpreview.prg line 530: oCoors1 := TRect():New( 40,; Max( ( nWidth / 2 ) - nMetaWidth, 10 ),; nHeight,; Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )
by Antonio Linares
Sat Nov 26, 2005 6:12 am
 
Forum: Bugs report & fixes / Informe de errores y arreglos
Topic: Preview error (fixed)
Replies: 7
Views: 3855

Return to advanced search