From e1caa575e72ab67419bcebe37338cfbc0ce6b229 Mon Sep 17 00:00:00 2001
From: Christian Hammacher <BasicMaster>
Date: Fri, 30 Jun 2006 21:22:46 +0000
Subject: [PATCH] now checks for bad menu keys (simple menu, old style)

---
 editor/studio/UnitfrmMenuGenerator.dfm | Bin 24796 -> 24807 bytes
 editor/studio/UnitfrmMenuGenerator.pas |  18 +++++++++++-------
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/editor/studio/UnitfrmMenuGenerator.dfm b/editor/studio/UnitfrmMenuGenerator.dfm
index afdf3d4bb8672396b92adf59b469122f4053b0a1..e71691df4433a440ec3aea6bbccbe53364dde728 100755
GIT binary patch
delta 70
zcmca}kn#CJ#tGt#XEsWtF!A$c6&LvDr1+-hl{%)R7;Wxi+9k@vos*OkoLW+nnU`KX
T*;~Sjhr1vTF0i>rBESOxrLh^s

delta 59
zcmaEUknzqz#tGt#2RBNjF!Awb6&D1j=A<T<gj5!!ZtiB<CCbj`lbDp6V>mfb!it?O
OATbZf-aK6*zyko8%M{fB

diff --git a/editor/studio/UnitfrmMenuGenerator.pas b/editor/studio/UnitfrmMenuGenerator.pas
index f6e88e30..7c21bdf3 100755
--- a/editor/studio/UnitfrmMenuGenerator.pas
+++ b/editor/studio/UnitfrmMenuGenerator.pas
@@ -56,7 +56,7 @@ type
     cmdOldBack1: TSpTBXButton;
     lblHelp: TLabel;
     jspOldMenuAdd2: TJvStandardPage;
-    Panel1: TPanel;
+    pnlSettings: TPanel;
     txtKeys: TFlatEdit;
     lblKeys: TLabel;
     txtMenuName: TFlatEdit;
@@ -65,7 +65,7 @@ type
     chkRegisterMenuCommand: TFlatCheckBox;
     chkUseTime: TFlatCheckBox;
     txtTime: TFlatEdit;
-    Label1: TLabel;
+    lblSettings: TLabel;
     cmdOldNext2: TSpTBXButton;
     cmdOldBack2: TSpTBXButton;
     procedure mnuAddClick(Sender: TObject);
@@ -290,11 +290,15 @@ end;
 
 procedure TfrmMenuGenerator.cmdOldNext2Click(Sender: TObject);
 begin
-  if optSimpleOldMenu.Checked then
-    AddOldMenu
-  else
-    AddOldPlayerMenu;
-  ModalResult := mrOk;
+  if (StrToIntDef(txtKeys.Text, -1) = -1) then
+    MessageBox(Handle, 'Invalid Keys (only keys between 0 and 9 allowed', 'Error', MB_ICONWARNING)
+  else begin
+    if optSimpleOldMenu.Checked then
+      AddOldMenu
+    else
+      AddOldPlayerMenu;
+    ModalResult := mrOk;
+  end;
 end;
 
 procedure TfrmMenuGenerator.lblHelpClick(Sender: TObject);