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

IDE, main: add comment

Browse Source 
git-svn-id: trunk@33438 -
This commit is contained in:
martin 2011-11-09 15:33:51 +00:00
parent eca7c0b024
commit ad54b6620d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/main.pp
View File

@ -10093,6 +10093,7 @@ var
Access: TEditorOptionsEditAccessOrderEntry; Access: TEditorOptionsEditAccessOrderEntry;
begin begin
Result := nil; Result := nil;
// Check for already open Editor. If there is none, then it must be opened in DoOpenEditorFile
if AnUnitInfo.OpenEditorInfoCount = 0 then exit; if AnUnitInfo.OpenEditorInfoCount = 0 then exit;
for i := 0 to EditorOpts.MultiWinEditAccessOrder.Count - 1 do begin for i := 0 to EditorOpts.MultiWinEditAccessOrder.Count - 1 do begin
Access := EditorOpts.MultiWinEditAccessOrder[i]; Access := EditorOpts.MultiWinEditAccessOrder[i];