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

Nano-style cut/paste

This commit is contained in:
mysticbbs 2012-08-21 17:57:01 -04:00
parent b004a990f9
commit 4efb43f65b
1 changed files with 47 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
mystic/mide.pas
View File

@ -127,6 +127,18 @@ Type
Procedure ReDrawFull; Procedure ReDrawFull;
End; End;
Const
MaxCutText = 200;
Type
CutTextPtr = ^CutTextRec;
CutTextRec = String[255];
Var
CutPasted : Boolean = False;
CutTextPos : Word = 0;
CutText : Array[1..MaxCutText] of CutTextPTR;
Var Var
Console : TOutput; Console : TOutput;
Input : TInput; Input : TInput;
@ -940,7 +952,7 @@ Begin
ReDrawScreen; ReDrawScreen;
End; End;
Procedure RelocatePos (X : Byte; Line : Word); Procedure RelocatePos (X: Byte; Line: Word);
Begin Begin
With CurWin[CurWinNum]^ Do Begin With CurWin[CurWinNum]^ Do Begin
TopPage := Line; TopPage := Line;
@ -1038,7 +1050,6 @@ Begin
Console.PutScreenImage(Image); Console.PutScreenImage(Image);
End; End;
Procedure CloseFile; Procedure CloseFile;
Var Var
A : Byte; A : Byte;
@ -1642,10 +1653,8 @@ Begin
End; End;
2 : Begin 2 : Begin
CoolBoxOpen (14, 'Edit'); CoolBoxOpen (14, 'Edit');
BoxOpen (15, 4, 30, 9); BoxOpen (15, 4, 30, 7);
Form.AddNone('M', ' Mark Text ' , 16, 5, 14, 'Begin marking a block of text');
Form.AddNone('P', ' Paste Text ', 16, 6, 14, 'Paste marked text at current location');
Form.AddNone('F', ' Find ' , 16, 7, 14, 'Search for text'); Form.AddNone('F', ' Find ' , 16, 7, 14, 'Search for text');
Form.AddNone('R', ' Replace ' , 16, 8, 14, 'Search and replace text'); Form.AddNone('R', ' Replace ' , 16, 8, 14, 'Search and replace text');
@ -1966,6 +1975,36 @@ Begin
End; End;
End; End;
End; End;
^K : Begin
If CutPasted Then Begin
For A := CutTextPos DownTo 1 Do
Dispose (CutText[A]);
CutTextPos := 0;
CutPasted := False;
End;
If CutTextPos < MaxCutText Then Begin
Inc (CutTextPos);
New (CutText[CutTextPos]);
CutText[CutTextPos]^ := CurWin[CurWinNum]^.TextData[CurWin[CurWinNum]^.CurLine]^;
DeleteLine(True);
End;
End;
^U : If CutTextPos > 0 Then Begin
CutPasted := True;
For A := CutTextPos DownTo 1 Do
If CurWin[CurWinNum]^.TotalLines < mideMaxFileLines Then Begin
InsertLine(CurWin[CurWinNum]^.CurLine);
CurWin[CurWinNum]^.TextData[CurWin[CurWinNum]^.CurLine]^ := CutText[A]^;
End;
DrawPage;
End;
^Y : DeleteLine(True); ^Y : DeleteLine(True);
#08 : BackSpace; #08 : BackSpace;
#09 : InsertTab; #09 : InsertTab;
@ -1978,6 +2017,9 @@ Begin
While TotalWinNum > 0 Do CloseFile; While TotalWinNum > 0 Do CloseFile;
For A := CutTextPos DownTo 1 Do
Dispose (CutText[A]);
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);