XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Textausgabe mit DrawText
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Ausgabe mittels Drawtext
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    11.01.2001
-----------------------------------------------
Erklärung:
----------
Der Printbefehl ist schön und gut, aber:
Es gibt einen mächtigeren Ausgabebefehl: DRAWTEXT!
DECLARE ende%					Variablen vorbereiten
Window 30,30 - 300,300				Fenster erstellen
Windowtitle Demo Drawtext			Titel des Fensters
SetTrueColor 1
Loadbmp C:WINDOWSSETUP.BMP,0,0;0		Zum Test ein vorhandenes Bild
Loadbmp WOLKEN.BMP,0,0;0			aus dem Windowsverzeichnis an
der ganz rechten obersten Ecke laden
die letzte 0 ist gleich normal (nicht Negativ oder so)
Hier werden nun die Vorbereitungen getroffen.
UseFont Times New Roman,30,0,1,0,0
Schrift ist hier Times New Roman (immer Schriften verwenden, die auf jedem System sind)
30 ist die Schrifthöhe
0=Schriftbreite (0 ist immer die von Profan genutzte Schriftbreite)
1=fett - normal wäre 0
0=gerade (normal) 1 wäre schräg
0=normal 1 wäre Unterstrichen
TextColor @RGB(10,10,10),-1
Die Farbe für den Text bestimmen. -1 ist vorhandener Hintergrund
Drawtext 18,73,Drawtextdemo
Text schreiben Position x=20 y=100
Und hier noch zum Beispiel einen Text darüberlegen:
UseFont Times New Roman,30,0,1,0,1
TextColor @RGB(100,220,220),-1
Drawtext 20,75,Drawtextdemo
Noch ein Test:
UseFont ARIAL,15,8,1,1,0
TextColor @RGB(100,120,220),-1
Drawtext 20,130,... sieht doch gut aus..., oder?

Whilenot ende%					Programm durchlaufen bis Endeschalter ende%=1

    waitinput					Wartet auf Maus oder Taste
    Wend						Zurück zu 4 href='./../../function-references/xprofan/whilenot/'>Whilenot ende%