XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Textweite bestimmen
goto weiter    damit kann das Testprogramm angesprungen werden.
Beschreibung der Prozedur TextWeite.   Version 2.2  19.7.2002.
Autor: Gerhard Putschalka
email: g.putschalka@web.de
homepage: http://members.telering.at/g.putschalka/index.html
Bestimme Weite eines Textes.
Die Textweite ist u.a. erforderlich wenn ein mit Drawtext auszugebender Text
ausgerichtet dargestellt werden soll.
Zum Unterschied zur Version 2.0 wo eine Bereichsvariable für den zu prüfenden Text
verwendet wurde wird hier in der Version 2.2 eine normale Stringvariable benutzt.
Aufruf der Prozedur:
TextWeite Text$,OpCod%
Text$  ... Stringvariable mit dem Text, dessen Weite festzustellen ist.
OpCod% ... steuert ob die Weite für die Ausgabe zum Schirm oder zum Drucker
berechnet werden soll. 0 = Schirm, 1 = Drucker
Return: in @&(0) steht die Textweite.
Bei der Ausgabe zum Drucker wird die errechnete TextWeite durch 10 dividiert.
Im Testprogramm werden verschiedene Schriftarten benutzt und die Schriftfarbe ist hier
violett. Beides ist hier nur zur Demonstration. Normalerweise wird man eine Schriftart
und Schriftgröße und die Farbe schwarz anwenden.
weiter:
============
Testprogramm
============
 $I QTxtWeit.inc

Proc Schreibe_Zeile

    Parameters Anzahl%,Text$,Währung$,Preis$,Ctrl%
    Declare XPos%,Zw$
    die Stückzahl soll rechtsbündig ausgerichtet sein. Daher Textweite der Anzahl
    feststellen, vom Fixwert (hier 50) subtrahieren, ergibt die horizontale
    Anfangsposition (XPos%)
    Text in Bereichsvariable stellen
    Zw$=@Str$(Anzahl%)
    TextWeite Zw$,Ctrl%
    Let XPos% = (50 - @&(0))   XPos% = 50 : ist rechtsbündige Position
    DrawText XPos%,Y%,@Str$(Anzahl%)
    der Artikeltext und die Währung sind linksbündig, daher keine Berechnung
    der XPos% notwendig
    DrawText 60,Y%,Text$
    DrawText 200,Y%,Währung$
    der Betrag soll kommagerecht ausgerichtet sein. Daher wird nur der Betrag vor dem
    Komma zur Längenberechnung herangezogen
    Let Zw$ = @Substr$(Preis$,1,,)   ganze DEM
    TextWeite Zw$,Ctrl%
    Let XPos% = (280 - @&(0))
    DrawText XPos%,Y%,Preis$
    Let Y% = Y% + 20   update Höhe für nächste Zeile
    Return

EndProc

====
Main
====
Declare Y%
windowtitle Test für TextWeite
WindowStyle 16
Window 0,0-800,550
settruecolor 1
cls @RGB(255,255,255)
============================
---- Teil der angezeigt wird
UseFont Arial,16,0,0,0,0
TextColor @RGB(200,0,200),-1
Let Y% = 50     Beginn der ersten Zeile
Schreibe_Zeile 2,Autoreifen,DEM,300,00,0
UseFont Times New Roman,20,0,0,0,0
Schreibe_Zeile 10,Schrauben,DEM,3,50,0
UseFont Courier New,16,0,0,0,0
Schreibe_Zeile 200,Blumenvasen,DEM,1500,00,0
UseFont Courier New,14,0,0,0,0
Schreibe_Zeile 9,Pannendreiecke,DEM,27,99,0
UseFont Times New Roman,18,0,0,0,0
DrawText 50,(Y% + 40),Zum Beenden Eingabetaste drücken
============================
---- dasselbe nochmals an den Drucker
StartPrint
UseFont Arial,16,0,0,0,0
TextColor @RGB(200,0,200),-1
Let Y% = 50     Beginn der ersten Zeile
Schreibe_Zeile 2,Autoreifen,DEM,300,00,1
UseFont Times New Roman,20,0,0,0,0
Schreibe_Zeile 10,Schrauben,DEM,3,50,1
UseFont Courier New,16,0,0,0,0
Schreibe_Zeile 200,Blumenvasen,DEM,1500,00,1
UseFont Courier New,14,0,0,0,0
Schreibe_Zeile 9,Pannendreiecke,DEM,27,99,1
EndPrint
waitinput
end