FiveTech Software tech support forums

... aBitmaps, lPixel, lDesign, aPrompts, nFolderHeight, ; aHelps, nRound, bAction, bClrTabs, bClrText, aAlign, ; lAdjust, nSeparator, nOption, bPopUp, lStretch, ; cLayOut, bBmpAction, nBright, lAnimate, nSpeed, oFontDefault, ; lTransparent, aDialogs, lBorder, nClrPane, cVarName ) so ON PAINT TAB  -> ...

... <uPaintxt>}], ; [\{<nAlign>\}], <.lAdjust.>, <nSep>, <nOption>, [{|Self,nOption| <upop>}],; <.lStretch.>, [ Upper(<(layout)>) ], [{|Self,nOption| <uAction>}], <nBright>,; <.lAnimate.>, [<nSpeed>], <oFont>, ...

...  Called from: source\ut_preview.prg => PRNIMAGE( 409 ) I cal this method with oPrn:PrintImage( nRow,nCol,cImage,nWidth,nBottom,; lStretch, nAlpha, lTransp, lGray,; cUnits, cAlign) where is the error ?

Jimmy wrote:hi,

when assign a new Text into TAB it does not "fit" when Text is much longer than before

i can use ::lStretch but that is "too much" ... just want that hole Text "fit"

Call of Method

Code: Select all  Expand view

   oFld:Default()
 

and try

...     oTab:SetPrompts( aPrompts )#else      oTab:aPrompts := ACLONE( aPrompts )      oTab:Refresh()#endif  i can use ::lStretch but that is "too much" ... just want that hole Text "fit" p.s. "where" is the CODE for it --- CLASS TFolderEx() ...

use this oPrn:PrintImage( nTop, nLeft,cFile,nRight,nBottom, lStretch, nAlpha, lTransp, lGray ) see on email Hi Silvio, it's still the same error. The image position is different with PRINT oPrn NAME "prv_test" PREVIEW and PRINT oPrn NAME "prv_test" ...

use this oPrn:PrintImage( nTop, nLeft,cFile,nRight,nBottom, lStretch, nAlpha, lTransp, lGray ) see on email Hi Silvio, it's still the same error. The image position is different with PRINT oPrn NAME "prv_test" PREVIEW and PRINT oPrn NAME "prv_test" ...

use this
oPrn:PrintImage( nTop, nLeft,cFile,nRight,nBottom, lStretch, nAlpha, lTransp, lGray )

see on email

... 4, 16 BITMAP oBmp FILENAME CURDRIVE() +":"+"\COMPARTIDO\REGSAT\WINSAT\BITMAPS\LOGOGVA.png" NOBORDER OF oWnd ; ON CLICK( oBmp:lStretch := ! oBmp:lStretch, oBmp:Refresh( .t. ) ) ACTIVATE WINDOW oWnd MAXIMIZED ; ON PAINT PalBmpDraw( hDC, 150, 250, oBmp:hBitmap ) Pero cuando se ...

... 150 OF oDlg SCROLL // ADJUST oImage:Progress( .f. ) @ 6, 28 BUTTON "Exit" SIZE 50, 10 OF oDlg ACTION oDlg:End() @ 10, 26 CHECKBOX oImage:lStretch PROMPT "Ajustar" SIZE 50, 10 OF oDlg ; ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() ) ACTIVATE DIALOG oDlg CENTER ON INIT ...

... the ratio. So i calculate it with nPic_x := int( nPic_y * (oImage:nWidth() / oImage:nHeight()) ) from the predefined picture. The parameter lStretch := .T. without a nWidth gives wrong results! (different in tprinter and fwpdf) An other interesting effect is the print from transparent PNGs: ...

... to 2016. These methods may be treated as deprecated for future development. Syntax: METHOD PrintImage( nRow, nCol, uImage, nWidth, nHeight, lStretch, nAlpha, lTransp, lGray, cUnits, cAlign, cURL )  FWPdf ignores nAlpha, lTransp and lGray TPrinter ignores cURL 1,2,4,5) nRow, nCol, ...

... to add clicked like in TImage METHOD New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked , lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign, cVarName ) CLASS TImage regards Uwe :D Uwe, Sorry on BTnBMP is possible to place ...

... to add clicked like in TImage METHOD New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked , lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign, cVarName ) CLASS TImage regards Uwe :D

Try it with :lStretch := .F.