Código Delphi [-] colneg := rgb(255 - GetRValue((Color1)), 255 - GetGValue((Color1)), 255 - GetBValue((Color1)));
colneg := rgb(255 - GetRValue((Color1)), 255 - GetGValue((Color1)), 255 - GetBValue((Color1)));