xBrowse - Novo recurso

[MGA]

Implementado en la clase XBROWSE un TOOLTIP en el botón de columna, por ejemplo:

oBrw:aCols[1]:nBtnWidth := 8
oBrw:aCols[1]:cBtnCaption := '$'
oBrw:aCols[1]:cBtnToolTip := 'Recalcular o preço de venda' <-------------- NEW
oBrw:aCols[1]:nEditType := EDIT_GET_BUTTON


xbrowse.prg:

DATA nBtnWidth, cBtnCaption, bClrBtn
DATA cBtnToolTip <----

METHOD CreateButtons() CLASS TXBrwColumn
...
if ::bClrBtn == nil
@ 0,0 BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0 CENTER
else
@ 0,0 BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0 CENTER FLAT
::oBtnElip:bClrGrad := nil
endif
::oBtnElip:lGDIP := ::oBrw:lGDIP
::oBtnElip:cToolTip := IfNil( ::cBtnToolTip, "", ::cBtnToolTip ) <----


Sr. Antonio, se possível adicionar a classe XBROWSE.PRG

[Antonio Linares]

Many thanks

[AIDA]

Super genial

Saluditos

[MGA]

obrigado Aida