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.379 by yoffy, Wed Aug 4 03:42:23 2004 UTC revision 1.380 by yoffy, Wed Aug 4 04:08:17 2004 UTC
# Line 446  type Line 446  type
446                  SelectResAction: TAction;                  SelectResAction: TAction;
447                  ToolButton16: TToolButton;                  ToolButton16: TToolButton;
448                  AllResAction: TAction;                  AllResAction: TAction;
                 AllResToolButton: TToolButton;  
449                  N50: TMenuItem;                  N50: TMenuItem;
450                  A11: TMenuItem;                  A11: TMenuItem;
451                  S5: TMenuItem;                  S5: TMenuItem;
# Line 562  type Line 561  type
561      OnlyAHundredRes: TAction;      OnlyAHundredRes: TAction;
562      OnlyNewResAction: TAction;      OnlyNewResAction: TAction;
563      OnlyKokoResAction: TAction;      OnlyKokoResAction: TAction;
564        A14: TMenuItem;
565                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
566                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
567                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 1886  begin Line 1886  begin
1886          try          try
1887                  // レス表示範囲                  // レス表示範囲
1888                  if not GikoSys.Setting.ResRangeHold then                  if not GikoSys.Setting.ResRangeHold then
1889                          GikoSys.Setting.ResRange := GikoSys.ResRange;                          GikoSys.Setting.ResRange := FResRangeMenuSelect;
1890          except          except
1891          end;          end;
1892    
# Line 1942  begin Line 1942  begin
1942          LockWindowUpdate(0);          LockWindowUpdate(0);
1943          try          try
1944                  TreeView.Items.BeginUpdate;                  TreeView.Items.BeginUpdate;
1945                  Node := TreeView.Items.GetFirstNode.Free;                  TreeView.Items.GetFirstNode.Free;
1946                  TreeView.Items.Clear;                  TreeView.Items.Clear;
1947                  TreeView.Items.EndUpdate;                  TreeView.Items.EndUpdate;
1948          except          except
# Line 8651  begin Line 8651  begin
8651                  Dlg.SelectComboBox.Text := FSelectResWord;                  Dlg.SelectComboBox.Text := FSelectResWord;
8652                  Dlg.ShowModal;                  Dlg.ShowModal;
8653                  if Dlg.ModalResult = mrOK then begin                  if Dlg.ModalResult = mrOK then begin
8654                            SelectResAction.Checked := True;
8655                          if Length( Dlg.SelectComboBox.Text ) = 0 then begin                          if Length( Dlg.SelectComboBox.Text ) = 0 then begin
8656                                  // 空入力で OK はキャンセルと同意義                                  // 空入力で OK は絞り込み解除と同意義
8657                                  case GikoSys.ResRange of                                  ResRangeAction.Execute;
                                 Ord( grrAll ):          AllResAction.Execute;  
                                 Ord( grrSelect ):       AllResAction.Execute;  
                                 else                                                    ResRangeAction.Execute;  
                                 end;  
8658                          end else begin                          end else begin
                                 // ボタンの更新  
                                 AllResAction.Checked := False;  
                                 SelectResAction.Checked := True;  
                                 ResRangeAction.Checked := False;  
8659                                  GikoSys.ResRange := Ord( grrSelect );                                  GikoSys.ResRange := Ord( grrSelect );
8660    
8661                                  // 最後に設定したものを覚えておく                                  // 最後に設定したものを覚えておく
# Line 8705  begin Line 8698  begin
8698                          end;                          end;
8699                  end else begin                  end else begin
8700                          // キャンセル                          // キャンセル
8701                          case GikoSys.ResRange of                          if GikoSys.ResRange <> Ord( grrSelect ) then
8702                          Ord( grrAll ):          AllResAction.Execute;                                  ResRangeAction.Execute;
                         Ord( grrSelect ):       {* nothing *};  
                         else                                                    ResRangeAction.Execute;  
                         end;  
