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

LCL-QT: Use PWideString typecast for QVariant_create(). It has no overload for PUnicodeString.

Browse Source 
git-svn-id: trunk@56775 -
This commit is contained in:
juha 2017-12-18 12:18:24 +00:00
parent 54752f7024
commit 93715f26b5
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/qt/qtwidgets.pas
View File

@ -12634,7 +12634,7 @@ begin
if (DataStr <> WStr) then
begin
v := QVariant_create(PUnicodeString(@WStr));
v := QVariant_create(PWideString(@WStr));
try
QListWidgetItem_setData(item, Ord(QtDisplayRole), v);
finally
@ -14688,7 +14688,7 @@ begin
WStr := TCustomListViewHack(LCLObject){%H-}.Items[TopItem].Caption;
ASelected := TCustomListViewHack(LCLObject).Items[TopItem].Selected;
v := QVariant_create(PUnicodeString(@WStr));
v := QVariant_create(PWideString(@WStr));
try
v2 := QVariant_create;
try
@ -14791,7 +14791,7 @@ begin
if itemChild <> nil then
begin
WStr := TCustomListViewHack(LCLObject){%H-}.Items[TopItem].SubItems[j];
v := QVariant_create(PUnicodeString(@WStr));
v := QVariant_create(PWideString(@WStr));
v2 := QVariant_create;
try
TempStr := '';