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

IDE: Move SetRecentFilesMenu from TMainIDE to TMainIDEBase

Browse Source 
git-svn-id: trunk@38767 -
This commit is contained in:
juha 2012-09-20 22:01:44 +00:00
parent d3d1b06f77
commit 08589a996b
3 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/main.pp
View File

@ -190,7 +190,7 @@ type
procedure mnuNewFormClicked(Sender: TObject);
procedure mnuNewOtherClicked(Sender: TObject);
procedure mnuOpenClicked(Sender: TObject);
procedure mnuOpenRecentClicked(Sender: TObject);
procedure mnuOpenRecentClicked(Sender: TObject); override;
procedure mnuRevertClicked(Sender: TObject);
procedure mnuSaveClicked(Sender: TObject);
procedure mnuSaveAsClicked(Sender: TObject);
@ -726,7 +726,6 @@ type
function DoResetToolStatus(AFlags: TResetToolFlags): boolean; override;
function DoCallProjectChangedHandler(
HandlerType: TLazarusIDEHandlerType): TModalResult;
procedure SetRecentFilesMenu;
// files/units
function DoNewFile(NewFileDescriptor: TProjectFileDescriptor;
@ -2452,13 +2451,6 @@ begin
Result := inherited DoCallProjectChangedHandler(HandlerType, Project1);
end;
procedure TMainIDE.SetRecentFilesMenu;
begin
SetRecentSubMenu(itmFileRecentOpen,
EnvironmentOptions.RecentOpenFiles,
@mnuOpenRecentClicked);
end;
procedure TMainIDE.SetupFileMenu;
begin
inherited SetupFileMenu;
@ -5452,7 +5444,7 @@ begin
MainIDEBar.itmFileSaveAll.Enabled := MainIDEBar.itmProjectSave.Enabled;
// toolbar buttons
MainIDEBar.BuildModeSpeedButton.Visible:=(Project1<>nil)
and (Project1.BuildModes.Count>1);
and (Project1.BuildModes.Count>1);
MainIDEBar.SaveSpeedBtn.Enabled := MainIDEBar.itmFileSave.Enabled;
if UpdateSaveAll then
MainIDEBar.SaveAllSpeedBtn.Enabled := MainIDEBar.itmFileSaveAll.Enabled;

9
ide/mainbase.pas
View File

@ -82,6 +82,7 @@ type
TMainIDEBase = class(TMainIDEInterface)
procedure mnuOpenProjectClicked(Sender: TObject); virtual; abstract;
procedure mnuOpenRecentClicked(Sender: TObject); virtual; abstract;
private
FToolStatus: TIDEToolStatus;
FWindowMenuActiveForm: TCustomForm;
@ -140,6 +141,7 @@ type
procedure CreateOftenUsedForms; virtual; abstract;
function GetMainBar: TComponent; override;
procedure SetRecentProjectFilesMenu;
procedure SetRecentFilesMenu;
procedure GetUnitInfoForDesigner(ADesigner: TIDesigner;
out ActiveSourceEditor: TSourceEditorInterface;
@ -295,6 +297,13 @@ begin
@mnuOpenProjectClicked);
end;
procedure TMainIDEBase.SetRecentFilesMenu;
begin
SetRecentSubMenu(itmFileRecentOpen,
EnvironmentOptions.RecentOpenFiles,
@mnuOpenRecentClicked);
end;
procedure TMainIDEBase.DoMnuWindowClicked(Sender: TObject);
begin
UpdateWindowMenu(True);

5
ide/sourcefilemanager.pas
View File

@ -182,6 +182,7 @@ var
SourceFileMgrSingleton: TLazSourceFileManager = nil;
function SourceFileMgr: TLazSourceFileManager;
// Return always the same instance of SourceFileManager. Create at the first time.
begin
if SourceFileMgrSingleton = nil then
SourceFileMgrSingleton := TLazSourceFileManager.Create;
@ -945,7 +946,7 @@ begin
and (not (cfProjectClosing in Flags)) then
begin
EnvironmentOptions.AddToRecentOpenFiles(AnUnitInfo.Filename);
TMainIDE(MainIDE).SetRecentFilesMenu;
MainIDE.SetRecentFilesMenu;
end;
// close form soft (keep it if used by another component)
@ -2951,7 +2952,7 @@ begin
NewFilePath:=ExtractFilePath(NewFilename);
EnvironmentOptions.RemoveFromRecentOpenFiles(OldFilename);
EnvironmentOptions.AddToRecentOpenFiles(NewFilename);
TMainIDE(MainIDE).SetRecentFilesMenu; // Must refer to mainwindow
MainIDE.SetRecentFilesMenu;
// add new path to unit path
if AnUnitInfo.IsPartOfProject