FiveTech Software tech support forums

... 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 nil http://www.atzwanger.com/fw/bmponbmp.jpg

Enrico, Fixed: TransBmp( ::hBitmap1, nBmpWidth( ::hBitmap1 ), nBmpHeight( ::hBitmap1 ), nZeroZeroClr, ::hDC,; ( ::nWidth / 2 ) - ( nBmpWidth( ::hBitmap1 ) / 2 ) + If( ::lPressed, 2, 1 ),; Max( 0, ( ::nHeight / 3 ) - ( nBmpHeight( ::hBitmap1 ) / 2 ) + If( ...

... , ::nClrPane ) SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) if ::oBrush:hBitmap != nil SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) endif return ::oBrush:hBrush // Donde esta mi erro?? Muchas gracias. Regards, saludos.

... hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() while nRow < nHeight nCol = 0 while nCol < nWidth PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap ) nCol += nBmpWidth end ...

... hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() while nRow < nHeight nCol = 0 while nCol < nWidth PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap ) nCol += nBmpWidth end ...

... hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() while nRow < nHeight nCol = 0 while nCol < nWidth PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap ) nCol += nBmpWidth end ...

... , ::nClrPane ) SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) if ::oBrush:hBitmap != nil SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) endif return ::oBrush:hBrush //-> RECOMPILE YOUR FIVEHX.LIB Regards, saludos.

... mi codigo para desplegar una imagen centrada en mi ventana principal oWnd:bPainted = { | hDC | PalBmpDraw( hDC,; (oWnd:nTop()-50)+((oWnd:nHeight()-nBmpHeight( oBmp:hBitmap ))/2),; oWnd:nLeft()+((oWnd:nWidth()-nBmpWidth( oBmp:hBitmap ))/2),; oBmp:hBitmap ) } ACTIVATE WINDOW oWnd ; ON INIT ( If( ...

Rossine,

nBmpHeight( ::hBmpRecSel )

... , ::nClrPane ) SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) if ::oBrush:hBitmap != nil SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) endif return ::oBrush:hBrush

... , ::nClrPane ) SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) if ::oBrush:hBitmap != nil SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) endif return ::oBrush:hBrush //----------------------------------------------------------------------------//

... em 20/02/2006 Para TRANSPARENT if ::lTransparent .and. ! Empty( ::oBrush:hBitmap ) SetBrushOrgEx( ::hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) endif for n := 1 to len( ::aCaption ) WSay( ::hWnd, ...

En el método Paint() de la Clase TButtonBmp hay este código: if ! Empty( ::hBitmap ) nTop = ( ::nHeight() / 2 ) - ( nBmpHeight( ::hBitmap ) / 2 ) nLeft = ( ::nWidth() / 2 ) - ( nBmpWidth( ::hBitmap ) / 2 ) if ::lActive DrawMasked( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),; nLeft ...

... hDC, oWnd, oBmp ) 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 PalBmpDraw( hDC, nRow, nCol, ...

Silvio,

Silvio wrote:I trying to convert old program ( 16 bit) to xharbour and now my xmate make me errors :

::nWidth := pBmpWidth ( ::hBmp )
::nHeight := pBmpHeight( ::hBmp )

these func exist or not ?

Use:

::nWidth := nBmpWidth ( ::hBmp )
::nHeight := nBmpHeight( ::hBmp )