Einzelnen Beitrag anzeigen

Reinhard Kern

Registriert seit: 22. Okt 2006
772 Beiträge
 
#6

Re: Fonts (Größe und Namen)

  Alt 22. Apr 2007, 13:05
Zitat von Alter Mann:
Hallo,

ich werkel seit ein paar Tagen (Länger als mir lieb ist) daran herum,
die Schriftgrößen eines 'gesetzten' Font zuermitteln.
Dazu habe ich hier im Forum einiges gefunden, aber auch bei Delphi-Treff.
Dazu kommt das in der MSDN auch noch steht, dass ab
Windows 2000/XP die jeweiligen Strukturen andere sind
die bei der jeweiligen Callback-Routine aufgerufen werden.

Im Anhang befindet sich der Code eines kleinen Prog, indem allen bekannten Funktionen
genutzt werden können, aber es kommen so irrsinnige Werte dabei raus.
Vielleicht könnte ja der Eine oder Andere Mal raufschauen und schreiben woran es liegt.

Für Verbesserungen wäre ich sehr dankbar.

w.i.

Gruß
Alter Mann
Hallo,

da keine EXE dabei ist, war es mir zuviel Arbeit, das ganze zu installieren und neu zu übersetzen, aber ich füge dir einige Tabellenausdrucke für ArialN bei, vielleicht kannst du ja deine Werte damit überprüfen. Verwendet habe ich die ArialN aus Windows2000, liegt sicherheitshalber ebenfalls bei. Zum Beipiel die Tabelle "OS/2":

'OS/2' Table - OS/2 and Windows Metrics
---------------------------------------
Size = 86 bytes (expecting 78 bytes)
'OS/2' version: 1
xAvgCharWidth: 741
usWeightClass: 400
usWidthClass: 3
fsType: 0x0000
ySubscriptXSize: 1434
ySubscriptYSize: 1331
ySubscriptXOffset: 0
ySubscriptYOffset: 147
ySuperscriptXSize: 1434
ySuperscriptYSize: 1331
ySuperscriptXOffset: 0
ySuperscriptYOffset: 523
yStrikeoutSize: 102
yStrikeoutPosition: 530
sFamilyClass: 8 subclass = 5
PANOSE: 2 11 5 6 2 2 2 3 2 4
Character Range: 0x87020000000000000000000000000000
achVendID: 'MONO'
fsSelection 0x0040
usFirstCharIndex: 0x0020
usLastCharIndex: 0xFB02
sTypoAscender 1491
sTypoDescender -431
sTypoLineGap 269
usWinAscent 1888
usWinDescent 431

Gruss Reinhard
  Mit Zitat antworten Zitat