XProfan

'Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
'Bitmap: la couleur invertieren
'

Proc InvertRGBColor

    Paramètres color&
    Déclarer i%

    Tandis que (i% < 24)' 24 Bit reichen - sonst faute sous NT/2000

        Laisser color&=SetBit(color&,i%,Not(Test peu(color&,i%)))
        Inc i%

    Wend

    Retour color&

ENDPROC

'Beispiel
Déclarer color&
SetTrueColor 1
Cls
Titre de la fenêtre "RGB-la couleur invertieren"
Laisser color&=RGB(0,0,255)
UseBrush 1, color&
DrawText 10,0,"Vorher"
Rectangle 0,20 - 100,100
InvertRGBColor color&
Laisser color&=&(0)
UseBrush 1,&(0)
DrawText 110,0,"Nachher"
Rectangle 100,20 - 200,100
WaitInput