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); Constructor Create (Var Owner: Pointer);
Destructor Destroy; Override; Destructor Destroy; Override;
Function LoadMenu (CheckSec: Boolean; RunCmd: Boolean; Global: Boolean) : Byte; Function StripSecurity (Str : String) : String;
Procedure ExecuteMenu (FallBack, Global, View: Boolean); Function ReplaceSecurity (Str : String) : String;
Function ExecuteCommand (Cmd: String; Data: String) : Boolean; {True if menu is to be reloaded} 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; End;
Implementation Implementation
@ -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