DELPHI - Membuat Gradient Warna Pada Form (TForm)

Hai sobat delphiers, udah lama nih ane gak posting,,
just share aja nih coding buat MAKEOVER-nya DELPHI,,

procedure TForm1.FormPaint(Sender: TObject);
var Row, Ht: Word ;
begin
 Ht := (ClientHeight + 255) div 256 ;
 for Row := 0 to 255 do
  with Canvas do begin
    Brush.Color := RGB(255, 255, Row);
    FillRect(Rect(0, Row * Ht,
                  ClientWidth, (Row + 1) * Ht)) ;
  end;
end;

Kalo mau ganti warnanya, tinggal rubah aja angkanya dengan yang anda mau. pake sistem RGB Colour.
Oke sekian aja terimakasih telah berkunjung di giavano.blogspot.com

Salam Sobat delphiers ^_^