XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Bitmaps: Bitmap spiegeln
PRFellow-Présentation
Autor: Thomas Bois - Alle Rechte vorbehalten
Bitmap spiegeln
Pour Avancé Opportunités siehe win32.hlp trop
Def StretchBlt(11) !GDI32,StretchBlt

Proc FlipFileBmpH

    Paramètres f$,x%,y%,w%,h%
    LoadSizedBmp f$,Ajouter(x%,w%),y% - Mul(w%,-1),h%;1

ENDPROC

Proc FlipFileBmpV

    Paramètres f$,x%,y%,w%,h%
    LoadSizedBmp f$,x%,Ajouter(y%,h%) - w%,Mul(h%,-1);1

ENDPROC

Beispiel
Cls
LoadSizedBmp Ajouter$($WinPath,LOGOW.SYS),10,10-250,200;1
LoadSizedBmp SATURN.BMP,10,10-250,200;1
WaitInput
Cls
FlipFileBmpH Ajouter$($WinPath,LOGOW.SYS),10,10,250,200
FlipFileBmpH SATURN.BMP,10,10,250,200
WaitInput
Cls
FlipFileBmpV Ajouter$($WinPath,LOGOW.SYS),10,10,250,200
FlipFileBmpV SATURN.BMP,10,10,250,200
WaitInput