eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ToggleAccessFlags, StripSecurity, ReplaceSecurity are now part of the Menu class, where they should have been all along.

This commit is contained in:
mysticbbs 2012-02-18 02:35:07 -05:00
parent b7a8bc3e26
commit 0cd454f77e
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mystic/bbs_menus.pas
View File

@ -23,9 +23,12 @@ Type
Constructor Create (Var Owner: Pointer);
Destructor Destroy; Override;
Function LoadMenu (CheckSec: Boolean; RunCmd: Boolean; Global: Boolean) : Byte;
Procedure ExecuteMenu (FallBack, Global, View: Boolean);
Function ExecuteCommand (Cmd: String; Data: String) : Boolean; {True if menu is to be reloaded}
Function StripSecurity (Str : String) : String;
Function ReplaceSecurity (Str : String) : String;
Procedure ToggleAccessFlags (Data: String; Var Flags: AccessFlagType);
Function LoadMenu (CheckSec: Boolean; RunCmd: Boolean; Global: Boolean) : Byte;
Procedure ExecuteMenu (FallBack, Global, View: Boolean);
Function ExecuteCommand (Cmd: String; Data: String) : Boolean; {True if menu is to be reloaded}
End;
Implementation
@ -62,14 +65,14 @@ Begin
Inherited Destroy;
End;
Function StripSecurity (Str : String) : String;
Function TMenuSystem.StripSecurity (Str : String) : String;
Begin
Delete (Str, Pos('@S', Str), 2);
Result := Str;
End;
Function ReplaceSecurity (Str : String) : String;
Function TMenuSystem.ReplaceSecurity (Str : String) : String;
Var
A : Byte;
Begin
@ -83,7 +86,7 @@ Begin
Result := Str;
End;
Procedure ToggleAccessFlags (Data: String; Var Flags: AccessFlagType);
Procedure TMenuSystem.ToggleAccessFlags (Data: String; Var Flags: AccessFlagType);
Var
A : Byte;
Begin