XProfan

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'Bitmap: Farbe invertieren
'

Proc InvertRGBColor

    Parameters color&
    Declare i%

    While (i% < 24)' 24 Bit reichen - sonst Fehler unter NT/2000

        Let color&=SetBit(color&,i%,Not(TestBit(color&,i%)))
        Inc i%

    Wend

    Return color&

EndProc

'Beispiel
Declare color&
SetTrueColor 1
Cls
WindowTitle "RGB-Farbe invertieren"
Let color&=RGB(0,0,255)
UseBrush 1, color&
DrawText 10,0,"Vorher"
Rectangle 0,20 - 100,100
InvertRGBColor color&
Let color&=&(0)
UseBrush 1,&(0)
DrawText 110,0,"Nachher"
Rectangle 100,20 - 200,100
WaitInput