From 7bf871655b17b2ee4bf5bb77126d76ce985eb02a Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 6 Oct 2020 18:16:10 +0000
Subject: [PATCH] IDE, SourceEditor: Fix width of macro-record-stop button,
 Issue #37858

git-svn-id: trunk@63964 -
---
 ide/sourceeditor.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 41695f88f5..05869e2bf9 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -8152,8 +8152,10 @@ end;
 procedure TSourceNotebook.StatusBarDrawPanel(AStatusBar: TStatusBar; APanel: TStatusPanel;
   const ARect: TRect);
 begin
-  if APanel = StatusBar.Panels[1] then
-    IDEImages.Images_16.Draw(StatusBar.Canvas, ARect.Left,  ARect.Top, FStopBtnIdx);
+  if APanel = StatusBar.Panels[1] then begin
+    IDEImages.Images_16.ResolutionForControl[16, AStatusBar]
+      .Draw(StatusBar.Canvas, ARect.Left,  ARect.Top, FStopBtnIdx);
+  end;
 end;
 
 procedure TSourceNotebook.ToggleBreakpointClicked(Sender: TObject);