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

IDE: clean compile: clean up build files

Browse Source 
git-svn-id: trunk@30995 -
This commit is contained in:
mattias 2011-05-31 22:41:12 +00:00
parent ca255696da
commit 025665bfd5
6 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/keymapping.pp
View File

@ -555,7 +555,7 @@ begin
ecCompile: SetResult(VK_F9,[ssCtrl],VK_UNKNOWN,[]);
ecBuild: SetResult(VK_F9,[ssShift],VK_UNKNOWN,[]);
ecQuickCompile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCleanCompile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCleanUpCompiled: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecAbortBuild: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecRun: SetResult(VK_F9,[],VK_UNKNOWN,[]);
ecPause: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -997,7 +997,7 @@ begin
ecCompile: SetResult(VK_F9,[ssCtrl],VK_UNKNOWN,[]);
ecBuild: SetResult(VK_F9,[ssShift],VK_UNKNOWN,[]);
ecQuickCompile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCleanCompile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCleanUpCompiled: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecAbortBuild: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecRun: SetResult(VK_F9,[],VK_UNKNOWN,[]);
ecPause: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -1630,7 +1630,7 @@ begin
ecCompile: SetResult(VK_B,[ssMeta],VK_UNKNOWN,[]);
ecBuild: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecQuickCompile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCleanCompile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCleanUpCompiled: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecAbortBuild: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecRun: SetResult(VK_R,[ssMeta],VK_UNKNOWN,[]);
ecPause: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -1797,7 +1797,7 @@ begin
ecCompile: SetResult(VK_F9,[ssCtrl],VK_F9,[ssCtrl,ssMeta]);
ecBuild: SetResult(VK_F9,[ssShift],VK_UNKNOWN,[]);
ecQuickCompile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCleanCompile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCleanUpCompiled: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecAbortBuild: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecRun: SetResult(VK_F9,[],VK_F9,[ssMeta]);
ecPause: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -2171,7 +2171,7 @@ begin
ecCompile : Result:= srkmecCompile;
ecBuild : Result:= srkmecBuild;
ecQuickCompile : Result:= srkmecQuickCompile;
ecCleanCompile : Result:= srkmecCleanCompile;
ecCleanUpCompiled : Result:= srkmecCleanUpCompiled;
ecAbortBuild : Result:= srkmecAbortBuild;
ecRun : Result:= srkmecRun;
ecPause : Result:= srkmecPause;
@ -2820,7 +2820,7 @@ begin
AddDefault(C, 'Compile project/program', lisKMCompileProjectProgram, ecCompile);
AddDefault(C, 'Build project/program', lisKMBuildProjectProgram, ecBuild);
AddDefault(C, 'Quick compile, no linking', lisKMQuickCompileNoLinking, ecQuickCompile);
AddDefault(C, 'Clean up and compile project/program', lisKMCleanCompile, ecCleanCompile);
AddDefault(C, 'Clean up and compile project/program', lisKMCleanUpCompiled, ecCleanUpCompiled);
AddDefault(C, 'Abort building', lisKMAbortBuilding, ecAbortBuild);
AddDefault(C, 'Run program', lisKMRunProgram, ecRun);
AddDefault(C, 'Pause program', lisKMPauseProgram, ecPause);

6
ide/lazarusidestrconsts.pas
View File

@ -347,7 +347,7 @@ resourcestring
lisBFBuildCommand = 'Build Command';
lisMenuBuild = 'Build';
lisMenuQuickCompile = 'Quick compile';
lisMenuCleanCompile = 'Clean compile';
lisMenuCleanUpCompiled = 'Clean up build files';
lisMenuAbortBuild = 'Abort Build';
lisMenuProjectRun = '&Run';
lisBFAlwaysBuildBeforeRun = 'Always Build before Run';
@ -2682,7 +2682,7 @@ resourcestring
srkmecCompile = 'compile program/project';
srkmecBuild = 'build program/project';
srkmecQuickCompile = 'quick compile, no linking';
srkmecCleanCompile = 'clean up and compile';
srkmecCleanUpCompiled = 'clean up build files';
srkmecAbortBuild = 'abort build';
srkmecRun = 'run program';
srkmecPause = 'pause program';
@ -2774,7 +2774,7 @@ resourcestring
lisKMCompileProjectProgram = 'Compile project/program';
lisKMBuildProjectProgram = 'Build project/program';
lisKMQuickCompileNoLinking = 'Quick compile, no linking';
lisKMCleanCompile = 'Clean up and compile project/program';
lisKMCleanUpCompiled = 'Clean up build files';
lisKMAbortBuilding = 'Abort building';
lisKMRunProgram = 'Run program';
lisKMPauseProgram = 'Pause program';

