Selbstgestrickte Schriftrichtung

[horsthorn]

Manchmal ist der XProfan-Befehl "Orientation" nicht so praktisch, weil er immer nach Ausführung wieder neutralisiert werden muss. Für mein Diagramm-Programm habe ich mir daher für senkrechten Text etwas "selbst gestrickt" - wer es brauchen kann...

PROC SCHRIFT_RUNTER 'von Oben nach Unten
PARAMETERS spalte%,zeile%,font$,gross%,text$
VAR einzel% = 1
VAR laenge% = LEN(text$)
USEFONT font$,gross%,0,1,0,0
WHILELOOP einzel%,laenge%
DRAWTEXT spalte%,zeile%,MID$(text$,einzel%,1)
zeile% = (zeile%+(gross%-3))
INC einzel%
ENDWHILE
ENDPROC
'-----------------------------------------------------------------
PROC SCHRIFT_HOCH 'von Unten nach Oben
PARAMETERS spalte%,zeile%,font$,gross%,text$
VAR einzel% = 1
VAR laenge% = LEN(text$)
USEFONT font$,gross%,0,1,0,0
WHILELOOP einzel%,laenge%
DRAWTEXT spalte%,zeile%,MID$(text$,einzel%,1)
zeile% = (zeile%-(gross%-3))
INC einzel%
ENDWHILE
ENDPROC
'------------------------------------------------------------------
CLS
TEXTCOLOR RGB(200,0,0),-1
SCHRIFT_RUNTER 50,40,"COURIER NEW",14,"Max Mustermann"
TEXTCOLOR RGB(0,0,200),-1
SCHRIFT_HOCH 100,300,"COURIER NEW",14,"12345 Musterstadt"
WAITINPUT
END

[Frabbing]

Funktioniert.

Bei proportionalen Schriften allerdings sieht's sehr unfein aus.

[p. specht]

Hmmmm... Bei welcher Gelegenheit käme "von unten nach oben" zum Einsatz? Aber Gratulation, es funktioniert!

[horsthorn]

Von "Unten nach Oben" ist quasi ein Abfallprodukt - anstelle von + ein - und schon klappt es

@Frank
Deshalb auch "Courier New" - ist auf jedem System vorhanden.