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.192 by h677, Thu Jan 15 15:31:49 2004 UTC revision 1.193 by h677, Mon Jan 19 11:36:27 2004 UTC
# Line 1760  begin Line 1760  begin
1760                  end;                  end;
1761          except          except
1762          end;          end;
1763    
1764    
1765  end;  end;
1766    
1767  procedure TGikoForm.FormDestroy(Sender: TObject);  procedure TGikoForm.FormDestroy(Sender: TObject);
# Line 3043  begin Line 3045  begin
3045  end;}  end;}
3046    
3047  procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);  procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);
3048    
3049  var  var
3050          i: Integer;          i: Integer;
3051           //     OldIndex: Integer;           //     OldIndex: Integer;
# Line 3184  begin Line 3187  begin
3187                                          BrowserMovement('new');                                          BrowserMovement('new');
3188                          except                          except
3189                          end;                          end;
3190              //Sleep(10);              Sleep(10);
3191                          Application.ProcessMessages;                          //Application.ProcessMessages;
3192                          if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin                          if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin
3193                                  //i := 0;                                  //i := 0;
3194                                  try                                  try
# Line 3856  var Line 3859  var
3859          nm: OleVariant;          nm: OleVariant;
3860  begin  begin
3861  //      OleVariant(Browser.Document).parentWindow.location.hash := AName;  //      OleVariant(Browser.Document).parentWindow.location.hash := AName;
3862        {
3863          while (Browser.ReadyState <> READYSTATE_COMPLETE) and          while (Browser.ReadyState <> READYSTATE_COMPLETE) and
3864                                  (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin                                  (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
3865                  Application.ProcessMessages;                  Application.ProcessMessages;
3866          end;          end;
3867        }
3868          try          try
3869              top := 0;              top := 0;
3870          nm := AName;          nm := AName;

Legend:
Removed from v.1.192  
changed lines
  Added in v.1.193

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