1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
unit RegIDEFileBrowser;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
LazLoggerBase,
Controls, Forms,
LazIDEIntf, MenuIntf, IDECommands, IDEWindowIntf, BaseIDEIntf,
IDEOptionsIntf, IDEOptEditorIntf,
frmFileBrowser, {frmConfigFileBrowser, }ctrlfilebrowser, fraconfigfilebrowser;
procedure Register;
implementation
uses lcltype,frmfilesearcher,filebrowsertypes;
var
FileBrowserOptionsFrameID: integer = 2000;
FileBrowserCreator: TIDEWindowCreator; // set by Register procedure
procedure ShowFileBrowser(Sender: TObject);
begin
IDEWindowCreators.ShowForm(FileBrowserCreator.FormName,true);
end;
procedure ShowFileSearcher(Sender: TObject);
var
Entries : TFileEntryArray;
var
C: TFileBrowserController;
begin
Entries:=[];
With TFileSearcherForm.Create(Application) do
try
if ShowModal=mrOK then
Entries:=GetSelectedItems;
finally
Free;
end;
if Length(Entries)>0 then
begin
C := LazarusIDE.OwningComponent.FindComponent('IDEFileBrowserController') as TFileBrowserController;
if Assigned(C) then
C.OpenFiles(Entries);
end;
end;
procedure CreateFileBrowser(Sender: TObject; aFormName: string; var AForm: TCustomForm; DoDisableAutoSizing: boolean);
var
C: TFileBrowserController;
begin
// sanity check to avoid clashing with another package that has registered a window with the same name
if CompareText(aFormName,'FileBrowser')<>0 then begin
DebugLn(['ERROR: CreateFileBrowser: there is already a form with this name']);
exit;
end;
C := LazarusIDE.OwningComponent.FindComponent('IDEFileBrowserController') as TFileBrowserController;
IDEWindowCreators.CreateForm(AForm,TFileBrowserForm,true,C);
AForm.Name:=aFormName;
FileBrowserForm:=AForm as TFileBrowserForm;
C.ConfigWindow(FileBrowserForm);
FileBrowserForm.ShowFiles;
if not DoDisableAutoSizing then
AForm.EnableAutoSizing;
end;
procedure CreateController;
var
C: TFileBrowserController;
begin
C := LazarusIDE.OwningComponent.FindComponent('IDEFileBrowserController') as TFileBrowserController;
if (C = nil) then
begin
C := TFileBrowserController.Create(LazarusIDE.OwningComponent);
C.Name:='IDEFileBrowserController';
if C.GetResolvedRootDir<>'' then
C.IndexRootDir;
end;
C.ConfigFrame:=TFileBrowserOptionsFrame;
end;
procedure Register;
var
CmdCatViewMenu: TIDECommandCategory;
ViewFileBrowserCommand: TIDECommand;
ViewFileSearcherCommand: TIDECommand;
begin
// search shortcut category
CmdCatViewMenu:=IDECommandList.FindCategoryByName(CommandCategoryViewName);
// register shortcut
ViewFileBrowserCommand:=RegisterIDECommand(CmdCatViewMenu,
'ViewFileBrowser',SFileBrowserIDEMenuCaption,
CleanIDEShortCut,nil,@ShowFileBrowser);
// register shortcut
ViewFileSearcherCommand:=RegisterIDECommand(CmdCatViewMenu,
'ViewFileSearcher',SFileSearcherIDEMenuCaption,
IDEShortCut(Ord('P'), [ssctrl], VK_UNKNOWN,[]),nil,@ShowFileSearcher);
// register menu item in View menu
RegisterIDEMenuCommand(itmViewMainWindows,
ViewFileBrowserCommand.Name,
SFileBrowserIDEMenuCaption, nil, nil, ViewFileBrowserCommand);
RegisterIDEMenuCommand(itmViewMainWindows,
ViewFileSearcherCommand.Name,
SFileSearcherIDEMenuCaption, nil, nil, ViewFileSearcherCommand);
CreateController;
// register dockable Window
FileBrowserCreator:=IDEWindowCreators.Add(
'FileBrowser',
@CreateFileBrowser,nil,
'200','100','400','400'
);
// add IDE options frame
FileBrowserOptionsFrameID:=RegisterIDEOptionsEditor(GroupEnvironment,TFileBrowserOptionsFrame,
FileBrowserOptionsFrameID)^.Index;
end;
end.
|
