From 93715f26b57f8c00e593b3b88e83fee7e41ee01b Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 18 Dec 2017 12:18:24 +0000
Subject: [PATCH] LCL-QT: Use PWideString typecast for QVariant_create(). It
 has no overload for PUnicodeString.

git-svn-id: trunk@56775 -
---
 lcl/interfaces/qt/qtwidgets.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 604dff341f..f7b1f85e5a 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -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 := '';