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

IDE: Use the right icon for debug desktop in Desktop Manager and ToolButton menu.

Browse Source 
git-svn-id: trunk@50098 -
This commit is contained in:
juha 2015-10-18 13:22:48 +00:00
parent 6b1d56635f
commit 2dd8888cb6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/desktopmanager.pas
View File

@ -253,7 +253,7 @@ procedure TShowDesktopsToolButton.RefreshMenu;
xItem.ImageIndex := IDEImages.LoadImage(16, 'state_warning')
else
if _Desktop.Name = EnvironmentOptions.DebugDesktopName then
xItem.ImageIndex := IDEImages.LoadImage(16, 'menu_run');
xItem.ImageIndex := IDEImages.LoadImage(16, 'debugger');
end;
var
@ -270,7 +270,7 @@ begin
xMISaveAs.ImageIndex := IDEImages.LoadImage(16, 'laz_save');
xMIToggleDebug := TMenuItem.Create(xPM);
xMIToggleDebug.Caption := dlgToggleDebugDesktop;
xMIToggleDebug.ImageIndex := IDEImages.LoadImage(16, 'menu_run');
xMIToggleDebug.ImageIndex := IDEImages.LoadImage(16, 'debugger');
// Saved desktops
for i:=0 to EnvironmentOptions.Desktops.Count-1 do
begin
@ -340,7 +340,7 @@ begin
SetActiveDesktopAction.Hint := dlgSetActiveDesktop;
SetActiveDesktopAction.ImageIndex := IDEImages.LoadImage(16, 'laz_tick');
SetDebugDesktopAction.Hint := dlgToggleDebugDesktop;
SetDebugDesktopAction.ImageIndex := IDEImages.LoadImage(16, 'menu_run');
SetDebugDesktopAction.ImageIndex := IDEImages.LoadImage(16, 'debugger');
ButtonPanel1.CloseButton.Caption := lisClose;
AutoSaveActiveDesktopCheckBox.Caption := dlgAutoSaveActiveDesktop;
AutoSaveActiveDesktopCheckBox.Hint := dlgAutoSaveActiveDesktopHint;