Inovasi dan trik membuat Latar Belakang form yang bergradasi-Delphi7

 Cara Membuat Latar Belakang form yang bergradasi-Delphi7

      Kali ini saya akan membahas tentang Cara membuat Latar Belakang form yang bergradasi dengan Delphi7.Latar Belakang form yang bergradasi.!! mungkin sudah banyak yang tau ea...tapi saya akan mengingatkan anda kembali tentang Bagaimana Cara membuat Latar Belakang form yang bergradasi dengan Delphi7 .

      Seperti biasa karna saya tidak suka basa basi.. langsung aja kita bahas togelnya....kwkwkwk :)
no serius kali ea....!! seorang programer harus bisa mengendalikan emosi pikirannya supaya selalu enjoy..!!

 Baca juga: cara membuat kalkulator bagi pemula
Masuk ketopik..
     Sebelum anda mempelajari form bergradasi anda harus mengingat kembali tentang RGB(red green blue).

karna dalam aplikasi berLatar Belakang form yang bergradasi-Delphi7  sudah pasti menggunakan RGB ..
untuk membuatnya anda bisa memproses event onpaint milik form .
dan peringatan: Saya tidak menjelaskan lebih rinci tentang fungsi-fungsi yang digunakan disini.jika nanti anda bingung mari kita sama-sama bingung..hehehhe..!!


 1. Buatlah aplikasi baru..masukke object inspector>>klik tab event>>cari onpain>>doble klik




 2. ketikkan kode berikut          

procedure TForm1.FormPaint(Sender: TObject);
var
 y      :   LongInt;
 rect   :   TRect;
begin
  rect.Left  :=0;              //batas kiri//
  rect.Right :=Width;     //batas kanan//

  for y:=0 to 255 do
      begin
      Canvas.Brush.Color :=TColor(RGB(0,0,y));
      rect.Top    :=y*height div 256;                         //batas atas gradasi//
      rect.Bottom :=(y+1)*height div 256;                //batas bawah gradasi//
      canvas.FillRect(rect)
      end;
end;

3.Run aplikasi(F9).dan lihat hasilnya..
   tara...!!

   tenang..tenang dolo ea..




4.itu form kan warnanya dari hitam berangsur angsur menjadi biru...nah mau dikasih tau gak cara agar gradasinya sesuai keinginan anda..
kasih tau gak ea....

5.OK..untuk mengganti warna gradasinya seperti yang saya bilang diawal..anda harus tau yang namanya RGB.sobat bisa mencari referensi tentang itu di google..

6.untuk panduan silahkan kunjungi  spycolor.com  disitu anda bisa tau warna warna RGB


7.perhatikan kode berwarna merah diatas..
  Canvas.Brush.Color :=TColor(RGB(0,0,y));
 gantilah ketiga angka itu sesuai keinginan anda
angka pertama   :  ketebalan warna Merah (R) red
angka kedua      :  ketebalan warna Hijau  (G) green
angka ketiga      :  ketebalan warna Biru  (B) blue

contoh: (RGB(255,0,y));
artinya iterasi dari merah kepink. 

  
8. anda juga bisa mengunakan operasi + dan -
    contoh  RGB(255,255,255-y))
    iterasi dari putih kekuning.. 

   

 Sekian dulu ea penjelasannya in ITsystemID..saya posing bertahap supaya lebih gampang dicerna .^_^.
pada Artikel kedua saya akan jelaskan bagaimana cara membuat gradasi dari dua sisi.
namun pada artikel selanjutnya kita tidak menggunakan formOnpaint lagi..kita naik sikit heheh..!!
berikut screnshott gradasi dari dua arah.. tidak kalah menariknya kok...: