mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

CHG: Simplification is code regarding invoking following internal commands: "cm_ConfigArchivers", "cm_ConfigToolbars", "cm_ConfigFolderTabs", "cm_ConfigTreeViewMenus", "cm_ConfigTreeViewMenusColors" and "cm_ConfigSearches".

Browse source
This commit is contained in:
Denis Bisson 2018-08-26 18:33:39 +00:00
commit 98be41d1bd
1 changed files with 9 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

57
src/umaincommands.pas
View file

@ -380,9 +380,8 @@ uses uFindFiles, Forms, Controls, Dialogs, Clipbrd, strutils, LCLProc, HelpIntfs
fViewOperations, uVfsModule, uMultiListFileSource, uExceptions, uFileProcs,
DCOSUtils, DCStrUtils, DCBasicTypes, uFileSourceCopyOperation, fSyncDirsDlg,
uHotDir, DCXmlConfig, dmCommonData, fOptionsFrame, foptionsDirectoryHotlist,
fOptionsToolbar, fMainCommandsDlg, uConnectionManager, fOptionsTabs, fOptionsFavoriteTabs,
fTreeViewMenu, fOptionsTreeViewMenu, fOptionsTreeViewMenuColor, uArchiveFileSource,
fOptionsFileSearch, fOptionsHotKeys, fBenchmark, fOptionsArchivers
fMainCommandsDlg, uConnectionManager, fOptionsFavoriteTabs, fTreeViewMenu,
uArchiveFileSource, fOptionsHotKeys, fBenchmark
{$IFDEF COLUMNSFILEVIEW_VTV}
, uColumnsFileViewVtv
{$ELSE}
@ -2507,6 +2506,7 @@ begin
end;
end;
{ TMainCommands.cm_FileAssoc }
procedure TMainCommands.cm_FileAssoc(const Params: array of string);
var
Editor: TOptionsEditor;
@ -4271,15 +4271,8 @@ end;
{ TMainCommands.cm_ConfigToolbars }
procedure TMainCommands.cm_ConfigToolbars(const Params: array of string);
var
Editor: TOptionsEditor;
Options: IOptionsDialog;
begin
Options := ShowOptions(TfrmOptionsToolbar);
Application.ProcessMessages;
Editor := Options.GetEditor(TfrmOptionsToolbar);
Application.ProcessMessages;
if Editor.CanFocus then Editor.SetFocus;
cm_Options(['TfrmOptionsToolbar']);
end;
{ TMainCommands.cm_DebugShowCommandParameters }
@ -4586,15 +4579,8 @@ end;
{ TMainCommands.cm_ConfigFolderTabs }
procedure TMainCommands.cm_ConfigFolderTabs(const Params: array of string);
var
Editor: TOptionsEditor;
Options: IOptionsDialog;
begin
Options := ShowOptions(TfrmOptionsTabs);
Application.ProcessMessages;
Editor := Options.GetEditor(TfrmOptionsTabs);
Application.ProcessMessages;
if Editor.CanFocus then Editor.SetFocus;
cm_Options(['TfrmOptionsTabs']);
end;
{ TMainCommands.DoShowFavoriteTabsOptions }
@ -4750,27 +4736,14 @@ end;
{ TMainCommands.cm_ConfigTreeViewMenus }
procedure TMainCommands.cm_ConfigTreeViewMenus(const {%H-}Params: array of string);
var
Options: IOptionsDialog;
Editor: TOptionsEditor;
begin
Options := ShowOptions(TfrmOptionsTreeViewMenu);
Editor := Options.GetEditor(TfrmOptionsTreeViewMenu);
Application.ProcessMessages;
if Editor.CanFocus then Editor.SetFocus;
cm_Options(['TfrmOptionsTreeViewMenu']);
end;
{ TMainCommands.cm_ConfigTreeViewMenusColors }
procedure TMainCommands.cm_ConfigTreeViewMenusColors(const {%H-}Params: array of string);
var
Options: IOptionsDialog;
Editor: TOptionsEditor;
begin
Options := ShowOptions(TfrmOptionsTreeViewMenuColor);
Editor := Options.GetEditor(TfrmOptionsTreeViewMenuColor);
Application.ProcessMessages;
if Editor.CanFocus then Editor.SetFocus;
cm_Options(['TfrmOptionsTreeViewMenuColor']);
end;
{ TMainCommands.cm_ConfigSaveSettings }
@ -4841,14 +4814,8 @@ end;
{ TMainCommands.cm_ConfigArchivers }
procedure TMainCommands.cm_ConfigArchivers(const {%H-}Params: array of string);
var
Editor: TOptionsEditor;
Options: IOptionsDialog;
begin
Options := ShowOptions(TfrmOptionsArchivers);
Editor := Options.GetEditor(TfrmOptionsArchivers);
Application.ProcessMessages;
if Editor.CanFocus then Editor.SetFocus;
cm_Options(['TfrmOptionsArchivers']);
end;
{ TMainCommands.cm_ConfigTooltip }
@ -4923,14 +4890,8 @@ end;
{ TMainCommands.cm_ConfigSearches }
procedure TMainCommands.cm_ConfigSearches(const Params: array of string);
var
Editor: TOptionsEditor;
Options: IOptionsDialog;
begin
Options := ShowOptions(TfrmOptionsFileSearch);
Editor := Options.GetEditor(TfrmOptionsFileSearch);
Application.ProcessMessages;
if Editor.CanFocus then Editor.SetFocus;
cm_Options(['TfrmOptionsFileSearch']);
end;
{ TMainCommands.cm_ConfigHotKeys }