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

Added copy year

This commit is contained in:
mysticbbs 2012-03-08 16:34:58 -05:00
parent 7073f62a78
commit 1d5222ecc8
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mystic/mide.pas
View File

@ -39,6 +39,8 @@ Uses
m_FileIO, m_FileIO,
MPL_Compile; MPL_Compile;
{$I RECORDS.PAS}
Const Const
mideVersion = '2.0.0'; mideVersion = '2.0.0';
mideMaxFileLines = 10000; mideMaxFileLines = 10000;
@ -775,12 +777,15 @@ Begin
If CurWin[CurWinNum] = NIL Then Exit; If CurWin[CurWinNum] = NIL Then Exit;
SaveFile(CurWinNum, True, True); SaveFile(CurWinNum, True, True);
DisposeText; DisposeText;
If CurWinNum = TotalWinNum Then Begin If CurWinNum = TotalWinNum Then Begin
CurWin[CurWinNum]^.Box.Free; CurWin[CurWinNum]^.Box.Free;
Dispose (CurWin[CurWinNum], Done); Dispose (CurWin[CurWinNum], Done);
CurWin[CurWinNum] := NIL; CurWin[CurWinNum] := NIL;
Dec (CurWinNum); Dec (CurWinNum);
Dec (TotalWinNum); Dec (TotalWinNum);
End Else Begin End Else Begin
@ -871,6 +876,7 @@ Begin
Inc (TotalLines); Inc (TotalLines);
New(TextData[TotalLines]); New(TextData[TotalLines]);
For A := TotalLines DownTo Num + 1 Do Begin For A := TotalLines DownTo Num + 1 Do Begin
S := TextData[A-1]^; S := TextData[A-1]^;
TextData[A]^ := S; TextData[A]^ := S;
@ -1034,18 +1040,24 @@ Begin
If (CurLine > 1) and (CurX = 1) and (ScrlX = 0) Then Begin If (CurLine > 1) and (CurX = 1) and (ScrlX = 0) Then Begin
S := TextData[CurLine-1]^; S := TextData[CurLine-1]^;
S2 := TextData[CurLine]^; S2 := TextData[CurLine]^;
If Length(S) + Length(S2) > mideMaxLineSize Then Begin If Length(S) + Length(S2) > mideMaxLineSize Then Begin
CurX := mideMaxLineSize + 1; CurX := mideMaxLineSize + 1;
UpArrow; UpArrow;
Exit; Exit;
End; End;
CurX := Length(S) + 1; CurX := Length(S) + 1;
S := S + strStripR(S2, ' '); S := S + strStripR(S2, ' ');
TextData[CurLine-1]^ := S; TextData[CurLine-1]^ := S;
DeleteLine(False); DeleteLine(False);
UpArrow; UpArrow;
If CurX > 77 Then ScrlX := CurX - 77 Else ScrlX := 0; If CurX > 77 Then ScrlX := CurX - 77 Else ScrlX := 0;
If ScrlX > 0 Then CurX := 77; If ScrlX > 0 Then CurX := 77;
DrawPage; DrawPage;
Exit; Exit;
End; End;
@ -1075,6 +1087,7 @@ Begin
If CurLine > 20 Then Begin If CurLine > 20 Then Begin
Dec (TopPage, 20); Dec (TopPage, 20);
Dec (CurLine, 20); Dec (CurLine, 20);
If TopPage < 1 Then Begin If TopPage < 1 Then Begin
TopPage := 1; TopPage := 1;
CurY := CurLine - TopPage + 1; CurY := CurLine - TopPage + 1;
@ -1138,6 +1151,7 @@ Begin
S2 := strStripB(Copy(S1, CurX+ScrlX, 255) + S2, ' '); S2 := strStripB(Copy(S1, CurX+ScrlX, 255) + S2, ' ');
Delete (S1, CurX+ScrlX, 255); Delete (S1, CurX+ScrlX, 255);
TextData[CurLine]^ := strStripR(S1, ' '); TextData[CurLine]^ := strStripR(S1, ' ');
TextData[CurLine+1]^ := strRep(' ', Indent - 1) + S2; TextData[CurLine+1]^ := strRep(' ', Indent - 1) + S2;
@ -1171,7 +1185,7 @@ Begin
Console.WriteXY (21, 8, 31, strPadC('MIDE', 40, ' ')); Console.WriteXY (21, 8, 31, strPadC('MIDE', 40, ' '));
Console.WriteXY (21, 9, 112, strRep('Ä', 40)); Console.WriteXY (21, 9, 112, strRep('Ä', 40));
Console.WriteXY (22, 11, 113, 'Copyright (C) 2002-2012 By James Coyle'); Console.WriteXY (22, 11, 113, 'Copyright (C) ' + mysCopyYear + ' By James Coyle');
Console.WriteXY (31, 12, 113, 'All Rights Reserved'); Console.WriteXY (31, 12, 113, 'All Rights Reserved');
Console.WriteXY (21, 14, 113, strPadC('Version ' + mideVersion + ' (MPL v' + mplVer + ')', 40, ' ')); Console.WriteXY (21, 14, 113, strPadC('Version ' + mideVersion + ' (MPL v' + mplVer + ')', 40, ' '));
Console.WriteXY (32, 16, 113, 'www.mysticbbs.com'); Console.WriteXY (32, 16, 113, 'www.mysticbbs.com');
@ -1692,7 +1706,7 @@ Begin
Console.TextAttr := 7; Console.TextAttr := 7;
Console.ClearScreen; Console.ClearScreen;
Console.WriteLine('Mystic Integrated Development Environment Version ' + mideVersion); Console.WriteLine('Mystic Integrated Development Environment Version ' + mideVersion);
Console.WriteLine('Copyright (C) 2002-2012 By James Coyle. All Rights Reserved'); Console.WriteLine('Copyright (C) ' + mysCopyYear + ' By James Coyle. All Rights Reserved');
Input.Free; Input.Free;
Console.Free; Console.Free;