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

IDE: editor file manager: dockable

Browse Source 
git-svn-id: trunk@41969 -
This commit is contained in:
mattias 2013-07-02 16:07:39 +00:00
parent 219041d762
commit 036500ffba
4 changed files with 24 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/editorfilemanager.pas
View File

@ -5,9 +5,10 @@ unit EditorFileManager;
interface
uses
Classes, sysutils, Forms, Controls, CheckLst, ButtonPanel, StdCtrls,
Buttons, ExtCtrls, Menus, LCLProc, LCLType, IDEImagesIntf, LazIDEIntf,
IDEHelpIntf, SrcEditorIntf, SourceEditor, LazarusIDEStrConsts, ListFilterEdit;
Classes, sysutils, Forms, Controls, CheckLst, ButtonPanel, StdCtrls, Buttons,
ExtCtrls, Menus, LCLProc, LCLType, IDEImagesIntf, LazIDEIntf, IDEHelpIntf,
SrcEditorIntf, IDEWindowIntf, SourceEditor, LazarusIDEStrConsts,
ListFilterEdit;
type
@ -64,20 +65,20 @@ type
property SortAlphabetically: boolean read FSortAlphabetically write SetSortAlphabetically;
end;
procedure ShowEditorFileManagerForm;
var
EditorFileManagerForm: TEditorFileManagerForm;
procedure ShowEditorFileManagerForm(BringToFront: boolean);
implementation
{$R *.lfm}
var
EditorFileManagerForm: TEditorFileManagerForm;
procedure ShowEditorFileManagerForm;
procedure ShowEditorFileManagerForm(BringToFront: boolean);
begin
if EditorFileManagerForm = nil then
EditorFileManagerForm := TEditorFileManagerForm.Create(SourceEditorManager);
EditorFileManagerForm.Show;
if EditorFileManagerForm = Nil then
Application.CreateForm(TEditorFileManagerForm, EditorFileManagerForm);
IDEWindowCreators.ShowForm(EditorFileManagerForm,BringToFront);
end;
{ TEditorFileManagerForm }

6
ide/ideoptiondefs.pas
View File

@ -81,7 +81,8 @@ type
nmiwClipbrdHistoryName,
nmiwPkgGraphExplorer,
nmiwProjectInspector,
// extra
nmiwEditorFileManager,
// not shown at startup
nmiwSearchResultsViewName,
nmiwAnchorEditor,
nmiwTabOrderEditor,
@ -116,7 +117,8 @@ const
'ClipBrdHistory',
'PkgGraphExplorer',
'ProjectInspector',
// extra
'EditorFileManager',
// not shown at startup
'SearchResults',
'AnchorEditor',
'TabOrderEditor',

9
ide/main.pp
View File

@ -2305,6 +2305,8 @@ begin
nil,@CreateIDEWindow,'250','250','','');
IDEWindowCreators.Add(NonModalIDEWindowNames[nmiwComponentList],
nil,@CreateIDEWindow,'250','250','','');
IDEWindowCreators.Add(NonModalIDEWindowNames[nmiwEditorFileManager],
nil,@CreateIDEWindow,'200','200','','');
end;
procedure TMainIDE.RestoreIDEWindows;
@ -4974,7 +4976,7 @@ end;
procedure TMainIDE.mnuWindowManagerClicked(Sender: TObject);
begin
ShowEditorFileManagerForm;
ShowEditorFileManagerForm(true);
end;
procedure TMainIDE.SaveEnvironment(Immediately: boolean);
@ -6133,6 +6135,11 @@ begin
DoShowComponentList(false);
AForm:=ComponentListForm;
end
else if ItIs(NonModalIDEWindowNames[nmiwEditorFileManager]) then
begin
ShowEditorFileManagerForm(false);
AForm:=EditorFileManagerForm;
end
else if ItIs(DefaultObjectInspectorName) then
begin
DoShowInspector(false);

2
ide/unitdependencies.pas
View File

@ -269,9 +269,7 @@ begin
if UnitDependenciesWindow = Nil then
Application.CreateForm(TUnitDependenciesWindow, UnitDependenciesWindow);
if Show then
begin
IDEWindowCreators.ShowForm(UnitDependenciesWindow,BringToFront);
end;
end;
function CompareUDBaseNodes(UDNode1, UDNode2: Pointer): integer;