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.

back to tutorial delphi home....