Jak w najszybszy sposób zmienić odcień/kolor obrazka w Image ? Czyli jak nałożyć na cały komponent jakiś kolor ?
0
0
Canvas, wybrać kolor, narysować duży prostokąt
jeśli chcesz szybko zrobić "coś" to patrz tu:
http://4programmers.net/Delphi/Artykuły/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;
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.