paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 15:00:26 +02: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;
begin
Result:=PredefinedClipboardFormat(pcfDelphiText);
Result:=PredefinedClipboardFormat(pcfText);
end;
function CF_Bitmap: TClipboardFormat;
begin
Result:=PredefinedClipboardFormat(pcfDelphiBitmap);
Result:=PredefinedClipboardFormat(pcfBitmap);
end;
function CF_Picture: TClipboardFormat;

8
lcl/lcltype.pp
View File

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