XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Grafik: Fonthöhe für Bildschirmausgabe aus Fontgröße berechnen
PRFellow-Vorlage
Autor: Thomas Hölzer
Fonthöhe für Bildschirmausgabe aus Fontgröße berechnen
Def MulDiv(3) !KERNEL32,MulDiv
Def GetDeviceCaps(2) !GDI32,GetDeviceCaps
Def GetFontHeight(1) Int(Mul(MulDiv(&(1),GetDeviceCaps(%hdc,90),72),-1))
Def GetTextMetrics(2) !GDI32,GetTextMetricsA
Beispiel
Declare tm#
Dim tm#,56
Cls
UseFont Arial,GetFontHeight(14),0,0,0,0
GetTextMetrics(%hdc,tm#)
DrawText 10,10,Add$(Arial Größe 14 hat die mit GetFontHeight ermittelte Höhe ,
Str$(GetFontHeight(14)))
UseFont Arial,Long(tm#,0),0,0,0,0
DrawText 10,60,Add$(Dies entspricht in der Ausgabe dem positiven Wert ,Str$(Long(tm#,0)))
Dispose tm#