Farben mischen mit Deckkraft

[Christian18]

Hallo,

ich habe das mal probiert. Meiner meinung nach passiert da nichts:

Delphi-Quellcode:

function TForm2.Mischen(Pixel, Mischen : TColor; Percent : Integer) : TColor;
  var Farbe1, Farbe2, Farbe3 : TFarbe;
begin
  // RGB auslesen
  with Farbe1 do
    begin
      R:=GetRValue(Pixel);
      G:=GetGValue(Pixel);
      B:=GetBValue(Pixel);
    end;
  with Farbe2 do
    begin
      R:=GetRValue(Mischen);
      G:=GetGValue(Mischen);
      B:=GetBValue(Mischen);
    end;

  with Farbe3 do
    begin
      R:=Round(Farbe1.R - ((Farbe2.R * Percent) / 100));
      G:=Round(Farbe1.G - ((Farbe2.G * Percent) / 100));
      B:=Round(Farbe1.B - ((Farbe2.B * Percent) / 100));

      Result:=RGB(R, G, B);
    end;
end;