Membuat Form Gradient Pada Delphi

Nih ... catatan ku semalam waktu ga bisa tidur Qu searching om google bagaimana cara membuat form gradient pada delphi ternyata Qu menemukan jawabannya,, untuk singkatnya langsung ja copas neh syntax oceee ....

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 ubah dibagian ini
Brush.Color := RGB(Ix,150,row);

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


Referensi http://www.klik-kanan.com