Chciałbym przedstawić sposób na zabarwienie obrazka jednym kolorem. Procedura najpierw oblicza wartość nasycenia wybranego koloru, a następnie usuwa dwa pozostałe. Ze względu na powolne działanie, procedura sprawdza się bardzo dobrze jedynie przy obrazkach niewielkich rozmiarów. [crayon-6628e25380e08513058359/] W tej procedurze zabarwiamy rysunek na czerwony, aby wykonać to dla barwy zielonej lub niebieskiej wystarczy zmienić Pixels[x,Y]:=RGB(Nasycenie,0,0); na : zielony : Pixels[x,Y]:=RGB(0,Nasycenie,0); niebieski : Pixels[x,Y]:=RGB(0,0,Nasycenie); Autor: Nakiel Nakiel

Zabarwienie obrazka - Unit1.pl - Programowanie

Zabarwienie obrazka

Chciałbym przedstawić sposób na zabarwienie obrazka jednym kolorem. Procedura najpierw oblicza wartość nasycenia wybranego koloru, a następnie usuwa dwa pozostałe. Ze względu na powolne działanie, procedura sprawdza się bardzo dobrze jedynie przy obrazkach niewielkich rozmiarów.

procedure Zabarwianie(C:TCanvas);

var x, y: integer;

  Kolor: LongInt;

  R, G, B, Nasycenie: Byte;

begin

  with C do

    for x:= ClipRect.Left to ClipRect.Right do

      for y:= ClipRect.Top to ClipRect.bottom do

      begin

        Kolor:=ColorToRGB(Pixels[x,Y]);

        R := GetRValue(Kolor);

        G := GetGValue(Kolor);

        B := GetBValue(Kolor);

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

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

      end;

end;

procedure Zabarwianie(C:TCanvas);

var x, y: integer;

Kolor: LongInt;

R, G, B, Nasycenie: Byte;

begin

with C do

for x:= ClipRect.Left to ClipRect.Right do

for y:= ClipRect.Top to ClipRect.bottom do

begin

Kolor:=ColorToRGB(Pixels[x,Y]);

R := GetRValue(Kolor);

G := GetGValue(Kolor);

B := GetBValue(Kolor);

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

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

end;

W tej procedurze zabarwiamy rysunek na czerwony, aby wykonać to dla barwy zielonej lub niebieskiej wystarczy zmienić Pixels[x,Y]:=RGB(Nasycenie,0,0); na :

zielony : Pixels[x,Y]:=RGB(0,Nasycenie,0);
niebieski : Pixels[x,Y]:=RGB(0,0,Nasycenie);

Autor: NakielNakiel