mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-13 04:19:33 +02:00
GTK3: Migrate TGtkTreeViewColumnSizing to enumeration type.
In Gtk3 WS code, variables of type Integer were used instead of ones of relevant enumeration type. This leads to compilation error now that `TGtkTreeViewColumnSizing` is defined as an enumeration type. This commit fixes those errors.
This commit is contained in:
parent
7eedf76e73
commit
22c6d6658f
@ -1220,6 +1220,13 @@ type
|
||||
GTK_TOOL_PALETTE_DRAG_GROUPS = 2,
|
||||
TGtkToolPaletteDragTargetsMaxValue = $7FFFFFFF
|
||||
);
|
||||
TGtkTreeViewColumnSizing = (
|
||||
TGtkTreeViewColumnSizingMinValue = -$7FFFFFFF,
|
||||
GTK_TREE_VIEW_COLUMN_GROW_ONLY = 0,
|
||||
GTK_TREE_VIEW_COLUMN_AUTOSIZE = 1,
|
||||
GTK_TREE_VIEW_COLUMN_FIXED = 2,
|
||||
TGtkTreeViewColumnSizingMaxValue = $7FFFFFFF
|
||||
);
|
||||
TGtkTreeViewDropPosition = (
|
||||
TGtkTreeViewDropPositionMinValue = -$7FFFFFFF,
|
||||
GTK_TREE_VIEW_DROP_BEFORE = 0,
|
||||
@ -1385,14 +1392,6 @@ const
|
||||
GTK_TOOLBAR_SPACE_EMPTY: TGtkToolbarSpaceStyle = 0;
|
||||
GTK_TOOLBAR_SPACE_LINE: TGtkToolbarSpaceStyle = 1;
|
||||
|
||||
type
|
||||
TGtkTreeViewColumnSizing = Integer;
|
||||
const
|
||||
{ GtkTreeViewColumnSizing }
|
||||
GTK_TREE_VIEW_COLUMN_GROW_ONLY: TGtkTreeViewColumnSizing = 0;
|
||||
GTK_TREE_VIEW_COLUMN_AUTOSIZE: TGtkTreeViewColumnSizing = 1;
|
||||
GTK_TREE_VIEW_COLUMN_FIXED: TGtkTreeViewColumnSizing = 2;
|
||||
|
||||
type
|
||||
TGtkUIManagerItemType = Integer;
|
||||
const
|
||||
|
@ -6241,8 +6241,8 @@ procedure TGtk3ListView.SetColumnAutoSize(AIndex: Integer;
|
||||
AColumn: TListColumn; AAutoSize: Boolean);
|
||||
const
|
||||
SizingMap: array[Boolean] of TGtkTreeViewColumnSizing = (
|
||||
2 {GTK_TREE_VIEW_COLUMN_FIXED},
|
||||
1 {GTK_TREE_VIEW_COLUMN_AUTOSIZE}
|
||||
GTK_TREE_VIEW_COLUMN_FIXED {2},
|
||||
GTK_TREE_VIEW_COLUMN_AUTOSIZE {1}
|
||||
);
|
||||
var
|
||||
AGtkColumn: PGtkTreeViewColumn;
|
||||
|
Loading…
Reference in New Issue
Block a user