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

Localized file/record variables

This commit is contained in:
mysticbbs 2012-02-27 18:43:39 -05:00
parent 8460084849
commit 6984263d14
2 changed files with 24 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mystic/bbs_cfg_msgbase.pas
View File

@ -17,11 +17,7 @@ Uses
bbs_Cfg_SysCfg, bbs_Cfg_SysCfg,
bbs_Common; bbs_Common;
Var Procedure EditMessageBase (Var MBase: RecMessageBase);
MBaseFile : TBufFile;
MBase : RecMessageBase;
Procedure EditMessageBase;
Var Var
Box : TAnsiMenuBox; Box : TAnsiMenuBox;
Form : TAnsiMenuForm; Form : TAnsiMenuForm;
@ -94,6 +90,8 @@ Var
MIndex : LongInt; MIndex : LongInt;
Copied : RecMessageBase; Copied : RecMessageBase;
HasCopy : Boolean = False; HasCopy : Boolean = False;
MBaseFile : TBufFile;
MBase : RecMessageBase;
Procedure MakeList; Procedure MakeList;
Var Var
@ -239,7 +237,9 @@ Begin
#13 : If List.Picked < List.ListMax Then Begin #13 : If List.Picked < List.ListMax Then Begin
MBaseFile.Seek (List.Picked - 1); MBaseFile.Seek (List.Picked - 1);
MBaseFile.Read (MBase); MBaseFile.Read (MBase);
EditMessageBase;
EditMessageBase (MBase);
MBaseFile.Seek (List.Picked - 1); MBaseFile.Seek (List.Picked - 1);
MBaseFile.Write (MBase); MBaseFile.Write (MBase);
End; End;

29
mystic/bbs_cfg_seclevel.pas
View File

@ -16,11 +16,7 @@ Uses
bbs_Ansi_MenuForm, bbs_Ansi_MenuForm,
bbs_Cfg_Common; bbs_Cfg_Common;
Var Procedure EditLevel (Var Sec: RecSecurity);
SecFile : File;
Sec : RecSecurity;
Procedure Edit_Level (Level: Integer);
Var Var
Box : TAnsiMenuBox; Box : TAnsiMenuBox;
Form : TAnsiMenuForm; Form : TAnsiMenuForm;
@ -28,14 +24,9 @@ Var
Begin Begin
Topic := '|03(|09Security|03) |01-|09> |15'; Topic := '|03(|09Security|03) |01-|09> |15';
ioSeek (SecFile, Level - 1);
ioRead (SecFile, Sec);
Box := TAnsiMenuBox.Create; Box := TAnsiMenuBox.Create;
Form := TAnsiMenuForm.Create; Form := TAnsiMenuForm.Create;
Box.Header := ' Security Level ' + strI2S(Level) + ' ';
Box.Open (12, 5, 68, 21); Box.Open (12, 5, 68, 21);
VerticalLine (35, 6, 20); VerticalLine (35, 6, 20);
@ -62,9 +53,6 @@ Begin
Box.Free; Box.Free;
Form.Free; Form.Free;
ioSeek (SecFile, Level - 1);
ioWrite (SecFile, Sec);
End; End;
Function Configuration_SecurityEditor (Edit: Boolean) : LongInt; Function Configuration_SecurityEditor (Edit: Boolean) : LongInt;
@ -72,6 +60,8 @@ Var
List : TAnsiMenuList; List : TAnsiMenuList;
Box : TAnsiMenuBox; Box : TAnsiMenuBox;
HideMode : Boolean; HideMode : Boolean;
SecFile : File;
Sec : RecSecurity;
Procedure MakeList; Procedure MakeList;
Var Var
@ -135,9 +125,16 @@ Begin
End; End;
#13 : Begin #13 : Begin
Count := strS2I(Copy(List.List[List.Picked]^.Name, 1, 3)); Count := strS2I(Copy(List.List[List.Picked]^.Name, 1, 3));
If Edit Then
Edit_Level(Count) If Edit Then Begin
Else Begin ioSeek (SecFile, Count - 1);
ioRead (SecFile, Sec);
EditLevel(Sec);
ioSeek (SecFile, Count - 1);
ioWrite (SecFile, Sec);
End Else Begin
Result := Count; Result := Count;
Break; Break;
End; End;