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.527.2.3 by h677, Thu Nov 3 08:12:48 2005 UTC revision 1.527.2.4 by h677, Fri Nov 4 04:00:45 2005 UTC
# Line 3585  begin Line 3585  begin
3585                                                                                                  InsertBrowserTab(Item.ThreadItem);                                                                                                  InsertBrowserTab(Item.ThreadItem);
3586                                  end;                                  end;
3587    
3588                                  Application.ProcessMessages;                                  //Application.ProcessMessages;
3589    
3590                                  if Item.State = gdsComplete then begin                                  if Item.State = gdsComplete then begin
3591                                          PlaySound('New');                                          PlaySound('New');
# Line 3958  begin Line 3958  begin
3958                                  //GikoSys.CreateHTML2(doc, ThreadItem, sTitle);                                  //GikoSys.CreateHTML2(doc, ThreadItem, sTitle);
3959                                  HTMLCreater.CreateHTML2(olevariant(Thread.Browser.ControlInterface).Document, ThreadItem, sTitle);                                  HTMLCreater.CreateHTML2(olevariant(Thread.Browser.ControlInterface).Document, ThreadItem, sTitle);
3960                                  doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;                                  doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;
3961                                  //ロードが完了するまで待つ  {                               //ロードが完了するまで待つ
3962                                  while (doc.readyState) <> 'complete' do begin                                  while (doc.readyState) <> 'complete' do begin
3963                                          Application.ProcessMessages;                                          Application.ProcessMessages;
3964                                  end;                                  end;
# Line 3967  begin Line 3967  begin
3967                                          BrowserTab.Repaint;                                          BrowserTab.Repaint;
3968                                          Exit;                                          Exit;
3969                                  end;                                  end;
3970                                  /////////////////////////////////////////////////  }                               /////////////////////////////////////////////////
3971                                  //DocumentCompleteから持ってきた。                                  //DocumentCompleteから持ってきた。
3972    {
3973                                  if Length(Thread.Movement) > 0 then begin                                  if Length(Thread.Movement) > 0 then begin
3974                                          if ThreadItem.UnRead then begin                                          if ThreadItem.UnRead then begin
3975                                                  ThreadItem.UnRead := False;                                                  ThreadItem.UnRead := False;
# Line 3995  begin Line 3996  begin
3996                                                          MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);                                                          MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);
3997                                          end;                                          end;
3998                                  end;                                  end;
3999    }
4000                                  /////////////////////////////////////////////////                                  /////////////////////////////////////////////////
4001                                  Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;                                  Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;
4002    
# Line 6559  var Line 6561  var
6561          BrowserRecord :TBrowserRecord;          BrowserRecord :TBrowserRecord;
6562          i :Integer;          i :Integer;
6563          doc                                     : Variant;          doc                                     : Variant;
6564          threadItem      : TThreadItem;  //      threadItem      : TThreadItem;
6565  begin  begin
6566          if TObject(Sender) is TWebBrowser then begin          if TObject(Sender) is TWebBrowser then begin
6567                  BrowserRecord := nil;                  BrowserRecord := nil;
# Line 6577  begin Line 6579  begin
6579                                  BrowserRecord.FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2);                                  BrowserRecord.FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2);
6580                                  BrowserRecord.FEvent.OnContextMenu := OnDocumentContextMenu;                                  BrowserRecord.FEvent.OnContextMenu := OnDocumentContextMenu;
6581                                  BrowserRecord.FEvent.OnClick := WebBrowserClick;  //追加したOnClickイベント                                  BrowserRecord.FEvent.OnClick := WebBrowserClick;  //追加したOnClickイベント
6582    
6583                                    if BrowserRecord.Thread.UnRead then begin
6584                                            BrowserRecord.Thread.UnRead := False;
6585                                            BrowserRecord.Thread.ParentBoard.UnRead := BrowserRecord.Thread.ParentBoard.UnRead - 1;
6586                                            if BrowserRecord.Thread.ParentBoard.UnRead < 0 then BrowserRecord.Thread.ParentBoard.UnRead := 0;
6587                                            TreeView.Refresh;
6588                                            ListView.Refresh;
6589                                            if Length(BrowserRecord.Movement) > 0 then begin
6590                                                    BrowserMovement( BrowserRecord.Movement, BrowserRecord );
6591                                                    BrowserRecord.Movement := '';
6592                                            end else begin
6593                                                    BrowserMovement( 'new', BrowserRecord );
6594                                            end;
6595                                    end else
6596                                    if Length(BrowserRecord.Movement) > 0 then begin
6597                                            BrowserMovement( BrowserRecord.Movement, BrowserRecord );
6598                                            BrowserRecord.Movement := '';
6599                                    end else if BrowserRecord.Thread.ScrollTop <> 0 then begin
6600                                            try
6601                                                    doc := Idispatch( olevariant(BrowserRecord.Browser.ControlInterface).Document) as IHTMLDocument2;
6602                                                    doc.Body.ScrollTop := BrowserRecord.Thread.ScrollTop;
6603                                            except
6604                                                    on E: Exception do
6605                                                            MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);
6606                                            end;
6607                                    end;
6608                          end;                          end;
6609                  end else begin                  end else begin
6610                          if GetActiveContent <> nil then begin                          if GetActiveContent <> nil then begin
# Line 6587  begin Line 6615  begin
6615                                  FEvent.OnContextMenu := OnDocumentContextMenu;                                  FEvent.OnContextMenu := OnDocumentContextMenu;
6616                                  FEvent.OnClick := WebBrowserClick;  //追加したOnClickイベント                                  FEvent.OnClick := WebBrowserClick;  //追加したOnClickイベント
6617                          end;                          end;
   
6618                  end;                  end;
6619    
6620          end;          end;
6621  end;  end;
6622    

Legend:
Removed from v.1.527.2.3  
changed lines
  Added in v.1.527.2.4

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