XProfan

 $H Windows.ph
Declare Textmetric#,Buffer#
Dim TextMetric#,56
Dim Buffer#,260
cls
UseFont "Arial",24,0,1,0,0
Color 12,15
~GetTextMetrics(%hdc,TextMetric#)
Print "Fonthöhe  ",Long(Textmetric#,0)

If Long(Textmetric#,28) <> 400

    Print "           fett"

Else

    Print "           nicht fett"

Endif

If Byte(Textmetric#,49)

    Print "           unterstrichen"

Else

    Print "           nicht unterstrichen"

Endif

If Byte(Textmetric#,48)

    Print "           kursiv"

Else

    Print "           nicht kursiv"

Endif

Print "Farbe      $";Hex$(~GetTextColor(%hdc))
~GetTextFace(%hdc,260,Buffer#)
Print "Fontname  ",String$(Buffer#,0)
DrawText 0,90,"Testtext"
waitinput
Dispose TextMetric#
Dispose Buffer#
end