Background Gradasi Warna Pada Form

Background Gradasi Warna Pada Form

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
  Row, 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..