XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Textbreite y Texthöhe en el Edición de Cuerdas bestimmen (en Pixel)
Def GetTextExtentPoint32(4) !GDI32,GetTextExtentPoint32A
Def GetDC(1) !USER32,GetDC
Def ReleaseDC(2) !USER32,ReleaseDC
cls
UseFont Arial,48,0,0,0,0;0

Proc GetTextExtent

    Parámetros _t$,_w%
    declarar _size#,_text#,_result&,_hdc&
    dim _text#,Len(_t $) + 1
    dim _size#,8
    String _text#,0 = _t$
    _hdc& = GetDC(GetActiveWindow())
    GetTextExtentPoint32(_hdc&,_text#,Len(_t $),_size#)
    _result& = Largo(_size#,4)
    Case _w% : _result& = Largo(_size#,0)
    ReleaseDC(GetActiveWindow(),_hdc&)
    disponer _text#
    disponer _size#
    volver _result&

ENDPROC

Proc GetStringHeight

    Parámetros _t$
    GetTextExtent _t$,0
    Volver &(0)

ENDPROC

Proc GetStringWidth

    Parámetros _t$
    GetTextExtent _t$,1
    Volver &(0)

ENDPROC

declarar StringBreite&,StringHoehe&,Texto$
text$ = Bueno Tag, más bien Computer!
GetTextExtent texto$,1
StringBreite& = &(0)
GetTextExtent texto$,0
StringHoehe& = &(0)
Cls
Imprimir
Imprimir  Texto:    + texto$
Imprimir  Breite:  + str$(Stringbreite&) +  Pixel
Imprimir  Höhe :    + str$(StringHoehe&) +  Pixel
WaitInput