paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 09:59:17 +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;
var
LParent: TWinControl;
LTabSheet: TWinControl;
LTabSheet, LParent: TWinControl;
begin
if (ASourceEditor.EditorComponent.Parent is TTabSheet) then
Result:=-1;
LParent := ASourceEditor.EditorComponent.Parent;
if LParent is TTabSheet then
begin
LParent := ASourceEditor.EditorComponent.Parent.Parent;
LTabSheet := ASourceEditor.EditorComponent.Parent;
while (LParent <> FNotebook) and (LParent <> nil) do
begin
repeat
LTabSheet := LParent;
LParent := LParent.Parent;
end;
until (LParent = FNotebook) or (LParent = nil);
if (LParent <> nil) and (LTabSheet is TTabSheet) then
Result:=TTabSheet(LTabSheet).PageIndex
else
Result:=-1;
end
else
Result:=-1;
Result:=TTabSheet(LTabSheet).PageIndex;
end;
end;
function TSourceNotebook.FindSourceEditorWithEditorComponent(EditorComp: TComponent): TSourceEditor;
@ -8845,7 +8838,7 @@ var
CaretXY: TPoint;
TopLine: Integer;
Begin
if (not assigned(Manager)) or (FUpdateLock > 0) Then begin
if (Manager = nil) or (FUpdateLock > 0) Then begin
Include(States, snNotebookPageChangedNeeded);
exit;
end;