XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Textvariationen mit der Grafik.inc
Befehle : Message,DrawGText
Message:              Bei Fehlern ist GError% = 1
1. Par              : Bei Fehlern Messagebox (0 = Nein,Ja voreingestellt)
DrawGText
1. Par              : Text, der gezeichnet werden soll (im gegensatz zum Profanbefehl, auch mehrzeilig, beibestimmten Stylen)
2. Par - 5. Par     : Ein Rechteck, dessen Seiten, die Textbegrenzung sind.
6. Par              : Die verschidenen Style
Style
^> = OL = Text grenzt an die obere linke Ecke (Standart Profan, Mehrzeilig möglich)
^  = OM = Text grenzt zentriert an die obere Kante (Mehrzeilig möglich)
^< = OR = Text grenzt an die obere rechte Ecke (Mehrzeilig möglich)
>  = ML = Text grenzt zentriert an die linke Kante
= MM = Text befindet sich im Mittelpunkt des Rechtecks
<  = MR = Text grenzt zentriert an die rechte Kante
v> = UL = Text grenzt an die untere linke Ecke
v  = UM = Text grenzt zentriert an die untere Kante
v< = UR = Text grenzt an die untere rechte Ecke
 $I Grafik.inc
declare Text$
WindowStyle 24
Windowtitle Textvariationen mit der Grafik.inc von Timo Schnitzer
Window 0,0 - 600,400
UseBrush 0,0
Text$ = Hallo!!!
DrawGText Text$,20,20,200,200,OL
DrawGText Text$,20,20,200,200,OM
DrawGText Text$,20,20,200,200,OR
DrawGText Text$,20,20,200,200,ML
DrawGText Text$,20,20,200,200,MM
DrawGText Text$,20,20,200,200,MR
DrawGText Text$,20,20,200,200,LU
DrawGText Text$,20,20,200,200,MU
DrawGText Text$,20,20,200,200,RU
Rectangle 20,20 - 220,220
DrawGText Text$,90,20,200,200,>^
DrawGText Text$,90,20,200,200,>
DrawGText Text$,90,20,200,200,>v
DrawGText Text$,490,20,200,200,<^
DrawGText Text$,490,20,200,200,<
DrawGText Text$,490,20,200,200,<v
DrawGText Text$,290,220,200,200,^<
DrawGText Text$,290,220,200,200,^
DrawGText Text$,290,220,200,200,^>
DrawGText Text$,290,-180,200,200,v<
DrawGText Text$,290,-180,200,200,v
DrawGText Text$,290,-180,200,200,v>
Rectangle 290,20 - 490,220
Text$ = Hallo!!!
Sage ich jedem,
dem es
gefällt,
und dem Rest
auch! :-)
UseBrush 1,Rgb(255,0,0)
Rectangle 75,270 - 440,400
TextColor Rgb(0,0,255),Rgb(0,255,0)
DrawGText Text$,75,270,365,130,OL
DrawGText Text$,75,270,365,130,OM
DrawGText Text$,75,270,365,130,OR
UseBrush 0,0
Rectangle 75,270 - 440,400
Waitinput
end