Commit: e680f325e7d50632148d9234deee34e16fd3da65 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: e680f325e7d50632148d9234deee34e16fd3da65 (tree)
• Time: 2007-05-12 01:48:12
• Author: h677 <h677>
• Commiter: h677

Log Message

レスポップアップのレスアンカークリック語に、
レスアンカーが動作しなくなる不具合の修正

Change Summary

• modified: Giko.pas

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -3742,6 +3742,10 @@ begin
 	if ( aElement <> nil) then begin
 		Text := aElement.Get_outerText;
 		Html := aElement.Get_outerHTML;
+        if (Sender is TResPopupBrowser) then begin
+            TResPopupBrowser(Sender).ChildClear;
+            FActiveContent.Browser.SetFocus;
+        end;
 		if(AnsiPos('>>', Text) = 1) or (AnsiPos('>', Text) = 1)
 			or (AnsiPos('„„', Text) = 1) or (AnsiPos('„', Text) = 1) then begin
 			if GikoSys.Setting.ResAnchorJamp then begin