XProfan

Français

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Textbreite et Texthöhe chez qui Ausgabe de Cordes bestimmen (dans 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

    Paramètres _t$,_w%
    declare _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& = Long(# _size,4)
    Cas _w% : _result& = Long(# _size,0)
    ReleaseDC(GetActiveWindow(),_hdc&)
    dispose _TEXT#
    dispose _size#
    return _result&

ENDPROC

Proc GetStringHeight

    Paramètres _t$
    GetTextExtent _t$,0
    Retour &(0)

ENDPROC

Proc GetStringWidth

    Paramètres _t$
    GetTextExtent _t$,1
    Retour &(0)

ENDPROC

declare StringBreite&,StringHoehe&,Text$
text$ = Guten journée, lieber ordinateur!
GetTextExtent text$,1
StringBreite& = &(0)
GetTextExtent text$,0
StringHoehe& = &(0)
Cls
Imprimer
Imprimer  Text:    + text$
Imprimer  Breite:  + str$(Stringbreite&) +  Pixel
Imprimer  Hauteur :    + str$(StringHoehe&) +  Pixel
WaitInput