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

Qt6: QtEdges can be or'ed, so make it cardinal type.

Browse Source
This commit is contained in:
Željan Rikalo 2023-09-05 12:36:04 +02:00
parent 0480536ac0
commit 67fb404f84
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/qt6/qt62.pas
View File

@ -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;