paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 00:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

GTK3: Migrate GtkSelectionMode to enumeration type.

Browse Source 
In Gtk3 WS code, integers were used instead of enumeration values.
This leads to compilation error now that `GtkSelectionMode` is defined
as an enumeration type. This commit fixes those errors.
This commit is contained in:
Abou Al Montacir 2023-05-28 11:10:24 +02:00
parent b8436cb8bd
commit 98f586ba61
2 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -264,6 +264,14 @@ type
GTK_TEXT_DIR_LTR = 1,
GTK_TEXT_DIR_RTL = 2
);
TGtkSelectionMode = (
TGtkSelectionModeMinValue = -$7FFFFFFF,
GTK_SELECTION_NONE = 0,
GTK_SELECTION_SINGLE = 1,
GTK_SELECTION_BROWSE = 2,
GTK_SELECTION_MULTIPLE = 3,
TGtkSelectionModeMaxValue = $7FFFFFFF
);
TGtkPolicyType = (
TGtkPolicyTypeMinValue = -$7FFFFFFF,
GTK_POLICY_ALWAYS = 0,
@ -907,15 +915,6 @@ const
GTK_ICON_VIEW_DROP_ABOVE: TGtkIconViewDropPosition = 4;
GTK_ICON_VIEW_DROP_BELOW: TGtkIconViewDropPosition = 5;
type
TGtkSelectionMode = Integer;
const
{ GtkSelectionMode }
GTK_SELECTION_NONE: TGtkSelectionMode = 0;
GTK_SELECTION_SINGLE: TGtkSelectionMode = 1;
GTK_SELECTION_BROWSE: TGtkSelectionMode = 2;
GTK_SELECTION_MULTIPLE: TGtkSelectionMode = 3;
type
TGtkMessageType = Integer;
const

4
lcl/interfaces/gtk3/gtk3wscomctrls.pp
View File

@ -386,8 +386,8 @@ class procedure TGtk3WSCustomListView.SetPropertyInternal(
const AIsSet: Boolean);
const
BoolToSelectionMode: array[Boolean] of TGtkSelectionMode = (
1 {GTK_SELECTION_SINGLE},
3 {GTK_SELECTION_MULTIPLE}
GTK_SELECTION_SINGLE {1} ,
GTK_SELECTION_MULTIPLE {3}
);
begin
case AProp of