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.434 by yoffy, Thu Sep 16 14:09:52 2004 UTC revision 1.435 by yoffy, Thu Sep 16 14:11:09 2004 UTC
# Line 3748  var Line 3748  var
3748          ThreadScrollTop: Integer;          ThreadScrollTop: Integer;
3749          ThreadIsLog, ThreadUnRead, ThreadNewArraical: boolean;          ThreadIsLog, ThreadUnRead, ThreadNewArraical: boolean;
3750  begin  begin
3751          AddMessageList('SetContent', nil, gmiWhat);  //      AddMessageList('SetContent', nil, gmiWhat);
3752          Thread := inThread;          Thread := inThread;
3753          idx := BrowserTab.TabIndex;          idx := BrowserTab.TabIndex;
3754          if (FActiveContent <> nil) and          if (FActiveContent <> nil) and
# Line 6609  var Line 6609  var
6609          doc                                     : Variant;          doc                                     : Variant;
6610          threadItem      : TThreadItem;          threadItem      : TThreadItem;
6611  begin  begin
6612          AddMessageList('DocumentComplete', nil, gmiWhat);  //      AddMessageList('DocumentComplete', nil, gmiWhat);
6613          if TObject(Sender) is TWebBrowser then begin          if TObject(Sender) is TWebBrowser then begin
6614                  BrowserRecord := nil;                  BrowserRecord := nil;
6615                  if TWebBrowser(Sender) <> Browser then begin                  if TWebBrowser(Sender) <> Browser then begin

Legend:
Removed from v.1.434  
changed lines
  Added in v.1.435

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