Version 1.2

N1ghtF1re · Mar 9, 2018 · d5e1903 · d5e1903
1 parent 1cd5bca
commit d5e1903
Show file tree

Hide file tree

Showing 13 changed files with 12 additions and 1 deletion.
diff --git a/AutoProcedureTableGenerator.exe b/AutoProcedureTableGenerator.exe
diff --git a/src/AutoProcedureTableGenerator.res b/src/AutoProcedureTableGenerator.res
diff --git a/src/AutoProcedureTableGenerator_Icon2.ico b/src/AutoProcedureTableGenerator_Icon2.ico
diff --git a/src/Preview.jpg b/src/Preview.jpg
diff --git a/src/Preview.png b/src/Preview.png
diff --git a/src/Prew_UPD.png b/src/Prew_UPD.png
diff --git a/src/Win32/Debug/AI.dcu b/src/Win32/Debug/AI.dcu
diff --git a/src/Win32/Debug/AutoProcedureTableGenerator.exe b/src/Win32/Debug/AutoProcedureTableGenerator.exe
diff --git a/src/Win32/Debug/NewVersion.dcu b/src/Win32/Debug/NewVersion.dcu
diff --git a/src/Win32/Debug/SplashScreen.dcu b/src/Win32/Debug/SplashScreen.dcu
diff --git a/src/Win32/Debug/genTable.dcu b/src/Win32/Debug/genTable.dcu
diff --git a/src/genTable.dfm b/src/genTable.dfm
@@ -3100,6 +3100,7 @@ object TableGenForm: TTableGenForm
     Height = 368
     ScrollBars = ssVertical
     TabOrder = 0
+    OnKeyPress = memoInpCodeKeyPress
   end
   object StringGrid1: TStringGrid
     Left = 352

diff --git a/src/genTable.pas b/src/genTable.pas
@@ -34,6 +34,7 @@   TTableGenForm = class(TForm)
     procedure mnClearClick(Sender: TObject);
     procedure mnSupportClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure memoInpCodeKeyPress(Sender: TObject; var Key: Char);
   private
     splash: TSplash;
       function GetExcelFileName: String;
@@ -62,6 +63,15 @@ function TTableGenForm.GetExcelFileName: String;
 end;
 
 
+procedure TTableGenForm.memoInpCodeKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = ^A then
+  begin
+    (Sender as TMemo).SelectAll;
+    Key := #0;
+  end;
+end;
+
 procedure TTableGenForm.mnClearClick(Sender: TObject);
 begin
   memoInpCode.Clear;
@@ -381,7 +391,7 @@ procedure TTableGenForm.FormCreate(Sender: TObject);
 
 procedure TTableGenForm.FormShow(Sender: TObject);
 begin
-  version:='1.1';
+  version:='1.2';
   if ( (Pos(version,HTMLtext)<>0) or (HTMLtext = ''))  then
   begin