droptarget, drop text/html format

Firefox send utf16 while Chrome send utf8, and there is no way to
identify which one is correct.
It seems HTML Format always in utf8 or ansi, so we will use it.

mangadownloader/forms/frmDropTarget.pas

@@ -82,7 +82,6 @@ implementation
 
 var
   CF_HTML: TCLIPFORMAT;
-  CF_TEXTHTML: TCLIPFORMAT;
 
 {$R *.lfm}
 
@@ -218,9 +217,7 @@ function TFormDropTarget.CursorEffect(const AllowedEffects: Cardinal;
 
 function TFormDropTarget.CanDrop(const DataObj: IDataObject): Boolean;
 begin
-  Result := DataObj.QueryGetData(MakeFormatEtc(CF_TEXTHTML)) = S_OK;
-  if not Result then
-    Result := DataObj.QueryGetData(MakeFormatEtc(CF_HTML)) = S_OK;
+  Result := DataObj.QueryGetData(MakeFormatEtc(CF_HTML)) = S_OK;
   if not Result then
     Result := DataObj.QueryGetData(MakeFormatEtc(CF_UNICODETEXT)) = S_OK;
   if not Result then
@@ -314,9 +311,6 @@ function TFormDropTarget.GetURLsFromHTML(const S: String): String;
 function TFormDropTarget.ParseDataObj(const DataObj: IDataObject;
   const Fmt: TClipboardFormat): String;
 begin
-  if Fmt = CF_TEXTHTML then
-    Result := GetURLsFromHTML(GetWideTextFromObj(DataObj, Fmt))
-  else
   if Fmt = CF_HTML then
     Result := GetURLsFromHTML(GetTextFromObj(DataObj, Fmt))
   else
@@ -390,7 +384,6 @@ function TFormDropTarget.Drop(const dataObj: IDataObject; grfKeyState: DWORD;
   OleCheck(DataObj.EnumFormatEtc(DATADIR_GET, Enum));
   if Assigned(OnDropChekout) then
     if GetDataObjectFormats([
-      CF_TEXTHTML,
       CF_HTML,
       CF_UNICODETEXT,
       CF_TEXT
@@ -408,6 +401,5 @@ procedure TFormDropTarget.CreateParams(var Params: TCreateParams);
 
 initialization
   CF_HTML := RegisterClipboardFormat('HTML Format');
-  CF_TEXTHTML := RegisterClipboardFormat('text/html');
 
 end.