Image einfärben

[MoBe13]

Dieser Bursche ist glaub ich am angenehmsten...
Prozentrechnung beherrsche ich -> jetzt muss ich nur noch den Wert kennen, den ich malträtieren darf

Delphi-Quellcode:

procedure Faerben(C:TCanvas);
var x, y: integer;
  Color: LongInt;
  R, G, B, Gr: Byte;
begin
  with C do
    for x:= ClipRect.Left to ClipRect.Right do
      for y:= ClipRect.Top to ClipRect.bottom do
      begin
        Color:=ColorToRGB(Pixels[x,Y]);

        R := GetRValue(Color);
        G := GetGValue(Color);
        B := GetBValue(Color);

        Gr := Trunc(B*0.11+G*0.59+R*0.3);

        Pixels[x,Y]:=RGB(Gr,0,0);

      end;
end;