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

9
mystic/bbs_menus.pas
View File

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