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

reformat paragraph (ctrl-B) now matches linewrap length in reguar word wrapping, pasting urls longer than 80 chars from clipboard now works as expected

This commit is contained in:
g00r00 2013-10-02 20:39:05 -04:00
parent fce718ece3
commit aa10b93c6a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mystic/bbs_edit_ansi.pas
View File

@ -191,7 +191,7 @@ Var
Begin Begin
Result := False; Result := False;
If GetLineLength(ANSI.Data[Line], 80) >= Rowsize Then Begin If GetLineLength(ANSI.Data[Line], 80) >= RowSize Then Begin
Result := True; Result := True;
Exit; Exit;
@ -1347,7 +1347,7 @@ Begin
If JoinLen = 0 Then Break; If JoinLen = 0 Then Break;
If LineLen + JoinLen <= RowSize Then Begin If LineLen + JoinLen < RowSize Then Begin
Move (ANSI.Data[Line + 1], ANSI.Data[Line][LineLen + 2], SizeOf(RecAnsiBufferChar) * JoinLen); Move (ANSI.Data[Line + 1], ANSI.Data[Line][LineLen + 2], SizeOf(RecAnsiBufferChar) * JoinLen);
ANSI.Data[Line][LineLen + 1].Ch := ' '; ANSI.Data[Line][LineLen + 1].Ch := ' ';
@ -1476,7 +1476,8 @@ Begin
End; End;
#32.. #32..
#254 : If (CurLength >= RowSize) and (GetWrapPos(ANSI.Data[CurLine], RowSize, RowSize) = 0) And InsertMode Then Begin #254 : If (CurLength >= RowSize) and (GetWrapPos(ANSI.Data[CurLine], RowSize, RowSize) = 0) And InsertMode Then Begin
// dont do anything DoEnter;
DoChar(Ch);
End Else End Else
If (CurX = 1) and (Ch = '/') and (Not DrawMode) Then Begin If (CurX = 1) and (Ch = '/') and (Not DrawMode) Then Begin
EditorCommands; EditorCommands;