Mengubah Warna Font Dengan R G B , Dengan Delphi

 Mengubah Warna Font Dengan R G B:
 Pada posting ini saya akan memberi tahu anda bagaimana kita bisa merubah warna suatu font dengan R G B. pada pemprograman ini saya akan memberikan capture contoh program dan beberapa source kode yang diperlukan beserta properti apa saja yang akan dipakai.

Oke kalau begitu langsung saja, Properti yang digunakan diantaranya:
- ScrollBar (3 Buah)
- Label (1 Buah, digunakan sebagai font caption)

Adapun properti yang harus di ubah:
- Ubah properti ScrollBar (max.255), caranya: klik pada ScrollBar lalu lihat properti pada program delphi, cari max. ubah 100 menjadi 255.

Berikut bayangan tentang program tersebut:
- Tampilan ketika di eksekusi,

- Jika ScrollBar merah di maksimalkan maka font berubah merah.

 - Jika ScrollBar hijau di maksimalkan maka font berubah hijau.

 - Jika ScrollBar biru di maksimalkan maka font berubah biru.

 - Jika semua ScrollBar di maksimalkan maka font berubah putih.

- Berikut source kode yang harus diisi :
Klik 2 kali pada masing masing ScrollBar, lalu isikan kode berikut,

procedure TForm1.ScrollBar1Change(Sender: TObject);
var r,g,b :byte;
 w : tcolor;
begin
  r := ScrollBar1.Position;
  g := ScrollBar2.Position;
  b := ScrollBar3.Position;
  w := rgb (r,g,b);
  label1.Font.Color := w;

end;

Pesan saya: Selamat mencoba!!

Posted in: Kuliah,Pemp. Delphi