Graphic Delphi

  1. Home
  2. Delphi
  3. Graphic
  4. Renklerin tersinin alınması
function tform1.negatifrenk(renk:Tcolor):Tcolor;
var r,g,b:Byte;
begin
R:=255-GetRValue(renk);
G:=255-GetgValue(renk);
b:=255-GetbValue(renk);
result:=rgb(R,G,b);
end;