FiveTech Software tech support forums

Hi, Mr.Antonio

I tested example testbtb.prg and got error :

Error description: Error BASE/1004 Class: 'NIL' has no exported method: HFONT
Args:
[ 1] = U

Stack Calls
===========
Called from: => HFONT(0)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:PAINT(1176)
Called from: .\source\classes\BTNBMP.PRG => (b)TBTNBMP:TBTNBMP(112)
Called from: => TBTNBMP:DISPLAY(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1459)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1453)
Called from: .\source\classes\WINDOW.PRG => _FWH(3408)
Called from: => UPDATEWINDOW(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(976)
Called from: testbtb.prg => MAIN(92)


As I can solve this problem ?

Thanks.

Hi,

same prob on my machine, can't update to 1101, downgraded to 1011

It is possible to make so :

oBar:aControls[nnn]:lBarBtn:=.F.

Natter,

thank you very much, it works with:

Code: Select all  Expand view

AEval( oBar:aControls, { | oBtn | oBtn:lBarBtn := .F. } )

But I don't want the border around each button, so it would be nice if 'lBarBtn := .T.' is functional again in the future

hi, dont work for me... the background of buttons is not same of buttonbar, maybe i should use alpha channel bitmap, but in changelog of fwh1101 dont say this.

Please see this posting of Mr. Antonio.
viewtopic.php?f=3&t=20880

This is implemented in fwh11.1 which has this side effect.
I removed the comments for the time being till Mr. Antonio finds a better fix.

Just tested 11.01 and can confirm that i have the same problem - even if i remove the comments Antonio recently put in.

Any updates on how to fix this?

Best regards,

Pete

2 weeks and no solution, only back to fwh1011??? whats is happend?? no fix, no path, no new release.

Bumped up for Daniel

Hello

line 1176

Code: Select all  Expand view

hOldFont = SelectObject( ::hDC, If( ::lBarBtn, ::oWnd:oFont:hFont, ::oFont:hFont ) )

change to

Code: Select all  Expand view

hOldFont = SelectObject( ::hDC, If( ::lBarBtn, If( ::oWnd:oFont != nil, ::oWnd:oFont:hFont, ::oFont:hFont ), ::oFont:hFont ) )

already fixed

Daniel Garcia-Gil wrote:Hello

line 1176

Code: Select all  Expand view

hOldFont = SelectObject( ::hDC, If( ::lBarBtn, ::oWnd:oFont:hFont, ::oFont:hFont ) )

change to

Code: Select all  Expand view

hOldFont = SelectObject( ::hDC, If( ::lBarBtn, If( ::oWnd:oFont != nil, ::oWnd:oFont:hFont, ::oFont:hFont ), ::oFont:hFont ) )

already fixed

Daniel ,
Cual es la liberia que contiene este modulo, se puede retirar un colocar el corregido para corregir la libreria , como se hace.
Gracias

Ruben...

BTNBMP....