FIX af11aa3: the Icon Display Size in ContextMenu and Button in fDiffer

This commit is contained in:
rich2014 2026-04-02 12:01:18 +08:00
commit 4a0514711e
2 changed files with 9 additions and 0 deletions

View file

@ -162,6 +162,7 @@ object frmDiffer: TfrmDiffer
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
ImageWidth = 16
Anchors = [akTop, akLeft, akRight]
MaxLength = 0
TabOrder = 0
@ -180,6 +181,7 @@ object frmDiffer: TfrmDiffer
Anchors = [akTop, akLeft, akBottom]
Images = dmComData.ilEditorImages
ImageIndex = 44
ImageWidth = 16
OnClick = btnLeftEncodingClick
end
object btnLeftSave: TSpeedButton
@ -195,6 +197,7 @@ object frmDiffer: TfrmDiffer
Anchors = [akTop, akLeft, akBottom]
Images = dmComData.ilEditorImages
ImageIndex = 34
ImageWidth = 16
ShowCaption = False
end
object btnLeftSaveAs: TSpeedButton
@ -211,6 +214,7 @@ object frmDiffer: TfrmDiffer
Anchors = [akTop, akLeft, akBottom]
Images = dmComData.ilEditorImages
ImageIndex = 35
ImageWidth = 16
ShowCaption = False
end
end
@ -258,6 +262,7 @@ object frmDiffer: TfrmDiffer
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
ImageWidth = 16
Anchors = [akTop, akLeft, akRight]
MaxLength = 0
TabOrder = 0
@ -276,6 +281,7 @@ object frmDiffer: TfrmDiffer
Anchors = [akTop, akLeft, akBottom]
Images = dmComData.ilEditorImages
ImageIndex = 44
ImageWidth = 16
OnClick = btnRightEncodingClick
end
object btnRightSave: TSpeedButton
@ -291,6 +297,7 @@ object frmDiffer: TfrmDiffer
Anchors = [akTop, akLeft, akBottom]
Images = dmComData.ilEditorImages
ImageIndex = 34
ImageWidth = 16
ShowCaption = False
end
object btnRightSaveAs: TSpeedButton
@ -307,6 +314,7 @@ object frmDiffer: TfrmDiffer
Anchors = [akTop, akLeft, akBottom]
Images = dmComData.ilEditorImages
ImageIndex = 35
ImageWidth = 16
ShowCaption = False
end
end

View file

@ -1464,6 +1464,7 @@ begin
if gModernUI and TDarwinApplicationUtil.supportsModernForm then
ToolBar.Hide;
{$ENDIF}
contextMenu.ImagesWidth:= gIconsInMenusSize;
end;
procedure TfrmDiffer.BuildHashList(bLeft, bRight: Boolean);