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

Qt5,Qt6: allow paste text if mime type contains charset attribute

Browse Source
This commit is contained in:
zeljan1 2024-09-11 15:46:02 +02:00
parent b000e5a895
commit 9f0c74432d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt5/qtobjects.pas
View File

@ -4120,7 +4120,7 @@ begin
if (MimeType = 'text/plain') then // do not translate if (MimeType = 'text/plain') then // do not translate
begin begin
QGuiApplication_platformName(@WStr); QGuiApplication_platformName(@WStr);
if CompareText(Copy(UTF16ToUTF8(WStr), 1, 7),'wayland') = 0 then // do not translate if (WStr = 'xcb') or (CompareText(Copy(UTF16ToUTF8(WStr), 1, 7),'wayland') = 0) then // do not translate
begin begin
AFormats := QStringList_Create; AFormats := QStringList_Create;
QMimeData_formats(QtMimeData, AFormats); QMimeData_formats(QtMimeData, AFormats);

2
lcl/interfaces/qt6/qtobjects.pas
View File

@ -4281,7 +4281,7 @@ begin
if (MimeType = 'text/plain') then // do not translate if (MimeType = 'text/plain') then // do not translate
begin begin
QGuiApplication_platformName(@WStr); QGuiApplication_platformName(@WStr);
if CompareText(Copy(UTF16ToUTF8(WStr), 1, 7),'wayland') = 0 then // do not translate if (WStr = 'xcb') or (CompareText(Copy(UTF16ToUTF8(WStr), 1, 7),'wayland') = 0) then // do not translate
begin begin
AFormats := QStringList_Create; AFormats := QStringList_Create;
QMimeData_formats(QtMimeData, AFormats); QMimeData_formats(QtMimeData, AFormats);