Background Gradasi Warna Pada Form

19 05 2011

Cobalah trik berikut ini untuk membuat background form Anda dengan efek gradasi warna, sehingga tampilan warna form Anda nampak lain daripada yang lain dan tentunya lebih menarik. Untuk pembuatannya sendiri Anda hanya perlu menambahkan listing programnya pada kejadian onPaint milik form tersebut.

procedure TForm1.FormPaint(Sender: TObject);
var
  Raw, Ht: Word;
begin
  Ht:=(ClientHeight+255)div 256;
  for Row:=0 to 255 do
    with Canvas do
    begin
      Brush.Color:=RGB(Row,0,0);
      FillRect(Rect(0,Row*Ht,ClientWidth,(Row+1)*Ht));
    end;
end;

Selamat Mencoba..


Aksi

Information

2 responses

24 02 2014
fika zwitty

semua rumusnya oke oke

18 03 2014
Alit Widana

Terima Kasih..
Kapan hari akan saya posting rumus yang lebih oke.

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: