Cores - inverter color

Top  Previous  Next

// funcao inverte uma cor

// exemplo preto vira branco

//         azul vira amarelo...

 

function InverteColor(const Cor: TColor): TColor;

begin

  Result := RGB(255 - GetRValue(Cor), 255 - GetGValue(Cor), 255 - GetBValue(Cor));

end;