From 61bef3e47c911c8e2d82984adc79010940cd7bac Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 22 Oct 2010 17:27:02 +0200
Subject: GDI: When creating a list of clipboard formats, add mime equivalents
 too.

---
 src/corelib/gdi/fpg_oledragdrop.pas | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

diff --git a/src/corelib/gdi/fpg_oledragdrop.pas b/src/corelib/gdi/fpg_oledragdrop.pas
index 56415fad..c3663689 100644
--- a/src/corelib/gdi/fpg_oledragdrop.pas
+++ b/src/corelib/gdi/fpg_oledragdrop.pas
@@ -261,6 +261,7 @@ var
 	EnumFormats: IEnumFORMATETC;
 	num: integer;
   lname: string;
+  lMimeName: string;
   FormatName: array[0..MAX_PATH] of Char;
   i: integer;
 begin
@@ -282,6 +283,10 @@ begin
       lName := WindowsClipboardFormatToString(FE.cfFormat);
     end;
     Result.Add(lName);
+    { Lets add the mime type too if we can find one }
+    lMimeName := WindowsMimeLookup(lName);
+    if lName <> lMimeName then
+      Result.Add(lMimeName);
   end;
 end;
 
-- 
cgit v1.2.3-70-g09d2