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

LCL Win32: take care of more clipboard formats. Issue #20089, patch from Flávio Etrusco

Browse Source 
git-svn-id: trunk@32726 -
This commit is contained in:
juha 2011-10-07 07:23:49 +00:00
parent 1acfc93cd4
commit ae0edb7828
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -328,11 +328,15 @@ begin
Result := 'audio/riff'; Result := 'audio/riff';
CF_SYLK: CF_SYLK:
Result := 'application/x-ms-shortcut'; Result := 'application/x-ms-shortcut';
CF_LOCALE:
Result := 'application/x-ms-locale';
CF_OEMTEXT:
Result := 'application/x-ms-oemtext';
else else
SetLength(Result,1000); SetLength(Result,1000);
FormatLength:= Windows.GetClipboardFormatName(FormatID, PChar(Result), 1000); FormatLength:= Windows.GetClipboardFormatName(FormatID, PChar(Result), 1000);
if FormatLength = 0 then if FormatLength = 0 then
raise Exception.Create('Unknown clipboard format'); raise Exception.CreateFmt('Unknown clipboard format: %d', [FormatID]);
SetLength(Result,FormatLength); SetLength(Result,FormatLength);
{$IFDEF VerboseWin32Clipbrd} {$IFDEF VerboseWin32Clipbrd}
debugln('TWin32WidgetSet.ClipboardFormatToMimeType FormatID=',dbgs(FormatID),' ',Result); debugln('TWin32WidgetSet.ClipboardFormatToMimeType FormatID=',dbgs(FormatID),' ',Result);