Kolor zdjęcia

0

Jak w najszybszy sposób zmienić odcień/kolor obrazka w Image ? Czyli jak nałożyć na cały komponent jakiś kolor ?

0

Canvas, wybrać kolor, narysować duży prostokąt

jeśli chcesz szybko zrobić "coś" to patrz tu:
Jak zrobić grę
=]

0

Nie może być tak bo do tego image sa wczytywane różne obrazki a mi chodzi tylko o nałożenie koloru jakiegoś xD

0

Spróbuj z tym

function IntToByte(i: integer):Byte;
begin
 if i > 255 then Result := 255
 else
 if i < 0 then Result := 0
 else Result := i;
end;

procedure Saturation(Bitmap: TBitmap; Amount: Integer);
var
ByteArray:pbytearray;
Gray,r,g,b,x,y: Integer;
begin
  for y:=0 to Bitmap.Height-1 do begin
    ByteArray:=Bitmap.scanline[y];
    for x:=0 to Bitmap.Width-1 do
    begin
      r:=ByteArray[x*3];
      g:=ByteArray[x*3+1];
      b:=ByteArray[x*3+2];
      Gray:=(r+g+b)div 3;
      ByteArray[x*3]:=IntToByte(Gray+(((r-Gray)*Amount)div 255));
      ByteArray[x*3+1]:=IntToByte(Gray+(((g-Gray)*Amount)div 255));
      ByteArray[x*3+2]:=IntToByte(Gray+(((b-Gray)*Amount)div 255));
    end;
  end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1