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);
var 
   Row, Ht: Word;
   IX: Integer;
begin 
     iX :=200 ;
     Ht:=(ClientHeight + 512) div 256;
     for Row := 0 to 512 do
     begin
        with Canvas do begin
        Brush.Color := RGB(Ix,150,row);
        FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
        IX :=(IX-1);
        end;
     end;
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.