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

Merge branch 'main' into 'main'

Browse Source 
GTK3: Migrate GtkSelectionMode to enumeration type.

See merge request freepascal.org/lazarus/lazarus!174
This commit is contained in:
Maxim Ganetsky 2023-05-28 17:27:40 +00:00
commit 3e5f53f35a
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