From 67fb404f84400cd9e0aa43549e586277c4af9ec8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=BDeljan=20Rikalo?= <zeljko@lazarus-ide.org>
Date: Tue, 5 Sep 2023 12:36:04 +0200
Subject: [PATCH] Qt6: QtEdges can be or'ed, so make it cardinal type.

---
 lcl/interfaces/qt6/qt62.pas | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/lcl/interfaces/qt6/qt62.pas b/lcl/interfaces/qt6/qt62.pas
index bb6f4c3031..abdf0d5683 100644
--- a/lcl/interfaces/qt6/qt62.pas
+++ b/lcl/interfaces/qt6/qt62.pas
@@ -932,14 +932,6 @@ type
     QtBottomLeftCorner = $00002,
     QtBottomRightCorner = $00003 );
 
-  QtEdge = (  //Qt::Edge (2)
-    QtTopEdge = $00001,
-    QtLeftEdge = $00002,
-    QtRightEdge = $00004,
-    QtBottomEdge = $00008 );
-
-  QtEdges = set of QtEdge;
-
   QtConnectionType = (  //Qt::ConnectionType (2)
     QtAutoConnection,
     QtDirectConnection,
@@ -979,6 +971,15 @@ const
   QtImhLatinOnly =   $800000;
   QtImhExclusiveInputMask =   $ffff0000;
 
+type
+  QtEdge = cardinal;
+
+const
+  QtTopEdge = $00001;
+  QtLeftEdge = $00002;
+  QtRightEdge = $00004;
+  QtBottomEdge = $00008;
+
 
 type
   QtAnchorPoint = (  //Qt::AnchorPoint (2)
@@ -5912,7 +5913,7 @@ procedure QWindow_setMaximumHeight(handle: QWindowH; h: integer); cdecl; externa
 procedure QWindow_alert(handle: QWindowH; msec: integer); cdecl; external Qt6PasLib name 'QWindow_alert';
 procedure QWindow_requestUpdate(handle: QWindowH); cdecl; external Qt6PasLib name 'QWindow_requestUpdate';
 function QWindow_startSystemMove(handle: QWindowH): boolean; cdecl; external Qt6PasLib name 'QWindow_startSystemMove';
-function QWindow_startSystemResize(handle: QWindowH; edges: QtEdges): boolean; cdecl; external Qt6PasLib name 'QWindow_startSystemResize';
+function QWindow_startSystemResize(handle: QWindowH; edges: QtEdge): boolean; cdecl; external Qt6PasLib name 'QWindow_startSystemResize';
 
 type
   QWindow_screenChanged_Event = procedure (screen: QScreenH) of object cdecl;