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
apa aja yg di butuhkan untuk membbuat itu
selain button
bisa di jelaskan P
sy mau mencobanya 🙂
cuman 3 macam komponen:
TButton, TImage dan TOpenPictureDialog
download aja contoh aplikasinya
mantep pak trims ilmunya
maaf pak/maz saya mau tanya . . .
misal pengambilann gambarnya minta yang JPG dan jenis laiinya, ,apa ngaruh di Source codenya , , ???
terima kasih
pada contoh diatas itu bisa untuk bmp maupun jpg, kalo untuk format lain harus di sertakan unit (uses) yang mendukung format ybs