FiveTech Software tech support forums

method CreateButton()

de:
::oBtn := TBtnBmp():New(0,::nWidth - nBmpWidth - 4,nBmpWidth,::nHeight - 4,;

por:
::oBtn := TBtnBmp():New(0,::nWidth - nBmpWidth - if(::lSpinner,20,4),nBmpWidth,::nHeight - 4,;

... reserved on the screen to show it. How could I check for the size and only adjust it necessary? The functions to get the sizes of bitmaps are: nBmpWidth( oBmp:hBitmap ) // bitmap's width nBmpHeight( oBmp:hBitmap ) // bitmap's height I was trying with a function that may do the job (not fully ...

Hello Tim, have a look at the Alpa-Function above : DEFINE BITMAP oBmp1 FILENAME "Logo.bmp" nBMPWidth := oBmp1:nWidth nBMPHeight := oBmp1:nHeight // Centered Logo // ---------------- ABPaint( hDC, ( oWnd:nWidth() / 2 ) - ( nBMPWidth / 2 ), ; ( oWnd:nHeight() / 2 ...

... FUNCTION PongaBmp( hDC, oBmp, oWnd ) //BmpTiled( local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() if oBmp:hBitmap == 0 return nil endif while nRow < nHeight nCol = 0 while nCol < nWidth ...

... FUNCTION PongaBmp( hDC, oBmp, oWnd ) //BmpTiled( local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() if oBmp:hBitmap == 0 return nil endif while nRow < nHeight nCol = 0 while nCol < nWidth ...

... .T. ) /* hDCMem = CreateCompatibleDC( ::hDC ) hOldBmp = SelectObject( hDCMem, hBmp ) StretchBlt( ::hDC, 0, 0, ::nWidth, ::nHeight, hDCMem, 0, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), SRCCOPY ) SelectObject( hDCMem, hOldBmp ) DeleteDC( hDCMem ) */ ::Say( ::nHeight / 4 - 2,; If( ::lCentered, ( ...

... ) METHOD SetAlign( nColumn, nLevel, nAlign ) METHOD SetAppendMode( lMode ) METHOD SetArray( aArray ) METHOD SetBtnGet( nCol, cResName, bAction, nBmpWidth ) METHOD SetColMsg( cMsg, cEditMsg, nCol ) METHOD SetColor( xColor1, xColor2, nColumn ) METHOD SetColSize( nCol, nWidth ) METHOD SetColumns( ...

dbarrio,

hBmp:=ReadBitmap(0, "C:\bitmap.bmp")
nHig=nBmpHeight(hBmp)
nWid=nBmpWidth(hBmp)
oWord:AddImagen( 1, 1, 1+nCol, 1+nHig, nWid, "C:\bitmap.bmp", {1,1,1,1,1,1})

Saludos, Euclides

... for hBitmap and it will be ok. Also notice that pBmpHeight() and pBmpWidth() no longer exist, and must replaced by nBmpHeight( hBitmap ) and nBmpWidth( hBitmap ) calls. -------------------------------------------------------------------------------- Everyone, At long last I have published ...

... ::cMsg ), If( ::lActive, ::nClrText, ::nClrDisabled ),; ::nClrPane, ::oFont, .T., .T. ) Ahora: ::oMsgBar:Say( ::oMsgBar:nHeight / 4 - 2,; nLeft + nBmpWidth - iif(nBmpWidth>0,7,1) + ( ::nWidth - GetTextWidth( hDC, AllTrim( ::cMsg ), ::oFont:hFont ) ) / 2,; AllTrim( ::cMsg ), If( ::lActive, ::nClrText, ...

Euclides wrote:Hi to all!
It there a way to get the bitmap sizes (width & height) read by ReadBitmap() function ?
TIA & Regards, Euclides

nBmpWidth( hBmp )
nBmpHeight( hBmp )

Source: \fwh\source\function\fwbmp.c

Hello, I think, that works. I used it in my old ONPAINT-function : nBMPWIDTH := oBmp:Super:nWidth() nBMPHIGHT := oBmp:Super:nHeight() Before FWH 8.07, i used it for painting text on gradient-bmp's. With FWH 8.07 it is easy to handle. If you don't work with ...

Possible fix with BitMap: if ::oMsgBar:l2007 ::oMsgBar:Say( ::oMsgBar:nHeight / 4 - 2,; nLeft + nBmpWidth - iif(nBmpWidth>0,7,1) + ( ::nWidth - GetTextWidth( hDC, AllTrim( ::cMsg ), ::oFont:hFont ) ) / 2,; AllTrim( ::cMsg ), If( ::lActive, ::nClrText, ::nClrDisabled ...

... := GetPixel( hDC, 0, 0 ) local nOldClr SelectObject( hDC, hBmpOld ) nOldClr = SetBkColor( hDC, nRGB( 255, 255, 255 ) ) TransBmp( hBitmap, nBmpWidth( hBitmap ), nBmpHeight( hBitmap ),; nZeroZeroClr, hDC, 10, 20, nBmpWidth( hBitmap ), nBmpHeight( hBitmap ) ) SetBkColor( hDC, nOldClr ) return ...

... vedere ppc ...solo oggi hoprovato ma non succede niente METHOD Paint() CLASS TMsgItem local nCount, nClrBack local nLeft := ::nLeft() local hBmp, nBmpWidth := 0 local hDC := ::oMsgBar:GetDC() if ::hBitmap1 != nil hBmp = If( ::lActive, ::hBitmap1, ; If( ::hBitmap2 != nil, ::hBitmap2, ::hBitmap1 ...