8703                  end;                  end;
8704          finally          finally
8705                  Dlg.Release;                  Dlg.Release;
# Line 8737  begin Line 8727  begin
8727          if(FActiveContent <> nil) and (FActiveContent.FBrowser <> nil )          if(FActiveContent <> nil) and (FActiveContent.FBrowser <> nil )
8728                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
8729    
8730          // ボタンの更新          FResRangeMenuSelect                             := Ord( grrAll );
         AllResAction.Checked := True;  
         SelectResAction.Checked := False;  
         ResRangeAction.Checked := False;  
8731    
8732          if GikoSys.ResRange <> Ord( grrAll ) then begin          if GikoSys.ResRange <> Ord( grrAll ) then begin
8733                  GikoSys.ResRange := Ord( grrAll );                  GikoSys.ResRange := Ord( grrAll );
# Line 9742  var Line 9729  var
9729          FilterList : TStringList;          FilterList : TStringList;
9730          i: Integer;          i: Integer;
9731  begin  begin
         if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)  
                 and (FActiveContent.FBrowser.Busy) then Exit;  
   
         // 表示の更新  
         AllResAction.Checked            := False;  
         SelectResAction.Checked := False;  
         ResRangeButton.Down                     := True;  
         GikoSys.ResRange                                := FResRangeMenuSelect;  
9732          case FResRangeMenuSelect of          case FResRangeMenuSelect of
9733          Ord( grrKoko ): OnlyKokoResAction.Checked       := True;          Ord( grrAll ):  AllResAction.Execute;
9734          Ord( grrNew ):  OnlyNewResAction.Checked        := True;          Ord( grrKoko ): OnlyKokoResAction.Execute;
9735          100:                                            OnlyAHundredRes.Checked         := True;          Ord( grrNew ):  OnlyNewResAction.Execute;
9736          end;          100:                                            OnlyAHundredRes.Execute;
   
         // フィルタ文字列を空にする  
         FilterList := TStringList.Create;  
         try  
                 GikoSys.FSelectResFilter.LoadFromStringList( FilterList );  
                 GikoSys.FSelectResFilter.Reverse := False;  
         finally  
                 FilterList.Destroy;  
         end;  
   
         FSelectResWord := '';  
   
         // スレッドを再描画  
         for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
                 TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;  
9737          end;          end;
         ThreadItem := GetActiveContent;  
         if ThreadItem <> nil then  
                 InsertBrowserTab( ThreadItem, True );  
9738  end;  end;
9739    
9740  procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X,  procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
# Line 10932  begin Line 10893  begin
10893          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
10894                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
10895    
         // 表示の更新  
         AllResAction.Checked                    := False;  
         SelectResAction.Checked         := False;  
         ResRangeButton.Down                             := True;  
         OnlyAHundredRes.Checked         := True;  
         OnlyKokoResAction.Checked       := False;  
         OnlyNewResAction.Checked        := False;  
         GikoSys.ResRange                                        := 100;  
10896          FResRangeMenuSelect                             := 100;          FResRangeMenuSelect                             := 100;
10897    
10898          // フィルタ文字列を空にする          if GikoSys.ResRange <> 100 then begin
10899          FilterList := TStringList.Create;                  GikoSys.ResRange                                        := 100;
         try  
                 GikoSys.FSelectResFilter.LoadFromStringList( FilterList );  
                 GikoSys.FSelectResFilter.Reverse := False;  
         finally  
                 FilterList.Destroy;  
         end;  
10900    
10901          FSelectResWord := '';                  // フィルタ文字列を空にする
10902                    FilterList := TStringList.Create;
10903                    try
10904                            GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
10905                            GikoSys.FSelectResFilter.Reverse := False;
10906                    finally
10907                            FilterList.Destroy;
10908                    end;
10909    
10910          // スレッドを再描画                  FSelectResWord := '';
10911          for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
10912                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;                  // スレッドを再描画
10913                    for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
10914                            TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
10915                    end;
10916                    ThreadItem := GetActiveContent;
10917                    if ThreadItem <> nil then
10918                            InsertBrowserTab( ThreadItem, True );
10919          end;          end;
         ThreadItem := GetActiveContent;  
         if ThreadItem <> nil then  
                 InsertBrowserTab( ThreadItem, True );  
