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

MG: added Refresh to Unit Dependencies

Browse Source 
git-svn-id: trunk@2775 -
This commit is contained in:
lazarus 2002-08-18 08:53:55 +00:00
parent 99e98a1b11
commit 45c3e33f56
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/main.pp
View File

@ -187,6 +187,12 @@ type
Procedure OnProcessIDECommand(Sender: TObject; Command: word; Procedure OnProcessIDECommand(Sender: TObject; Command: word;
var Handled: boolean); var Handled: boolean);
// Environment options dialog events
procedure OnLoadEnvironmentSettings(Sender: TObject;
TheEnvironmentOptions: TEnvironmentOptions);
procedure OnSaveEnvironmentSettings(Sender: TObject;
TheEnvironmentOptions: TEnvironmentOptions);
// SourceNotebook events // SourceNotebook events
Procedure OnSrcNoteBookActivated(Sender : TObject); Procedure OnSrcNoteBookActivated(Sender : TObject);
Procedure OnSrcNoteBookAddJumpPoint(ACaretXY: TPoint; ATopLine: integer; Procedure OnSrcNoteBookAddJumpPoint(ACaretXY: TPoint; ATopLine: integer;
@ -245,13 +251,10 @@ type
AComponent: TComponent; const NewName: string); AComponent: TComponent; const NewName: string);
procedure OnControlSelectionChanged(Sender: TObject); procedure OnControlSelectionChanged(Sender: TObject);
// unit dependencies events
procedure UnitDependenciesViewAccessingSources(Sender: TObject);
// Environment options dialog events
procedure OnLoadEnvironmentSettings(Sender: TObject;
TheEnvironmentOptions: TEnvironmentOptions);
procedure OnSaveEnvironmentSettings(Sender: TObject;
TheEnvironmentOptions: TEnvironmentOptions);
// CodeToolBoss events // CodeToolBoss events
procedure OnBeforeCodeToolBossApplyChanges(Manager: TCodeToolManager; procedure OnBeforeCodeToolBossApplyChanges(Manager: TCodeToolManager;
var Abort: boolean); var Abort: boolean);
@ -3978,6 +3981,7 @@ var
begin begin
if UnitDependenciesView=nil then begin if UnitDependenciesView=nil then begin
UnitDependenciesView:=TUnitDependenciesView.Create(Self); UnitDependenciesView:=TUnitDependenciesView.Create(Self);
UnitDependenciesView.OnAccessingSources:=@UnitDependenciesViewAccessingSources;
WasVisible:=false; WasVisible:=false;
end else end else
WasVisible:=UnitDependenciesView.Visible; WasVisible:=UnitDependenciesView.Visible;
@ -5818,6 +5822,13 @@ end;
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
procedure TMainIDE.UnitDependenciesViewAccessingSources(Sender: TObject);
begin
SaveSourceEditorChangesToCodeCache(-1);
end;
// -----------------------------------------------------------------------------
procedure TMainIDE.InitCodeToolBoss; procedure TMainIDE.InitCodeToolBoss;
// initialize the CodeToolBoss, which is the frontend for the codetools. // initialize the CodeToolBoss, which is the frontend for the codetools.
// - sets a basic set of compiler macros // - sets a basic set of compiler macros
@ -7098,6 +7109,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.380 2002/09/14 16:00:27 lazarus
MG: added Refresh to Unit Dependencies
Revision 1.379 2002/09/14 07:05:12 lazarus Revision 1.379 2002/09/14 07:05:12 lazarus
MG: added uni dependencies MG: added uni dependencies