paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 07:44:13 +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 OnKeyPress = ActionListEditorKeyPress
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.9.0.0' LCLVersion = '2.3.0.0'
object PanelDescr: TPanel object PanelDescr: TPanel
Left = 0 Left = 0
Height = 26 Height = 26
@ -35,7 +35,6 @@ object ActionListEditor: TActionListEditor
Top = 6 Top = 6
Width = 59 Width = 59
Caption = 'Categories:' Caption = 'Categories:'
ParentColor = False
end end
object lblName: TLabel object lblName: TLabel
Left = 162 Left = 162
@ -43,7 +42,6 @@ object ActionListEditor: TActionListEditor
Top = 6 Top = 6
Width = 43 Width = 43
Caption = 'Actions:' Caption = 'Actions:'
ParentColor = False
end end
end end
object Splitter: TSplitter object Splitter: TSplitter

2
components/ideintf/actionseditor.pas
View File

@ -909,7 +909,7 @@ begin
begin begin
FreeNotification(FActionList); FreeNotification(FActionList);
if FActionList.Images<>nil then if FActionList.Images<>nil then
lstActionName.ItemHeight := FActionList.Images.Height; lstActionName.ItemHeight := FActionList.Images.Height + Scale96ToFont(4);
end; end;
FillCategories; FillCategories;
//FillActionByCategory(-1); //FillActionByCategory(-1);