From 83300860141a91e8b6f36da1d61ffa83794c9ed7 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 5 Apr 2012 12:43:49 +0200
Subject: imgcnv: File DND now works under Windows too.

---
 tools/imageconvert/frm_main.pas | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

(limited to 'tools/imageconvert/frm_main.pas')

diff --git a/tools/imageconvert/frm_main.pas b/tools/imageconvert/frm_main.pas
index 0dc77299..3ab50dbc 100644
--- a/tools/imageconvert/frm_main.pas
+++ b/tools/imageconvert/frm_main.pas
@@ -52,7 +52,12 @@ procedure TMainForm.MemoDragEnter(Sender, Source: TObject;
 var
   s: string;
 begin
-  s := 'text/uri-list';  // 'text/plain';
+  {TODO: Once Windows DND backend is 100% complete, this IFDEF can be removed.}
+  {$IFDEF MSWINDOWS}
+  s := 'FileName';
+  {$ELSE}
+  s := 'text/uri-list';
+  {$ENDIF}
   Accept := AMimeList.IndexOf(s) > -1;
   if Accept then
   begin
@@ -71,15 +76,18 @@ procedure TMainForm.MemoDragDrop(Sender, Source: TObject; X, Y: integer;
   sl := TStringList.Create;
   try
     sl.Text := AData;
-    memImages.BeginUpdate;
-    for i := 0 to sl.Count-1 do
-    begin
-      fileName := sl[i];
-      fileName := StringReplace(fileName, 'file://', '', []);
-      memImages.Text := memImages.Text + ConvertImage(fileName);
+    try
+      memImages.BeginUpdate;
+      for i := 0 to sl.Count-1 do
+      begin
+        fileName := sl[i];
+        fileName := StringReplace(fileName, 'file://', '', []);
+        memImages.Text := memImages.Text + ConvertImage(fileName);
+      end;
+    finally
+      memImages.EndUpdate;
     end;
   finally
-    memImages.EndUpdate;
     sl.Free;
   end;
 end;
-- 
cgit v1.2.3-54-g00ecf