XProfan

'Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) into Babyklappe on XProfan.com stored:
'Bitmap: colour invertieren
'

Proc InvertRGBColor

    Parameters color&
    Declare i%

    While (i% < 24)' 24 bit wealthy - otherwise Error NT/2000

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

    Wend

    Return color&

ENDPROC

'example
Declare color&
SetTrueColor 1
Cls
Window Title "RGB-colour 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