From cbf979cfcc1707907c2f7e3a5fb8c8692e2f6a1d Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 19 Aug 2022 21:45:51 +0000
Subject: [PATCH] tvplanit: Fix column widths in import preview grid.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8400 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpimportpreview.lfm |  1 +
 components/tvplanit/source/vpimportpreview.pas | 13 +++++++------
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/components/tvplanit/source/vpimportpreview.lfm b/components/tvplanit/source/vpimportpreview.lfm
index 33aa8c4a0..633585561 100644
--- a/components/tvplanit/source/vpimportpreview.lfm
+++ b/components/tvplanit/source/vpimportpreview.lfm
@@ -6,6 +6,7 @@ object VpImportPreviewForm: TVpImportPreviewForm
   Caption = 'VpImportPreviewForm'
   ClientHeight = 295
   ClientWidth = 634
+  LCLVersion = '2.3.0.0'
   object ButtonPanel: TPanel
     Left = 6
     Height = 25
diff --git a/components/tvplanit/source/vpimportpreview.pas b/components/tvplanit/source/vpimportpreview.pas
index db63c0e50..f76c7480d 100644
--- a/components/tvplanit/source/vpimportpreview.pas
+++ b/components/tvplanit/source/vpimportpreview.pas
@@ -130,29 +130,30 @@ begin
   with FGrid do
   begin
     Align := alClient;
-    AutoFillColumns := true;
+    Parent := self;
     Columns.Clear;
     with Columns.Add do
     begin
       Alignment := taCenter;
       ButtonStyle := cbsCheckboxColumn;
-      SizePriority := 0;
       Title.Caption := '';
-      Width := 10; //33;
+      SizePriority := 0;
+      Width := 33;
     end;
     with Columns.Add do
     begin
       ReadOnly := true;
-      SizePriority := 2;
+      SizePriority := 1;
       Title.Caption := '';
     end;
     with Columns.Add do
     begin
       ButtonStyle := cbsPickList;
-      SizePriority := 0;
       Title.Caption := '';
+      SizePriority := 0;
       Width := 160;
     end;
+    AutoFillColumns := true;
     ExtendedSelect := false;
     FixedCols := 0;
     Options := [goEditing, goRowSelect, goThumbTracking,
@@ -162,7 +163,7 @@ begin
     OnGetCheckboxState := @GridGetCheckboxState;
     OnPrepareCanvas := @GridPrepareCanvas;
     OnSetCheckboxState := @GridSetCheckboxState;
-    Parent := self;
+    //Parent := self;
   end;
 
   FItems := TFPList.Create;