Halo temen - temen delphier kali ini saya akan sharing lagi tips n trik untuk membuat tampilan form delphi jadi lebih menarik dengan cara membuat gambar bintang berwarna pada background form. Okay kalau gitu langsung aja ya,, yuk mari kita mulai......
Pertama kita siapkan dulu form yang akan diberi gambar bintang pada backgroundnya, lalu tambahkan dua buah komponent PaintBox, komponen ini terdapat pada halaman System. Kira - kira seperti inilah desain form yang saya buat.
 |
| Contoh Desain Form |
Setelah selesai mendesain form lalu ketiklah listing seperti berikut ini pada event OnPaint dari kedua kontrol PaintBox tersebut:
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with Sender as TPaintBox do
begin
Canvas.Pen.Color:=clBlue;
Canvas.Polyline([Point(50,20),Point(30,70),Point(80,40),Point(20,40),Point(70,70),Point(50,20)]);
Canvas.Pen.Color:=clRed;
Canvas.Polyline([Point(5,35),Point(55,55),Point(25,5),Point(25,65),Point(55,15),Point(5,35)]);
end;
end;
procedure TForm1.PaintBox2Paint(Sender: TObject);
begin
with Sender as TPaintBox do
begin
Canvas.Pen.Color:=clYellow;
Canvas.Polyline([Point(50,20),Point(30,70),Point(80,40),Point(20,40),Point(70,70),Point(50,20)]);
Canvas.Pen.Color:=clPurple;
Canvas.Polyline([Point(5,35),Point(55,55),Point(25,5),Point(25,65),Point(55,15),Point(5,35)]);
end;
end;
Nah setelah selesai ketik listingnya temen - temen bisa coba buat run programnya.... Hmmm biar temen - temen ga penasaran dengan hasilnya nanti, maka saya akan bagi screenshotnya ke temen - temen kira - kira seperti inilah hasil jadinya nanti.
 |
| Form Jadi |
Oya untuk warna garis pada bintang - bintang itu temen - temen bisa mengubahnya sesuai dengan keinginan temen - temen misal mau pakai clGreen, clMaroon, clSilver, clBlack dan lain - lain. Okay semoga coretan saya ini bermanfaat buat temen - temen. jika ada kesalahan dan kekurangan saya mohon kritik dan sarannya dari temen - temen dan saya ucapkan sangkyu buat kunjungan temen - temen disini.... see you next post ea...
Comments