From 90db8b6652f73ddc335922d3a7c593878d83c45e Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Sat, 4 Jan 2025 20:41:26 +0100
Subject: Basic ListView CSS styling

---
 UFileTypeSettings.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'UFileTypeSettings.pas')

diff --git a/UFileTypeSettings.pas b/UFileTypeSettings.pas
index f868715..de89fd1 100644
--- a/UFileTypeSettings.pas
+++ b/UFileTypeSettings.pas
@@ -97,7 +97,7 @@ var Column: TGTKTreeViewColumn;
     l: TGTKLabel;
 begin
   FUseGnomeIconEntry := Assigned(gnome_icon_entry_new) and Assigned(gnome_icon_entry_get_filename) and Assigned(gnome_icon_entry_set_filename);
-  SetDefaultSize(450, 620);
+  SetDefaultSize(470, 700);
   Caption := LANGEditFileTypesCaption;
   Buttons := [mbOK, mbCancel];
   TitleEventBox := TGTKEventBox.Create(Self);
@@ -230,12 +230,12 @@ begin
   DescriptionLabel.UseUnderline := True;
   Grid := TGTKGrid.Create(Self);
   Grid.RowHomogeneous := False;
-  Grid.ColHomogeneous := False;
+  Grid.ColHomogeneous := True;
   Grid.RowSpacing := 1;
   Grid.AddControl(0, 0, 1, 1, DescriptionLabel);
-  Grid.AddControl(1, 0, 3, 1, DescriptionEntry);
+  Grid.AddControl(1, 0, 4, 1, DescriptionEntry);
   Grid.AddControl(0, 1, 1, 1, CommandLabel);
-  Grid.AddControl(1, 1, 3, 1, CommandEntry);
+  Grid.AddControl(1, 1, 4, 1, CommandEntry);
   ActionsHBox2.Homogeneous := False;
   ActionsHBox2.AddControlEx(AutodetectCheckBox, True, True, 5);
   ActionsHBox2.AddControlEx(RunInTerminalCheckBox, True, True, 5);
@@ -431,7 +431,7 @@ begin
             Item.ActionList.Add(Action)
           end;
       end;
-      IntAssocList.Add(Item);    
+      IntAssocList.Add(Item);
     end;
 end;
 
-- 
cgit v1.2.3