FiveTech Support Forums

Instead of setting my own font for a program, I simply want to use the current window font. No problem to find out the font, but how about setting the font size ? If my client uses a larger font size I want to use the same in the program.

Thanks

Tim,

> If my client uses a larger font size I want to use the same in the program

The dialogboxes of your application use some specific dimensions and fonts.

How do you plan to combine both ideas ?

Right now the client says "the font is too small" . The cursor problem I had was with an Arial font and it went away if I used the system font. So now I change to the system font, size -12 and it works OK. However, some people are used to a smaller font, and some want it larger, and they set that based on their theme and windows setting. I get the same font by using GetSysFont( ) but that doesn't return the size.

If I apply the system font to the application, and it doesn't fit, I can simply tell them to reduce the size of the system font to fix the problem.

It may not be the best answer technically, but it sure is better then dealing with complaints !

GetSysFont( ) does give me the font name, but not the current size.

Right now, I set a master font, oMFont, and then I use that in the main window, and inherit it from the main window in the dialogs.

Tim,

Here is some VB code to get the system font size.

http://vbcity.com/page.asp?f=howtop=system_fontsize

Maybe Antonio or Encrico can translate it to FW.

Regards,
James

&

Thanks.

Tim,
You have the way to use the font from the system, including big fonts at http://www.avemundi.com/?p=216
I use this code in my programs and it's perfect.

Regards,

Hello José,

I saw your source code and I am very interested in this topic.

Could you please explain where to put this line:
::oFont = TFont():New( GetDefaultFontName(), 0, GetDefaultFontHeight(),, )

Thanks in advance
Otto

::oFont is a data from my Application class. I take this fron system calling GetDefaultFontName() and GetDefaultFontHeight(). After this I can inherit this font in all my dialogs.

Regards,

#pragma BEGINDUMP

#include <Windows.h>
#include <hbapi.h>

HB_FUNC( GETDEFAULTFONTNAME )
{
   LOGFONT lf;
   GetObject( ( HFONT ) GetStockObject( DEFAULT_GUI_FONT ) , sizeof( LOGFONT ), &lf );
   hb_retc( lf.lfFaceName );
}

HB_FUNC( GETDEFAULTFONTHEIGHT )
{
   LOGFONT lf;
   GetObject( ( HFONT ) GetStockObject( DEFAULT_GUI_FONT ) , sizeof( LOGFONT ), &lf );
   hb_retni( lf.lfHeight );
}

#pragma ENDDUMP

y en el programa definir de esta manera la fuente de la ventana principal:

::oFont = TFont():New( GetDefaultFontName(), 0, GetDefaultFontHeight(),, )

Antonio,
would you please post a working example.
Thanks in advance
Otto