paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 23:07:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* max number of line changed and warning added

Browse Source
This commit is contained in:
pierre 2000-03-14 13:38:03 +00:00
parent 34e57271bd
commit 658178f0f3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/text/weditor.pas
View File

@ -51,7 +51,7 @@ const
EditorTextBufSize = {$ifdef FPC}32768{$else} 4096{$endif};
MaxLineLength = {$ifdef FPC} 255{$else} 255{$endif};
MaxLineCount = {$ifdef FPC}16380{$else}16380{$endif};
MaxLineCount = {$ifdef FPC}2000000{$else}16380{$endif};
CodeCompleteMinLen = 4; { minimum length of text to try to complete }
@ -4955,6 +4955,8 @@ begin
LimitsChanged;
if not AllLinesComplete then
SetModified(true);
if (GetLineCount=MaxLineCount) and not eofstream(stream) then
EditorDialog(edTooManyLines,nil);
if IsFlagSet(efSyntaxHighlight) then
UpdateAttrsRange(0,Min(Delta.Y+Size.Y,GetLineCount-1),
attrAll
@ -5614,7 +5616,10 @@ end;
END.
{
$Log$
Revision 1.82 2000-03-02 22:33:36 pierre
Revision 1.83 2000-03-14 13:38:03 pierre
* max number of line changed and warning added
Revision 1.82 2000/03/02 22:33:36 pierre
* Grep improoved
Revision 1.81 2000/02/09 12:56:54 pierre