summaryrefslogtreecommitdiff
path: root/src/corelib
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-10-22 17:27:02 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-10-28 10:57:22 +0200
commit61bef3e47c911c8e2d82984adc79010940cd7bac (patch)
treea13f8141d7315e246d6c3fb9e14c9d97fda0c943 /src/corelib
parent2c92fb8a8b26c42b5ce215c4c7ecab5f022da304 (diff)
downloadfpGUI-61bef3e47c911c8e2d82984adc79010940cd7bac.tar.xz
GDI: When creating a list of clipboard formats, add mime equivalents too.
Diffstat (limited to 'src/corelib')
-rw-r--r--src/corelib/gdi/fpg_oledragdrop.pas5
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;