topic-8140

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

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:= "", y queda así:

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

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

Code: Select all Collapse

   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

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

FiveTech Support Forums

Continue the discussion