paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:20:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: remove one more deprecated method TSourceNotebook.ClearErrorLines.

Browse Source 
git-svn-id: trunk@45881 -
This commit is contained in:
juha 2014-07-15 17:28:54 +00:00
parent 68ec932c40
commit 91cc270510
2 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/srceditorintf.pas
View File

@ -210,10 +210,6 @@ type
property ActiveEditor: TSourceEditorInterface read GetActiveEditor write SetActiveEditor;
function Count: integer; virtual; abstract;
property Items[Index: integer]: TSourceEditorInterface read GetItems; default;
procedure ClearErrorLines; virtual; abstract;
deprecated 'use SourceEditorManagerIntf'; // deprecated in 0.9.29 March 2010
property ActiveCompletionPlugin: TSourceEditorCompletionPlugin read GetActiveCompletionPlugin;
end;

18
ide/sourceeditor.pp
View File

@ -839,7 +839,6 @@ type
procedure MoveEditor(OldPageIndex, NewWindowIndex, NewPageIndex: integer);
procedure UpdateStatusBar;
procedure ClearErrorLines; override; // ToDo: remove. It is deprecated
procedure ClearExecutionLines;
procedure ClearExecutionMarks;
@ -8469,14 +8468,6 @@ begin
AEditor.UseIncrementalColor:= snIncrementalFind in States;
end;
procedure TSourceNotebook.ClearErrorLines;
var
i: integer;
begin
for i := 0 to EditorCount - 1 do
Editors[i].ErrorLine := -1;
end;
procedure TSourceNotebook.ClearExecutionLines;
var
i: integer;
@ -9451,10 +9442,15 @@ end;
procedure TSourceEditorManager.ClearErrorLines;
var
i: Integer;
i, j: Integer;
SrcWin: TSourceNotebook;
begin
for i := FSourceWindowList.Count - 1 downto 0 do
SourceWindows[i].ClearErrorLines;
begin
SrcWin := SourceWindows[i];
for j := 0 to SrcWin.EditorCount - 1 do
SrcWin.Editors[j].ErrorLine := -1;
end;
end;
procedure TSourceEditorManager.ClearExecutionLines;