Applied same logic in X11 to OLE DND regarding preferred mime choice

Mime types should be registered from most specific (first item in
mime list) to least specific (last item in mime list). The preferred
mime choice will be the first item in the list. Raise an error
if the mime list doesn't contain data.

1 files changed, 7 insertions, 7 deletions

diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index bda2be25..15131adf 100644
--- a/src/corelib/gdi/fpg_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -1378,15 +1378,15 @@ begin
   begin
     lAccept := False;
 
-    { enumerate the available formats }
-//    DataObj.EnumFormatEtc(DATADIR_GET, EnumIntf);
-//    EnumIntf.Next();
+    { enumerate the available formats and return them as a StringList }
     lMimeList := EnumDataToStringList(DataObj);
 
-    lMimeChoice := 'text/plain';
-//    lMimeList := TStringList.Create;
-//    lMimeList.Add(lMimeChoice);
-//    lMimeList.Add('text/html');
+    if lMimeList.Count > 0 then
+      lMimeChoice := lMimeList[0]
+    else
+      {$NOTE We need to replace this message with a resouce string }
+      raise Exception.Create('fpGUI/GDI: no mime types available for DND operation');
+
     lDropAction := TranslateToFPGDropAction(Effect);
     if Assigned(wg.OnDragEnter) then
       wg.OnDragEnter(self, nil, lMimeList, lMimeChoice, lDropAction, lAccept);