diff options
| -rw-r--r-- | UConfig.pas | 4 | ||||
| -rw-r--r-- | UMain.pas | 10 |
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} @@ -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)); |