GitHub/amxmodx
2
0
Fork 0
mirror of https://github.com/alliedmodders/amxmodx.git synced 2024-10-16 15:26:57 +03:00
Code Issues Projects Releases Wiki Activity

now checks for bad menu keys (simple menu, old style)

Browse Source
This commit is contained in:
Christian Hammacher 2006-06-30 21:22:46 +00:00
parent 9dcdba439a
commit e1caa575e7
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
editor/studio/UnitfrmMenuGenerator.dfm
View File

Binary file not shown.

18
editor/studio/UnitfrmMenuGenerator.pas
View File

@ -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);