1 files changed, 5 insertions, 0 deletions
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;