From 0bbebea37cdfdddafecb65bd2a2be64380bd2d7b Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sat, 21 Mar 2009 13:15:02 +0000
Subject: [PATCH] =?utf8?q?=E3=83=96=E3=83=A9=E3=82=A6=E3=82=B6=E3=83=AC?=
 =?utf8?q?=E3=82=B9=E3=83=9D=E3=83=83=E3=83=97=E3=82=A2=E3=83=83=E3=83=97?=
 =?utf8?q?=E3=81=A7=E3=80=81=E3=83=AC=E3=82=B9=E3=83=9D=E3=83=83=E3=83=97?=
 =?utf8?q?=E3=82=A2=E3=83=83=E3=83=97=E4=B8=AD=E3=81=AE=E3=82=B9=E3=83=AC?=
 =?utf8?q?=E3=83=83=E3=83=89=E3=81=8C=E3=82=A2=E3=82=AF=E3=83=86=E3=82=A3?=
 =?utf8?q?=E3=83=96=E3=82=B9=E3=83=AC=E3=83=83=E3=83=89=E3=81=A8=20?=
 =?utf8?q?=E8=AA=A4=E8=AA=8D=E3=81=99=E3=82=8B=E5=95=8F=E9=A1=8C=E3=81=AE?=
 =?utf8?q?=E5=AF=BE=E5=BF=9C?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Giko.pas b/Giko.pas
index 721656d..30d545c 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -2381,6 +2381,16 @@ begin
         KokoPopupMenu.PopupComponent := nil;
         if (Sender is TComponent) then
             KokoPopupMenu.PopupComponent := TComponent(Sender);
+        // Œë”š‘΍ô ƒNƒŠƒbƒN‚µ‚½ƒuƒ‰ƒEƒU‚ƈقȂé‚Æ‚«‚ɏÁ‚·ˆ—‚ð’ljÁ
+        if not (Sender is TResPopupBrowser) then begin
+            if (FResPopupBrowser <> nil) and (FResPopupBrowser.CurrentBrowser.Visible = True) then begin
+                FResPopupBrowser.Clear;
+            end;
+        end else begin
+            if (Sender <> FResPopupBrowser.CurrentBrowser) then begin
+                TResPopupBrowser(Sender).ChildClear;
+            end;
+        end;
 		KokoPopupMenu.Tag := StrToInt(sNo);
 		KokoPopupMenu.Popup(p.x, p.y);
 	end else if Pos('mailto', LowerCase(URL)) <> 0 then begin
-- 
2.11.0