mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: determine whether to display icons in the menu by gIconsInMenus in TfrmDiffer and TfrmEditor

Browse source 
(cherry picked from commit f56d2b3219)
This commit is contained in:
rich2014 2026-01-10 00:29:11 +08:00 • committed by Alexander Koblov
commit 4b00a15507
4 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fdiffer.lfm
View file

@ -332,7 +332,6 @@ object frmDiffer: TfrmDiffer
SimplePanel = False
end
object MainMenu: TMainMenu
Images = dmComData.ilEditorImages
Left = 88
Top = 136
object mnuFile: TMenuItem

3
src/fdiffer.pas
View file

@ -740,6 +740,9 @@ end;
procedure TfrmDiffer.FormCreate(Sender: TObject);
begin
if gIconsInMenus then
Menu.Images:= dmComData.ilEditorImages;
ScrollLock:= 0;
Diff:= TDiff.Create(Self);
SynDiffEditLeft:= TSynDiffEdit.Create(Self);

1
src/feditor.lfm
View file

@ -761,7 +761,6 @@ object frmEditor: TfrmEditor
end
end
object MainMenu1: TMainMenu
Images = dmComData.ilEditorImages
Left = 48
Top = 32
object miFile: TMenuItem

3
src/feditor.pas
View file

@ -286,7 +286,8 @@ var
begin
InitPropStorage(Self);
Menu.Images:= dmComData.ilEditorImages;
if gIconsInMenus then
Menu.Images:= dmComData.ilEditorImages;
StatusBar.OnShowHint:= @StatusBarShowHint;
LoadGlobalOptions;