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

SourceEditor: small fixes to not yet used code (multi window)

Browse Source 
git-svn-id: trunk@24123 -
This commit is contained in:
martin 2010-03-21 00:00:41 +00:00
parent a1b9664066
commit 9e0ad791fc
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/sourceeditor.pp
View File

@ -7112,7 +7112,7 @@ begin
else
Window := SourceWindowWithEditor(AValue);
if Window = nil then exit;
FActiveWindow := TSourceNotebook(Window);
ActiveSourceWindow := TSourceNotebook(Window);
Window.ActiveEditor := AValue;
end;
@ -7122,8 +7122,10 @@ var
i: Integer;
begin
i := 0;
while (i < SourceWindowCount) and (Index >= SourceWindows[i].Count) do
while (i < SourceWindowCount) and (Index >= SourceWindows[i].Count) do begin
Index := Index - SourceWindows[i].Count;
inc(i);
end;
if (i < SourceWindowCount) then
Result := SourceWindows[i].Items[Index]
else
@ -7153,9 +7155,11 @@ function TSourceEditorManagerBase.IndexOfSourceWindow(
AWindow: TSourceEditorWindowInterface): integer;
begin
Result := SourceWindowCount - 1;
while Result >= 0 do
while Result >= 0 do Begin
if SourceWindows[Result] = AWindow then
exit;
dec(Result);
end;
end;
function TSourceEditorManagerBase.SourceEditorIntfWithFilename(
@ -7415,8 +7419,9 @@ end;
function TSourceEditorManager.ActiveOrNewSourceWindow: TSourceNotebook;
begin
Result := ActiveSourceWindow;
if Result = nil then
if Result <> nil then exit;
Result := CreateNewWindow(True);
ActiveSourceWindow := nil;
end;
function TSourceEditorManager.SourceEditorCount: integer;
@ -7872,6 +7877,7 @@ begin
SourceWindows[i].CloseFile(j);
break;
end;
dec(i);
end;
end;