Membuat form gradient

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.