Membuat setting warna RGB dengan TrackBar dengan Delphi 7

1. Buat desain form seperti di bawah ini
2. Ada 3 objek TrackBar, 3 Label, 3 EditText dan 1 Shape

-->3. Ubah properti objek-objek tersebut

Nama objek	Properti	Nilai
Label 1	Caption	Red
Label2	Caption	Green
Label3	Caption	Blue
TrackBar1	Name	barRed
TrackBar1	Position	0
TrackBar1	Max	255
TrackBar2	Name	barGreen
TrackBar2	Position	0
TrackBar2	Max	255
TrackBar3	Name	barBlue
TrackBar3	Position	0
TrackBar3	Max	255
Edit1	Name	editRed
Edit1	Enable	False
Edit2	Name	editGreen
Edit2	Enable	False
Edit3	Name	editBlue
Edit3	Enable	False
Shape1	Brush, Color	clBlack
Shape1	Name	shapeWarna

-->

-->4. Ketik kode berikut pada bagian var di bawah Form1: TForm1;

red,green,blue:byte;

-->5. Kemudian pilih objek TrackBar1 atau barRed, pilih event OnChange pada Object Inspector


















-->Klik 2 kali pada kotak di sebelah tulisan OnChange
6. Ketik kode berikut :

//red adalah posisi angka TrackBar1

red:=barRed.Position;

//isi dari edit1 adalah angka dari red

editRed.Text:=IntToStr(red);

//warna RGB objek shape berdasarkan red=barRed.Position

shapeWarna.Brush.Color:=RGB(red,green,blue);

-->7. Pilih objek TrackBar2 atau barGreen, pilih event OnChange pada Object Inspector
8. Ketik kode berikut :

//green adalah posisi angka TrackBar2

green:=barGreen.Position;

//isi dari edit2 adalah angka dari green

editGreen.Text:=IntToStr(green);

//warna RGB objek shape berdasarkan green=barGreen.Position

shapeWarna.Brush.Color:=RGB(red,green,blue);

9. Pilih objek TrackBar3 atau barBlue, pilih event OnChange pada Object Inspector

10. Ketik kode berikut :

//green adalah posisi angka TrackBar2

blue:=barBlue.Position;

//isi dari edit3 adalah angka dari blue

editBlue.Text:=IntToStr(blue);

//warna RGB objek shape berdasarkan blue=barBlue.Position

shapeWarna.Brush.Color:=RGB(red,green,blue);

11. Berikut adalah listing keseluruhan

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type

TForm1 = class(TForm)

barRed: TTrackBar;

barGreen: TTrackBar;

barBlue: TTrackBar;

editRed: TEdit;

editGreen: TEdit;

editBlue: TEdit;

shapeWarna: TShape;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure barRedChange(Sender: TObject);

procedure barGreenChange(Sender: TObject);

procedure barBlueChange(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

red,green,blue:byte;

implementation

{Senin, 18 Oktober 2010, banjarbaru, Indonesia}

{$R *.dfm}

procedure TForm1.barRedChange(Sender: TObject);

begin

//red adalah posisi angka TrackBar1

red:=barRed.Position;

//isi dari edit1 adalah angka dari red

editRed.Text:=IntToStr(red);

//warna RGB objek shape berdasarkan red=barRed.Position

shapeWarna.Brush.Color:=RGB(red,green,blue);

end;

procedure TForm1.barGreenChange(Sender: TObject);

begin

//green adalah posisi angka TrackBar2

green:=barGreen.Position;

//isi dari edit2 adalah angka dari green

editGreen.Text:=IntToStr(green);

//warna RGB objek shape berdasarkan green=barGreen.Position

shapeWarna.Brush.Color:=RGB(red,green,blue);

end;

procedure TForm1.barBlueChange(Sender: TObject);

begin

//green adalah posisi angka TrackBar2

blue:=barBlue.Position;

//isi dari edit3 adalah angka dari blue

editBlue.Text:=IntToStr(blue);

//warna RGB objek shape berdasarkan blue=barBlue.Position

shapeWarna.Brush.Color:=RGB(red,green,blue);

end;

//Selamat Mencoba

end.

Huruf yang cetak tebal adalah kode yang diketik sebelumnya. Simpan dengan Save All, tekan F9 untuk menjalankan program. Unduh file di sini