Newbie question about FWH 9.03

[Loach]

Good day!
I'm a novice in FWH 9.03, but... it seems that in fivewin.ch in commands "DEFINE BUTTON" and "REDEFINE BUTTON" strings:

[ <resource: NAME, RESNAME, RESOURCE> <cResName1> ;
[,<cResName2>[,<cResName3>][,<cResName4>] ] ] ;

is not properly correct. Only with this patching:

[ <resource: NAME, RESNAME, RESOURCE> <cResName1> ;
[,<cResName2>[,<cResName3>[,<cResName4>] ] ] ];

i can use four bitmap resources to make btnbmp.
I'm sorry, if I wrote rubbish... I'm just learning...
Thanks.

[Antonio Linares]

Sergey,

Welcome to the forums

Yes, your solution is fine. We were reported about that problem some days ago,

Thanks!

[Loach]

Thank you so much, Mr. Antonio !
And another questions:
- I can't use resource bitmaps with class TButtonBmp. Am I right?
- When I don't use the clause "2007" in BTNBMP, the bitmap paints always in the center of the button (not depend from layout: LEFT, RIGHT... ). If i use clause "2007", - it's all right. Is it my mistake?
- Can I change the font of the buttons captions (prompts) on buttonbar? It seems that string in method paint() of class btnbmp: "hOldFont = SelectObject( ::hDC, If( ::lBarBtn, ::oWnd:oFont:hFont, ::oFont:hFont ) )" means that font always take from parent window... Why it doing that way?
Thank's for help!

[Antonio Linares]

Sergey,

You can use bitmaps from resources for Class TButtonBmp objects too.

If there is a file with the bitmap name, then it is loaded from disk. If not, then it is loaded from resources:

Code: Select all  Expand view

METHOD LoadBitmap( cBmpName ) CLASS TButtonBmp

   if ! Empty( ::hBitmap )
      DeleteObject( ::hBitmap )
      ::hBitmap = nil
   endif
   
   ::cBitmap = cBmpName
   
   if File( cBmpName )
      ::hBitmap = ReadBitmap( 0, cBmpName )
   else
      ::hBitmap = LoadBitmap( GetResources(), cBmpName )
   endif
   
return nil
 

[Antonio Linares]

Sergey,

>
When I don't use the clause "2007" in BTNBMP, the bitmap paints always in the center of the button (not depend from layout: LEFT, RIGHT... ). If i use clause "2007", - it's all right. Is it my mistake?
>

It may be a bug on our side. We are going to check it, thanks

[Antonio Linares]

Sergey,

> Can I change the font of the buttons captions (prompts) on buttonbar?

Do you mean to change the font of a single button of the buttonbar ?

[ukoenig]

Hello,

I think, changing the font in Buttonbar, is still the old problem.
There is a font define in class BtnBmp, has to be changed, if a different font is desired.
Maybe it is possble, the user can define the font ?

viewtopic.php?f=3&t=12069&p=59981&hilit=buttonbar+font#p59981

Code: Select all  Expand view

      if ::lBarBtn
         if ::oWnd:oFont != nil
            if ::oWnd:oFont:cFaceName != "Tahoma"
               DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
               ::oWnd:SetFont( oFont )
            endif
         else
            DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
            ::oWnd:SetFont( oFont )
         endif
      else
 

Regards
Uwe

[Loach]

Thanks for your kindness!
Antonio, Ugo is right. I just want to define font of the buttons on buttonbar. It's not so important, one button, or every buttons. If font will be change on all buttons, it will be OK!
I tried to replace this string in btnbmp.prg:

hOldFont = SelectObject( ::hDC, If( ::lBarBtn, ::oWnd:oFont:hFont, ::oFont:hFont ) ) // method paint() befor Drawtext...

on just simple:

hOldFont = SelectObject( ::hDC, ::oFont:hFont )

and all work fine for me. Now I can use clause "FONT" in buttons on buttonbar, and even have different fonts on each button. BUT, I don't know, may be it's a wrong way, that will crash the program later or something like that...
To say the truth, I'm not quite understand, why we have to use the font from parent window? Why don't use define font from btnbmp?

[Antonio Linares]

Sergey,

> I'm not quite understand, why we have to use the font from parent window?

Fonts can be reused as they keep a counter, so they share the same Windows GDI object. This saves memory consume. Its good to reuse them

Also the idea is that the buttonbar shows the same font as its container window, by default.