Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Form Gradasi dengan Delphi #115

Pisang berwarna kuning, Apel berwarna merah atau hijau

andrypein.net : Praktek sekarang yakni membuat form gradasi dengan delphi, ya walau masih 2 warna namun yang penting konsepnya saja gan dipahami.

Untuk membuatnya maka event yang dipakai adalah OnPaint pada Form nya.

form gradasi dengan delphi
form gradasi

Sekarang kita mulai kodingnya, pada object inspector di formnya dobel klik pada bagin OnPaint dan ketikan rumus ini :

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(0, 0, Row) ;
     FillRect(Rect(0, Row * Ht,ClientWidth, (Row + 1) * Ht)) ;
   end;
end;

Untuk modifikasi warna ganti dll, rekan2 bisa memakai potosop buat nyontek kode warna RGB nya.

Donlod apps form gradasi dengan delphi nya disini gan :

Download

*AFK

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button