From 9dbcefa27d75a2083a1d173803bb3f2ed5943b51 Mon Sep 17 00:00:00 2001 From: Alextp Date: Sun, 20 Sep 2020 13:54:54 +0300 Subject: [PATCH] cleanup --- win32menustyler.pas | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/win32menustyler.pas b/win32menustyler.pas index f0339a6..32657b3 100644 --- a/win32menustyler.pas +++ b/win32menustyler.pas @@ -140,7 +140,7 @@ procedure TWin32MenuStyler.HandleMenuDrawItem(Sender: TObject; ACanvas: TCanvas; var mi: TMenuItem; Images: TCustomImageList; - IconW, IconH: integer; + IconW: integer; dx, dxCell, dxMin, dxBig, Y: integer; ExtCell, ExtTall, Ext2: Types.TSize; NDrawFlags: UINT; @@ -153,6 +153,7 @@ procedure TWin32MenuStyler.HandleMenuDrawItem(Sender: TObject; ACanvas: TCanvas; bDisabled:= odDisabled in AState; bInBar:= mi.IsInMenuBar; bHasSubmenu:= (not bInBar) and (mi.Count>0); + IconW:= 0; if odSelected in AState then ACanvas.Brush.Color:= MenuStylerTheme.ColorBkSelected @@ -165,21 +166,12 @@ procedure TWin32MenuStyler.HandleMenuDrawItem(Sender: TObject; ACanvas: TCanvas; dxMin:= dxCell * MenuStylerTheme.IndentMinPercents div 100; dxBig:= dxCell * MenuStylerTheme.IndentBigPercents div 100; - IconW:= 0; - IconH:= 0; - if Assigned(mi.Bitmap) then - begin IconW:= mi.Bitmap.Width; - IconH:= mi.Bitmap.Height; - end; Images:= mi.GetParentMenu.Images; if Assigned(Images) then - begin IconW:= Max(IconW, Images.Width); - IconH:= Max(IconH, Images.Height); - end; if IconW>0 then dxBig:= Max(dxBig, IconW + dxCell * MenuStylerTheme.IndentIconPercents * 2 div 100);