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

Some work towards 50 line mode

This commit is contained in:
mysticbbs 2012-03-20 11:20:02 -04:00
parent a428288e21
commit cc33cd02d5
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mystic/mide.pas
View File

@ -55,10 +55,11 @@ Const
colTextKeyword = 31; { 31 } colTextKeyword = 31; { 31 }
colTextComment = 23; { 23 } colTextComment = 23; { 23 }
colTextNormal = 23; { 30 } colTextNormal = 23; { 30 }
colEditBorder = 25; { 31 } colEditBorder = 25; { 31 }
colEditHeader = 31; { 31 } colEditHeader = 31; { 31 }
colEditStatus = 19; { 19 } colEditStatus = 19; { 19 }
colEditPosBar = 19; { 49 } colEditPosBar = 9 + 1 * 16;
Type Type
PEditorWindow = ^TEditorWindow; PEditorWindow = ^TEditorWindow;
@ -303,7 +304,8 @@ Begin
Box.Open (1, mideTopY, 80, mideBotY); Box.Open (1, mideTopY, 80, mideBotY);
For A := 2 to 23 Do Console.WriteXY (80, A, colEditStatus, '°'); For A := mideTopY + 1 to mideBotY - 1 Do
Console.WriteXY (80, A, colEditStatus, '°');
DrawPage; DrawPage;
End; End;
@ -325,13 +327,16 @@ Begin
Reset (F, 1); Reset (F, 1);
If IoResult = 0 Then Begin If IoResult = 0 Then Begin
GetFTime (F, Time); GetFTime (F, Time);
UnpackTime (Time, DT); UnpackTime (Time, DT);
Time := FileSize(F); Time := FileSize(F);
Close (F); Close (F);
End; End;
Str := strZero(DT.Month) + '/' + strZero(DT.Day) + '/' + strI2S(DT.Year) + ' ' + strZero(DT.Hour) + ':' + strZero(DT.Min); Str := strZero(DT.Month) + '/' + strZero(DT.Day) + '/' + strI2S(DT.Year) + ' ' + strZero(DT.Hour) + ':' + strZero(DT.Min);
Console.WriteXY (8, 19, 120, strPadL(strComma(Time) + ' ' + Str, 31, ' ')); Console.WriteXY (8, 19, 120, strPadL(strComma(Time) + ' ' + Str, 31, ' '));
End; End;
End; End;
@ -566,14 +571,14 @@ End;
Procedure DrawStatus; Procedure DrawStatus;
Begin Begin
Console.WriteXY (1, 25, 112, ' MIDE v' + mideVersion + ' ³' + strRep(' ', 55) + '³ ESC/Menu '); Console.WriteXY (1, mideBotY + 1, 112, ' MIDE v' + mideVersion + ' ³' + strRep(' ', 55) + '³ ESC/Menu ');
End; End;
Procedure FillScreen; Procedure FillScreen;
Var Var
Count : Byte; Count : Byte;
Begin Begin
For Count := 1 to 24 Do For Count := 1 to mideBotY Do
Console.WriteXY (1, Count, 8, strRep('°', 80)); Console.WriteXY (1, Count, 8, strRep('°', 80));
DrawStatus; DrawStatus;
@ -1536,6 +1541,7 @@ Begin
Form.Free; Form.Free;
Console.PutScreenImage(Image); Console.PutScreenImage(Image);
DrawStatus; DrawStatus;
End; End;
@ -1546,6 +1552,7 @@ Var
FN : String; FN : String;
Begin Begin
GetDir (0, StartDir); GetDir (0, StartDir);
StartDir := StartDir + PathSep; StartDir := StartDir + PathSep;
Console := TOutput.Create(True); Console := TOutput.Create(True);
@ -1574,8 +1581,7 @@ Begin
Repeat Repeat
If CurWinNum > 0 Then Begin If CurWinNum > 0 Then Begin
With CurWin[CurWinNum]^ Do Begin With CurWin[CurWinNum]^ Do Begin
Console.WriteXY (6, 24, colEditBorder, strPadL(strI2S(CurLine), 4, 'Í') + ':' + strPadR(strI2S(CurX + ScrlX), 3, 'Í')); Console.WriteXY ( 6, mideBotY, colEditBorder, strPadL(strI2S(CurLine), 4, 'Í') + ':' + strPadR(strI2S(CurX + ScrlX), 3, 'Í'));
Console.WriteXY (80, BarPos, colEditStatus, '°'); Console.WriteXY (80, BarPos, colEditStatus, '°');
If CurLine = 1 Then If CurLine = 1 Then