From e8affb6df1aa7fb78fe965eee4027a0829b78d20 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Tue, 21 Sep 2021 22:11:39 +0200
Subject: [PATCH] IDEIntf/ActionsEditor: Improved spacing of items in
 actionlistbox. Issue #39386. Patch by Roland H.

---
 components/ideintf/actionseditor.lfm | 4 +---
 components/ideintf/actionseditor.pas | 2 +-
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/components/ideintf/actionseditor.lfm b/components/ideintf/actionseditor.lfm
index cbbe022b98..5aad870c32 100644
--- a/components/ideintf/actionseditor.lfm
+++ b/components/ideintf/actionseditor.lfm
@@ -16,7 +16,7 @@ object ActionListEditor: TActionListEditor
   OnKeyPress = ActionListEditorKeyPress
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.3.0.0'
   object PanelDescr: TPanel
     Left = 0
     Height = 26
@@ -35,7 +35,6 @@ object ActionListEditor: TActionListEditor
       Top = 6
       Width = 59
       Caption = 'Categories:'
-      ParentColor = False
     end
     object lblName: TLabel
       Left = 162
@@ -43,7 +42,6 @@ object ActionListEditor: TActionListEditor
       Top = 6
       Width = 43
       Caption = 'Actions:'
-      ParentColor = False
     end
   end
   object Splitter: TSplitter
diff --git a/components/ideintf/actionseditor.pas b/components/ideintf/actionseditor.pas
index 7044f5458d..55eb8c7509 100644
--- a/components/ideintf/actionseditor.pas
+++ b/components/ideintf/actionseditor.pas
@@ -909,7 +909,7 @@ begin
   begin
     FreeNotification(FActionList);
     if FActionList.Images<>nil then
-      lstActionName.ItemHeight := FActionList.Images.Height;
+      lstActionName.ItemHeight := FActionList.Images.Height + Scale96ToFont(4);
   end;
   FillCategories;
   //FillActionByCategory(-1);