Cara Membuat Efek Gradasi Warna Pada Form Delphi (Bagian 2)

Tutorial ini merupakan bagian kedua dari tutorial cara efek gradasi warna pada form di delphi (baca: Cara Membuat Efek gradasi Warna Pada Form Delphi). Pada tutorial Kedua ini akan dibahas cara alternatif untuk membuat efek gradasi warna pada form di delphi.

Dengan mengubah nilai pada property Color dari form, Anda dapat mengubah warna form, misalnya clBtnFace, clBlack, atau $000080FF. Tapi jika Anda ingin membuat warna gradasi pada form tersebut, delphi tidak menyediakannya secara built-in pada property, tidak pada komponen bawaan delphi.

Untuk membuat gradasi warna pada form, Anda dapat memberikan kode di bawah ini pada event OnPaint dari form:

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

Anda bisa mendapatkan warna gradasi sesuai yang Anda inginkan dengan cara mengubah nilai pada baris:

iX:= 255;

dan atau

Brush.Color:= RGB(iX, 200, row);

Sampai di sini tutorial kali ini. Kita bertemu lagi pada postingan berikutnya. Terima kasih atas kunjungan Anda pada blog sederhana saya dan ... semoga artikel ini bermanfaat. Salam.