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

Code cleanup

This commit is contained in:
mysticbbs 2013-04-01 16:22:22 -04:00
parent 977a0ed079
commit 07d282f40d
3 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/bbs_core.pas
View File

@ -161,7 +161,7 @@ Begin
Close (PromptFile); Close (PromptFile);
{$IFDEF WINDOWS} {$IFNDEF UNIX}
Client.Free; Client.Free;
{$ENDIF} {$ENDIF}

31
mystic/bbs_edit_ansi.pas
View File

@ -39,12 +39,10 @@ Type
CutText : Array[1..fseMaxCutText] of RecAnsiBufferLine; CutText : Array[1..fseMaxCutText] of RecAnsiBufferLine;
CutTextPos : Word; CutTextPos : Word;
CutPasted : Boolean; CutPasted : Boolean;
Save : Boolean;
// old shit from copy over of quote/command functions Forced : Boolean;
save : boolean; Done : Boolean;
forced : boolean; Subject : String;
done : boolean;
subj : string;
Constructor Create (Var O: Pointer); Constructor Create (Var O: Pointer);
Destructor Destroy; Override; Destructor Destroy; Override;
@ -78,11 +76,10 @@ Type
Procedure DoDelete; Procedure DoDelete;
Procedure DoChar (Ch: Char); Procedure DoChar (Ch: Char);
Function Edit : Boolean; Function Edit : Boolean;
Procedure Quote;
procedure quote; Procedure QuoteWindow;
procedure quotewindow; Procedure Commands;
procedure commands; Procedure MessageUpload;
procedure messageupload;
End; End;
Implementation Implementation
@ -390,7 +387,7 @@ Var
Begin Begin
TBBSCore(Owner).io.AllowArrow := True; TBBSCore(Owner).io.AllowArrow := True;
Session.io.PromptInfo[2] := Subj; Session.io.PromptInfo[2] := Subject;
Session.io.OutFile ('ansiedit', True, 0); Session.io.OutFile ('ansiedit', True, 0);
@ -1159,9 +1156,9 @@ Begin
End; End;
'T' : Begin 'T' : Begin
Session.io.OutFull(Session.GetPrompt(463)); Session.io.OutFull(Session.GetPrompt(463));
Str := Session.io.GetInput(60, 60, 11, Subj); Str := Session.io.GetInput(60, 60, 11, Subject);
If Str <> '' Then Subj := Str; If Str <> '' Then Subject := Str;
Session.io.PromptInfo[2] := Subj; Session.io.PromptInfo[2] := Subject;
Exit; Exit;
End; End;
'U' : Begin 'U' : Begin
@ -1209,6 +1206,10 @@ Begin
Assign (F, FN); Assign (F, FN);
Reset (F, 1); Reset (F, 1);
ANSI.Lines := CurLine;
Ansi.CurX := CurX;
Ansi.CurY := CurLine;
While Not Eof(F) Do Begin While Not Eof(F) Do Begin
BlockRead (F, B, SizeOf(B), BR); BlockRead (F, B, SizeOf(B), BR);

5
mystic/bbs_general.pas
View File

@ -63,11 +63,10 @@ Begin
For Count := 1 to Lines Do For Count := 1 to Lines Do
Editor.SetLineText (Count, Session.Msgs.MsgText[Count]); Editor.SetLineText (Count, Session.Msgs.MsgText[Count]);
Editor.Subj := Subj; Editor.Subject := Subj;
Result := Editor.Edit; Result := Editor.Edit;
Subj := Editor.Subject;
Subj := Editor.Subj;
If Result Then Begin If Result Then Begin
For Count := 1 to Editor.LastLine Do For Count := 1 to Editor.LastLine Do