GRADIEN WARNA FORM DELPHI

bosan dengan tampilan form delphi anda....
sekarang anda dapat membuat tampilan form delphi anda sedikit lebih menarik...
disini kita akan membuat gradien warna...langsung aja yah

silahkan buka new project delphi anda....lalu isikan code dibawah 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;


end.

jalankan delphi anda....dan lihat hasilnya....

Posted in: tutorial delphi