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

lcl: win32: ClipboardFormatToMimeType: fixed not raising an exception

Browse Source 
git-svn-id: trunk@55374 -
This commit is contained in:
mattias 2017-06-17 08:09:55 +00:00
parent ea7d1b5879
commit 15cc958b7e
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);