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.191 by h677, Tue Jan 13 10:16:28 2004 UTC revision 1.192 by h677, Thu Jan 15 15:31:49 2004 UTC
# Line 38  type Line 38  type
38                  ViewPanel: TPanel;                  ViewPanel: TPanel;
39                  ListView: TGikoListView;                  ListView: TGikoListView;
40                  ThreadPanel: TPanel;                  ThreadPanel: TPanel;
                 Browser: TWebBrowser;  
41                  MessagePanel: TPanel;                  MessagePanel: TPanel;
42                  MessageBar: TPanel;                  MessageBar: TPanel;
43                  MessageHideButton: TSpeedButton;                  MessageHideButton: TSpeedButton;
# Line 522  type Line 521  type
521      KoreCopy: TAction;      KoreCopy: TAction;
522      N64: TMenuItem;      N64: TMenuItem;
523      dummy1: TMenuItem;      dummy1: TMenuItem;
524        Browser: TWebBrowser;
525                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
526                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
527                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 866  type Line 866  type
866                  FDownloadMax: Integer;                          //ダウンロード中の最大サイズ                  FDownloadMax: Integer;                          //ダウンロード中の最大サイズ
867                  FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント                  FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント
868    
869                  Fkeynum : Integer; //キーボードレスポップアップ用            //    Fkeynum : Integer; //キーボードレスポップアップ用
870    
871                  IsDraggingSelectComboBox : Boolean;                  IsDraggingSelectComboBox : Boolean;
872                  DraggingSelectComboBoxPosition : TPoint;                  DraggingSelectComboBoxPosition : TPoint;
# Line 2242  begin Line 2242  begin
2242                  RepStr := CustomStringReplace(RepStr, '&lt;', '<' );                  RepStr := CustomStringReplace(RepStr, '&lt;', '<' );
2243                  RepStr := CustomStringReplace(RepStr, '&gt;', '>' );                  RepStr := CustomStringReplace(RepStr, '&gt;', '>' );
2244                  RepStr := CustomStringReplace(RepStr, '&quot;', '"' );                  RepStr := CustomStringReplace(RepStr, '&quot;', '"' );
2245                  RepStr := CustomStringReplace(RepStr, '&amp', '&' );                  RepStr := CustomStringReplace(RepStr, '&amp;', '&' );
2246                  //RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]);                  //RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]);
2247    
2248                  if Item.SubItems.Count <> 6 then begin                  if Item.SubItems.Count <> 6 then begin
# Line 2724  begin Line 2724  begin
2724    
2725          TreeView.Canvas.Font.Color := clBlue;          TreeView.Canvas.Font.Color := clBlue;
2726          IsBoardNode := False;          IsBoardNode := False;
   
2727          for i := 0 to TreeView.Items.Count - 1 do begin          for i := 0 to TreeView.Items.Count - 1 do begin
2728                  Cnt := 0;                  Cnt := 0;
2729                  if not TreeView.Items[i].IsVisible then                  if not TreeView.Items[i].IsVisible then
# Line 3118  begin Line 3117  begin
3117                  try                  try
3118                  try                  try
3119                          Sleep(1);                          Sleep(1);
3120                          Application.ProcessMessages;                          //Application.ProcessMessages;
3121                          FActiveContent.ScrollTop := OleVariant(IHTMLDocument2(Browser.Document)).Body.ScrollTop;                          FActiveContent.ScrollTop := OleVariant(IHTMLDocument2(Browser.Document)).Body.ScrollTop;
3122                  except                  except
3123                          on E: Exception do                          on E: Exception do
# Line 3179  begin Line 3178  begin
3178                                                  (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin                                                  (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
3179                                  Application.ProcessMessages;                                  Application.ProcessMessages;
3180                          end;                          end;
3181                          //Sleep(1);  
                         Application.ProcessMessages;  
3182                          try                          try
3183                                  if ThreadItem.UnRead then                                  if ThreadItem.UnRead then
3184                                          BrowserMovement('new');                                          BrowserMovement('new');
3185                          except                          except
3186                          end;                          end;
3187                //Sleep(10);
3188                            Application.ProcessMessages;
3189                          if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin                          if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin
3190                                  //i := 0;                                  //i := 0;
3191                                  try                                  try
# Line 3197  begin Line 3197  begin
3197                                                          MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);                                                          MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);
3198                                          end;                                          end;
3199                                  finally                                  finally
3200                            Application.ProcessMessages;
3201                                  end;                                  end;
3202                          end;                          end;
3203                
3204                          ThreadItem.UnRead := False;                          ThreadItem.UnRead := False;
3205                          ListView.Refresh;                          ListView.Refresh;
3206                  end;                  end;
# Line 6759  begin Line 6761  begin
6761                          Body := CustomStringReplace(Body, '&nbsp;', ' ');                          Body := CustomStringReplace(Body, '&nbsp;', ' ');
6762    
6763                          FHint.Add(Header, Body);                          FHint.Add(Header, Body);
6764                          FHint.Title := '';                          //FHint.Title := '';
6765                      end;                      end;
6766                  end;                  end;
6767              end else begin              end else begin
# Line 6781  begin Line 6783  begin
6783                          Body := CustomStringReplace(Body, '&amp;', '&');                          Body := CustomStringReplace(Body, '&amp;', '&');
6784                           Body := CustomStringReplace(Body, '&nbsp;', ' ');                           Body := CustomStringReplace(Body, '&nbsp;', ' ');
6785                          FHint.Add(Header, Body);                          FHint.Add(Header, Body);
6786                          FHint.Title := '';    //たぶんこれはいらないんだけどね。もじゅ                          //FHint.Title := '';    //たぶんこれはいらないんだけどね。もじゅ   やっぱりいらなかった(2004/01/13)
6787                      end;                      end;
6788                  end;                  end;
6789              end;              end;

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

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