FiveTech Support Forums

DATA lFootAlignBtn AS LOGICAL INIT .f. // Usado para alinhar o rodapé quando houver um botão (EDIT_GET_BUTTON)

METHOD PaintFooter( nRow, nCol, nHeight, lInvert ) CLASS TXBrwColumn
...
else
if SetAlpha() .and. aBitmap[ BITMAP_ALPHA ]
ABPaint( hDC, nBmpCol, nBmpRow, aBitmap[ BITMAP_HANDLE ], ::nAlphaLevelFooter )
else

DEFAULT aBitmap[ BITMAP_ZEROCLR ] := GetZeroZeroClr( hDC, aBitmap[ BITMAP_HANDLE ] )
SetBkColor( hDC, nRGB( 255, 255, 255 ) )
TransBmp( aBitmap[ BITMAP_HANDLE ], 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 .and. ;
!Empty( aBitmap := ::aBitmap( ::nBtnBmp ) )
nWidth -= ( aBitmap[ BITMAP_WIDTH ] + 6 )

endif

if Empty( cFooter )
::ReleaseDC()
return nil
endif
...