XProfan

'Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
'Mapa de bits: Farbe invertieren
'

Proc InvertRGBColor

    Parámetros color&
    Declarar i%

    Mientras que (i% < 24)' 24 Bit reichen - sonst Fehler bajo NT/2000

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

    Wend

    Volver color&

ENDPROC

'Ejemplo
Declarar color&
SetTrueColor 1
Cls
Título de la ventana "RGB-Farbe invertieren"
Let color&=RGB(0,0,255)
UseBrush 1, color&
DrawText 10,0,"Vorher"
Rectángulo 0,20 - 100,100
InvertRGBColor color&
Let color&=&(0)
UseBrush 1,&(0)
DrawText 110,0,"Nachher"
Rectángulo 100,20 - 200,100
WaitInput