10920  end;  end;
10921    
10922  procedure TGikoForm.OnlyKokoResActionExecute(Sender: TObject);  procedure TGikoForm.OnlyKokoResActionExecute(Sender: TObject);
# Line 10971  begin Line 10928  begin
10928          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
10929                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
10930    
         // 表示の更新  
         AllResAction.Checked                    := False;  
         SelectResAction.Checked         := False;  
         ResRangeButton.Down                             := True;  
         OnlyAHundredRes.Checked         := False;  
         OnlyKokoResAction.Checked       := True;  
         OnlyNewResAction.Checked        := False;  
         GikoSys.ResRange                                        := Ord( grrKoko );  
10931          FResRangeMenuSelect                             := Ord( grrKoko );          FResRangeMenuSelect                             := Ord( grrKoko );
10932    
10933          // フィルタ文字列を空にする          if GikoSys.ResRange <> Ord( grrKoko ) then begin
10934          FilterList := TStringList.Create;                  GikoSys.ResRange                                        := Ord( grrKoko );
         try  
                 GikoSys.FSelectResFilter.LoadFromStringList( FilterList );  
                 GikoSys.FSelectResFilter.Reverse := False;  
         finally  
                 FilterList.Destroy;  
         end;  
10935    
10936          FSelectResWord := '';                  // フィルタ文字列を空にする
10937                    FilterList := TStringList.Create;
10938                    try
10939                            GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
10940                            GikoSys.FSelectResFilter.Reverse := False;
10941                    finally
10942                            FilterList.Destroy;
10943                    end;
10944    
10945          // スレッドを再描画                  FSelectResWord := '';
10946          for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
10947                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;                  // スレッドを再描画
10948                    for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
10949                            TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
10950                    end;
10951                    ThreadItem := GetActiveContent;
10952                    if ThreadItem <> nil then
10953                            InsertBrowserTab( ThreadItem, True );
10954          end;          end;
         ThreadItem := GetActiveContent;  
         if ThreadItem <> nil then  
                 InsertBrowserTab( ThreadItem, True );  
10955  end;  end;
10956    
10957  procedure TGikoForm.OnlyNewResActionExecute(Sender: TObject);  procedure TGikoForm.OnlyNewResActionExecute(Sender: TObject);
# Line 11010  begin Line 10963  begin
10963          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
10964                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
10965    
         // 表示の更新  
         AllResAction.Checked                    := False;  
         SelectResAction.Checked         := False;  
         ResRangeButton.Down                             := True;  
         OnlyAHundredRes.Checked         := False;  
         OnlyKokoResAction.Checked       := False;  
         OnlyNewResAction.Checked        := True;  
         GikoSys.ResRange                                        := Ord( grrNew );  
10966          FResRangeMenuSelect                             := Ord( grrNew );          FResRangeMenuSelect                             := Ord( grrNew );
10967    
10968          // フィルタ文字列を空にする          if GikoSys.ResRange <> Ord( grrNew ) then begin
10969          FilterList := TStringList.Create;                  GikoSys.ResRange                                        := Ord( grrNew );
         try  
                 GikoSys.FSelectResFilter.LoadFromStringList( FilterList );  
                 GikoSys.FSelectResFilter.Reverse := False;  
         finally  
                 FilterList.Destroy;  
         end;  
10970    
10971          FSelectResWord := '';                  // フィルタ文字列を空にする
10972                    FilterList := TStringList.Create;
10973                    try
10974                            GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
10975                            GikoSys.FSelectResFilter.Reverse := False;
10976                    finally
10977                            FilterList.Destroy;
10978                    end;
10979    
10980          // スレッドを再描画                  FSelectResWord := '';
10981          for i := BrowserTab.Tabs.Count - 1 downto 0 do begin  
10982                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;                  // スレッドを再描画
10983                    for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
10984                            TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
10985                    end;
10986                    ThreadItem := GetActiveContent;
10987                    if ThreadItem <> nil then
10988                            InsertBrowserTab( ThreadItem, True );
10989          end;          end;
         ThreadItem := GetActiveContent;  
         if ThreadItem <> nil then  
                 InsertBrowserTab( ThreadItem, True );  
10990  end;  end;
10991    
10992  initialization  initialization

Legend:
Removed from v.1.379  
changed lines
  Added in v.1.380

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