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

Qt: take care about dropfiles senders which does not respect xorg desktop standards.issue #21052

Browse Source 
git-svn-id: trunk@34683 -
This commit is contained in:
zeljko 2012-01-09 15:36:55 +00:00
parent 3b364887c4
commit a5616cc245
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2551,10 +2551,10 @@ begin
QStrList := QStringList_create(); QStrList := QStringList_create();
try try
QMimeData_formats(MimeData, QStrList); QMimeData_formats(MimeData, QStrList);
for i := 0 to QStringList_size(QStrList) - 1 do for i := QStringList_size(QStrList) - 1 downto 0 do
begin begin
QStringList_at(QStrList, @WStr, i); QStringList_at(QStrList, @WStr, i);
GotFiles := WStr = 'text/plain'; GotFiles := (WStr = 'text/plain') or (WStr = 'text/uri-list');
if GotFiles then if GotFiles then
break; break;
end; end;