paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-25 17:22:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf/ActionsEditor: Improved spacing of items in actionlistbox. Issue #39386. Patch by Roland H.

Browse Source
This commit is contained in:
wp_xyz 2021-09-21 22:11:39 +02:00
parent b052f21566
commit e8affb6df1
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/actionseditor.lfm
View File

@ -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

2
components/ideintf/actionseditor.pas
View File

@ -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);