TAB ADDITIONAL 2

I.         Deskripsi Program

Program di bawah ini adalah program yang dapat mengubah bentuk suatu bidang datar (shape) dengan suatu warna dan style yang diinginkan. Adapun komponen yang ada pada form adalah statictext, shape, dan trackbar. Shape dapat diubah dengan menggeser penunjuk yang ada pada trackbar sesuai keinginan baik itu mengubah bentuk shape atau warna ataupu style.

II.      Interface Program

III.  Coding Program

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