Das deutschsprachige Forum für Entwickler in der Xbase-Welt, ein Angebot des Deutschsprachige Xbase-Entwickler e. V.
https://xbaseforum.de/
Code: Alles auswählen
/// <summary>
/// <para>
/// <bold>Zweck:</bold> Die exakte Länge eines Textstrings feststellen
/// </para>
/// <para>
/// <bold>Parameter:</bold> oParent, cText, cFont
/// </para>
/// <para>
/// <bold>Beispiel:</bold>
/// </para>
/// </summary>
/// <returns>
/// nLaenge
/// </returns>
///
FUNCTION TextLaenge(oParent, cText, cFont)
LOCAL oPs := NIL
LOCAL nLaenge := 0
LOCAL aTextBox := {}
LOCAL oFont := NIL
// Presentationspace für die Gra...()-Funktion erstellen
oPs := XbpPresSpace():New()
oPs:Create(oParent:WinDevice(), oParent:currentSize(), GRA_PU_LOMETRIC)
// Die korrekte Schrift setzen, damit die Textlänge stimmt
IF cFont <> NIL
oFont := xbpFont():new(oPs)
oFont:create(cFont)
GraSetFont(oPs, oFont)
ENDIF
// Die Länge berechnen
aTextBox := GraQueryTextBox(oPs, cText)
nLaenge := aTextBox[3,1] - aTextBox[2, 1]
// Aufräumen
vernichteObjekt(oPs)
RETURN nLaengeCode: Alles auswählen
@ 20,200 dcget aGets[1] getsize 300,20 PIXEL
nPos := 200 - TextLaenge(AppDesktop(), "Datum" , "8.Arial" )-1 // links für say
@ 20,nPos dcsay "Datum" font "8.Arial" PIXEL
---