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

Qt5: fixed usage of TQtObjectDump.InheritsQtClass by using ansistring instead of widestring as function param, so we have proper conversion to PAnsiCharwq.

Browse Source
This commit is contained in:
Željan Rikalo 2024-02-05 16:17:14 +01:00
parent 6e1eac9018
commit eb8b251b89
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -794,7 +794,7 @@ type
function findWidgetByName(const AName: WideString): QWidgetH;
function IsWidget(AnObject: QObjectH): Boolean;
function GetObjectName(AnObject: QObjectH): WideString;
function InheritsQtClass(AnObject: QObjectH; AQtClass: WideString): Boolean;
function InheritsQtClass(AnObject: QObjectH; AQtClass: Ansistring): Boolean;
property List: TStrings read FList;
property ObjList: TFPList read FObjList;
end;
@ -5147,12 +5147,12 @@ begin
end;
function TQtObjectDump.InheritsQtClass(AnObject: QObjectH;
AQtClass: WideString): Boolean;
AQtClass: AnsiString): Boolean;
begin
if (AnObject = nil) or (AQtClass = '') then
Result := False
else
Result := QObject_inherits(AnObject, PAnsiChar(@AQtClass)); // Suspicious typecast! (by Juha)
Result := QObject_inherits(AnObject, PAnsiChar(AQtClass));
end;
constructor TQtObjectDump.Create(AnObject: QObjectH);