TAB ADDITIONAL 2

I.              Deskripsi Program

Program ini berfungsi untuk menampilkan shape yang dapat dirubah karakteristiknya melalui trackbar. Karakteristik yang dapat dirubah tersebut adalah bentuk, style dan warna dari shape tersebut.

Ketika program dijalankan maka karakteristik akan sesuai dengan posisi trackbar semula, yaitu dengan bentuk segiempat, style bdiagonal dan warna merah. User dapat merubah bentuk, style dan warna tersebut dengan menggeser trackbar pada posisi yang sesuai dengan yang user inginkan.

II.           Interface Program

III.        Coding Program

Nama Komponen	Event	Perintah
TrackBar1	OnChange	procedure TForm1.TrackBar1Change(Sender: TObject); begin  case TrackBar1.Position of   0 : Shape1.Shape:= stRectangle;   1 : Shape1.Shape:= stCircle;   2 : Shape1.Shape:= stEllipse;   3 : Shape1.Shape:= stRoundRect;   4 : Shape1.Shape:= stRoundSquare;   5 : Shape1.Shape:= stSquare; end;
TrackBar2	OnChange	procedure TForm1.TrackBar2Change(Sender: TObject); begin case TrackBar2.Position of   0 : Shape1.Brush.Style := bsBDiagonal;   1 : Shape1.Brush.Style := bsClear;   2 : Shape1.Brush.Style := bsCross;   3 : Shape1.Brush.Style := bsDiagCross;   4 : Shape1.Brush.Style := bsFDiagonal;   5 : Shape1.Brush.Style := bsHorizontal;   6 : Shape1.Brush.Style := bsSolid;   7 : Shape1.Brush.Style := bsVertical;   end; end;
TrackBar3	OnChange	procedure TForm1.TrackBar3Change(Sender: TObject); begin case TrackBar3.Position of   0 : Shape1.Brush.Color:= clRed;   1 : Shape1.Brush.Color:= clBlue;   2 : Shape1.Brush.Color:= clYellow;   3 : Shape1.Brush.Color:= clGreen;   4 : Shape1.Brush.Color:= clWhite;   5 : Shape1.Brush.Color:= clBlack;   end;

Klik Disini untuk program