8
ide/main.pp
View File

@ -318,7 +318,7 @@ type
procedure mnuCompileProjectClicked(Sender: TObject);
procedure mnuBuildProjectClicked(Sender: TObject);
procedure mnuQuickCompileProjectClicked(Sender: TObject);
procedure mnuCleanCompileProjectClicked(Sender: TObject);
procedure mnuCleanUpCompiledProjectClicked(Sender: TObject);
procedure mnuAbortBuildProjectClicked(Sender: TObject);
procedure mnuRunProjectClicked(Sender: TObject);
procedure mnuPauseProjectClicked(Sender: TObject);
@ -2601,7 +2601,7 @@ begin
itmRunMenuCompile.OnClick := @mnuCompileProjectClicked;
itmRunMenuBuild.OnClick := @mnuBuildProjectClicked;
itmRunMenuQuickCompile.OnClick := @mnuQuickCompileProjectClicked;
itmRunMenuCleanCompile.OnClick := @mnuCleanCompileProjectClicked;
itmRunMenuCleanUpCompiled.OnClick := @mnuCleanUpCompiledProjectClicked;
itmRunMenuAbortBuild.OnClick := @mnuAbortBuildProjectClicked;
itmRunMenuRun.OnClick := @mnuRunProjectClicked;
itmRunMenuPause.OnClick := @mnuPauseProjectClicked;
@ -3216,7 +3216,7 @@ begin
end;
ecBuild: DoBuildProject(crBuild, [pbfCleanCompile, pbfCompileDependenciesClean]);
ecCleanCompile: mnuCleanCompileProjectClicked(nil);
ecCleanUpCompiled: mnuCleanUpCompiledProjectClicked(nil);
ecQuickCompile: DoQuickCompile;
ecAbortBuild: DoAbortBuild;
@ -4351,7 +4351,7 @@ begin
DoQuickCompile;
end;
procedure TMainIDE.mnuCleanCompileProjectClicked(Sender: TObject);
procedure TMainIDE.mnuCleanUpCompiledProjectClicked(Sender: TObject);
begin
if Project1.MainUnitInfo=nil then begin
// this project has no source to compile

2
ide/mainbar.pas
View File

@ -279,7 +279,7 @@ type
itmRunMenuCompile: TIDEMenuCommand;
itmRunMenuBuild: TIDEMenuCommand;
itmRunMenuQuickCompile: TIDEMenuCommand;
itmRunMenuCleanCompile: TIDEMenuCommand;
itmRunMenuCleanUpCompiled: TIDEMenuCommand;
itmRunMenuAbortBuild: TIDEMenuCommand;
//itmRunnning: TIDEMenuSection;
itmRunMenuRun: TIDEMenuCommand;

2
ide/mainbase.pas
View File

@ -671,7 +671,7 @@ begin
CreateMenuItem(ParentMI,itmRunMenuCompile,'itmRunMenuCompile',lisMenuCompile,'menu_build');
CreateMenuItem(ParentMI,itmRunMenuBuild,'itmRunMenuBuild',lisMenuBuild,'menu_build_all');
CreateMenuItem(ParentMI,itmRunMenuQuickCompile,'itmRunMenuQuickCompile',lisMenuQuickCompile,'menu_quick_compile');
CreateMenuItem(ParentMI,itmRunMenuCleanCompile,'itmRunMenuCleanCompile',lisMenuCleanCompile,'menu_build');
CreateMenuItem(ParentMI,itmRunMenuCleanUpCompiled,'itmRunMenuCleanUpCompiled',lisMenuCleanUpCompiled,'menu_build');
CreateMenuItem(ParentMI,itmRunMenuAbortBuild,'itmRunMenuAbortBuild',lisMenuAbortBuild,'menu_abort_build');
CreateMenuSeparatorSection(mnuRun,itmRunnning,'itmRunnning');

2
ideintf/idecommands.pas
View File

@ -233,7 +233,7 @@ const
ecCompile = ecFirstLazarus + 400;
ecBuild = ecFirstLazarus + 401;
ecQuickCompile = ecFirstLazarus + 402;
ecCleanCompile = ecFirstLazarus + 403;
ecCleanUpCompiled = ecFirstLazarus + 403;
ecAbortBuild = ecFirstLazarus + 404;
ecRun = ecFirstLazarus + 410;
ecPause = ecFirstLazarus + 411;