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

IDE, SourceEditor: Restore saving (to session) the current active tab of *all* open SourceWindows. (Undone from 907d1a29da)

Browse Source 
(cherry picked from commit 145bfa9c0c)
This commit is contained in:
Martin 2024-01-23 12:33:11 +01:00
parent 9cc28d03c4
commit 5bd8abd32b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/project.pp
View File

@ -3933,7 +3933,8 @@ var
begin begin
for i := 0 to AllEditorsInfoCount - 1 do for i := 0 to AllEditorsInfoCount - 1 do
with AllEditorsInfo[i] do with AllEditorsInfo[i] do
IsVisibleTab := (WindowID = AWindowID) and (EditorComponent = AnEditor); if AllEditorsInfo[i].WindowID = AWindowID then
IsVisibleTab := (EditorComponent = AnEditor);
AnEditorInfo := EditorInfoWithEditorComponent(AnEditor); AnEditorInfo := EditorInfoWithEditorComponent(AnEditor);
if AnEditorInfo = nil then Exit(nil); if AnEditorInfo = nil then Exit(nil);
Result := AnEditorInfo.UnitInfo; Result := AnEditorInfo.UnitInfo;