unit dlgspr;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, ComCtrls;

type
  TSprDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Bevel2: TBevel;
    Edit3: TEdit;
    Label6: TLabel;
    TabSheet2: TTabSheet;
    Label7: TLabel;
    Label8: TLabel;
    Bevel3: TBevel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Edit6: TEdit;
    Label11: TLabel;
    Bevel4: TBevel;
    Label12: TLabel;
    TabSheet3: TTabSheet;
    Label13: TLabel;
    Label14: TLabel;
    Bevel5: TBevel;
    Edit7: TEdit;
    Edit8: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Edit9: TEdit;
    Label17: TLabel;
    Bevel6: TBevel;
    Label18: TLabel;
    TabSheet4: TTabSheet;
    Label19: TLabel;
    Label20: TLabel;
    Bevel7: TBevel;
    Edit10: TEdit;
    Edit11: TEdit;
    Label21: TLabel;
    Label22: TLabel;
    Edit12: TEdit;
    Label23: TLabel;
    Bevel8: TBevel;
    Label24: TLabel;
    CheckBox1: TCheckBox;
    Edit13: TEdit;
    Label25: TLabel;
    Label26: TLabel;
    Edit14: TEdit;
    Label27: TLabel;
    Edit15: TEdit;
    Label28: TLabel;
    Edit16: TEdit;
    Button1: TButton;
    Label29: TLabel;
    Label30: TLabel;
    Edit17: TEdit;
    Label31: TLabel;
    Bevel9: TBevel;
    Label32: TLabel;
    Label33: TLabel;
    Edit18: TEdit;
    Label34: TLabel;
    Bevel10: TBevel;
    Label35: TLabel;
    Label36: TLabel;
    Edit19: TEdit;
    Label37: TLabel;
    Bevel11: TBevel;
    Label38: TLabel;
    Label39: TLabel;
    Edit20: TEdit;
    Label40: TLabel;
    Bevel12: TBevel;
    Button2: TButton;
    CheckBox2: TCheckBox;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    Label41: TLabel;
    Panel1: TPanel;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    CheckBox3: TCheckBox;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    Edit25: TEdit;
    Edit26: TEdit;
    Label55: TLabel;
    TabSheet7: TTabSheet;
    Label54: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    Label69: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SprDlg: TSprDlg;

implementation

{$R *.DFM}




procedure TSprDlg.Button1Click(Sender: TObject);
begin
Edit14.text:=Edit13.text;
Edit15.text:=Edit13.text;
Edit16.text:=Edit13.text;
Edit4.text:=Edit3.text;
Edit7.text:=Edit3.text;
Edit10.text:=Edit3.text;
end;

procedure TSprDlg.Button2Click(Sender: TObject);
begin
Edit18.text:=Edit17.text;
Edit19.text:=Edit17.text;
Edit20.text:=Edit17.text;

end;

procedure TSprDlg.ComboBox1Change(Sender: TObject);
begin
if(Sender as TCombobox).itemindex=1 then
Edit25.top:=(Sender as TCombobox).top;
if(Sender as TCombobox).itemindex=2then
Edit26.top:=(Sender as TCombobox).top;
end;

end.
