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.
Comments
Post a Comment