Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.402 by h677, Fri Aug 27 12:03:11 2004 UTC revision 1.403 by h677, Sat Aug 28 04:50:55 2004 UTC
# Line 10526  begin Line 10526  begin
10526                  Self.FEvent.Free;                  Self.FEvent.Free;
10527          if Self.FBrowser <> nil then begin          if Self.FBrowser <> nil then begin
10528                  if Self.Thread <> nil then begin                  if Self.Thread <> nil then begin
10529                          doc := Idispatch( olevariant(Self.FBrowser.ControlInterface).Document) as IHTMLDocument2;                          //タブの復元で復元されたスレは、描画されていないときがあるので
10530                          Self.Thread.ScrollTop := doc.Body.ScrollTop;                          //そのときのスクロール量を保存してしまうとトップに戻ってしまう。
10531                            if Self.FBrowser.OleObject.Document.documentElement.innerText <> '' then begin
10532                                    doc := Idispatch( olevariant(Self.FBrowser.ControlInterface).Document) as IHTMLDocument2;
10533                                    Self.Thread.ScrollTop := doc.Body.ScrollTop;
10534                            end;
10535                  end;                  end;
10536                  //TOleControl(Self.FBrowser).Visible := false;                  //TOleControl(Self.FBrowser).Visible := false;
10537                  ShowWindow(Self.FBrowser.Handle, SW_HIDE);                  ShowWindow(Self.FBrowser.Handle, SW_HIDE);

Legend:
Removed from v.1.402  
changed lines
  Added in v.1.403

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26