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

lcl: win32: ClipboardFormatToMimeType: fixed not raising an exception

Browse Source 
git-svn-id: branches/fixes_1_8@55375 -
This commit is contained in:
mattias 2017-06-17 08:10:38 +00:00
parent 512384ae9d
commit bc1b8985ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32winapi.inc
View File

@ -344,7 +344,7 @@ begin
SetLength(Result,1000);
FormatLength:= Windows.GetClipboardFormatName(FormatID, PChar(Result), 1000);
if FormatLength = 0 then
raise Exception.CreateFmt('Unknown clipboard format: %d', [FormatID]);
exit(''); // do not raise an exception!
SetLength(Result,FormatLength);
{$IFDEF VerboseWin32Clipbrd}
debugln('TWin32WidgetSet.ClipboardFormatToMimeType FormatID=',dbgs(FormatID),' ',Result);