EnumFontFamiliesEx...

[Mark- 31]

Hello,

 

Delphi 10.2.3.

 

I have worked out how to collect the character sets (scripts) for each font name.

Now I am trying to convert the byte values returned from EnumFontFamiliesEx to the name of the character set like is seen below under Script.

 

 

Web searching, no joy.

WIN32 Programmer's Reference, no joy.

 

Any ideas?

 

Thanks,

 

Mark

 

[dwrbudr 8]

I have this record and loop through it to find the name, there might be other values that you have to add.

 

const
  FontCharsets: array[0..9] of TIdentMapEntry = (
    (Value: 238; Name: 'East European'),
    (Value: 204; Name: 'Cyrillic'),
    (Value: 0; Name: 'Western'),
    (Value: 161; Name: 'Greek'),
    (Value: 162; Name: 'Turkish'),
    (Value: 177; Name: 'Hebrew'),
    (Value: 178; Name: 'Arabic'),
    (Value: 186; Name: 'Baltic'),
    (Value: 222; Name: 'Thai'),
    (Value: 222; Name: 'OEM'));

 

[Kas Ob. 128]

4 hours ago, Mark- said:

Web searching, no joy.

from https://learn.microsoft.com/en-us/openspecs/office_file_formats/ms-one/64e2db6e-6eeb-443c-9ccf-0f72b37ba411

Quote

Value	Meaning
0	ANSI_CHARSET
1	DEFAULT_CHARSET (Specifies a character set (1) based on the current system locale; for example, when the system locale is United States English, the default character set (1) is ANSI_CHARSET.)
2	SYMBOL_CHARSET
77	MAC_CHARSET
128	SHIFTJIS_CHARSET
129	HANGUL_CHARSET
130	JOHAB_CHARSET
134	GB2312_CHARSET
136	CHINESEBIG5_CHARSET
161	GREEK_CHARSET
162	TURKISH_CHARSET
163	VIETNAMESE_CHARSET
177	HEBREW_CHARSET
178	ARABIC_CHARSET
186	BALTIC_CHARSET
204	RUSSIAN_CHARSET
222	THAI_CHARSET
238	EASTEUROPE_CHARSET
255	OEM_CHARSET (Specifies a mapping to one of the OEM code pages, according to the current system locale setting.)

2 hours ago, dwrbudr said:

    (Value: 222; Name: 'Thai'),

    (Value: 222; Name: 'OEM'));

This doesn't seem right !

[Mark- 31]

6 hours ago, Kas Ob. said:

from https://learn.microsoft.com/en-us/openspecs/office_file_formats/ms-one/64e2db6e-6eeb-443c-9ccf-0f72b37ba411

Thanks for the response.

I have the table and is it is not the text that appears in TFontDialog.

I am seeking the text "description".

 

[Remy Lebeau 1545]

2 hours ago, Mark- said:

I have the table and is it is not the text that appears in TFontDialog.

I am seeking the text "description".

There is no Win32 API to get the same text that appears in the dialog. You have to use your own logic, using the numeric values shown by @Kas Ob. with a lookup array such as shown by @dwrbudr. The EnumFontFamiliesEx() API gives you the numeric value, you have to convert it to text yourself.

Edited 5 hours ago by Remy Lebeau

[Mark- 31]

9 minutes ago, Remy Lebeau said:

There is no Win32 API to get the same text that appears in the dialog.

Thanks for the response.

 

Yeah, I could not find anything. The issue is multiple languages.

I wonder what TFontDialog displays on French/Spanish/etc. machines.

 

[Remy Lebeau 1545]

14 minutes ago, Mark- said:

Yeah, I could not find anything. The issue is multiple languages.

I wonder what TFontDialog displays on French/Spanish/etc. machines.

TFontDialog is just a wrapper for the Win32 ChooseFont() API, so it displays whatever the OS wants to display.

[Mark- 31]

27 minutes ago, Remy Lebeau said:

TFontDialog is just a wrapper for the Win32 ChooseFont() API, so it displays whatever the OS wants to display.

Right, that is what I was searching for, "...OS wants to display". Then regardless of language, I assume, it would be correct.

But, no joy.

So I went through all the fonts on my computer, which TFontDialog does not show them all, and created this matrix,

 

Edited 4 hours ago by Mark-

[Remy Lebeau 1545]

2 hours ago, Mark- said:

Right, that is what I was searching for, "...OS wants to display". Then regardless of language, I assume, it would be correct.

But, no joy.

Of course the dialog may be localized based on the user's language.  Most OS dialogs are.  Bu that doesn't mean the OS makes those localized strings available to apps.  So, you'll likely need to provide your own localized strings if you want to honor the user's language in your own UI/logging.

2 hours ago, Mark- said:

So I went through all the fonts on my computer, which TFontDialog does not show them all, and created this matrix,

Those are all the same values that @Kas Ob. showed you earlier, which Microsoft already documents in several places of MSDN.  So you didn't need to go to that effort.

[Mark- 31]

7 minutes ago, Remy Lebeau said:

Those are all the same values that @Kas Ob. showed you earlier, which Microsoft already documents in several places of MSDN.  So you didn't need to go to that effort.

No, it is not the same.

 

[Remy Lebeau 1545]

2 hours ago, Mark- said:

No, it is not the same.

Really? They all look the same to me... weird...

[Mark- 31]

3 minutes ago, Remy Lebeau said:

Really? They all look the same to me... weird...

I guess you are not comparing them.

 

Not sure what you are trying to do Remy.

 

I wrote in the first post, I wanted to use the same script names that TFontDialog displayed.

The matrix I produced has the descriptions, the post you refer to does not have any descriptions used by TFontDialog.

I had to create a few descriptions because TFontDialog did not show the font.

 

Remy, I know you provide a lot of help on this forum and on other sites. And I have, many times, read your post and thought it was great.

I am not sure you are helping in this thread.

Edited just now by Mark-