Implemented a bare minimum MimeType to Win Clipboard lookup function.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/corelib/gdi/fpg_oledragdrop.pas b/src/corelib/gdi/fpg_oledragdrop.pas
index 0002c695..56415fad 100644
--- a/src/corelib/gdi/fpg_oledragdrop.pas
+++ b/src/corelib/gdi/fpg_oledragdrop.pas
@@ -187,7 +187,9 @@ type
     property    OnDropFiles: TDropFilesEvent read FOnDropFiles write FOnDropFiles;

   end;

 

+

 function WindowsMimeLookup(const CFFormat: string): string;

+function WindowsClipboardLoopup(const AMime: string): DWORD;

 function EnumDataToStringList(DataObj: IDataObject): TStringList;

 function GetFormatEtc(const CFFormat: DWORD): FORMATETC;

 

@@ -219,6 +221,15 @@ begin
     Result := CFFormat;

 end;

 

+function WindowsClipboardLoopup(const AMime: string): DWORD;

+begin

+  { TODO: We need to implement this correctly }

+  if AMime = 'text/plain' then

+    Result := CF_TEXT

+  else

+    Result := CF_TEXT;  // fallback result

+end;

+

 function WindowsClipboardFormatToString(const CFFormat: integer): string;

 begin

   { replace know clipboard formats with mime types }