FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour A problem in FWH11.01
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
A problem in FWH11.01
Posted: Fri Feb 18, 2011 12:37 PM

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.

Posts: 392
Joined: Tue Mar 10, 2009 11:54 AM
Re: A problem in FWH11.01
Posted: Fri Feb 25, 2011 08:26 AM

Hi,

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

Windows 11 Pro 22H2 22621.1848

Microsoft (R) Windows (R) Resource Compiler Version 10.0.10011.16384

Harbour 3.2.0dev (r2008190002)

FWH 23.10 x86
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: A problem in FWH11.01
Posted: Fri Feb 25, 2011 01:13 PM

It is possible to make so :

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

Posts: 392
Joined: Tue Mar 10, 2009 11:54 AM
Re: A problem in FWH11.01
Posted: Fri Feb 25, 2011 01:56 PM
Natter,

thank you very much, it works with:
Code (fw): Select all Collapse
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 :-)
Windows 11 Pro 22H2 22621.1848

Microsoft (R) Windows (R) Resource Compiler Version 10.0.10011.16384

Harbour 3.2.0dev (r2008190002)

FWH 23.10 x86
Posts: 566
Joined: Thu Aug 30, 2007 03:40 PM
Re: A problem in FWH11.01
Posted: Fri Feb 25, 2011 06:08 PM

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.

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: A problem in FWH11.01
Posted: Sat Feb 26, 2011 02:56 AM

Please see this posting of Mr. Antonio.

viewtopic.php?f=3t=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.

&

Regards



G. N. Rao.

Hyderabad, India
Posts: 363
Joined: Wed Feb 15, 2006 02:06 PM
Re: A problem in FWH11.01
Posted: Tue Mar 01, 2011 04:12 PM

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

Posts: 566
Joined: Thu Aug 30, 2007 03:40 PM
Re: A problem in FWH11.01
Posted: Thu Mar 03, 2011 05:32 PM

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

Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
Re: A problem in FWH11.01
Posted: Tue Mar 15, 2011 03:28 AM

Bumped up for Daniel

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: A problem in FWH11.01
Posted: Tue Mar 15, 2011 04:18 AM
Hello

line 1176

Code (fw): Select all Collapse
hOldFont = SelectObject( ::hDC, If( ::lBarBtn, ::oWnd:oFont:hFont, ::oFont:hFont ) )


change to

Code (fw): Select all Collapse
hOldFont = SelectObject( ::hDC, If( ::lBarBtn, If( ::oWnd:oFont != nil, ::oWnd:oFont:hFont, ::oFont:hFont ), ::oFont:hFont ) )


already fixed
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: A problem in FWH11.01
Posted: Thu Mar 17, 2011 02:15 PM
Daniel Garcia-Gil wrote:Hello

line 1176

Code (fw): Select all Collapse
hOldFont = SelectObject( ::hDC, If( ::lBarBtn, ::oWnd:oFont:hFont, ::oFont:hFont ) )


change to

Code (fw): Select all Collapse
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 Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: A problem in FWH11.01
Posted: Thu Mar 17, 2011 02:19 PM

Ruben...

BTNBMP....

Continue the discussion