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

Msg header flags now in theme editor

This commit is contained in:
mysticbbs 2012-06-30 23:05:17 -04:00
parent db9818e88d
commit 51dd33f1fe
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mystic/bbs_msgbase.pas
View File

@ -1098,6 +1098,7 @@ Var
LastRead : LongInt; LastRead : LongInt;
ListMode : Byte; ListMode : Byte;
ReplyID : String[31]; ReplyID : String[31];
TempStr : String;
Procedure Set_Message_Security; Procedure Set_Message_Security;
Begin Begin
@ -1338,10 +1339,12 @@ Var
Session.io.PromptInfo[7] := strI2S(MsgBase^.GetRefer); Session.io.PromptInfo[7] := strI2S(MsgBase^.GetRefer);
Session.io.PromptInfo[8] := strI2S(MsgBase^.GetSeeAlso); Session.io.PromptInfo[8] := strI2S(MsgBase^.GetSeeAlso);
If MsgBase^.IsLocal Then Session.io.PromptInfo[9] := 'Local' Else Session.io.PromptInfo[9] := 'Echo'; //++lang TempStr := Session.GetPrompt(490);
If MsgBase^.IsPriv Then Session.io.PromptInfo[9] := Session.io.PromptInfo[9] + ' Private'; //++lang
If MsgBase^.IsSent Then Session.io.PromptInfo[9] := Session.io.PromptInfo[9] + ' Sent'; //++lang If MsgBase^.IsLocal Then Session.io.PromptInfo[9] := strWordGet(1, TempStr, ' ') Else Session.io.PromptInfo[9] := strWordGet(2, TempStr, ' ');
If MsgBase^.IsDeleted Then Session.io.PromptInfo[9] := Session.io.PromptInfo[9] + ' Deleted'; //++lang If MsgBase^.IsPriv Then Session.io.PromptInfo[9] := Session.io.PromptInfo[9] + strWordGet(3, TempStr, ' ');
If MsgBase^.IsSent Then Session.io.PromptInfo[9] := Session.io.PromptInfo[9] + strWordGet(4, TempStr, ' ');
If MsgBase^.IsDeleted Then Session.io.PromptInfo[9] := Session.io.PromptInfo[9] + strWordGet(5, TempStr, ' ');
End; End;
Procedure Send_Msg_Text (Str : String); Procedure Send_Msg_Text (Str : String);