Add menu

Author: N1ghtF1re

AutoProcedureTableGenerator.exe

@@ -10,6 +10,7 @@ object TableGenForm: TTableGenForm
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
+  Menu = MainMenu1
   OldCreateOrder = False
   OnCanResize = FormCanResize
   OnCreate = FormCreate
@@ -84,4 +85,27 @@ object TableGenForm: TTableGenForm
     Left = 312
     Top = 168
   end
+  object MainMenu1: TMainMenu
+    Left = 432
+    Top = 152
+    object mnFile: TMenuItem
+      Caption = #1060#1072#1081#1083
+      object mniConver: TMenuItem
+        Caption = #1055#1088#1077#1086#1073#1088#1072#1079#1086#1074#1072#1090#1100
+        OnClick = mniConverClick
+      end
+      object mnToExcel: TMenuItem
+        Caption = #1042' Excel'
+        OnClick = mnToExcelClick
+      end
+    end
+    object mnClear: TMenuItem
+      Caption = #1054#1095#1080#1089#1090#1080#1090#1100' '#1090#1077#1082#1089#1090#1086#1074#1086#1077' '#1087#1086#1083#1077
+      OnClick = mnClearClick
+    end
+    object mnSupport: TMenuItem
+      Caption = #1055#1086#1076#1076#1077#1088#1078#1072#1090#1100
+      OnClick = mnSupportClick
+    end
+  end
 end

src/Win32/Debug/AutoProcedureTableGenerator.exe

@@ -5,7 +5,7 @@ interface
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls,ComObj,
-  Vcl.ExtCtrls;
+  Vcl.ExtCtrls, Vcl.Menus, ShellAPI;
 
 type
   TTableGenForm = class(TForm)
@@ -15,11 +15,21 @@   TTableGenForm = class(TForm)
     btnGenTable: TButton;
     pnlBottom: TPanel;
     SaveDialog1: TSaveDialog;
+    MainMenu1: TMainMenu;
+    mnFile: TMenuItem;
+    mnClear: TMenuItem;
+    mnSupport: TMenuItem;
+    mniConver: TMenuItem;
+    mnToExcel: TMenuItem;
     procedure btnToExcelClick(Sender: TObject);
     procedure btnGenTableClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
       var Resize: Boolean);
+    procedure mniConverClick(Sender: TObject);
+    procedure mnToExcelClick(Sender: TObject);
+    procedure mnClearClick(Sender: TObject);
+    procedure mnSupportClick(Sender: TObject);
   private
       function GetExcelFileName: String;
   public
@@ -48,6 +58,27 @@ function TTableGenForm.GetExcelFileName: String;
 end;
 
 
+procedure TTableGenForm.mnClearClick(Sender: TObject);
+begin
+  memoInpCode.Clear;
+end;
+
+procedure TTableGenForm.mniConverClick(Sender: TObject);
+begin
+  btnGenTable.Click;
+end;
+
+
+procedure TTableGenForm.mnSupportClick(Sender: TObject);
+begin
+   ShellExecute(Application.Handle, nil, 'https://vk.com/@brakhmen-podderzhat-brakhmen-corparation', nil, nil,SW_SHOWNOACTIVATE);
+end;
+
+procedure TTableGenForm.mnToExcelClick(Sender: TObject);
+begin
+  btnToExcel.Click;
+end;
+
 procedure TTableGenForm.btnToExcelClick(Sender: TObject);
 var
  ExcelApp, Sheet: variant;
@@ -81,6 +112,7 @@ procedure TTableGenForm.btnGenTableClick(Sender: TObject);
 begin
   //showmessage( inttostr( Length(memoInpCode.Text)) );
   j:=1;
+  isOk := false;
   StringGrid1.Cells[0,0] := 'Èìÿ ïîäïðîãðàììû';
   StringGrid1.Cells[1,0] := 'Îïèñàíèå';
   StringGrid1.Cells[2,0] := 'Çàãîëîâîê ïîäïðîãðàììû';