home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue36 / mixin / TestForm.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-04-27  |  2.0 KB  |  102 lines
  1. unit TestForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   MixInClasses, StdCtrls, ComCtrls;
  8.  
  9. type
  10.   TfrmTestForm = class(TForm)
  11.     btnReInit: TButton;
  12.     lblRowCount: TLabel;
  13.     edtRowCount: TEdit;
  14.     btnConnect: TButton;
  15.     procedure FormShow(Sender: TObject);
  16.     procedure FormDestroy(Sender: TObject);
  17.     procedure btnReInitClick(Sender: TObject);
  18.     procedure btnConnectClick(Sender: TObject);
  19.   public
  20.     SA: TStringArray;
  21.     E:  TSAEdit;
  22.     TB: TSATrackBar;
  23.     LB: TSAListBox;
  24.   end;
  25.  
  26. var
  27.   frmTestForm: TfrmTestForm;
  28.  
  29. implementation
  30.  
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TfrmTestForm.FormShow(Sender: TObject);
  35. begin
  36.   SA := TStringArray.Create;
  37.   btnReInitClick(Self);
  38.   E := TSAEdit.Create(Self);
  39.   E.Parent := Self;
  40.   E.Top := 20;
  41.   E.Left := 20;
  42.   E.Width := 120;
  43.   //E.StringArray := SA;
  44.   TB := TSATrackBar.Create(Self);
  45.   TB.Parent := Self;
  46.   TB.TickStyle := tsAuto;
  47.   TB.Top := 50;
  48.   TB.Left := 20;
  49.   TB.Width := 120;
  50.   //TB.StringArray := SA;
  51.   LB := TSAListBox.Create(Self);
  52.   LB.Parent := Self;
  53.   LB.Top := 20;
  54.   LB.Width := 145;
  55.   LB.Left := 165;
  56.   LB.Height := 140;
  57.   //LB.StringArray := SA;
  58. end;
  59.  
  60. procedure TfrmTestForm.FormDestroy(Sender: TObject);
  61. begin
  62.   SA.Free;
  63. end;
  64.  
  65. procedure TfrmTestForm.btnReInitClick(Sender: TObject);
  66. var
  67.   I:    Integer;
  68. begin
  69.   SA.BeginUpdate;
  70.   SA.Clear;
  71.   try
  72.     I := StrToInt(edtRowCount.Text);
  73.   except
  74.     edtRowCount.Text := '0';
  75.     I := 0;
  76.   end;
  77.   SA.Count := I;
  78.   for I := 0 to (SA.Count - 1) do
  79.     SA[I] := 'Line Number ' + IntToStr(I);
  80.   SA.EndUpdate;
  81. end;
  82.  
  83. procedure TfrmTestForm.btnConnectClick(Sender: TObject);
  84. begin
  85.   if E.StringArray <> nil then
  86.   begin
  87.     E.StringArray := nil;
  88.     LB.StringArray := nil;
  89.     TB.StringArray := nil;
  90.     btnConnect.Caption := 'Connect to String Array';
  91.   end
  92.   else
  93.   begin
  94.     E.StringArray := SA;
  95.     LB.StringArray := SA;
  96.     TB.StringArray := SA;
  97.     btnConnect.Caption := 'Disonnect from String Array';
  98.   end;
  99. end;
  100.  
  101. end.
  102.