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

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

Browse Source
This commit is contained in:
Željan Rikalo 2024-02-05 16:25:26 +01:00
parent eb8b251b89
commit d0b70cc7d4
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/qt6/qtobjects.pas
View File

@ -801,7 +801,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;
@ -5336,12 +5336,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, @AQtClass);
Result := QObject_inherits(AnObject, PAnsiChar(AQtClass));
end;
constructor TQtObjectDump.Create(AnObject: QObjectH);