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.193 by h677, Mon Jan 19 11:36:27 2004 UTC revision 1.194 by h677, Tue Jan 20 12:03:50 2004 UTC
# Line 3175  begin Line 3175  begin
3175                          finally                          finally
3176                          end;                          end;
3177                  end else begin                  end else begin
                                                 //Application.ProcessMessages;  
3178                          GikoSys.CreateHTML2(Browser.Document, ThreadItem, sTitle);                          GikoSys.CreateHTML2(Browser.Document, ThreadItem, sTitle);
3179    {
3180                          while (Browser.ReadyState <> READYSTATE_COMPLETE) and                          while (Browser.ReadyState <> READYSTATE_COMPLETE) and
3181                                                  (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin                                                  (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
3182                                  Application.ProcessMessages;                                  Application.ProcessMessages;
3183                          end;                          end;
3184    }
3185                try
3186                    doc := Browser.Document;
3187                    Application.ProcessMessages;
3188                    //ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。
3189                    //相しないと一画面分しか描画できてないのでそれ以上のスクロール量を指定しても無効になる
3190                    // byもじゅ(2004/01/20)
3191    
3192                    if ThreadItem.UnRead then
3193                        BrowserMovement('new')
3194                    else if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin
3195                        try
3196                            doc.Body.ScrollTop := ThreadItem.ScrollTop;
3197                        except
3198                            on E: Exception do
3199                                MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);
3200                        end;
3201                    end;
3202                finally
3203                   //       Application.ProcessMessages;
3204                end;
3205    
                         try  
                                 if ThreadItem.UnRead then  
                                         BrowserMovement('new');  
                         except  
                         end;  
             Sleep(10);  
                         //Application.ProcessMessages;  
                         if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin  
                                 //i := 0;  
                                 try  
                                         try  
                                                 doc := Browser.Document;  
                                                 doc.Body.ScrollTop := ThreadItem.ScrollTop;  
                                         except  
                                                 on E: Exception do  
                                                         MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);  
                                         end;  
                                 finally  
                         Application.ProcessMessages;  
                                 end;  
                         end;  
               
3206                          ThreadItem.UnRead := False;                          ThreadItem.UnRead := False;
3207                          ListView.Refresh;                          ListView.Refresh;
3208                  end;                  end;

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

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