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.389 by yoffy, Thu Aug 12 06:56:59 2004 UTC revision 1.390 by yoffy, Thu Aug 12 08:07:13 2004 UTC
# Line 564  type Line 564  type
564      A14: TMenuItem;      A14: TMenuItem;
565      BrowsBoradHeadAction: TAction;      BrowsBoradHeadAction: TAction;
566      BrowsBoradHeadAction1: TMenuItem;      BrowsBoradHeadAction1: TMenuItem;
567        ThreadRangeAction: TAction;
568        ThreadRangePopupMenu: TPopupMenu;
569        A15: TMenuItem;
570        L8: TMenuItem;
571        N67: TMenuItem;
572        N68: TMenuItem;
573        S6: TMenuItem;
574        N69: TMenuItem;
575        S7: TMenuItem;
576        ThreadRangeButton: TToolButton;
577                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
578                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
579                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 910  type Line 920  type
920      procedure BrowsBoradHeadActionExecute(Sender: TObject);      procedure BrowsBoradHeadActionExecute(Sender: TObject);
921      procedure BrowsBoradHeadActionUpdate(Sender: TObject);      procedure BrowsBoradHeadActionUpdate(Sender: TObject);
922      procedure EditNGActionExecute(Sender: TObject);      procedure EditNGActionExecute(Sender: TObject);
923        procedure ThreadRangeActionUpdate(Sender: TObject);
924        procedure ThreadRangeActionExecute(Sender: TObject);
925          private          private
926                  { Private 宣言 }                  { Private 宣言 }
927          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 972  type Line 984  type
984                  FToolBarSettingSender : TToolBarSettingSenderType;      // ツールバー設定をクリックしたクールバー                  FToolBarSettingSender : TToolBarSettingSenderType;      // ツールバー設定をクリックしたクールバー
985                  FMouseDownPos           : TPoint;                               // ブラウザタブでマウスを押したときの座標                  FMouseDownPos           : TPoint;                               // ブラウザタブでマウスを押したときの座標
986                  FBrowsers: TList;                  FBrowsers: TList;
987                  FResRangeMenuSelect     : Longint;              ///< AHundredResButton で選択されている項目 (フォーマットは ResRange 互換)                  FResRangeMenuSelect     : Longint;              ///< ResRangeButton で選択されている項目 (フォーマットは ResRange 互換)
988                  procedure SetBoardTreeNode( inBBS : TBBS );                  procedure SetBoardTreeNode( inBBS : TBBS );
989                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;
990                  function SetBoardListItem(Category: TCategory): Integer;                  function SetBoardListItem(Category: TCategory): Integer;
# Line 1594  begin Line 1606  begin
1606                  end;                  end;
1607          end;          end;
1608    
1609            // スレッド一覧表示範囲
1610    //      ThreadRangeAction.Execute;
1611            case GikoSys.Setting.ThreadRange of
1612            gtrAll:
1613                    begin
1614                            AllItemAction.Checked := True;
1615                            ViewType := gvtAll;
1616                    end;
1617            gtrLog:
1618                    begin
1619                            LogItemAction.Checked := True;
1620                            ViewType := gvtLog;
1621                    end;
1622            gtrNew:
1623                    begin
1624                            NewItemAction.Checked := True;
1625                            ViewType := gvtNew;
1626                    end;
1627            end;
1628    
1629          //アドレスバー          //アドレスバー
1630          AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;          AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
1631    
# Line 4812  begin Line 4844  begin
4844          try          try
4845                  if ViewType <> gvtAll then                  if ViewType <> gvtAll then
4846                          SetListViewType(gvtAll);                          SetListViewType(gvtAll);
4847                  AllItemAction.Checked := True;                  GikoSys.Setting.ThreadRange := gtrAll;
4848                  LogItemAction.Checked := False;                  AllItemAction.Checked           := True;
                 NewItemAction.Checked := False;  
                 //SelectItemAction.Checked := False;  
