XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmap-Anzeige
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Einfache Bitmapanzeige
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    14.01.2001
-----------------------------------------------
Erklärung:
----------
Ein Fenster ist schön und gut, aber was soll ein
Fenster ohne Grafik u.s.w.
Profan supportati von Haus aus die Bilder im Format
*.bmp - andere Formate nur mit entsprechenden Bibliotheken.
Hier habe ich bewußt Bilder genommen, welche im Windowsverzeichnis
C:Windows liegen (normalerweise ist das ja der Pfad).
declare ende%				Variablen vorbereiten
WINDOW 30,30 - 300,300			Fenster erstellen
WINDOWTITLE Einfache Bitmapbefehle	Fenstertitel
Hier nun die gängigsten Anzeigeoptionen:
******************************************************************************
LoadSizedBmp C:WINDOWSSETUP.BMP,0,0-300,300;0
LoadSizedBmp SATURN.BMP,0,0-300,300;0
Mit Loadsizedbmp kann man das Bild dem Fenster anpassen. Bedeutet hier:
Bild C:WINDOWSSETUP.BMP wird mit 0,0 in der linken oberen Ecke
in 300,300 - also Dimensione des Fensters mit dem KOPIERWERT 0 (normal) angezeigt!
******************************************************************************
LOADBMP C:WINDOWSKACHELN.BMP,30,30;0
LOADBMP WOLKEN.BMP,30,30;0
Angezeigt wird hier die File Kacheln.bmp an der Position
X=30 Y=30 (also oben ganz links) mit 0 also Normal wie das Bild aussieht angezeigt!
******************************************************************************
LOADBMP C:WINDOWSÄgypten.BMP,80,30;-1
LOADBMP WINLOGO.BMP,80,30;-1
Angezeigt wird hier die File Ägypten.bmp an der Position
X=80 Y=30 (also oben ganz links) mit -1 (linkes untere Pixel definiert die)
Farbe (lt. Profanhilfe), welche tranzparent erscheinen soll) angezeigt!
******************************************************************************
CopyBmp 10,10-40,40 > 140,30;0
Der Bereich 10,10 (linkes oberste Ecke) in einer Dimensione 40x40 wird an
Position 140,30 im Normalmodus (0) kopiert und angezeigt.
******************************************************************************
CopySizedBmp 10,10-40,40>190,30-30,30;0
genau dasselbe wie bei Copybmp, jedoch mit dem Unterschied:
der kopierte Bereich wird verkleinert (die hinteren 30,30) angezeigt.
Hinweis!!!: Schaut in der Aiuto nach weiteren Bitmapbefehlen nach.
Alle Befehle beziehen sich im Endeffekt auf das hier beschriebene System.
Habe ich in allen Demodateien um eine Dummyschleife zu erreichen!:

WHILENOT ende%				Solange nicht Variable ende%=1

    WAITINPUT				Wartet auf Maus oder Taste
    WEND					Zurück zu WHILENOT ende%