paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 14:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fixed display/repaint issue, with text files (no highlighter used)

Browse Source 
git-svn-id: trunk@20664 -
This commit is contained in:
martin 2009-06-18 12:17:12 +00:00
parent b5da1c1954
commit e3b36fe253
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synedit.pp
View File

@ -4390,6 +4390,7 @@ function TCustomSynEdit.ScanFrom(var Index: integer; AtLeastTilIndex: integer):
begin
{$IFDEF SYNFOLDDEBUG}debugln(['FOLD-- ScanFrom Index=', Index, ' AtLeats=', AtLeastTilIndex]);{$ENDIF}
if Index < 0 then Index := 0;
Result := Max(Index, AtLeastTilIndex);
if not assigned(fHighlighter) or (Index > FTheLinesView.Count - 1) then begin
FFoldedLinesView.FixFoldingAtTextIndex(Index);
fMarkupManager.TextChangedScreen(Max(RowToScreenRow(Index+1), 0), LinesInWindow+1);