xBrowse - Novo recurso

xBrowse - Novo recurso

Postby MGA » Sat Nov 04, 2017 1: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

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: xBrowse - Novo recurso

Postby Antonio Linares » Sun Nov 05, 2017 5:34 am

Many thanks :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: xBrowse - Novo recurso

Postby AIDA » Sun Nov 12, 2017 9: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ǝ
User avatar
AIDA
 
Posts: 877
Joined: Fri Jan 12, 2007 8:35 pm

Re: xBrowse - Novo recurso

Postby MGA » Sun Nov 12, 2017 1:03 pm

obrigado Aida
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 14 guests