Virgonia, Delphi dan Interbase

Berikut ini contoh kode sederhana untuk merubah tampilan gambar bitmap menjadi menjadi negatif.

Klik Load Image untuk memuat gambar dari file (jpg/bmp) dan Klik Invert untuk membalik tampilannya.

Kodenya cukup singkat cuman beberapa baris

procedure TForm1.Button1Click(Sender: TObject);
begin
     if OpenPictureDialog1.Execute then
     begin
          Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
          Button2.Enabled:=True;
     end else
     begin
          Image1.Picture:=nil;
          Button2.Enabled:=False;
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   b: TBitmap;
   x,y: Integer;
   ba: PByteArray;
begin
     b:=TBitmap.Create;
     b.Assign(Image1.Picture.Graphic);
     b.PixelFormat:=pf24bit;
     for y:=0 to b.Height-1 do
     begin
          ba:=b.ScanLine[y];
          for x:=0 to b.Width*3-1 do
              ba[x]:=255-ba[x];
     end;
     Image2.Picture.Bitmap.Assign(b);
     b.Free;
end;

Contoh aplikasi selengkapnya bisa di download di …
https://www.box.com/s/rnvjn3jgfeqaj6qyogf2