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
5 Comments