From 03a4881ad31a8369abc062c26dafc88acc942604 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=BDeljan=20Rikalo?= Date: Tue, 13 Jun 2023 21:39:56 +0200 Subject: [PATCH] Qt5: added forgotten QGuiApplication::applicationState() to the bindings and qt56.pas --- lcl/interfaces/qt5/cbindings/src/qguiapplication_c.cpp | 5 +++++ lcl/interfaces/qt5/cbindings/src/qguiapplication_c.h | 1 + lcl/interfaces/qt5/qt56.pas | 1 + 3 files changed, 7 insertions(+) diff --git a/lcl/interfaces/qt5/cbindings/src/qguiapplication_c.cpp b/lcl/interfaces/qt5/cbindings/src/qguiapplication_c.cpp index 423fc42dac..d92049c2c1 100644 --- a/lcl/interfaces/qt5/cbindings/src/qguiapplication_c.cpp +++ b/lcl/interfaces/qt5/cbindings/src/qguiapplication_c.cpp @@ -35,6 +35,11 @@ void QGuiApplication_applicationDisplayName(PWideString retval) copyQStringToPWideString(t_retval, retval); } +Qt::ApplicationState QGuiApplication_applicationState() +{ + return (Qt::ApplicationState) QGuiApplication::applicationState(); +} + void QGuiApplication_allWindows(PPtrIntArray retval) { QWindowList t_retval; diff --git a/lcl/interfaces/qt5/cbindings/src/qguiapplication_c.h b/lcl/interfaces/qt5/cbindings/src/qguiapplication_c.h index 45bd9662cf..0587d8a371 100644 --- a/lcl/interfaces/qt5/cbindings/src/qguiapplication_c.h +++ b/lcl/interfaces/qt5/cbindings/src/qguiapplication_c.h @@ -19,6 +19,7 @@ C_EXPORT QGuiApplicationH QGuiApplication_Create(int* argc, char** argv, int Ano C_EXPORT void QGuiApplication_Destroy(QGuiApplicationH handle); C_EXPORT void QGuiApplication_setApplicationDisplayName(PWideString name); C_EXPORT void QGuiApplication_applicationDisplayName(PWideString retval); +C_EXPORT Qt::ApplicationState QGuiApplication_applicationState(); C_EXPORT void QGuiApplication_allWindows(PPtrIntArray retval); C_EXPORT void QGuiApplication_topLevelWindows(PPtrIntArray retval); C_EXPORT QWindowH QGuiApplication_topLevelAt(const QPointH pos); diff --git a/lcl/interfaces/qt5/qt56.pas b/lcl/interfaces/qt5/qt56.pas index 7ed04206df..37ed420b78 100644 --- a/lcl/interfaces/qt5/qt56.pas +++ b/lcl/interfaces/qt5/qt56.pas @@ -5506,6 +5506,7 @@ function QGuiApplication_Create(argc: PInteger; argv: PPAnsiChar; AnonParam3: In procedure QGuiApplication_Destroy(handle: QGuiApplicationH); cdecl; external Qt5PasLib name 'QGuiApplication_Destroy'; procedure QGuiApplication_setApplicationDisplayName(name: PWideString); cdecl; external Qt5PasLib name 'QGuiApplication_setApplicationDisplayName'; procedure QGuiApplication_applicationDisplayName(retval: PWideString); cdecl; external Qt5PasLib name 'QGuiApplication_applicationDisplayName'; +function QGuiApplication_applicationState(): QtApplicationState; cdecl; external Qt5PasLib name 'QGuiApplication_applicationState'; procedure QGuiApplication_allWindows(retval: PPtrIntArray); cdecl; external Qt5PasLib name 'QGuiApplication_allWindows'; procedure QGuiApplication_topLevelWindows(retval: PPtrIntArray); cdecl; external Qt5PasLib name 'QGuiApplication_topLevelWindows'; function QGuiApplication_topLevelAt(pos: PQtPoint): QWindowH; cdecl; external Qt5PasLib name 'QGuiApplication_topLevelAt';