Penggunaan Trackbar di Delphi #62

andrypein.net : Jika kemarin mengenalkan tentang shape, maka kali ini tentang trackbar di delphi.

Trackbar adalah komponen yang memungkinkan kita melakukan geser2 gitu, seperti volume, komponen trackbar ada di palette additional.

Penggunaannya bisa di aplikasikan pada program sederhana kali ini yang memungkinkan kita merubah ukuran suatu shape dengan menggeser trackbar tersebut, formnya kaya gini gan:

bahan2nya berupa:

Setelah itu baru kita mulai listing2nya, beri event pada form dengan event formcreate dan listingnya kaya seperti ini :

procedure TForm1.FormCreate(Sender: TObject);
begin
 Combobox1.Items.Add('Rectangle');
 Combobox1.Items.Add('Circle');
 Combobox1.Items.Add('Ellipse');
 Combobox1.Items.Add('Square');
 Combobox1.Items.Add('RoundRect');
 Combobox1.Items.Add('RoundSquare');
 Combobox1.ItemIndex:0;
end;

Lalu atur properties pada trackbar nya dengan angka 4 di max nya

Kemudian pada trackbar beri event change,

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
case trackbar1.Position of
 0:
  begin
   shape1.Width:=65;
   shape1.Height:=65;
  end;
 1:
  begin
   shape1.Width:=130;
   shape1.Height:=130;
  end;
 2:
  begin
   shape1.Width:=195;
   shape1.Height:=195;
  end;
 3:
  begin
   shape1.Width:=250;
   shape1.Height:=250;
  end;
 4:
  begin
   shape1.Width:=315;
   shape1.Height:=315;
  end;
 end;
end;

 

Dan pada combobox change

procedure TForm1.Combobox1Change(Sender: TObject);
begin
case listbox1.ItemIndex of
 0: shape1.shape:=stSquare;
 1: shape1.shape:=stCircle;
 2: shape1.shape:=stEllipse;
 3: shape1.shape:=stRectangle;
 4: shape1.shape:=stRoundSquare;
 5: shape1.shape:=stRoundRect;
end;

Dan terakhir pada combocolornya

procedure TForm1.ColorboxChange(Sender: TObject);
begin
 shape1.Brush.Color:=colorbox1.selected;
end;

Oke dah sekian trackbar di delphi nya dan silahkan run gan.

*AFK