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

IDE: accelerated TSourceNotebook.FindPageWithEditor

Browse Source 
git-svn-id: trunk@26019 -
This commit is contained in:
mattias 2010-06-10 08:17:53 +00:00
parent 0fc5f38dce
commit a392fb4a51
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/sourceeditor.pp
View File

@ -6880,15 +6880,11 @@ End;
function TSourceNotebook.FindPageWithEditor(
ASourceEditor: TSourceEditor):integer;
var i:integer;
begin
Result:=PageCount-1;
while (Result>=0) do begin
with NotebookPage[Result] do
for I := 0 to ControlCount-1 do
if Controls[I]=ASourceEditor.EditorComponent then exit;
dec(Result);
end;
if ASourceEditor.EditorComponent.Parent is TPage then
Result:=TPage(ASourceEditor.EditorComponent.Parent).PageIndex
else
Result:=-1;
end;
function TSourceNotebook.FindSourceEditorWithEditorComponent(