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.595 by h677, Sat Feb 25 02:43:51 2006 UTC revision 1.596 by h677, Sun Feb 26 04:05:52 2006 UTC
# Line 666  type Line 666  type
666                  procedure SetGroupIndex(ActionList: TActionList);                  procedure SetGroupIndex(ActionList: TActionList);
667                  //! 指定されたスレッドを開く(ログが無いとき or 指定JUMPまで足りないときはDLする)                  //! 指定されたスレッドを開く(ログが無いとき or 指定JUMPまで足りないときはDLする)
668                  procedure OpenThreadItem(Thread: TThreadItem; URL: String);                  procedure OpenThreadItem(Thread: TThreadItem; URL: String);
669                    //! ListView(スレッド一覧)を更新する
670                    procedure RefreshListView(Thread: TThreadItem);
671          protected          protected
672                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
673                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 2322  begin Line 2324  begin
2324                                  Item.Board.Modified := True;                                  Item.Board.Modified := True;
2325                                  Item.Board.IsThreadDatRead := True;                                  Item.Board.IsThreadDatRead := True;
2326                                  PlaySound('New');                                  PlaySound('New');
2327                                    ListView.Refresh;
2328                          end else if Item.DownType = gdtThread then begin                          end else if Item.DownType = gdtThread then begin
2329                                  //スレ                                  //スレ
2330                                  Item.SaveItemFile;                                  Item.SaveItemFile;
# Line 2392  begin Line 2395  begin
2395                                                  gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount;                                                  gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount;
2396                                          end;                                          end;
2397                                  end;                                  end;
2398                                    RefreshListView(Item.ThreadItem);
2399                          end;                          end;
2400                          ListView.Refresh;  
2401                  end else if Item.State = gdsNotModify then begin                  end else if Item.State = gdsNotModify then begin
2402                          //変更ナシ                          //変更ナシ
2403  {                       if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin  {                       if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin
# Line 2746  begin Line 2750  begin
2750                          end;                          end;
2751                  end;                  end;
2752    
2753                    RefreshListView(ThreadItem);
   
                 //Threadの板と表示している板が同じなら描画を更新する  
                 if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then begin  
                         ListView.Refresh;  
                 end;  
   
2754          finally          finally
2755                  Screen.Cursor := crDefault;                  Screen.Cursor := crDefault;
2756          end;          end;
# Line 4254  begin Line 4252  begin
4252                          threadItem := BrowserRecord.Thread;                          threadItem := BrowserRecord.Thread;
4253    
4254                          if (threadItem.JumpAddress > 0) then begin                          if (threadItem.JumpAddress > 0) then begin
                         //if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin  
4255                                  if threadItem.UnRead then begin                                  if threadItem.UnRead then begin
4256                                          threadItem.UnRead := False;                                          threadItem.UnRead := False;
4257                                          TreeView.Refresh;                                          TreeView.Refresh;
4258                                          ListView.Refresh;                                          RefreshListView(threadItem);
4259                                  end;                                  end;
4260                                  // スクロール先が取得外のレスの時は終端に移動                                  // スクロール先が取得外のレスの時は終端に移動
4261                                  //if (StrToIntDef(BrowserRecord.Movement, 0) <= BrowserRecord.Thread.Count) then begin                                  //if (StrToIntDef(BrowserRecord.Movement, 0) <= BrowserRecord.Thread.Count) then begin
# Line 4273  begin Line 4270  begin
4270                                  threadItem.UnRead := False;                                  threadItem.UnRead := False;
4271                                  TreeView.Refresh;                                  TreeView.Refresh;
4272                                  BrowserRecord.Move('new');                                  BrowserRecord.Move('new');
4273                                  ListView.Refresh;                                  RefreshListView(threadItem);
4274                          end else if threadItem.ScrollTop <> 0 then begin                          end else if threadItem.ScrollTop <> 0 then begin
4275                                  try                                  try
4276                                          doc := Idispatch( OleVariant( BrowserRecord.Browser.ControlInterface ).Document ) as IHTMLDocument2;                                          doc := Idispatch( OleVariant( BrowserRecord.Browser.ControlInterface ).Document ) as IHTMLDocument2;
# Line 7834  procedure TGikoForm.GetResURLMenuClick(S Line 7831  procedure TGikoForm.GetResURLMenuClick(S
7831  begin  begin
7832  ;  ;
7833  end;  end;
7834    //! ListView(スレッド一覧)を更新する
7835    procedure TGikoForm.RefreshListView(Thread: TThreadItem);
7836    begin
7837            //Threadの板と表示している板が同じなら描画を更新する
7838            if (FActiveList is TBoard) and (TBoard(ActiveList) = Thread.ParentBoard) then begin
7839                    ListView.Refresh;
7840            end;
7841    end;
7842    
7843  initialization  initialization
7844                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.595  
changed lines
  Added in v.1.596

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