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

Qt5: forgotten QTACCESSIBILITY define

Browse Source 
git-svn-id: trunk@64981 -
This commit is contained in:
zeljko 2021-04-13 10:55:54 +00:00
parent 052438a840
commit d84f74bc79
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt5/qt56.pas
View File

@ -153,10 +153,13 @@ type
Q_PID = type int64;
{$ENDIF}
{$IFDEF QTACCESSIBILITY}
QAccessibleEventH = class(TObject) end;
QAccessibleInterfaceH = class(TObject) end;
QAccessibleWidgetH = class(QAccessibleInterfaceH) end;
QLCLAccessibleWidgetH = class(QAccessibleWidgetH) end;
{$ENDIF}
QAbstractNativeEventFilterH = class(TObject) end;
QAuthenticatorH = class(TObject) end;
QBackingStoreH = class(TObject) end;
@ -14708,6 +14711,7 @@ procedure QAuthenticator_setOption(handle: QAuthenticatorH; opt: PWideString; va
function QAuthenticator_isNull(handle: QAuthenticatorH): Boolean; cdecl; external Qt5PasLib name 'QAuthenticator_isNull';
procedure QAuthenticator_detach(handle: QAuthenticatorH); cdecl; external Qt5PasLib name 'QAuthenticator_detach';
{$IFDEF QTACCESSIBILITY}
type
QAccessibleEvent = ( // QAccessible::Event
QAccessibleSoundPlayed = $0001,
@ -14943,7 +14947,7 @@ type
QAccessibleId = cardinal;
TInterfaceFactory = function(key: QStringH; obj: QObjectH): QAccessibleInterfaceH cdecl;
{$IFDEF QTACCESSIBILITY}
// actionNames_Override returns a single string with comma separated action names
QLCLAccessibleWidget_actionNames_Override = procedure (names: PWideString) of object cdecl;
QLCLAccessibleWidget_child_Override = procedure (index: integer; out child: QAccessibleInterfaceH) of object cdecl;

3
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -19907,7 +19907,7 @@ begin
end;
{$IFDEF QTACCESSIBILITY}
function LazRoleToQtRole(ALazRole: TLazAccessibilityRole): QAccessibleRole;
begin
case ALazRole of
@ -19972,6 +19972,7 @@ begin
end;
Result := S;
end;
{$ENDIF}
function LCLControlRectToQtScreenRect(ARect: TRect; AControl: TControl): TRect;
var