unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,Unit1, ExtCtrls;

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    edText: TEdit;
    Label2: TLabel;
    btSend: TButton;
    GroupBox2: TGroupBox;
    edExec: TEdit;
    btExecute: TButton;
    Button3: TButton;
    GroupBox3: TGroupBox;
    rbPlane: TRadioButton;
    rbCow: TRadioButton;
    btGo: TButton;
    GroupBox4: TGroupBox;
    rbWarning: TRadioButton;
    rbInformation: TRadioButton;
    rbError: TRadioButton;
    rbQuation: TRadioButton;
    GroupBox6: TGroupBox;
    edClose: TEdit;
    Button1: TButton;
    rbMatrix: TRadioButton;
    procedure Button3Click(Sender: TObject);
    procedure btExecuteClick(Sender: TObject);
    procedure btSendClick(Sender: TObject);
    procedure edExecChange(Sender: TObject);
    procedure edTextChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btGoClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.Button3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm3.btExecuteClick(Sender: TObject);
var
  str: string;
begin
if Form1.Tag = 1 then
  begin
    try
      str := 'E '+ edExec.text;
      Form1.ClientSocket1.Socket.SendText(str);
    except
      MessageDlg('Indicated wrong server',mtError,[mbOK],0);
    end;
  end
else
   MessageDlg('You have no access to do it !',mtWarning,[mbOK],0);
end;

procedure TForm3.btSendClick(Sender: TObject);
var
  str : string;
  ch: string[1];
begin
  try
    if edText.Text = '' then Exit;
    if rbWarning.Checked then ch := 'W';
    if rbError.Checked then ch := 'E';
    if rbInformation.Checked then ch := 'I';
    if rbQuation.Checked then ch := 'Q';
    str := 'M '+ ch + ' ' + edText.Text;
    Form1.ClientSocket1.Socket.SendText(str);
  except
    MessageDlg('Indicated wrong server',mtError,[mbOK],0);
  end;
end;


procedure TForm3.edExecChange(Sender: TObject);
begin
  btSend.Default := false;
  btExecute.Default := true;
end;

procedure TForm3.edTextChange(Sender: TObject);
begin
btExecute.Default := false;
btSend.Default := true;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
Form3.Left := Form1.Left;
Form3.Top := Form1.Top + Form1.Height;
end;

procedure TForm3.btGoClick(Sender: TObject);
var
  str: string;
begin
if Form1.Tag = 1 then
  begin
    try
      if rbPlane.Checked then
        str := '*Plane';
      if rbCow.Checked then
        str := '*Cow';
      if rbMatrix.Checked then
        str := 'matr';
      Form1.ClientSocket1.Socket.SendText(str);
    except
      MessageDlg('Indicated wrong server',mtError,[mbOK],0);
    end;
  end
else
   MessageDlg('You have no access to do it !',mtWarning,[mbOK],0);
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  str: string;
begin
if Form1.Tag = 1 then
  begin
    try
      str := 'C '+ edClose.text;
      Form1.ClientSocket1.Socket.SendText(str);
    except
      MessageDlg('Indicated wrong server',mtError,[mbOK],0);
    end;
  end
else
   MessageDlg('You have no access to do it !',mtWarning,[mbOK],0);
end;

end.