Membuat Form Gradient

Untuk memperindah tampilan program yang Anda buat, Anda bisa membuat form gradient. Caranya yaitu dengan menambahkan kode pada event OnPaint dari form seperti contoh di bawah ini:

procedure TForm1.FormPaint(Sender: TObject);

1.
var
2.
Row, Ht: Word;
3.
IX: Integer;
4.
begin
5.
iX :=200 ;
6.
Ht:=(ClientHeight + 512) div 256;
7.
for Row := 0 to 512 do
8.
begin
9.
with Canvas do begin
10.
Brush.Color := RGB(Ix,150,row);
11.
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
12.
IX :=(IX-1);
13.
end;
14.
end;
15.
end;

Untuk mengganti menjadi warna lain, Anda tinggal mengganti pada baris:

Brush.Color := RGB(Ix,150,row);

RGB merupakan kombinasi warna Red, Green, Blue. Nilai yang bisa Anda masukkan pada RGB yaitu 0 sampai 255.