From 3fc7d3dbfc5237f58f51ff5b2f12d9cb3bdb90d2 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sat, 23 May 2009 10:48:25 +0000
Subject: [PATCH] Qt: DropFiles bugfix for #13799 and #13800

git-svn-id: trunk@20143 -
---
 lcl/interfaces/qt/qtwidgets.pas | 4 ++++
 1 file changed, 4 insertions(+)

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