Fade zu Graustufen

[Corelgott]

Tach auch,

Grau? Da bitte:

Code:

procedure TDraw.MakeGray(Image : TBitmap; HowGray : Byte);
var i, j : integer;
    R, G, B, h : Byte;
    p: ^PixArray;

begin
  Image.PixelFormat := pf24bit;
  for i:=0 to Image.height - 1 do begin
    p := Image.ScanLine[i];
    for j:=0 to Image.width - 1 do begin
      R := p^[2];
      G := p^[0];
      B := p^[1];

      //h := (r+b+g) div 3;
      h:= HiByte(r*77+g*150+b*28);

      p^[2] := h + Round((R - h) / 255 * HowGray);
      p^[0] := h + Round((G - h) / 255 * HowGray);
      p^[1] := h + Round((B - h) / 255 * HowGray);

      inc(p);
    end;
  end;
end;

Das müsste ein Bild grau machen...


cya...
Corelgott