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.492 by h677, Wed Nov 10 14:28:49 2004 UTC revision 1.493 by h677, Wed Nov 17 14:52:59 2004 UTC
# Line 1128  type Line 1128  type
1128                  procedure OnGestureEnd(Sender: TObject);                  procedure OnGestureEnd(Sender: TObject);
1129                  //! 絞り込み文字列設定                  //! 絞り込み文字列設定
1130                  procedure SetSelectWord( const text : string );                  procedure SetSelectWord( const text : string );
1131                    //ブラウザの再描画 true:全てのタブ false:アクティブなタブのみ
1132                    procedure RepaintAllTabsBrowser();
1133          protected          protected
1134                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
1135                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 4074  var Line 4076  var
4076          Board: TBoard;          Board: TBoard;
4077          i: Integer;          i: Integer;
4078  begin  begin
4079            for i := Length( BBSs ) - 1 downto 0 do begin
4080                    BBSs[i].SelectText := SelectText;
4081                    BBSs[i].KubetsuChk := KubetsuChk;
4082            end;
4083            ViewType := AViewType;
4084          if ActiveList is TBoard then begin          if ActiveList is TBoard then begin
                 for i := Length( BBSs ) - 1 downto 0 do begin  
                         BBSs[i].SelectText := SelectText;  
                         BBSs[i].KubetsuChk := KubetsuChk;  
                 end;  
4085                  Board := TBoard(ActiveList);                  Board := TBoard(ActiveList);
                 ViewType := AViewType;  
4086                  SetActiveList(Board);                  SetActiveList(Board);
4087                  SetThreadListItem(Board);                  //SetThreadListItem(Board); //SetActiveList内で呼ばれるから2重に呼び出す必要なし
4088          end;          end;
4089  end;  end;
4090    
# Line 4095  var Line 4097  var
4097  begin  begin
4098          if ListView.Items.Count = 0 then begin          if ListView.Items.Count = 0 then begin
4099                  DefaultDraw := true;                  DefaultDraw := true;
   
4100                  ListView.Canvas.Brush.Color := ListView.Color;                  ListView.Canvas.Brush.Color := ListView.Color;
4101                  ListView.Canvas.FillRect(ARect);                  ListView.Canvas.FillRect(ARect);
4102    
# Line 9173  begin Line 9174  begin
9174                                  finally                                  finally
9175                                          FilterList.Destroy;                                          FilterList.Destroy;
9176                                  end;                                  end;
9177                                    RepaintAllTabsBrowser();
                                 // スレッドの再描画  
                                 for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
                     TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
                                 end;  
                                 ThreadItem := GetActiveContent;  
                                 if ThreadItem <> nil then  
                                         InsertBrowserTab( ThreadItem, True );  
9178                          end;                          end;
9179                  end else begin                  end else begin
9180                          // キャンセル                          // キャンセル
# Line 9225  begin Line 9219  begin
9219    
9220                  FSelectResWord := '';                  FSelectResWord := '';
9221    
9222                  // スレッドを再描画                  RepaintAllTabsBrowser();
                 for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
                 end;  
                 ThreadItem := GetActiveContent;  
                 if ThreadItem <> nil then  
                         InsertBrowserTab( ThreadItem, True );  
9223          end;          end;
9224  end;  end;
9225    
# Line 9248  begin Line 9236  begin
9236          if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin          if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
9237                  MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);                  MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
9238          end else begin          end else begin
9239                  for i := BrowserTab.Tabs.Count - 1 downto 0 do                  RepaintAllTabsBrowser();
                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
                           
                 ThreadItem := GetActiveContent;  
                 if ThreadItem <> nil then  
                         InsertBrowserTab( ThreadItem, True );  
9240          end;          end;
9241    
9242  end;  end;
# Line 9271  begin Line 9254  begin
9254                  StatusBar.Panels.Items[2].Text := s;                  StatusBar.Panels.Items[2].Text := s;
9255                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
9256                  StatusBarResize(Sender);                  StatusBarResize(Sender);
9257                  for i := BrowserTab.Tabs.Count - 1 downto 0 do                  RepaintAllTabsBrowser();
                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
   
                 ThreadItem := GetActiveContent;  
                 if ThreadItem <> nil then  
                         InsertBrowserTab( ThreadItem, True );  
9258          end;          end;
9259    
9260  end;  end;
# Line 9294  begin Line 9272  begin
9272                  StatusBar.Panels.Items[2].Text := s;                  StatusBar.Panels.Items[2].Text := s;
9273                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
9274                  StatusBarResize(Sender);                  StatusBarResize(Sender);
9275                  for i := BrowserTab.Tabs.Count - 1 downto 0 do                  RepaintAllTabsBrowser();
                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
   
                 ThreadItem := GetActiveContent;  
                 if ThreadItem <> nil then  
                         InsertBrowserTab( ThreadItem, True );  
9276          end;          end;
9277    
9278  end;  end;
# Line 11240  begin Line 11213  begin
11213                  end;                  end;
11214    
11215                  FSelectResWord := '';                  FSelectResWord := '';
11216                    RepaintAllTabsBrowser();
                 // スレッドを再描画  
                 for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
                 end;  
                 ThreadItem := GetActiveContent;  
                 if ThreadItem <> nil then  
                         InsertBrowserTab( ThreadItem, True );  
11217          end;          end;
11218  end;  end;
11219    
# Line 11276  begin Line 11242  begin
11242                  end;                  end;
11243    
11244                  FSelectResWord := '';                  FSelectResWord := '';
11245                    RepaintAllTabsBrowser();
                 // スレッドを再描画  
                 for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
                 end;  
                 ThreadItem := GetActiveContent;  
                 if ThreadItem <> nil then  
                         InsertBrowserTab( ThreadItem, True );  
11246          end;          end;
11247  end;  end;
11248    
# Line 11312  begin Line 11271  begin
11271                  end;                  end;
11272    
11273                  FSelectResWord := '';                  FSelectResWord := '';
11274                    RepaintAllTabsBrowser();
                 // スレッドを再描画  
                 for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
                 end;  
                 ThreadItem := GetActiveContent;  
                 if ThreadItem <> nil then  
                         InsertBrowserTab( ThreadItem, True );  
11275          end;          end;
11276  end;  end;
11277    
# Line 11670  begin Line 11622  begin
11622                  end;                  end;
11623  //              if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then  //              if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then
11624                  if ThreadItem.UnRead then                  if ThreadItem.UnRead then
11625                          TListView(Sender).Canvas.Font.Style := [fsBold];                          ListView.Canvas.Font.Style := [fsBold];
11626          end;          end;
11627    
11628  end;  end;
# Line 12138  begin Line 12090  begin
12090          IDAnchorPopup('');          IDAnchorPopup('');
12091  end;  end;
12092    
12093    procedure TGikoForm.RepaintAllTabsBrowser();
12094    var
12095            i : Integer;
12096            ThreadItem: TThreadItem;
12097    begin
12098            for i := BrowserTab.Tabs.Count - 1 downto 0 do
12099                    TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
12100    
12101            ThreadItem := GetActiveContent;
12102            if ThreadItem <> nil then
12103                    InsertBrowserTab( ThreadItem, True );
12104    
12105    end;
12106    
12107  initialization  initialization
12108                                  OleInitialize(nil);                                  OleInitialize(nil);
12109  finalization  finalization

Legend:
Removed from v.1.492  
changed lines
  Added in v.1.493

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