From 412b1ebab68a50e074165169ccf72096394c0dc4 Mon Sep 17 00:00:00 2001 From: juha Date: Sun, 11 Oct 2015 15:15:52 +0000 Subject: [PATCH] IdeIntf, IDE: Define a command for changing project BuildMode. Otherwise a ToolButton does not show up. git-svn-id: trunk@50032 - --- components/ideintf/idecommands.pas | 4 +++- ide/keymapping.pp | 5 +++++ ide/mainbase.pas | 3 ++- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/components/ideintf/idecommands.pas b/components/ideintf/idecommands.pas index 510dd6ed2c..bf5cf341d4 100644 --- a/components/ideintf/idecommands.pas +++ b/components/ideintf/idecommands.pas @@ -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'), diff --git a/ide/keymapping.pp b/ide/keymapping.pp index f4547a550d..0233fd8739 100644 --- a/ide/keymapping.pp +++ b/ide/keymapping.pp @@ -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)]; diff --git a/ide/mainbase.pas b/ide/mainbase.pas index ad09c49fcc..ce9ed153e4 100644 --- a/ide/mainbase.pas +++ b/ide/mainbase.pas @@ -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);