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

IdeIntf, IDE: Define a command for changing project BuildMode. Otherwise a ToolButton does not show up.

Browse Source 
git-svn-id: trunk@50032 -
This commit is contained in:
juha 2015-10-11 15:15:52 +00:00
parent b1942fb168
commit 412b1ebab6
3 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/idecommands.pas
View File

@ -296,6 +296,7 @@ const
ecViewProjectForms = ecFirstLazarus + 511;
ecViewProjectSource = ecFirstLazarus + 512;
ecProjectOptions = ecFirstLazarus + 513;
ecProjectChangeBuildMode = ecFirstLazarus + 514;
// package menu
ecOpenPackage = ecFirstLazarus + 600;
@ -1744,7 +1745,7 @@ begin
end;
const
IDEEditorCommandStrs: array[0..309] of TIdentMapEntry = (
IDEEditorCommandStrs: array[0..310] of TIdentMapEntry = (
// search
(Value: ecFind; Name: 'ecFind'),
(Value: ecFindAgain; Name: 'ecFindAgain'),
@ -1988,6 +1989,7 @@ const
(Value: ecViewProjectForms; Name: 'ecViewProjectForms'),
(Value: ecViewProjectSource; Name: 'ecViewProjectSource'),
(Value: ecProjectOptions; Name: 'ecProjectOptions'),
(Value: ecProjectChangeBuildMode; Name: 'ecProjectChangeBuildMode'),
// package menu
(Value: ecOpenPackage; Name: 'ecOpenPackage'),

5
ide/keymapping.pp
View File

@ -633,6 +633,7 @@ begin
ecViewProjectForms : Result:= srkmecViewForms;
ecViewProjectSource : Result:= lisMenuViewProjectSource;
ecProjectOptions : Result:= lisMenuProjectOptions;
ecProjectChangeBuildMode : Result:= lisChangeBuildMode;
// run menu (menu string resource)
ecCompile : Result:= srkmecCompile;
@ -1230,6 +1231,7 @@ begin
ecViewProjectForms: SetSingle(VK_F12,[ssShift]);
ecViewProjectSource: SetSingle(VK_UNKNOWN,[]);
ecProjectOptions: SetSingle(VK_F11,[ssShift,ssCtrl]);
ecProjectChangeBuildMode:SetSingle(VK_UNKNOWN,[]);
// run menu
ecCompile: SetSingle(VK_F9,[ssCtrl]);
@ -1661,6 +1663,7 @@ begin
ecViewProjectForms: SetSingle(VK_F12,[ssShift]);
ecViewProjectSource: SetSingle(VK_UNKNOWN,[]);
ecProjectOptions: SetSingle(VK_F11,[ssShift,ssCtrl]);
ecProjectChangeBuildMode:SetSingle(VK_UNKNOWN,[]);
// run menu
ecCompile: SetSingle(VK_F9,[ssCtrl]);
@ -2282,6 +2285,7 @@ begin
ecViewProjectForms: SetSingle(VK_U,[ssShift,ssCtrl]);
ecViewProjectSource: SetSingle(VK_UNKNOWN,[]);
ecProjectOptions: SetSingle(VK_UNKNOWN,[]);
ecProjectChangeBuildMode:SetSingle(VK_UNKNOWN,[]);
// run menu
ecCompile: SetSingle(VK_B,[ssMeta]);
@ -2958,6 +2962,7 @@ begin
AddDefault(C, 'View Forms', lisHintViewForms, ecViewProjectForms);
AddDefault(C, 'View project source', lisKMViewProjectSource, ecViewProjectSource);
AddDefault(C, 'View project options', lisKMViewProjectOptions, ecProjectOptions);
AddDefault(C, 'Change build mode', lisChangeBuildMode, ecProjectChangeBuildMode);
// run menu
C:=Categories[AddCategory('RunMenu',srkmCatRunMenu,nil)];

3
ide/mainbase.pas
View File

@ -1653,7 +1653,8 @@ begin
itmProjectRemoveFrom.Command:=GetCommand(ecRemoveFromProj);
itmProjectViewUnits.Command:=GetCommand(ecViewProjectUnits);
itmProjectViewForms.Command:=GetCommand(ecViewProjectForms);
itmProjectViewSource.Command:=GetCommand(ecViewProjectSource,TSetBuildModeToolButton);
itmProjectViewSource.Command:=GetCommand(ecViewProjectSource);
itmProjectBuildMode.Command:=GetCommand(ecProjectChangeBuildMode,TSetBuildModeToolButton);
// run menu
itmRunMenuCompile.Command:=GetCommand(ecCompile);