From 7b45b9682742f5d48db0999c887f2547698ffe17 Mon Sep 17 00:00:00 2001 From: h677 Date: Wed, 22 Feb 2006 18:29:18 +0000 Subject: [PATCH] =?utf8?q?=E7=99=BB=E9=8C=B2=E3=81=97=E3=81=A6=E3=81=84?= =?utf8?q?=E3=81=AA=E3=81=84=E3=82=B8=E3=82=A7=E3=82=B9=E3=83=81=E3=83=A3?= =?utf8?q?=E3=83=BC=E3=82=92=E5=AE=9F=E8=A1=8C=E3=81=99=E3=82=8B=E3=81=A8A?= =?utf8?q?ccessViolation=E3=81=8C=E7=99=BA=E7=94=9F=E3=81=99=E3=82=8B?= =?utf8?q?=E4=B8=8D=E5=85=B7=E5=90=88=E3=81=AE=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Giko.pas | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/Giko.pas b/Giko.pas index 91224d7..6034e37 100644 --- a/Giko.pas +++ b/Giko.pas @@ -2709,12 +2709,15 @@ begin BrowserNameLabel.Left := ItemImage.Left + 20; end; + //ActiveContent@‚̍XV + FActiveContent := Thread; if not ThreadIsLog then begin Self.Caption := GikoDataModule.CAPTION_NAME ; //ƒXƒe[ƒ^ƒXƒo[‚É•\Ž¦‚µ‚Ä‚¢‚éƒXƒŒ‚Ì—e—Ê‚ðÁ‹Ž StatusBar.Panels[THREADSIZE_PANEL].Text := ''; try + Thread.Browser.BringToFront; s := '
‚±‚̃XƒŒƒbƒh‚͎擾‚µ‚Ä‚¢‚Ü‚¹‚ñ
'; doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; doc.open; @@ -2722,6 +2725,7 @@ begin doc.Write(s); doc.Close; finally + end; end else begin Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + ThreadTitle + ']'; @@ -2736,7 +2740,6 @@ begin Thread.Browser.OnStatusTextChange := nil; LockWindowUpdate(Thread.Browser.ParentWindow); - //LockWindowUpdate(Thread.Browser.Handle); HTMLCreater.CreateHTML2( Idispatch( olevariant(Thread.Browser.ControlInterface).Document), ThreadItem, sTitle); @@ -2748,18 +2751,10 @@ begin Application.ProcessMessages; end; Thread.Browser.OnStatusTextChange := BrowserStatusTextChange; - //PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 ); - end else begin - // JUMP‚ðŽw’肳‚ê‚Ä‚¢‚½‚çJUMP‚·‚é - //if (Thread.Movement <> '') then begin - // Thread.Move(Thread.Movement); - // Thread.Movement := ''; - //end; end; end; - //ActiveContent@‚̍XV - FActiveContent := Thread; + //Thread‚̔‚ƕ\Ž¦‚µ‚Ä‚¢‚锂ª“¯‚¶‚È‚ç•`‰æ‚ðXV‚·‚é if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then begin @@ -7240,7 +7235,6 @@ begin s := MouseGesture.GetGestureStr; Action := GikoSys.Setting.Gestures.GetGestureAction(s); if Action <> nil then - MouseGesture.OnGestureStart(nil); Action.Execute; StatusBar.Panels[1].Text := ''; end; -- 2.11.0