Fix list view column reorderingv0.6.80

This causes a little bit of flicker, but avoids race condition
somewhere.

2 files changed, 9 insertions, 5 deletions

diff --git a/UConfig.pas b/UConfig.pas
index 48028f3..a51591f 100644
--- a/UConfig.pas
+++ b/UConfig.pas
@@ -25,8 +25,8 @@ uses Classes, ULocale;
 
 resourcestring
   ConstAppTitle = 'Tux Commander';
-  ConstAboutVersion = '0.6.79-dev';
-  ConstAboutBuildDate = '2024-01-19';
+  ConstAboutVersion = '0.6.80-dev';
+  ConstAboutBuildDate = '2024-10-08';
 
 {$IFDEF FPC}
   {$INCLUDE fpcver.inc}
diff --git a/UMain.pas b/UMain.pas
index 9f624ad..bce9d75 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -1087,6 +1087,10 @@ begin
   ListView.SelectionMode := smBrowse;
   GetFirstLastPanelColumn(FirstColumn, LastColumn);
 
+  //  Temporarily disable the fixed height mode to be able to add columns the Pascal way
+  if Application.GTKVersion_2_12_0_Up then
+    g_object_set(ListView.FWidget, 'fixed_height_mode', 0, nil);
+
   for i := 1 to ConstNumPanelColumns do
     if ConfColumnVisible[i] then begin
 
@@ -5199,9 +5203,8 @@ begin
   end;
   Application.ProcessMessages;
 
-{  RebuildListViewsTimer.Interval := 100;
-  RebuildListViewsTimer.Enabled := True; }
-  RebuildListViewsTimerTimer(Self);
+  RebuildListViewsTimer.Interval := 1;
+  RebuildListViewsTimer.Enabled := True;
   gtk_tree_view_set_headers_visible(PGtkTreeView(SourceListView.FWidget), False);
   gtk_tree_view_set_headers_visible(PGtkTreeView(SourceListView.FWidget), True);
 end;
@@ -5222,6 +5225,7 @@ begin
   ConstructColumns(RightListView);
   InactiveItemsTimer.Enabled := False;
   if DoRefresh then begin
+    Application.ProcessMessages;
     FMain.DoRefresh(True, True, True);
     FMain.DoRefresh(False, True, True);
     LeftListView.SetSortInfo(ConfMainWindowLeftSortColumn, TGTKTreeViewSortOrder(ConfMainWindowLeftSortType));