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

IDE: fixed top-line-proc-name hint. The wrong line was shown if lines above were folded.

Browse Source 
git-svn-id: trunk@63403 -
This commit is contained in:
martin 2020-06-20 15:22:04 +00:00
parent 591acf514b
commit 5bb7d9bdd1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourcesyneditor.pas
View File

@ -59,7 +59,7 @@ uses
SynEditHighlighter, SynEditHighlighterFoldBase, SynHighlighterPas, SynEditHighlighter, SynEditHighlighterFoldBase, SynHighlighterPas,
SynEditMarkupHighAll, SynEditKeyCmds, SynEditMarkupIfDef, SynEditMiscProcs, SynEditMarkupHighAll, SynEditKeyCmds, SynEditMarkupIfDef, SynEditMiscProcs,
SynPluginMultiCaret, SynEditPointClasses, SynPluginMultiCaret, SynEditPointClasses,
SynEditMarkupFoldColoring, SynEditMarkupFoldColoring, SynEditTextTabExpander,
etSrcEditMarks, LazarusIDEStrConsts; etSrcEditMarks, LazarusIDEStrConsts;
type type
@ -1778,7 +1778,7 @@ begin
GetCaretObj.AddChangeHandler(@SrcSynCaretChanged); GetCaretObj.AddChangeHandler(@SrcSynCaretChanged);
FTopInfoDisplay := TSourceLazSynTopInfoView.Create; FTopInfoDisplay := TSourceLazSynTopInfoView.Create;
FTopInfoDisplay.NextView := ViewedTextBuffer.DisplayView; FTopInfoDisplay.NextView := TextViewsManager.SynTextViewByClass[TSynEditStringTabExpander].DisplayView;
TSourceLazSynSurfaceManager(FPaintArea).TopLineCount := 0; TSourceLazSynSurfaceManager(FPaintArea).TopLineCount := 0;
// TSourceLazSynSurfaceManager(FPaintArea).ExtraManager.TextArea.BackgroundColor := clSilver; // TSourceLazSynSurfaceManager(FPaintArea).ExtraManager.TextArea.BackgroundColor := clSilver;
TSourceLazSynSurfaceManager(FPaintArea).ExtraManager.DisplayView := FTopInfoDisplay; TSourceLazSynSurfaceManager(FPaintArea).ExtraManager.DisplayView := FTopInfoDisplay;