paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 13:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/Desktops: Move the "Desktops ..." item from the Tools menu to the Window menu. Merge request !402.

Browse Source
This commit is contained in:
n7800 2024-12-13 01:52:30 +05:00 committed by Juha
parent a0d1766a2e
commit 17b997ee28
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -383,7 +383,6 @@ type
procedure mnuToolConvertDelphiProjectClicked(Sender: TObject);
procedure mnuToolConvertDelphiPackageClicked(Sender: TObject);
procedure mnuToolConvertEncodingClicked(Sender: TObject);
procedure mnuToolManageDesktopsClicked(Sender: TObject);
procedure mnuToolBuildLazarusClicked(Sender: TObject);
procedure mnuToolBuildAdvancedLazarusClicked(Sender: TObject);
procedure mnuToolConfigBuildLazClicked(Sender: TObject);
@ -398,6 +397,7 @@ type
// windows menu
procedure mnuWindowManagerClicked(Sender: TObject);
procedure mnuWindowManageDesktopsClicked(Sender: TObject);
// help menu
// see helpmanager.pas
@ -2885,7 +2885,6 @@ begin
itmEnvCodeToolsDefinesEditor.OnClick := @mnuEnvCodeToolsDefinesEditorClicked;
itmToolConfigure.OnClick := @mnuToolConfigureUserExtToolsClicked;
itmToolManageDesktops.OnClick := @mnuToolManageDesktopsClicked;
itmToolDiff.OnClick := @mnuToolDiffClicked;
@ -2909,6 +2908,7 @@ procedure TMainIDE.SetupWindowsMenu;
begin
inherited SetupWindowsMenu;
MainIDEBar.itmWindowManager.OnClick := @mnuWindowManagerClicked;
MainIDEBar.itmWindowManageDesktops.OnClick := @mnuWindowManageDesktopsClicked;
end;
procedure TMainIDE.SetupHelpMenu;
@ -3158,7 +3158,7 @@ begin
itmToolConfigure.Command:=GetIdeCmdRegToolBtn(ecExtToolSettings);
itmToolManageDesktops.Command:=GetCommand(ecManageDesktops, nil, TShowDesktopsToolButton);
itmWindowManageDesktops.Command:=GetCommand(ecManageDesktops, nil, TShowDesktopsToolButton);
itmToolDiff.Command:=GetIdeCmdRegToolBtn(ecDiff);
@ -4952,7 +4952,7 @@ begin
ShowConvertEncodingDlg;
end;
procedure TMainIDE.mnuToolManageDesktopsClicked(Sender: TObject);
procedure TMainIDE.mnuWindowManageDesktopsClicked(Sender: TObject);
begin
ShowDesktopManagerDlg;
end;

2
ide/mainbar.pas
View File

@ -355,7 +355,6 @@ type
//itmCustomTools: TIDEMenuSection;
itmToolConfigure: TIDEMenuCommand;
//itmSecondaryTools: TIDEMenuSection;
itmToolManageDesktops: TIDEMenuCommand;
itmToolDiff: TIDEMenuCommand;
//itmDelphiConversion: TIDEMenuSection;
itmToolCheckLFM: TIDEMenuCommand;
@ -372,6 +371,7 @@ type
//mnuWindow: TIDEMenuSection;
//itmWindowManagers: TIDEMenuSection;
itmWindowManager: TIDEMenuCommand;
itmWindowManageDesktops: TIDEMenuCommand;
// help menu
//mnuHelp: TIDEMenuSection;

2
ide/mainbase.pas
View File

@ -1456,7 +1456,6 @@ begin
CreateMenuSeparatorSection(mnuTools,itmSecondaryTools,'itmSecondaryTools');
ParentMI:=itmSecondaryTools;
CreateMenuItem(ParentMI,itmToolManageDesktops,'itmToolManageDesktops', lisDesktops, 'menu_manage_desktops');
CreateMenuItem(ParentMI,itmToolDiff,'itmToolDiff',lisMenuCompareFiles, 'menu_tool_diff');
CreateMenuSeparatorSection(mnuTools,itmConversion,'itmConversion');
@ -1487,6 +1486,7 @@ begin
CreateMenuSeparatorSection(mnuWindow,itmWindowManagers,'itmWindowManagers');
ParentMI:=itmWindowManagers;
CreateMenuItem(ParentMI,itmWindowManager,'itmWindowManager', lisManageSourceEditors, 'menu_manage_source_editors');
CreateMenuItem(ParentMI,itmWindowManageDesktops,'itmWindowManageDesktops', lisDesktops, 'menu_manage_desktops');
// Populated later with a list of editor names
CreateMenuSeparatorSection(mnuWindow,itmWindowLists,'itmWindowLists');
CreateMenuSeparatorSection(mnuWindow,itmCenterWindowLists,'itmCenterWindowLists');