Form Gradasi dengan Delphi #115

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.

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