Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests 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; cmdOldBack1: TSpTBXButton;
lblHelp: TLabel; lblHelp: TLabel;
jspOldMenuAdd2: TJvStandardPage; jspOldMenuAdd2: TJvStandardPage;
Panel1: TPanel; pnlSettings: TPanel;
txtKeys: TFlatEdit; txtKeys: TFlatEdit;
lblKeys: TLabel; lblKeys: TLabel;
txtMenuName: TFlatEdit; txtMenuName: TFlatEdit;
@ -65,7 +65,7 @@ type
chkRegisterMenuCommand: TFlatCheckBox; chkRegisterMenuCommand: TFlatCheckBox;
chkUseTime: TFlatCheckBox; chkUseTime: TFlatCheckBox;
txtTime: TFlatEdit; txtTime: TFlatEdit;
Label1: TLabel; lblSettings: TLabel;
cmdOldNext2: TSpTBXButton; cmdOldNext2: TSpTBXButton;
cmdOldBack2: TSpTBXButton; cmdOldBack2: TSpTBXButton;
procedure mnuAddClick(Sender: TObject); procedure mnuAddClick(Sender: TObject);
@ -290,11 +290,15 @@ end;
procedure TfrmMenuGenerator.cmdOldNext2Click(Sender: TObject); procedure TfrmMenuGenerator.cmdOldNext2Click(Sender: TObject);
begin begin
if optSimpleOldMenu.Checked then if (StrToIntDef(txtKeys.Text, -1) = -1) then
AddOldMenu MessageBox(Handle, 'Invalid Keys (only keys between 0 and 9 allowed', 'Error', MB_ICONWARNING)
else else begin
AddOldPlayerMenu; if optSimpleOldMenu.Checked then
ModalResult := mrOk; AddOldMenu
else
AddOldPlayerMenu;
ModalResult := mrOk;
end;
end; end;
procedure TfrmMenuGenerator.lblHelpClick(Sender: TObject); procedure TfrmMenuGenerator.lblHelpClick(Sender: TObject);