Mengubah Warna Gradasi Form Delphi

Bosan dengan warna form yang hanya satu warna??

Tak ada salahnya jika Anda mencoba code di bawah untuk mengubah warna gradasi pada form Anda.

Ketikkan code berikut pada event OnPaint Form1

procedure TForm1.FormPaint(Sender: TObject);

var

Ht, Row: Word;

begin

  Ht:=(ClientHeight+255)div 256;

  for Row:=0 to 255 do

    with Canvas do

    begin

    Brush.Color:=RGB(Row, 250, 50);

    FillRect(Rect(0, Row*Ht, ClientWidth, (Row+1)*Ht));

    end;

end;

end.

Untuk mengubah-ubah warnanya, Anda bisa menggantinya dengan mengubah nilai pada baris Brush.Color:=RGB(Row, 250, 50);