From: h677 Date: Wed, 22 Feb 2006 18:29:18 +0000 (+0000) Subject: 登録していないジェスチャーを実行するとAccessViolationが発生する不具合の修正 X-Git-Tag: v1_64_1_820~447 X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=7b45b9682742f5d48db0999c887f2547698ffe17;p=gikonavigoeson%2Fgikonavi.git 登録していないジェスチャーを実行するとAccessViolationが発生する不具合の修正 --- 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;