• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revision0bbebea37cdfdddafecb65bd2a2be64380bd2d7b (tree)
Time2009-03-21 22:15:02
Authorh677 <h677>
Commiterh677

Log Message

ブラウザレスポップアップで、レスポップアップ中のスレッドがアクティブスレッドと
誤認する問題の対応

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -2381,6 +2381,16 @@ begin
23812381 KokoPopupMenu.PopupComponent := nil;
23822382 if (Sender is TComponent) then
23832383 KokoPopupMenu.PopupComponent := TComponent(Sender);
2384+ // Œë”š‘΍ô ƒNƒŠƒbƒN‚µ‚½ƒuƒ‰ƒEƒU‚ƈقȂé‚Æ‚«‚ɏÁ‚·ˆ—‚ð’ljÁ
2385+ if not (Sender is TResPopupBrowser) then begin
2386+ if (FResPopupBrowser <> nil) and (FResPopupBrowser.CurrentBrowser.Visible = True) then begin
2387+ FResPopupBrowser.Clear;
2388+ end;
2389+ end else begin
2390+ if (Sender <> FResPopupBrowser.CurrentBrowser) then begin
2391+ TResPopupBrowser(Sender).ChildClear;
2392+ end;
2393+ end;
23842394 KokoPopupMenu.Tag := StrToInt(sNo);
23852395 KokoPopupMenu.Popup(p.x, p.y);
23862396 end else if Pos('mailto', LowerCase(URL)) <> 0 then begin