FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xBrowse - Novo recurso
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
xBrowse - Novo recurso
Posted: Sat Nov 04, 2017 01:51 PM

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 :D
oBrw:aCols[1]:nEditType := EDIT_GET_BUTTON

xbrowse.prg:

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

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 ) <---- :D

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

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: xBrowse - Novo recurso
Posted: Sun Nov 05, 2017 05:34 AM

Many thanks :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: xBrowse - Novo recurso
Posted: Sun Nov 12, 2017 09:39 AM

Super genial :D

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: xBrowse - Novo recurso
Posted: Sun Nov 12, 2017 01:03 PM

obrigado Aida

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Continue the discussion