Barevné složky – Delphi – Fórum – Programujte.com

Zdravím, mám problém se svou dlouhodobou maturitní prací. Mám nějaky bmp obrázek a chci z něj vytáhnout jednotlivé barevné složky (RGB). Podařilo se mi obrázek převést na červenou,ale stejným postupem mi ze záhadných důvodů nejde na zelenou a modrou. Poradíte mi? Díky, F.M.
Přídávám zdrojový kód převodu na červenou:

procedure TForm2.RadioButton1Click(Sender: TObject);

var  x,y: integer;

     c: TColor;

     r,g,b: byte;

begin

   for x := 0 to Image2.Width do

   begin

      Image2.Repaint;



      for y := 0 to Image2.Height do

      begin

         c := Image1.Canvas.Pixels[x,y];

         r := (c and $0000FF);

         g := (c and $00FF00);

         b := (c and $FF0000);

         Image2.Canvas.Pixels[x,y] := r

      end

   end;

end;

Problém je v tom, že máš r,g,b jako byte. U červené to ještě projde, ale ty ostatní musí být vždy 0 (v masce je dolní bajt nulový). Udělej z r,g,b třeba taky TColor (pro zobrazení) nebo (pokud to chceš v jednotlivých bajtech) to po vymaskování musíš posunout do dolního bajtu.

Tak to bylo jednodušší než jsem myslel, díky moc:-)