FiveTech Software tech support forums

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 ...

... endif Return nil function BmpTiled( 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 ...

... endif Return nil function BmpTiled( 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 ...

... endif Return nil function BmpTiled( 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 ...

... METHOD DrawItem( nIdCtl, nPStruct ) CLASS TDBCombo return LbxDrawItem( nPStruct, ::aBitmaps, ::aList, ::nBmpWidth, ::bDrawItem ) //----------------------------------------------------------------------------// METHOD Initiate( hDlg ) CLASS TDbCombo ::TControl():Initiate( ...

... 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( controlar, control( oWnd, intervalo ), NIL ),; oWndPrincipal := ...

Allora modifica il metodo Paint(), ad esempio:

nLeft = ::nWidth() - nBmpWidth( ::hBitmap ) * 1.2

E poi metti degli spazi in coda al testo.

Altro non mi viene in mente.

EMG

... //-> Modificado Por Antonio Linares, 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 ...

... 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 + If( lPressed, 1, 0 ) ) else DrawGray( ...

... oBmp ) STATIC FUNCTION BmpTiled( 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 ...

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 )