GDI: When creating a list of clipboard formats, add mime equivalents too.

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;