FiveTech Software tech support forums

... you try oPrn:SayImage() ? What about the Logo.Bmp ? Does it have an Alpha channel ?. oPrn:SayImage( nRow, nCol, oImage, nWidth, nHeight, nRaster, lStretch, nAlphaLevel, nAlign ) This is just an idea What I am suggesting is an alternative way. I am sure that this not the solution that you are looking ...

... AjustaZoom( oBmp1 ,"S",oSay ) Function AjustaZoom(oBmp,cAccion,oSay) local nZoom:=oBmp:Zoom() do case case cAccion == "S" oBmp:lStretch := !oBmp:lStretch oBmp:ScrollAdjust() oBmp:Refresh( .t. ) case cAccion == "R" if nZoom*10>1 oBmp:lStretch := .f. nZoom:=nZoom-(0.10) ...

... CLASSDATA lRegistered AS LOGICAL METHOD New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked, lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign ) CONSTRUCTOR ************************************ But new collision : MSGSTOP : Cannot ...

TImage():New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder, oWnd, bLClicked, bRClicked, lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign ) lStretch:=.T. Thanks, but I need it in a different way. I need a new Handle with stretched bitmap. ...

TImage():New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder, oWnd, bLClicked, bRClicked, lScroll, lStretch, oCursor,;
cMsg, lUpdate, bWhen, lPixel, bValid, lDesign )

lStretch:=.T.

Uwe, METHOD PaintData() CLASS TXBrwColumn is using this code: if lStretch ... else PalBmpDraw( hDC, nBmpRow, nBmpCol,; aBitmap[ BITMAP_HANDLE ],; aBitmap[ BITMAP_PALETTE ],; aBitmap[ BITMAP_WIDTH ],; aBitmap[ BITMAP_HEIGHT ...

... //@ 8, 22 IMAGe oBmp File "Icon\ams.bmp" of oWnd //@ 5, 5 BITMAP oBmp FILENAME "Icon\ams.bmp" ADJUST SIZE 280, 200 OF oWnd ; //ON CLICK ( oBmp:lStretch := ! oBmp:lStretch, oBmp:Refresh(.t. ) ) oBmp := DrawBitmap( oWnd, "Icon\ams.bmp",5,5) Set message of oWnd to "Sales Commission Program Version ...

... "Select Image" SIZE 50,10 OF oDlg ACTION GetImage( oImage ) @ 6, 28 BUTTON "Exit" SIZE 50, 10 OF oDlg ACTION oDlg:End() @ 10, 26 CHECKBOX oImage:lStretch PROMPT "Stretch" SIZE 50, 10 OF oDlg ; ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() ) ACTIVATE DIALOG oDlg CENTER return nil //----------------------------------------------------------------------------// ...

... uso la función cGetFile, pero la cuestión es presentar directamento en pantalla las miniaturas. Otro tema. Me dices que revise el código del lStretch. ¿Donde se ve la ayuda de los metodos?. En Clase CHEKBOX no está. Perdon por mi falta de conocimientos sobre FWH y muchas gracias.