diff --git a/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas b/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas index 2b661c06f0..14d6a85576 100644 --- a/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas +++ b/lcl/interfaces/gtk3/gtk3bindings/lazgtk3.pas @@ -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 diff --git a/lcl/interfaces/gtk3/gtk3wscomctrls.pp b/lcl/interfaces/gtk3/gtk3wscomctrls.pp index 328190ea8f..2467aa479a 100644 --- a/lcl/interfaces/gtk3/gtk3wscomctrls.pp +++ b/lcl/interfaces/gtk3/gtk3wscomctrls.pp @@ -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