XProfan

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

Proc InvertRGBColor

    Parameters color&
    Declare i%

    While Lt(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,Original
Rectangle 0,20 - 100,100
InvertRGBColor color&
Let color&=&(0)
UseBrush 1,&(0)
DrawText 110,0,Invertiert
Rectangle 100,20 - 200,100
WaitInput