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

Qt: do not imply conversion of filenames, otherwise we lost utf8 information. issue #21065

Browse Source 
git-svn-id: trunk@34762 -
This commit is contained in:
zeljko 2012-01-16 19:00:02 +00:00
parent 9882727e66
commit 436bf0df59
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2568,9 +2568,7 @@ begin
QMimeData_data(MimeData, ByteArr, @WStr);
if not QByteArray_isNull(ByteArr) then
begin
WStr := '';
for i := 0 to QByteArray_size(ByteArr) - 1 do
WStr := WStr + QByteArray_at(ByteArr, i);
WStr := QByteArray_constData(ByteArr);
FilesList := TStringList.Create;
try
FilesList.Text := UTF16ToUTF8(WStr);