Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Penggunaan Trackbar di Delphi #62

Gelas Beling akan pecah jika dijatuhkan

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.

trackbar

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

trackbar di delphi
form

bahan2nya berupa:

bagan

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

trackbar properties

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

 

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button