Bitmaps en el header de XBrwColumn
Posted: Tue Sep 11, 2007 11:43 am
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 )
Y asi funciona bien,
Saludos
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
Saludos