paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 23:59:07 +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') xItem.ImageIndex := IDEImages.LoadImage(16, 'state_warning')
else else
if _Desktop.Name = EnvironmentOptions.DebugDesktopName then if _Desktop.Name = EnvironmentOptions.DebugDesktopName then
xItem.ImageIndex := IDEImages.LoadImage(16, 'menu_run'); xItem.ImageIndex := IDEImages.LoadImage(16, 'debugger');
end; end;
var var
@ -270,7 +270,7 @@ begin
xMISaveAs.ImageIndex := IDEImages.LoadImage(16, 'laz_save'); xMISaveAs.ImageIndex := IDEImages.LoadImage(16, 'laz_save');
xMIToggleDebug := TMenuItem.Create(xPM); xMIToggleDebug := TMenuItem.Create(xPM);
xMIToggleDebug.Caption := dlgToggleDebugDesktop; xMIToggleDebug.Caption := dlgToggleDebugDesktop;
xMIToggleDebug.ImageIndex := IDEImages.LoadImage(16, 'menu_run'); xMIToggleDebug.ImageIndex := IDEImages.LoadImage(16, 'debugger');
// Saved desktops // Saved desktops
for i:=0 to EnvironmentOptions.Desktops.Count-1 do for i:=0 to EnvironmentOptions.Desktops.Count-1 do
begin begin
@ -340,7 +340,7 @@ begin
SetActiveDesktopAction.Hint := dlgSetActiveDesktop; SetActiveDesktopAction.Hint := dlgSetActiveDesktop;
SetActiveDesktopAction.ImageIndex := IDEImages.LoadImage(16, 'laz_tick'); SetActiveDesktopAction.ImageIndex := IDEImages.LoadImage(16, 'laz_tick');
SetDebugDesktopAction.Hint := dlgToggleDebugDesktop; SetDebugDesktopAction.Hint := dlgToggleDebugDesktop;
SetDebugDesktopAction.ImageIndex := IDEImages.LoadImage(16, 'menu_run'); SetDebugDesktopAction.ImageIndex := IDEImages.LoadImage(16, 'debugger');
ButtonPanel1.CloseButton.Caption := lisClose; ButtonPanel1.CloseButton.Caption := lisClose;
AutoSaveActiveDesktopCheckBox.Caption := dlgAutoSaveActiveDesktop; AutoSaveActiveDesktopCheckBox.Caption := dlgAutoSaveActiveDesktop;
AutoSaveActiveDesktopCheckBox.Hint := dlgAutoSaveActiveDesktopHint; AutoSaveActiveDesktopCheckBox.Hint := dlgAutoSaveActiveDesktopHint;