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

started codeexplorer

Browse Source 
git-svn-id: trunk@3121 -
This commit is contained in:
mattias 2002-08-18 08:57:45 +00:00
parent 019f35ccea
commit 4eb7ce4d6c
1 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ide/main.pp
View File

@ -79,7 +79,7 @@ uses
ExtToolEditDlg, MacroPromptDlg, OutputFilter, BuildLazDialog, MiscOptions,
InputHistory, UnitDependencies, ClipBoardHistory, ProcessList,
InitialSetupDlgs, NewDialog, MakeResStrDlg, ToDoList, AboutFrm,
FindReplaceDialog, FindInFilesDlg,
FindReplaceDialog, FindInFilesDlg, CodeExplorer,
// main ide
MainBar;
@ -320,6 +320,10 @@ type
Sender: TObject): string;
procedure UnitDependenciesViewOpenFile(Sender: TObject;
const Filename: string);
// code explorer events
procedure OnCodeExplorerGetCodeTree(Sender: TObject;
var ACodeTool: TCodeTool);
// view project ToDo list events
procedure ViewProjectTodosOpenFile(Sender: TObject;
@ -473,6 +477,7 @@ type
function DoRevertMainUnit: TModalResult;
function DoViewUnitsAndForms(OnlyForms: boolean): TModalResult;
procedure DoViewUnitDependencies;
procedure DoShowCodeExplorer;
// project(s)
function DoNewProject(NewProjectType: TProjectType): TModalResult;
@ -2107,7 +2112,7 @@ end;
Procedure TMainIDE.mnuViewCodeExplorerClick(Sender : TObject);
begin
SourceNotebook.ShowOnTop;
DoShowCodeExplorer;
end;
Procedure TMainIDE.mnuViewMessagesClick(Sender : TObject);
@ -4671,6 +4676,18 @@ begin
UnitDependenciesView.ShowOnTop;
end;
procedure TMainIDE.DoShowCodeExplorer;
begin
if CodeExplorerView=nil then begin
CodeExplorerView:=TCodeExplorerView.Create(Self);
CodeExplorerView.OnGetCodeTree:=@OnCodeExplorerGetCodeTree;
end;
EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(nmiwCodeExplorerName).Apply;
CodeExplorerView.ShowOnTop;
CodeExplorerView.Refresh;
end;
function TMainIDE.DoSaveStringToFile(const Filename, Src,
FileDescription: string): TModalResult;
var
@ -7433,6 +7450,17 @@ begin
DoOpenEditorFile(Filename,-1,[]);
end;
procedure TMainIDE.OnCodeExplorerGetCodeTree(Sender: TObject;
var ACodeTool: TCodeTool);
var
ActiveUnitInfo: TUnitInfo;
ActiveSrcEdit: TSourceEditor;
begin
ACodeTool:=nil;
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[]) then exit;
CodeToolBoss.Explore(ActiveUnitInfo.Source,ACodeTool,false);
end;
procedure TMainIDE.ViewProjectTodosOpenFile(Sender: TObject;
const Filename: string);
begin
@ -9164,8 +9192,8 @@ begin
// explicit position
ALayout.Form.SetBounds(
ALayout.Left,ALayout.Top,ALayout.Width,ALayout.Height)
end else
if (not (ALayout.WindowPlacement in [iwpDocked,iwpUseWindowManagerSetting]))
end
else if (not (ALayout.WindowPlacement in [iwpDocked,iwpUseWindowManagerSetting]))
then begin
// default position
l:=NonModalIDEFormIDToEnum(ALayout.FormID);
@ -9233,6 +9261,9 @@ end.
{ =============================================================================
$Log$
Revision 1.610 2003/06/19 16:36:34 mattias
started codeexplorer
Revision 1.609 2003/06/19 09:26:58 mattias
fixed changing unitname during update