(Delphi) lab 5.1 addElem

unit addElem;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, ClipBrd;

type
  TAddForm = class(TForm)
    TaskInfo: TLabel;
    AddEdit: TEdit;
    AddButton: TButton;
    PopupMenu: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure CutClick(Sender: TObject);
    procedure CopyClick(Sender: TObject);
    procedure DeleteClick(Sender: TObject);
    procedure AddEditChange(Sender: TObject);
    procedure AddEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure AddEditKeyPress(Sender: TObject; var Key: Char);
    procedure AddButtonClick(Sender: TObject);
    procedure AddClose(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddForm: TAddForm;

implementation

{$R *.dfm}

uses MainUnit;



procedure TAddForm.AddButtonClick(Sender: TObject);
var
    Str: String;
begin
    MainForm.Enabled := True;
    if MainForm.sgArray.Cells[0,1] <> '' then
        MainForm.sgArray.ColCount := MainForm.sgArray.ColCount + 1;
    MainForm.sgArray.Cells[MainForm.sgArray.ColCount - 1, 0] := IntToStr(MainForm.sgArray.ColCount);
    MainForm.sgArray.Cells[MainForm.sgArray.ColCount - 1, 1] := AddEdit.Text;
    AddEdit.Text := '';
    AddButton.Enabled := False;
    AddForm.Hide;
    MainForm.DeleteButton.Enabled := True;
    MainForm.ClearButton.Enabled := True;
    Str := MainForm.sgArray.Cells[MainForm.sgArray.ColCount - 1, 1];
    MainForm.AddElem(Str);
end;

procedure TAddForm.AddClose(Sender: TObject; var CanClose: Boolean);
begin
    MainForm.Enabled := True;
    AddEdit.Text := '';
    AddButton.Enabled := False;
    AddForm.Hide;
end;

procedure TAddForm.AddEditChange(Sender: TObject);
begin
    AddButton.Enabled := AddEdit.Text <> '';
end;

procedure TAddForm.AddEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    TEdit(Sender).ReadOnly := (((Shift=[ssShift]) and (Key = VK_INSERT)) or (Shift=[ssCtrl]) or (Shift=[ssAlt]));
end;

procedure TAddForm.AddEditKeyPress(Sender: TObject; var Key: Char);
begin
    if ((Length(TEdit(Sender).Text) = 8) and (Key <> #08)) then
        Key := #0;
end;

procedure TAddForm.CopyClick(Sender: TObject);
begin
    ClipBoard.AsText := AddEdit.Text;
end;

procedure TAddForm.CutClick(Sender: TObject);
begin
    ClipBoard.AsText := AddEdit.Text;
    AddEdit.Text := '';
end;

procedure TAddForm.DeleteClick(Sender: TObject);
begin
    AddEdit.Text := '';
end;


end.