4849                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
4850                  ModifySelectList;                  ModifySelectList;
4851                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
# Line 4833  begin Line 4863  begin
4863          try          try
4864                  if ViewType <> gvtLog then                  if ViewType <> gvtLog then
4865                          SetListViewType(gvtLog);                          SetListViewType(gvtLog);
4866                  AllItemAction.Checked := False;                  GikoSys.Setting.ThreadRange     := gtrLog;
4867                  LogItemAction.Checked := True;                  LogItemAction.Checked := True;
                 NewItemAction.Checked := False;  
                 //SelectItemAction.Checked := False;  
4868                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
4869                  ModifySelectList;                  ModifySelectList;
4870                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
# Line 4855  begin Line 4883  begin
4883    
4884                  if ViewType <> gvtNew then                  if ViewType <> gvtNew then
4885                          SetListViewType(gvtNew);                          SetListViewType(gvtNew);
4886                  AllItemAction.Checked := False;                  GikoSys.Setting.ThreadRange     := gtrNew;
                 LogItemAction.Checked := False;  
4887                  NewItemAction.Checked := True;                  NewItemAction.Checked := True;
                 //SelectItemAction.Checked := False;  
4888                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
4889                  ModifySelectList;                  ModifySelectList;
4890                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
# Line 8517  var Line 8543  var
8543          aIEButton                                       : TToolButton;          aIEButton                                       : TToolButton;
8544          aCabinetBBSButton       : TToolButton;          aCabinetBBSButton       : TToolButton;
8545          aResRangeButton         : TToolButton;          aResRangeButton         : TToolButton;
8546            aThreadRangeButton:     TToolButton;
8547  begin  begin
8548          for i := 0 to StdToolBar.ButtonCount - 1 do begin          for i := 0 to StdToolBar.ButtonCount - 1 do begin
8549          end;          end;
# Line 8535  begin Line 8562  begin
8562          aResRangeButton         := FindToolBarButton( BrowserToolBar, ResRangeAction );          aResRangeButton         := FindToolBarButton( BrowserToolBar, ResRangeAction );
8563          if aResRangeButton <> nil then          if aResRangeButton <> nil then
8564                  aResRangeButton.DropdownMenu            := ResRangePopupMenu;                  aResRangeButton.DropdownMenu            := ResRangePopupMenu;
8565            aThreadRangeButton:= FindToolBarButton( ListToolBar, ThreadRangeAction );
8566            if aThreadRangeButton <> nil then
8567                    aThreadRangeButton.DropdownMenu := ThreadRangePopupMenu;
8568  end;  end;
8569    
8570  procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;  procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
# Line 9745  begin Line 9775  begin
9775  end;  end;
9776    
9777  procedure TGikoForm.ResRangeActionExecute(Sender: TObject);  procedure TGikoForm.ResRangeActionExecute(Sender: TObject);
 var  
         ThreadItem : TThreadItem;  
         FilterList : TStringList;  
         i: Integer;  
9778  begin  begin
9779          case FResRangeMenuSelect of          case FResRangeMenuSelect of
9780          Ord( grrAll ):  AllResAction.Execute;          Ord( grrAll ):  AllResAction.Execute;
# Line 11061  begin Line 11087  begin
11087          GikoSys.FAbon.EditNGwords;          GikoSys.FAbon.EditNGwords;
11088  end;  end;
11089    
11090    procedure TGikoForm.ThreadRangeActionUpdate(Sender: TObject);
11091    begin
11092            ThreadRangeAction.Enabled := (GetActiveList is TBoard);
11093    end;
11094    
11095    procedure TGikoForm.ThreadRangeActionExecute(Sender: TObject);
11096    begin
11097            case GikoSys.Setting.ThreadRange of
11098            gtrAll: AllItemAction.Execute;
11099            gtrLog: LogItemAction.Execute;
11100            gtrNew: NewItemAction.Execute;
11101            end;
11102    end;
11103    
11104  initialization  initialization
11105                                  OleInitialize(nil);                                  OleInitialize(nil);
11106  finalization  finalization

Legend:
Removed from v.1.389  
changed lines
  Added in v.1.390

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