XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
MultiEdit: Zeilenhöhe bestimmen
Def GetDC(1) !USER32,GetDC
Def GetTextExtentPoint32(4) !GDI32,GetTextExtentPoint32A
Def IsWindow(1) !USER32,IsWindow
Def ReleaseDC(2) !USER32,ReleaseDC
Declare _text#
Declare _size#

Proc GetRowHeight

    Parameters hedit&
    Declare h&,dc&
    Case Equ(IsWindow(hedit&),0): Return -1
    Dim _text#,2
    Dim _size#,8
    String _text#,0=W
    Let dc&=GetDC(hedit&)
    GetTextExtentPoint32(dc&,_text#,1,_size#)
    Let h&=Long(_size#,4)
    Dispose _text#
    Dispose _size#
    ReleaseDC(hedit&,dc&)
    Return h&

EndProc

Beispiel
Declare hedit&
Cls RGB(23,23,23)
Let hedit&=CreateMultiEdit(%hwnd,,20,40,200,200)
GetRowHeight hedit&
Print Zeilenhöhe des MultiEdit:,Str$(&(0))

While 1

    WaitInput

Wend