How to use Windows default font in Delphi

Asked Mar 18 '14 at 12:39

Active Mar 18 '14 at 12:39

Viewed 4,349 times

As you know, the default font in Windows XP and Windows 7 is Tahoma. But in Windows 8 and 8.1, it changed to Segoe UI.

Even though my application is running on Windows 8.1, the default font in it, is Tahoma.

So my question is how can I recognize default windows font with delphi? So my labels, textboxes ,etc... will show in Tahoma font when my app is running under windows XP and they'll show in Segoe UI font when my app is running under windows 8.

enter image description here

By the way I tried to change the font to default but it didn't help.

asked Mar 18 '14 at 12:39

Sky

4,244
7
54
83

2

see http://stackoverflow.com/questions/10588660/font-consistency-throughout-project – Sertac Akyuz Mar 18 '14 at 12:54
@SertacAkyuz I have no problem with changing a font. I just want to find the default windows font using Delphi. – Sky Mar 18 '14 at 13:09
1

If you read David's answer there, you can deduce that you can modify Application.DefaultFont with one of Screen.XXFont properties and then through the use of ParentFont property you can have what you want. More or less.. You probably want to have a look at Screen.IconFont etc.. – Sertac Akyuz Mar 18 '14 at 13:15
2

There is no single default font. Which one do you want? – David Heffernan Mar 18 '14 at 13:17
1

Isn't the 'standard' GUI font `Segoe UI` already in Vista? – Andreas Rejbrand Mar 18 '14 at 13:21
@DavidHeffernan The font is used in Winddows explorer. – Sky Mar 18 '14 at 13:24
@AndreasRejbrand Yes but I didn't mention it :) – Sky Mar 18 '14 at 13:24
Which font? I would not be surprised if explorer used more than one. It has menus and window captions and tree and list views and button text. Do they all use the same font? – David Heffernan Mar 18 '14 at 13:27
Thanks to @DavidHeffernan my problem solved with this link: http://stackoverflow.com/a/10590062/2570054. – Sky Mar 18 '14 at 13:32
1

@Sky - That link is the same question I posted in the first comment. – Sertac Akyuz Mar 18 '14 at 15:14

How to use Windows default font in Delphi

0 Answers0