Bitmaps en el header de XBrwColumn

[Carlos Mora]

Cuando hacemos una columna cuyo header solo contiene un bitmap, se pinta mal. Como ejemplo modifique el Testxbrw.prg, en el ejemplo de bitmaps, la columna que dice CLIP y pone un clip. Quité la palabra "CLIP" quedando oCol:cHeader:= "", y queda así:

http://www.box.net/shared/y0fg7h9mq9

Lo he corregido cambiando el siguiente código ( en PaintHeader )

Code: Select all

   if nBmpNo > 0 .and. nBmpNo <= len( ::aBitmaps )
      aBitmap := ::aBitmaps[ nBmpNo ]
      // nWidth  -= aBitmap[ BITMAP_WIDTH ] -> quité esto
      if Empty(cHeader)
         nBmpCol := nCol + ( ( nWidth - aBitmap[ BITMAP_WIDTH ] ) / 2 )
      elseif ::nHeadBmpAlign == AL_LEFT
         nWidth  -= aBitmap[ BITMAP_WIDTH ] // Agregué esto
         nBmpCol := nCol
         nCol    += aBitmap[ BITMAP_WIDTH ] + BMP_EXTRAWIDTH
      else
         nWidth  -= aBitmap[ BITMAP_WIDTH ] // Agregué esto
         nBmpCol := nCol + nWidth
      endif
      nWidth  -= BMP_EXTRAWIDTH
      nBmpRow := ( nHeight - aBitmap[ BITMAP_HEIGHT ] ) / 2 + 4
      PalBmpDraw( hDC, nBmpRow, nBmpCol,;
                  aBitmap[ BITMAP_HANDLE ],;
                  aBitmap[ BITMAP_PALETTE ],;
                  aBitmap[ BITMAP_WIDTH ],;
                  aBitmap[ BITMAP_HEIGHT ];
                  ,, .t., aColors[ 2 ] )
   endif

Y asi funciona bien,

Saludos

[Antonio Linares]

Carlos,

Gracias!