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

Synedit: Fixed missing invalidation, after folding "/fold" default region

Browse Source 
git-svn-id: trunk@21180 -
This commit is contained in:
martin 2009-08-11 23:54:05 +00:00
parent 05b23d62ab
commit 389bc62b33
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedit.pp
View File

@ -714,6 +714,7 @@ type
property TopView: Integer read GetTopView write SetTopView; // TopLine converted into Visible(View) lines property TopView: Integer read GetTopView write SetTopView; // TopLine converted into Visible(View) lines
{$ENDIF} {$ENDIF}
function PasteFromClipboardEx(ClipHelper: TSynClipboardStream): Boolean; function PasteFromClipboardEx(ClipHelper: TSynClipboardStream): Boolean;
function FindNextUnfoldedLine(iLine: integer; Down: boolean): Integer;
public public
procedure FindMatchingBracket; virtual; procedure FindMatchingBracket; virtual;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
@ -723,7 +724,6 @@ type
): TPoint; virtual; ): TPoint; virtual;
//code fold //code fold
procedure CodeFoldAction(iLine: integer); deprecated; procedure CodeFoldAction(iLine: integer); deprecated;
function FindNextUnfoldedLine(iLine: integer; Down: boolean): Integer;
procedure UnfoldAll; procedure UnfoldAll;
procedure FoldAll(StartLevel : Integer = 0; IgnoreNested : Boolean = False); procedure FoldAll(StartLevel : Integer = 0; IgnoreNested : Boolean = False);
procedure EraseBackground(DC: HDC); override; procedure EraseBackground(DC: HDC); override;
@ -6223,6 +6223,7 @@ begin
ScanFromAfterLock; ScanFromAfterLock;
FFoldedLinesView.UnfoldAll; FFoldedLinesView.UnfoldAll;
FFoldedLinesView.CollapseDefaultFolds; FFoldedLinesView.CollapseDefaultFolds;
TopLine := TopLine;
end; end;
end; end;

6
components/synedit/syneditfoldedview.pp
View File

@ -2965,13 +2965,17 @@ begin
nd := hl.FoldNodeInfo[i, j, [sfaOpen, sfaFold]]; nd := hl.FoldNodeInfo[i, j, [sfaOpen, sfaFold]];
if (sfaDefaultCollapsed in nd.FoldAction) and if (sfaDefaultCollapsed in nd.FoldAction) and
(not IsFoldedAtTextIndex(i, j)) (not IsFoldedAtTextIndex(i, j))
then then begin
fFoldTree.InsertNewFold(i+2, j, LengthForFoldAtTextIndex(i, j)); fFoldTree.InsertNewFold(i+2, j, LengthForFoldAtTextIndex(i, j));
if Assigned(fOnFoldChanged) then
fOnFoldChanged(i);
end;
inc(j); inc(j);
end; end;
end; end;
inc(i); inc(i);
end; end;
CalculateMaps;
end; end;
function TSynEditFoldedView.GetFoldDescription(AStartIndex, AStartCol, AEndIndex, function TSynEditFoldedView.GetFoldDescription(AStartIndex, AStartCol, AEndIndex,