外部からのD&DをListViewだけが受け取るように修正。

[gikonavigoeson/gikonavi.git] / ResPopupBrowser.pas

diff --git a/ResPopupBrowser.pas b/ResPopupBrowser.pas
index 4ae2fe7..f42e50d 100644 (file)
--- a/ResPopupBrowser.pas
+++ b/ResPopupBrowser.pas
@@ -151,7 +151,16 @@ begin
 end;
 procedure TResPopupBrowser.Popup;
 begin
-    Write(Self.RawDocument, false);
+    if (GetAsyncKeyState(VK_SHIFT) = Smallint($8001)) then begin
+        // \83V\83t\83g\89\9f\82µ\82Ä\82é\8fê\8d\87\82Í\82»\82Ì\82Ü\82Ü\8fo\82·
+        Write(Self.RawDocument, false);
+    end else begin
+        // éx\82µ\8aG\82ª\8c©\82¦\82é\82æ\82¤\82É\94¼\8ap\83X\83y\81[\83X*2\82ð *2\82É\92u\8a·\82·\82é
+        Write(
+            MojuUtils.CustomStringReplace(
+                Self.RawDocument, '  ', '  '),
+            false);
+    end;
 end;
 procedure TResPopupBrowser.Write(ADocument: String; OnlyTitle: Boolean = False);
 var