- - - Menu - - -

 » Datum a Čas
 » Soubory a složky
 » Systém
 » Text
 » Grafika
 » Zvuk
 » Kontroly
 » Ochrany
 » Delphi

 » Odkazy



- - - Info - - -

GimiWeb
Top Wallpapers
Cars Wallpapers
Základy HTML
Delphi kódy
Gimi Fotogalerie
Gimi Software
Kozel zahradník
FotoSpace

Gimi © 2016


  

Zpět
Negativ obrázku
 08.12.2009  

Úvod

Funkce pro inverzi barev obrázku. Na form vložíme 2x Image a do prvního natáhneme fotku ve formátu bmp. Po stisku tlačítka dojde k převodu.

Prvky

  • Button1 (Caption: Negativ)
  • Image1 (Picture: TBitmap)
  • Image2 (Stretch: True)

    Kód

    procedure TForm1.Button1Click(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) shr 8;
    b := (c and $FF0000) shr 16;
    r := 255-r;
    g := 255-g;
    b := 255-b;
    Image2.Canvas.Pixels[x,y] := r + g shl 8 + b shl 16;
    end
    end;
    end;

    Snímek