mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 01:39:25 +02:00
IDE: ofDoNotActiveSourceEditor of TOpenFlag added
This commit is contained in:
parent
ad71b6b4b4
commit
c000fed74d
@ -96,7 +96,8 @@ type
|
|||||||
ofDoLoadResource,// do open form, datamodule, ... (overriding default)
|
ofDoLoadResource,// do open form, datamodule, ... (overriding default)
|
||||||
ofLoadHiddenResource,// load component hidden
|
ofLoadHiddenResource,// load component hidden
|
||||||
ofAddToProject, // add file to project (if exists)
|
ofAddToProject, // add file to project (if exists)
|
||||||
ofInternalFile // opening data from an internal source (e.g. an editor macro (pascal script) from memory)
|
ofInternalFile, // opening data from an internal source (e.g. an editor macro (pascal script) from memory)
|
||||||
|
ofDoNotActiveSourceEditor // do not active the source editor window
|
||||||
);
|
);
|
||||||
TOpenFlags = set of TOpenFlag;
|
TOpenFlags = set of TOpenFlag;
|
||||||
|
|
||||||
|
@ -1319,7 +1319,8 @@ begin
|
|||||||
|
|
||||||
if (FNewEditorInfo <> nil) and (FFlags * [ofProjectLoading, ofRevert] = [])
|
if (FNewEditorInfo <> nil) and (FFlags * [ofProjectLoading, ofRevert] = [])
|
||||||
and (FNewEditorInfo.EditorComponent <> nil) then begin
|
and (FNewEditorInfo.EditorComponent <> nil) then begin
|
||||||
SourceEditorManager.ShowActiveWindowOnTop(True);
|
if not (ofDoNotActiveSourceEditor in FFLags) then
|
||||||
|
SourceEditorManager.ShowActiveWindowOnTop(True);
|
||||||
exit(ChangeEditorPage);
|
exit(ChangeEditorPage);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user