Form RGB Delphi #134

andrypein.net : Abaikan deskripsi di bawah, intinya program ini untuk menampilkan warna form yang bisa diubah saat menggeser-geser slider.

Penampakan hasil akhir program form rgb delphi jadi seperti ini gan :

Itu penggunaan warna RGB aja ko gan, oke bahannya kata ane juga cuma 3 buah scrollbar ama 1 buah label.

Untuk komponen scrollbar sendiri bisa di temukan di pallete standar.

Lalu perlu di perhatikan adalah properti max pada masing2 scrollbar harus bernilai 255.

Oke lanjut sekarang kita koding eventnya, beri event OnChange pada satu scrollbar sajah, misal pada scrollbar1.

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 Form1.Color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
 Label1.Font.Color:=RGB(255-ScrollBar1.Position,255-ScrollBar2.Position,255-ScrollBar3.Position);
 Label1.Caption:='RGB('+IntToStr(ScrollBar1.Position)+','+IntToStr(ScrollBar2.Position)+','+IntToStr(ScrollBar3.Position)+')';
end;

Untuk kode scrollbarchange kedua dan ketiga cukup pakai event dari scrollbar dari scrollbar1 seperti gambar dibawah ini.

Done, dan apps form rgb delphi bisa di run dan berhasil gan, silahken kalau mau unduh apps nya disini gan.

Download

*AFK