Kode sederhana membuat tampilan Bitmap menjadi negatif

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 to Kode sederhana membuat tampilan Bitmap menjadi negatif

  1. setiawan says:

    apa aja yg di butuhkan untuk membbuat itu
    selain button
    bisa di jelaskan P
    sy mau mencobanya 🙂

  2. Imam Chalimi says:

    cuman 3 macam komponen:
    TButton, TImage dan TOpenPictureDialog

    download aja contoh aplikasinya

  3. fahrudin says:

    mantep pak trims ilmunya

  4. ibnu says:

    maaf pak/maz saya mau tanya . . .

    misal pengambilann gambarnya minta yang JPG dan jenis laiinya, ,apa ngaruh di Source codenya , , ???

    terima kasih

  5. Imam Chalimi says:

    pada contoh diatas itu bisa untuk bmp maupun jpg, kalo untuk format lain harus di sertakan unit (uses) yang mendukung format ybs

Leave a Reply

Your email address will not be published.