paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 08:17:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

GTK3: Migrate TGtkSortType to enumeration type.

Browse Source 
In Gtk3 WS code, variables of type Integer were used instead of ones
of relevant enumeration type.
This leads to compilation error now that `TGtkSortType` is defined as
an enumeration type. This commit fixes those errors.
This commit is contained in:
Abou Al Montacir 2023-06-01 20:11:49 +02:00 committed by Maxim Ganetsky
parent 22c6d6658f
commit e42a3c7df7
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas
View File

@ -907,6 +907,12 @@ type
GTK_LEVEL_BAR_MODE_DISCRETE = 1, GTK_LEVEL_BAR_MODE_DISCRETE = 1,
TGtkLevelBarModeMaxValue = $7FFFFFFF TGtkLevelBarModeMaxValue = $7FFFFFFF
); );
TGtkSortType = (
TGtkSortTypeMinValue = -$7FFFFFFF,
GTK_SORT_ASCENDING = 0,
GTK_SORT_DESCENDING = 1,
TGtkSortTypeMaxValue = $7FFFFFFF
);
TGtkPackDirection = ( TGtkPackDirection = (
TGtkPackDirectionMinValue = -$7FFFFFFF, TGtkPackDirectionMinValue = -$7FFFFFFF,
GTK_PACK_DIRECTION_LTR = 0, GTK_PACK_DIRECTION_LTR = 0,
@ -1305,13 +1311,6 @@ const
GTK_ICON_LOOKUP_GENERIC_FALLBACK: TGtkIconLookupFlags = 8; GTK_ICON_LOOKUP_GENERIC_FALLBACK: TGtkIconLookupFlags = 8;
GTK_ICON_LOOKUP_FORCE_SIZE: TGtkIconLookupFlags = 16; GTK_ICON_LOOKUP_FORCE_SIZE: TGtkIconLookupFlags = 16;
type
TGtkSortType = Integer;
const
{ GtkSortType }
GTK_SORT_ASCENDING: TGtkSortType = 0;
GTK_SORT_DESCENDING: TGtkSortType = 1;
type type
TGtkRcTokenType = Integer; TGtkRcTokenType = Integer;
const const

2
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -6332,7 +6332,7 @@ end;
procedure TGtk3ListView.ColumnSetSortIndicator(const AIndex: Integer; procedure TGtk3ListView.ColumnSetSortIndicator(const AIndex: Integer;
const AColumn: TListColumn; const ASortIndicator: TSortIndicator); const AColumn: TListColumn; const ASortIndicator: TSortIndicator);
const const
GtkOrder : array [ TSortIndicator] of TGtkSortType = (0, {GTK_SORT_ASCENDING}0, {GTK_SORT_DESCENDING}1); GtkOrder : array [ TSortIndicator] of TGtkSortType = (GTK_SORT_ASCENDING {0}, GTK_SORT_ASCENDING {0}, GTK_SORT_DESCENDING {1});
var var
AGtkColumn: PGtkTreeViewColumn; AGtkColumn: PGtkTreeViewColumn;
begin begin