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

SynEdit: Fix auto fold on load $REGION /fold

Browse Source 
git-svn-id: trunk@25903 -
This commit is contained in:
martin 2010-06-04 21:16:51 +00:00
parent 2cec83d068
commit e29f6a7a65
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synedit.pp
View File

@ -173,6 +173,7 @@ type
sfEnsureCursorPos, sfEnsureCursorPosAtResize,
sfIgnoreNextChar, sfPainting, sfHasScrolled,
sfScrollbarChanged, sfHorizScrollbarVisible, sfVertScrollbarVisible,
sfAfterLoadFromFile,
// Mouse-states
sfDblClicked, sfGutterClick, sfTripleClicked, sfQuadClicked,
sfWaitForDragging, sfIsDragging, sfMouseSelecting, sfMouseDoneSelecting,
@ -1813,6 +1814,8 @@ begin
try
if (FPaintLock=1) and HandleAllocated then begin
ScanRanges;
if sfAfterLoadFromFile in fStateFlags then
AfterLoadFromFile;
if FChangedLinesStart > 0 then begin
InvalidateLines(FChangedLinesStart, FChangedLinesEnd);
InvalidateGutterLines(FChangedLinesStart, FChangedLinesEnd);
@ -4110,6 +4113,8 @@ begin
Application.RemoveOnIdleHandler(@IdleScanRanges);
inherited CreateHandle; //SizeOrFontChanged will be called
ScanRanges;
if sfAfterLoadFromFile in fStateFlags then
AfterLoadFromFile;
UpdateScrollBars;
//if fStateFlags * [sfEnsureCursorPos, sfEnsureCursorPosAtResize] <> [] then
// EnsureCursorPosVisible;
@ -6471,6 +6476,13 @@ end;
procedure TCustomSynEdit.AfterLoadFromFile;
begin
if (not HandleAllocated) or
( (FPaintLock > 0) and not((FPaintLock = 1) and FIsInDecPaintLock) )
then begin
Include(fStateFlags, sfAfterLoadFromFile);
exit;
end;
Exclude(fStateFlags, sfAfterLoadFromFile);
if assigned(FFoldedLinesView) then begin
// TODO: Maybe defer until after paintlock?
ScanRanges;