XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmaps: Größe eines Bitmaps ermitteln (über Zwischenablage)
Settruecolor 1 Farbe auf Truecolor setzen
Cls @rgb(0,255,255) Fenster farbig öffnen
Damit sich etwas in Zwischenablage befindet, wird an dieser Stelle einfach
etwas hineinkopiert
==========================================================================
SaveBmpToClip 0,0 - 200,300 Bildschirmausschnitt in die Zwischenablage
cls Fensterinhalt löschen
mcls %maxx,%maxy Speicherbereich reservieren
startpaint -1 Umleitung in den Speicher
ClipLoadBmp 0,0;0 Bitmap aus der Zwischenablage in den Speicher
endpaint
Hier kann jetzt die Größe der Bitmap mit %BMPX und %BMPY abgefragt werden
=========================================================================
print %bmpx,%bmpy Abfrage der größen X und Y
waitinput Warten auf Eingabe
mcopysizedbmp 0,0-%bmpx,%bmpy >  Bildschirmausgabe
0,0-div(%bmpx,2),div(%bmpy,2);0 X und Y sind halbiert
waitinput Warten
end Ende