paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 10:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Optimize TSourceNotebook.FindPageWithEditor a little.

Browse Source 
git-svn-id: trunk@64205 -
This commit is contained in:
juha 2020-12-15 18:17:33 +00:00
parent c3d9ff515c
commit 24690ac403
1 changed files with 9 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/sourceeditor.pp
View File

@ -8682,26 +8682,19 @@ End;
function TSourceNotebook.FindPageWithEditor(ASourceEditor: TSourceEditor): integer; function TSourceNotebook.FindPageWithEditor(ASourceEditor: TSourceEditor): integer;
var var
LParent: TWinControl; LTabSheet, LParent: TWinControl;
LTabSheet: TWinControl;
begin begin
if (ASourceEditor.EditorComponent.Parent is TTabSheet) then Result:=-1;
LParent := ASourceEditor.EditorComponent.Parent;
if LParent is TTabSheet then
begin begin
LParent := ASourceEditor.EditorComponent.Parent.Parent; repeat
LTabSheet := ASourceEditor.EditorComponent.Parent;
while (LParent <> FNotebook) and (LParent <> nil) do
begin
LTabSheet := LParent; LTabSheet := LParent;
LParent := LParent.Parent; LParent := LParent.Parent;
end; until (LParent = FNotebook) or (LParent = nil);
if (LParent <> nil) and (LTabSheet is TTabSheet) then if (LParent <> nil) and (LTabSheet is TTabSheet) then
Result:=TTabSheet(LTabSheet).PageIndex Result:=TTabSheet(LTabSheet).PageIndex;
else end;
Result:=-1;
end
else
Result:=-1;
end; end;
function TSourceNotebook.FindSourceEditorWithEditorComponent(EditorComp: TComponent): TSourceEditor; function TSourceNotebook.FindSourceEditorWithEditorComponent(EditorComp: TComponent): TSourceEditor;
@ -8845,7 +8838,7 @@ var
CaretXY: TPoint; CaretXY: TPoint;
TopLine: Integer; TopLine: Integer;
Begin Begin
if (not assigned(Manager)) or (FUpdateLock > 0) Then begin if (Manager = nil) or (FUpdateLock > 0) Then begin
Include(States, snNotebookPageChangedNeeded); Include(States, snNotebookPageChangedNeeded);
exit; exit;
end; end;