diff options
Diffstat (limited to 'UMain.pas')
| -rw-r--r-- | UMain.pas | 14 |
1 files changed, 4 insertions, 10 deletions
@@ -1064,14 +1064,7 @@ begin Column.Caption := ConfColumnTitlesShort[ConfColumnIDs[i]]; - if (i < LastColumn){ or Application.GTKVersion_2_4_0_Up} then begin -{ Column.MinWidth := 10; - Column.MaxWidth := 500; } -{ Column.SizingMode := smFixed; - Column.FixedWidth := ConfColumnSizes[i]; } - g_object_set(G_OBJECT(Column.FColumn), 'sizing', 2, 'fixed-width', ConfColumnSizes[i], nil); - end else g_object_set(G_OBJECT(Column.FColumn), 'sizing', 0, nil); - // Column.SizingMode := smFixed; // smAutoSize; + g_object_set(G_OBJECT(Column.FColumn), 'sizing', 2, 'fixed-width', ConfColumnSizes[i], nil); gtk_tree_view_column_set_spacing(Column.FColumn, 1); // Bug with column spacing? @@ -1107,8 +1100,9 @@ begin gtk_widget_modify_font(ListView.FWidget, FontDesc); end else gtk_widget_modify_font(ListView.FWidget, nil); - // Set the fixed row height - temporarily disabled due to bug in custom drawing -// if Application.GTKVersion_2_4_0_Up then g_object_set(ListView.FWidget, 'fixed_height_mode', integer(True), nil); + // Set the fixed row height - there were some issues with custom drawing in the past, now with 2.18 it looks all fine + if Application.GTKVersion_2_12_0_Up then + g_object_set(ListView.FWidget, 'fixed_height_mode', 1, nil); end; procedure TFMain.FormDestroy(Sender: TObject); |