FiveTech Software tech support forums

... esto con los siguientes comandos WITH OBJECT :oCol(2) :AddBitmap(aGraphsL, ) :bBmpData := {|| oLbx:KeyNo() } // número del bitmap para cada fila :nBmpWidth := 22 // ancho de la franja donde se muestra el bitmap, png :bCellToolTip := { || AyudaEvtEsp(oLbx:aArrayData[oLbx:KeyNo(),2]) } END Pero, ...

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

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 )

... METHOD PaintBitmap() CLASS TBtnBmp if ::nLayOut == LAYOUT_LEFT ... ... ::nBmpMargin := nMargin + nBmpWidth + 5 regards Uwe :D

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

... local hBmp DEFAULT 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, ...

... local hBmp DEFAULT 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, ...

... local hBmp DEFAULT 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 ) Called from: C:\FWH_16\my_fw\XBROWSE.PRG => TXBRWCOLUMN:PAINTCELL( 11898 ) temporarily I solved in this way if HB_IsNumeric(nBmpWidth) .And. oRect:nWidth >= nBmpWidth //aBitmap[ BITMAP_WIDTH ] Regards Maurizio http://www.nipeservice.com

... cell are displayed with corresponding colors and fonts in arrays :aClrText and :aDataFont. See fwh\samples\xbfntclr.prg - New DATAs TXBrwColumn : nBmpWidth and nClrBmpBack Improvements to bitmap and text alignment in a column. Please see http://forums.fivetechsupport.com/viewtopic.php?f=3&p=195912#p195912 ...

New DATAs of TXBrwColumn nBmpWidth nClrBmpBack Purpose and Usage: At present, when a column has both bitmap and text, text is displayed leaving a margin equal to the width of the bitmap plus 5 pixels. When bitmaps of different sizes are ...

... case ::nOrientation <= OR_BOTTOM DrawTextEx( ::hDC, cPrompt ,; { If( LargeFonts(), 1, 8 + If( ::nOrientation == OR_TOP, 1,0 ) ),; nStart + 15 + nBmpWidth, ; ::nHeight, nStart + 20 + nWidth - 15 },; nOr( DT_LEFT, DT_VCENTER ) ) /* codigo original DrawTextEx( ::hDC, cPrompt ,; { If( LargeFonts(), ...

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

Silvio,

This is the line where it is failing:

nBmpWidth = nBmpWidth( ::aImgs[ n, TI_HBMP ] )

I can't understand how you have these values there:

Error description: Error BASE/1068 Argument error: array access
Args:
[ 1] = N 527 !!!!!!!!
[ 2] = N 3

... --- case ::nLayOut == 2 // left ------if ::lAdjust ---------nTxtLeft := 4 ------else ---------if !empty( hBmp ) ------------nTxtLeft := nBmpLeft + nBmpWidth + 4 ------------nLayOut := 4 -------- else ----------- nTxtLeft := 4 --------endif tested, but no result if ! Empty( ::cCaption )  ...