XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Bitmap-Anzeige
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Simple Bitmapanzeige
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
date:    14.01.2001
-----------------------------------------------
Erklärung:
----------
un la fenêtre ist joli et bien, mais quoi soll un
la fenêtre sans Grafik u.s.w.
Profan soutenu de maison aus qui Bilder im Format
*.bmp - autre Formate seulement avec entsprechenden Bibliotheken.
ici habe je bewußt Bilder pris, quelle im Windowsverzeichnis
C:Windows liegen (normalement ist cela oui qui Pfad).
declare ende%				Variablen vorbereiten
WINDOW 30,30 - 300,300			la fenêtre erstellen
WINDOWTITLE Simple Bitmapbefehle	Fenstertitel
ici eh bien qui gängigsten Anzeigeoptionen:
******************************************************************************
LoadSizedBmp C:WINDOWSSETUP.BMP,0,0-300,300;0
LoadSizedBmp SATURN.BMP,0,0-300,300;0
avec Loadsizedbmp peux on cela Bild dem la fenêtre anpassen. Bedeutet ici:
Bild C:WINDOWSSETUP.BMP wird avec 0,0 dans qui linken oberen coin
dans 300,300 - alors Taille des Fensters avec dem KOPIERWERT 0 (normal) angezeigt!
******************************************************************************
LOADBMP C:WINDOWSKACHELN.BMP,30,30;0
LOADBMP WOLKEN.BMP,30,30;0
Angezeigt wird ici qui Dossier Kacheln.bmp à qui Position
X=30 Y=30 (alors dessus entier à gauche) avec 0 alors Normal comment cela Bild aussieht angezeigt!
******************************************************************************
LOADBMP C:WINDOWSÄgypten.BMP,80,30;-1
LOADBMP WINLOGO.BMP,80,30;-1
Angezeigt wird ici qui Dossier Ägypten.bmp à qui Position
X=80 Y=30 (alors dessus entier à gauche) avec -1 (linkes untere Pixel défini qui)
la couleur (lt. Profanhilfe), quelle tranzparent erscheinen soll) angezeigt!
******************************************************************************
CopyBmp 10,10-40,40 > 140,30;0
qui Bereich 10,10 (linkes oberste coin) dans einer Taille 40x40 wird à
Position 140,30 im Normalmodus (0) kopiert et angezeigt.
******************************************************************************
CopySizedBmp 10,10-40,40>190,30-30,30;0
oui c'est ca même chose comment chez Copybmp, cependant avec dem Unterschied:
qui kopierte Bereich wird verkleinert (qui hinteren 30,30) angezeigt.
Hinweis!!!: Schaut dans qui Aider pour weiteren Bitmapbefehlen après.
Alle Befehle beziehen sich im Endeffekt sur cela ici beschriebene System.
Habe je dans allen Demodateien um une Dummyschleife trop erreichen!:

WHILENOT ende%				Solange pas Variable ende%=1

    WAITINPUT				Wartet sur souris ou bien bouton
    WEND					Zurück trop WHILENOT ende%