paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 15:19:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix CF_Text and CF_BITMAP for Clipboard. Issue #27194, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@56423 -
This commit is contained in:
juha 2017-11-17 08:17:14 +00:00
parent c67468c16a
commit 10b7f2d141
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/clipbrd.pp
View File

@ -301,12 +301,12 @@ end;
function CF_Text: TClipboardFormat; function CF_Text: TClipboardFormat;
begin begin
Result:=PredefinedClipboardFormat(pcfDelphiText); Result:=PredefinedClipboardFormat(pcfText);
end; end;
function CF_Bitmap: TClipboardFormat; function CF_Bitmap: TClipboardFormat;
begin begin
Result:=PredefinedClipboardFormat(pcfDelphiBitmap); Result:=PredefinedClipboardFormat(pcfBitmap);
end; end;
function CF_Picture: TClipboardFormat; function CF_Picture: TClipboardFormat;

8
lcl/lcltype.pp
View File

@ -2722,13 +2722,13 @@ type
pcfDelphiPicture, pcfDelphiPicture,
pcfDelphiMetaFilePict, pcfDelphiMetaFilePict,
pcfDelphiObject, pcfDelphiObject,
pcfDelphiComponent, pcfDelphiComponent {,
// Kylix definitions (only for compatibility) // Kylix definitions (only for compatibility)
pcfKylixPicture, pcfKylixPicture,
pcfKylixBitmap, pcfKylixBitmap,
pcfKylixDrawing, pcfKylixDrawing,
pcfKylixComponent pcfKylixComponent }
); );
const const
@ -2748,13 +2748,13 @@ const
'Delphi Picture', 'Delphi Picture',
'image/delphi.metafilepict', 'image/delphi.metafilepict',
'application/delphi.object', 'application/delphi.object',
'Delphi Component', 'Delphi Component' {,
// Kylix definitons (only for compatibility) // Kylix definitons (only for compatibility)
'image/delphi.picture', 'image/delphi.picture',
'image/delphi.bitmap', 'image/delphi.bitmap',
'image/delphi.drawing', 'image/delphi.drawing',
'application/delphi.component' 'application/delphi.component' }
); );