paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 12:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 43961 #028483a799 from trunk:

Browse Source 
Qt: fixed copy-paste between TSynEdits in different applications. issue #25692
........

git-svn-id: branches/fixes_1_2@43973 -
This commit is contained in:
maxim 2014-02-09 13:37:16 +00:00
parent c128a79524
commit b02279a004
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtobjects.pas
View File

@ -4234,8 +4234,10 @@ function TQtClipboard.GetOwnerShip(ClipboardType: TClipboardType;
MimeType := FormatToMimeType(Formats[I]);
FOnClipBoardRequest[ClipboardType](Formats[I], DataStream);
Data := QByteArray_create(PAnsiChar(DataStream.Memory), DataStream.Size);
if (QByteArray_length(Data) > 1) and QByteArray_endsWith(Data, #0) then
QByteArray_chop(Data, 1);
{do not remove #0 from Application/X-Laz-SynEdit-Tagged issue #25692}
if (MimeType <> 'Application/X-Laz-SynEdit-Tagged') and
(QByteArray_length(Data) > 1) and QByteArray_endsWith(Data, #0) then
QByteArray_chop(Data, 1);
QMimeData_setData(MimeData, @MimeType, Data);
QByteArray_destroy(Data);
end;