Continuity solution of the Default font Sydnye vs. Athens

[shineworld 73]

Hello everyone,
after years I decided to migrate a big project from Sydney 10.4.2 to Athens 12.2 latest version.

Most things went smoothly, others required some work in the code but it works fine.

I am left with one problem and one solution to find.
In Sydney the default font used was “Tahoma 8” and the entire software was reliant on it and its features, which must often take advantage of every available pixel in the screen.

Now when I create a new form or frame or add an object, I always end up with “Segoe UI 9” as the default font which returns text that is wider in width and breaks the continuity of the existing form/frame hundreds for me.

How can I make sure that the old “Tahoma 8” is used as the default font during development and execution ?
Many controls have multiple fonts and it is nerve-wracking to have to go searching for each “Font” property within them to change them by hand each time.

 

Thank you.

 

[DelphiUdIT 176]

Good question. I don't know if is possible ... the defaults should be written by desgin packages ... , but the first thing that I think is to change the default font of TApplication at the start of program , so at runtime time every components that have the "ParentFont" property at true still had that font.

 

But this is only a temporary adaption: when you'll edit the form, I think the all components will change cause new default font.

 

May be some regsiter hack from a dummy design package can help .... (like Register(TForm, MyNewDefaultForm)) ... but I don't know if it's possible and how to do that.

[Lajos Juhász 293]

You can change it on a new form and leave parentfont to true on the components you drop. You should accept the new default font. On newer monitors event font size 9 is a bit hard to read. 

[shineworld 73]

Our applications run on embedded panel pc which have fixed inches size and are all FullHD, so HDPI is not used.

I've tried also to change DefaultFont.Name := 'Tahoma' of VCL.Graphics in first steps of DPR but nothing changed.

Edited November 7 by shineworld

[DelphiUdIT 176]

25 minutes ago, shineworld said:

Our applications run on embedded panel pc which have fixed inches size and are all FullHD, so HDPI is not used.

I've tried also to change DefaultFont.Name := 'Tahoma' of VCL.Graphics in first steps of DPR but nothing changed.

Of ourse the font should exists ...

 

This is the default font setting.

 

 

 

This is the modified setting from DPR, without changing nothing in the source or design.

 

 

[shineworld 73]

Woe is me, I had modified the global DefaultFont var but not the Application.DefaultFont.Name var.
Thanks for help !!!

[DelphiUdIT 176]

17 minutes ago, shineworld said:

Woe is me, I had modified the global DefaultFont var but not the Application.DefaultFont.Name var.
Thanks for help !!!

Take care about that the Form, I dont'know if is with new version of IDE, have the "ParentFont" set to FALSE ... In this case the "Application.Default....' is not working 😞

 

The images come from an old base project that I use for quick test and I see that "ParentFont" value is in BOLD, meaning that is not the default.

 

Create new App, the Form has this property set to false ....

Edited November 7 by DelphiUdIT