paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: DropFiles bugfix for #13799 and #13800

Browse Source 
git-svn-id: trunk@20143 -
This commit is contained in:
zeljko 2009-05-23 10:48:25 +00:00
parent 5ae268758c
commit 3fc7d3dbfc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4188,9 +4188,13 @@ begin
FilesList := TStringList.Create; FilesList := TStringList.Create;
try try
FilesList.Text := UTF16ToUTF8(WStr); FilesList.Text := UTF16ToUTF8(WStr);
{$IFDEF USE_QT_45}
SetLength(Files, FilesList.Count);
{$ELSE}
{last member of TStringList always contains empty string {last member of TStringList always contains empty string
since QMimeData always have #13#10#0 at the end.So we cut it here.} since QMimeData always have #13#10#0 at the end.So we cut it here.}
SetLength(Files, FilesList.Count - 1); SetLength(Files, FilesList.Count - 1);
{$ENDIF}
for i := 0 to High(Files) do for i := 0 to High(Files) do
Files[i] := FilesList.Strings[i]; Files[i] := FilesList.Strings[i];
finally finally