Background Gambar Pada Form

21 05 2011

Pada tip sebelumnya, Anda membuat aplikasi background gradasi warna pada form dan mungkin tampilan form Anda sudah sangat menarik. Tetapi cobalah tip berikut ini, menampilkan background gambar berwarna pada form.

Cara pembuatannya adalah sebagai berikut :

  1. Buat aplikasi baru, pada form tambahkan 2 buah component PaintBox (terdapat dalam component pallete system). Untuk ukuran component PaintBox dapat Anda sesuaikan dengan selera Anda.
  2. Setelah Anda mendesain form tersebut, sekarang ketik listing program berikut ini pada kejadian OnPaint milik kedua component PaintBox untuk membuat gambar pada component tersebut.
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with Sender As TPaintBox do
  begin
  Canvas.Pen.Color:=clBlue;
  Canvas.Polyline([Point(40,10),Point(20,60),Point(70,30),Point(10,30),Point(60,60),Point(40,10)]);
  Canvas.Pen.Color:=clRed;
  Canvas.Polyline([Point(10,40),Point(60,60),Point(30,10),Point(30,70),Point(60,20),Point(10,40)]);
  end;
end;

procedure TForm1.PaintBox2Paint(Sender: TObject);
begin
with Sender As TPaintBox do
  begin
  Canvas.Pen.Color:=clBlue;
  Canvas.Polyline([Point(40,10),Point(20,60),Point(70,30),Point(10,30),Point(60,60),Point(40,10)]);
  Canvas.Pen.Color:=clRed;
  Canvas.Polyline([Point(10,40),Point(60,60),Point(30,10),Point(30,70),Point(60,20),Point(10,40)]);
  end;
end;

Catatan :

  • Pada listing program ini, Anda dapat mengubah angka-angka pada
    Point(x,y)

    sesuai dengan keinginan Anda sehingga membentuk gambar lain.

  • Anda juga dapat mengubah warna garis yang membentuk gambar tersebut sesuai dengan selera Anda pada perintah
    Canvas.Pen.Color:=clBlue;

    clBlue dapat Anda ganti dengan kode warna lain. Untuk kode warnanya dapat Anda lihat pada TColortype di Help milik Delphi.


Aksi

Information

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: