FiveTech Software tech support forums

Mr Rao. Encontré la solución. ::bPaintBack := {|| aOrg := SetBrushOrgEx( ::hDC, nBmpWidth( ::oWnd:oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oWnd:oBrush:hBitmap ) - ::nTop ), FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush ), SetBrushOrgEx( ::hDC, aOrg[ 1 ], aOrg[ 2 ] ) ...

We recommend using FW_ReadImage( nil, cAnyImageSource, [aSize], [lGDIP] ) --> aImage

Elements of aImage:
{ hBitmap, hPalette, nBmpWidth, nBmpHeight, lAlpha, cName, lResource, cType, nZeroClr }

Destroy with
PalBmpFree( aImage )

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... n:=0 xBrw:aSortBmp := {} hBmp := if( n = 0, FWbmpAsc(),LoadBitMap(GetResources(), cBmpAsc ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } ) hBmp := if( n = 0, FWbmpDes(),LoadBitMap(GetResources(), cBmpDes ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ...

... n:=0 xBrw:aSortBmp := {} hBmp := if( n = 0, FWbmpAsc(),LoadBitMap(GetResources(), cBmpAsc ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } ) hBmp := if( n = 0, FWbmpDes(),LoadBitMap(GetResources(), cBmpDes ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ...

... n:=0 xBrw:aSortBmp := {} hBmp := if( n = 0, FWbmpAsc(),LoadBitMap(GetResources(), cBmpAsc ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } ) hBmp := if( n = 0, FWbmpDes(),LoadBitMap(GetResources(), cBmpDes ) ) AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ...

... DT_LEFT, DT_VCENTER ) ) */ // esto modifica la ubicacion vertical del BMP if ::nOrientation <= OR_BOTTOM TransBmp( hBmp, nBmpWidth( hBmp ), nBmpHeight( hBmp ), /* RGB( 255, 0, 255 ) */ nZeroZeroClr, ::hDC,; nStart + 12, If( ::nOrientation == OR_TOP, 8, 0 ), 16, 16 ) /* codigo original TransBmp( ...

Enrico , use WndReadPalBmpEx( Self, uBmp, aReSize ) -> aBmp // format: { hBitmap, hPalette, nBmpWidth, nBmpHeight, lAlpha, cName, lResource } This function is in btnbmp.prg for substitution in test . In my tests gdi+ it gives equal and often better quality than freeimage ...

... samples\fivedit.prg for an example of use. * New: Method ReadPalBmpEx( uSource, [aResize] ) class TWindow --> { hBitmap, hPalette, nBmpWidth, nBmpHeight, lAlpha, cName, lResource } uSource can be bmpfile, resource, any imagefile, image buffer from memory or handle of a bitmap. Optional aResize ...

... * Fix: Fix in function DrawTransBmp() used from Class TBtnBmp: nBmpWidth() was used instead of nBmpHeight(). Now it is ok. * Enhancement: Class TTreeView new Methods SetItemImage( oItem, nImage ) and SetItemHeight( nHeight ), thanks to Manuel ...

... ], aBitmap[ BITMAP_WIDTH ], aBitmap[ BITMAP_HEIGHT ],; aBitmap[ BITMAP_ZEROCLR ], hDC, nBmpCol, nBmpRow, nBmpWidth( aBitmap[ BITMAP_HANDLE ] ),; nBmpHeight( aBitmap[ BITMAP_HANDLE ] ) ) endif endif elseif ::lFootAlignBtn .and. ; ::nEditType == EDIT_GET_BUTTON .and. ; ::nFootStrAlign == AL_RIGHT ...

Hola,

Prueba con nBmpHeight(hBmp) y nBmpWidth(hBmp)

... I changed in => METHOD LoadBitmaps( uBmp ) CLASS TMetroBtn hBmp := ResizeImg( ( hBmp1 := hBmp ), ::nBmpWidth, ::nBmpHeight ) to : hBmp := ResizeBmp( ( hBmp1 := hBmp ), ::nBmpWidth, ::nBmpHeight, .T. ) The difference using a JPG-file ( screenshot enlarged to show ...

... Some BMP's are not equal in width and height. TMetroBtn():New( nX, nY, lLarge, Self, cCaption, cImgName, bAction, nAlign, ; nBmpAlign, nBmpWidth, nBmpHeight , oFont, cText, nTextAlign, oTextFont, oSubMetro, ; nGroup, cBackImage, cAction, cSub ) TMetroBtn():New( nX, nY, lLarge, Self, cCaption, ...

... TTitles from Resource , I getting a error on this line : 650 DEFAULT nRow := ::nHeight / if( ::oWnd:ClassName() == "TWINDOW", 2, 1 ) - nBmpHeight( hBmp ) / 2 - If( ::lBase, 3, 0 ) Error description: Error BASE/1081 Argument error: + Args: [ 1] = N 10 [ 2] = U Stack Calls =========== ...