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.515.2.15 by h677, Tue Jul 5 15:18:27 2005 UTC revision 1.515.2.16 by h677, Tue Jul 5 16:56:27 2005 UTC
# Line 642  type Line 642  type
642                  procedure SelectListReloadActionExecute(Sender: TObject);                  procedure SelectListReloadActionExecute(Sender: TObject);
643                  procedure SelectThreadReloadActionExecute(Sender: TObject);                  procedure SelectThreadReloadActionExecute(Sender: TObject);
644                  procedure SelectListReloadActionUpdate(Sender: TObject);                  procedure SelectListReloadActionUpdate(Sender: TObject);
                 procedure AllItemActionUpdate(Sender: TObject);  
                 procedure LogItemActionUpdate(Sender: TObject);  
                 procedure NewItemActionUpdate(Sender: TObject);  
                 procedure SelectItemActionUpdate(Sender: TObject);  
645                  procedure UpFolderActionUpdate(Sender: TObject);                  procedure UpFolderActionUpdate(Sender: TObject);
646                  procedure FormResize(Sender: TObject);                  procedure FormResize(Sender: TObject);
647                  procedure ScrollKokoActionUpdate(Sender: TObject);                  procedure ScrollKokoActionUpdate(Sender: TObject);
# Line 656  type Line 652  type
652                  procedure KokoResActionExecute(Sender: TObject);                  procedure KokoResActionExecute(Sender: TObject);
653                  procedure ListPopupMenuPopup(Sender: TObject);                  procedure ListPopupMenuPopup(Sender: TObject);
654                  procedure SelectItemURLCopyActionExecute(Sender: TObject);                  procedure SelectItemURLCopyActionExecute(Sender: TObject);
                 procedure SelectItemURLCopyActionUpdate(Sender: TObject);  
655                  procedure AllSelectActionUpdate(Sender: TObject);                  procedure AllSelectActionUpdate(Sender: TObject);
                 procedure LogDeleteActionUpdate(Sender: TObject);  
656                  procedure BrowserTabCloseActionExecute(Sender: TObject);                  procedure BrowserTabCloseActionExecute(Sender: TObject);
657                  procedure NotSelectTabCloseActionExecute(Sender: TObject);                  procedure NotSelectTabCloseActionExecute(Sender: TObject);
658                  procedure TreeSelectBoradReloadExecute(Sender: TObject);                  procedure TreeSelectBoradReloadExecute(Sender: TObject);
# Line 692  type Line 686  type
686                  procedure ArrangeActionExecute(Sender: TObject);                  procedure ArrangeActionExecute(Sender: TObject);
687                  procedure NameURLCopyActionExecute(Sender: TObject);                  procedure NameURLCopyActionExecute(Sender: TObject);
688                  procedure SelectItemNameURLCopyActionExecute(Sender: TObject);                  procedure SelectItemNameURLCopyActionExecute(Sender: TObject);
                 procedure BrowserTabCloseActionUpdate(Sender: TObject);  
                 procedure NotSelectTabCloseActionUpdate(Sender: TObject);  
689                  procedure AllTabCloseActionUpdate(Sender: TObject);                  procedure AllTabCloseActionUpdate(Sender: TObject);
                 procedure SelectItemNameURLCopyActionUpdate(Sender: TObject);  
690                  procedure ActiveLogDeleteActionExecute(Sender: TObject);                  procedure ActiveLogDeleteActionExecute(Sender: TObject);
691                  procedure ListNameBarVisibleActionExecute(Sender: TObject);                  procedure ListNameBarVisibleActionExecute(Sender: TObject);
692                  procedure BrowserNameBarVisibleActionExecute(Sender: TObject);                  procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
# Line 711  type Line 702  type
702                  procedure LeftTabSelectActionExecute(Sender: TObject);                  procedure LeftTabSelectActionExecute(Sender: TObject);
703                  procedure RightTabSelectActionExecute(Sender: TObject);                  procedure RightTabSelectActionExecute(Sender: TObject);
704                  procedure RightmostTabSelectActionExecute(Sender: TObject);                  procedure RightmostTabSelectActionExecute(Sender: TObject);
                 procedure LeftmostTabSelectActionUpdate(Sender: TObject);  
705                  procedure LeftTabSelectActionUpdate(Sender: TObject);                  procedure LeftTabSelectActionUpdate(Sender: TObject);
706                  procedure RightTabSelectActionUpdate(Sender: TObject);                  procedure RightTabSelectActionUpdate(Sender: TObject);
                 procedure RightmostTabSelectActionUpdate(Sender: TObject);  
707                  procedure FavoriteMenuClick(Sender: TObject);                  procedure FavoriteMenuClick(Sender: TObject);
708                  procedure FavoriteAddActionExecute(Sender: TObject);                  procedure FavoriteAddActionExecute(Sender: TObject);
709                  procedure BoardFavoriteAddActionExecute(Sender: TObject);                  procedure BoardFavoriteAddActionExecute(Sender: TObject);
710                  procedure BoardFavoriteAddActionUpdate(Sender: TObject);                  procedure BoardFavoriteAddActionUpdate(Sender: TObject);
711                  procedure ThreadFavoriteAddActionExecute(Sender: TObject);                  procedure ThreadFavoriteAddActionExecute(Sender: TObject);
                 procedure ThreadFavoriteAddActionUpdate(Sender: TObject);  
712                  procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);                  procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);
713                  procedure FavoriteArrangeActionExecute(Sender: TObject);                  procedure FavoriteArrangeActionExecute(Sender: TObject);
714                  procedure MainCoolBarResize(Sender: TObject);                  procedure MainCoolBarResize(Sender: TObject);
# Line 760  type Line 748  type
748                          RebarChevron: PNMRebarChevron);                          RebarChevron: PNMRebarChevron);
749                  procedure ListViewColumnInfo(Sender: TObject; var Column: PLVColumnA);                  procedure ListViewColumnInfo(Sender: TObject; var Column: PLVColumnA);
750                  procedure ThreadEditorActionExecute(Sender: TObject);                  procedure ThreadEditorActionExecute(Sender: TObject);
                 procedure ThreadEditorActionUpdate(Sender: TObject);  
751                  procedure ToolBarSettingActionExecute(Sender: TObject);                  procedure ToolBarSettingActionExecute(Sender: TObject);
752                  procedure NameCopyActionExecute(Sender: TObject);                  procedure NameCopyActionExecute(Sender: TObject);
753                  procedure BoardIEActionExecute(Sender: TObject);                  procedure BoardIEActionExecute(Sender: TObject);
754                  procedure SelectItemNameCopyActionExecute(Sender: TObject);                  procedure SelectItemNameCopyActionExecute(Sender: TObject);
755                  procedure SelectItemNameCopyActionUpdate(Sender: TObject);                  procedure SelectItemNameCopyActionUpdate(Sender: TObject);
                 procedure BoardIEActionUpdate(Sender: TObject);  
756                  procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;                  procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
757                          WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);                          WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
758                  procedure SelectComboBoxChange(Sender: TObject);                  procedure SelectComboBoxChange(Sender: TObject);
# Line 774  type Line 760  type
760                          Shift: TShiftState);                          Shift: TShiftState);
761                  procedure SelectComboBoxExit(Sender: TObject);                  procedure SelectComboBoxExit(Sender: TObject);
762                  procedure SelectResActionExecute(Sender: TObject);                  procedure SelectResActionExecute(Sender: TObject);
                 procedure SelectResActionUpdate(Sender: TObject);  
763                  procedure AllResActionExecute(Sender: TObject);                  procedure AllResActionExecute(Sender: TObject);
764                  procedure ReloadClick(Sender: TObject);                  procedure ReloadClick(Sender: TObject);
765                  procedure GoBackClick(Sender: TObject);                  procedure GoBackClick(Sender: TObject);
# Line 848  type Line 833  type
833      procedure SetFocusForThreadListActionExecute(Sender: TObject);      procedure SetFocusForThreadListActionExecute(Sender: TObject);
834      procedure SetFocusForCabinetActionExecute(Sender: TObject);      procedure SetFocusForCabinetActionExecute(Sender: TObject);
835          procedure BrowserMaxAndFocusActionExecute(Sender: TObject);          procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
836      procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);          procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
     procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);  
837      procedure SetFocusForCabinetActionUpdate(Sender: TObject);      procedure SetFocusForCabinetActionUpdate(Sender: TObject);
838      procedure ListViewSelectItem(Sender: TObject; Item: TListItem;      procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
839        Selected: Boolean);        Selected: Boolean);
# Line 859  type Line 843  type
843      procedure MidokuActionExecute(Sender: TObject);      procedure MidokuActionExecute(Sender: TObject);
844      procedure SelectItemSaveForDatExecute(Sender: TObject);      procedure SelectItemSaveForDatExecute(Sender: TObject);
845      procedure LogFolderOpenActionExecute(Sender: TObject);      procedure LogFolderOpenActionExecute(Sender: TObject);
     procedure LogFolderOpenActionUpdate(Sender: TObject);  
846                  procedure TabsSaveActionExecute(Sender: TObject);                  procedure TabsSaveActionExecute(Sender: TObject);
847                  procedure TabsOpenActionExecute(Sender: TObject);                  procedure TabsOpenActionExecute(Sender: TObject);
848      procedure OnlyAHundredResActionExecute(Sender: TObject);      procedure OnlyAHundredResActionExecute(Sender: TObject);
849      procedure OnlyKokoResActionExecute(Sender: TObject);      procedure OnlyKokoResActionExecute(Sender: TObject);
850          procedure OnlyNewResActionExecute(Sender: TObject);          procedure OnlyNewResActionExecute(Sender: TObject);
851          procedure BrowsBoradHeadActionExecute(Sender: TObject);          procedure BrowsBoradHeadActionExecute(Sender: TObject);
852      procedure BrowsBoradHeadActionUpdate(Sender: TObject);          procedure EditNGActionExecute(Sender: TObject);
     procedure EditNGActionExecute(Sender: TObject);  
     procedure ThreadRangeActionUpdate(Sender: TObject);  
853      procedure ThreadRangeActionExecute(Sender: TObject);      procedure ThreadRangeActionExecute(Sender: TObject);
854                  procedure TabAutoSaveActionExecute(Sender: TObject);                  procedure TabAutoSaveActionExecute(Sender: TObject);
855      procedure TabAutoLoadActionExecute(Sender: TObject);      procedure TabAutoLoadActionExecute(Sender: TObject);
# Line 886  type Line 867  type
867          procedure RightTabCloseActionExecute(Sender: TObject);          procedure RightTabCloseActionExecute(Sender: TObject);
868      procedure RightTabCloseActionUpdate(Sender: TObject);      procedure RightTabCloseActionUpdate(Sender: TObject);
869      procedure LeftTabCloseActionExecute(Sender: TObject);      procedure LeftTabCloseActionExecute(Sender: TObject);
     procedure LeftTabCloseActionUpdate(Sender: TObject);  
870      procedure SameIDResAnchorActionExecute(Sender: TObject);      procedure SameIDResAnchorActionExecute(Sender: TObject);
871      procedure IndividualAbon1ActionExecute(Sender: TObject);      procedure IndividualAbon1ActionExecute(Sender: TObject);
872      procedure IndividualAbon0ActionExecute(Sender: TObject);      procedure IndividualAbon0ActionExecute(Sender: TObject);
# Line 1158  type Line 1138  type
1138                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1139                  //TActionでGetActiveContentがnil以外で有効になる                  //TActionでGetActiveContentがnil以外で有効になる
1140                  procedure DependActiveCntentActionUpdate(Sender: TObject);                  procedure DependActiveCntentActionUpdate(Sender: TObject);
1141                  //TActionでGetActiveContentがnil以外かつログを持っている                  //TActionでGetActiveContentがnil以外かつログを持っていると有効になる
1142                  procedure DependActiveCntentLogActionUpdate(Sender: TObject);                  procedure DependActiveCntentLogActionUpdate(Sender: TObject);
1143                    //TActionでActiveListがTBoardで有効になる
1144                    procedure DependActiveListTBoardActionUpdate(Sender: TObject);
1145          end;          end;
1146    
1147          TFavoriteMenuItem = class(TMenuItem)          TFavoriteMenuItem = class(TMenuItem)
# Line 5675  begin Line 5657  begin
5657                  List.Free;                  List.Free;
5658          end;          end;
5659  end;  end;
5660    //ActiveListがTCategoyでスレ一覧で1つ以上選択かActiveListがTBoardで有効な
5661    //Actionで共通
5662  procedure TGikoForm.SelectListReloadActionUpdate(Sender: TObject);  procedure TGikoForm.SelectListReloadActionUpdate(Sender: TObject);
5663  begin  begin
5664          if (GetActiveList is TCategory) and (ListView.SelCount > 0) then          //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
5665                  SelectListReloadAction.Enabled := True          if (Sender <> nil) and (Sender is TAction) then begin
5666          else if GetActiveList is TBoard then                  if (GetActiveList is TCategory) and (ListView.SelCount > 0) then
5667                  SelectListReloadAction.Enabled := True                          TAction(Sender).Enabled := True
5668          else                  else if GetActiveList is TBoard then
5669                  SelectListReloadAction.Enabled := False;                          TAction(Sender).Enabled := True
5670                    else
5671                            TAction(Sender).Enabled := False;
5672            end;
5673  end;  end;
5674    //ActiveListがTBoardでスレ一覧で1つ以上選択していると有効になるActionで共通
5675  procedure TGikoForm.SelectThreadReloadActionUpdate(Sender: TObject);  procedure TGikoForm.SelectThreadReloadActionUpdate(Sender: TObject);
5676  begin  begin
5677          if (GetActiveList is TBoard) and (ListView.SelCount > 0) then          //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
5678                  SelectThreadReloadAction.Enabled := True          if (Sender <> nil) and (Sender is TAction) then begin
5679          else                  TAction(Sender).Enabled := (GetActiveList is TBoard) and (ListView.SelCount > 0);
5680                  SelectThreadReloadAction.Enabled := False;          end;
 end;  
   
 procedure TGikoForm.AllItemActionUpdate(Sender: TObject);  
 begin  
         AllItemAction.Enabled := (GetActiveList is TBoard);  
 end;  
   
 procedure TGikoForm.LogItemActionUpdate(Sender: TObject);  
 begin  
         LogItemAction.Enabled := (GetActiveList is TBoard);  
 end;  
   
 procedure TGikoForm.NewItemActionUpdate(Sender: TObject);  
 begin  
         NewItemAction.Enabled := (GetActiveList is TBoard);  
 end;  
   
 procedure TGikoForm.SelectItemActionUpdate(Sender: TObject);  
 begin  
         SelectItemAction.Enabled := (GetActiveList is TBoard);  
5681  end;  end;
5682    
5683  procedure TGikoForm.UpFolderActionUpdate(Sender: TObject);  procedure TGikoForm.UpFolderActionUpdate(Sender: TObject);
# Line 5719  begin Line 5685  begin
5685          UpFolderAction.Enabled := not (GetActiveList is TBBS);          UpFolderAction.Enabled := not (GetActiveList is TBBS);
5686  end;  end;
5687    
 procedure TGikoForm.ThreadEditorActionUpdate(Sender: TObject);  
 begin  
         ThreadEditorAction.Enabled := (GetActiveList is TBoard);  
 end;  
   
5688  procedure TGikoForm.FormResize(Sender: TObject);  procedure TGikoForm.FormResize(Sender: TObject);
5689  begin  begin
5690    
# Line 5756  begin Line 5717  begin
5717    
5718  end;  end;
5719    
5720  procedure TGikoForm.BrowserTabCloseActionUpdate(Sender: TObject);  //ブラウザタブが1つ以上で有効になるActionで共通化
 begin  
         BrowserTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0);  
 end;  
   
 procedure TGikoForm.NotSelectTabCloseActionUpdate(Sender: TObject);  
 begin  
         NotSelectTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 1);  
 end;  
   
5721  procedure TGikoForm.AllTabCloseActionUpdate(Sender: TObject);  procedure TGikoForm.AllTabCloseActionUpdate(Sender: TObject);
5722  begin  begin
5723          AllTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 0);          //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
5724            if (Sender <> nil) and (Sender is TAction) then begin
5725                    TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0);
5726            end;
5727  end;  end;
5728    
5729  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);
# Line 6097  begin Line 6052  begin
6052          end;          end;
6053  end;  end;
6054    
6055  procedure TGikoForm.BoardIEActionUpdate(Sender: TObject);  //ActiveListがTBoardかTCategoryでスレ一覧で1つ以上選択していると有効になるActionde共通
 begin  
         if GetActiveList is TBoard then  
                 BoardIEAction.Enabled := True  
         else  
                 BoardIEAction.Enabled := False;  
 end;  
   
 procedure TGikoForm.SelectItemURLCopyActionUpdate(Sender: TObject);  
 begin  
         if ((GetActiveList is TBoard) or (GetActiveList is TCategory))and (ListView.SelCount > 0) then  
                 SelectItemURLCopyAction.Enabled := True  
         else  
                 SelectItemURLCopyAction.Enabled := False;  
 end;  
   
6056  procedure TGikoForm.SelectItemNameCopyActionUpdate(Sender: TObject);  procedure TGikoForm.SelectItemNameCopyActionUpdate(Sender: TObject);
6057  begin  begin
6058          if ((GetActiveList is TBoard) or (GetActiveList is TCategory))and (ListView.SelCount > 0) then          //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
6059                  SelectItemNameCopyAction.Enabled := True          if (Sender <> nil) and (Sender is TAction) then begin
6060          else                  if ((GetActiveList is TBoard) or (GetActiveList is TCategory))and (ListView.SelCount > 0) then
6061                  SelectItemNameCopyAction.Enabled := False;                          TAction(Sender).Enabled := True
6062  end;                  else
6063                            TAction(Sender).Enabled := False;
6064            end;
6065    
 procedure TGikoForm.SelectItemNameURLCopyActionUpdate(Sender: TObject);  
 begin  
         if ((GetActiveList is TBoard) or (GetActiveList is TCategory))and (ListView.SelCount > 0) then  
                 SelectItemNameURLCopyAction.Enabled := True  
         else  
                 SelectItemNameURLCopyAction.Enabled := False;  
6066  end;  end;
6067    
6068  procedure TGikoForm.AllSelectActionUpdate(Sender: TObject);  procedure TGikoForm.AllSelectActionUpdate(Sender: TObject);
6069  begin  begin
6070          if ListView.SelCount > 0 then          AllSelectAction.Enabled := ListView.SelCount > 0;
                 AllSelectAction.Enabled := True  
         else  
                 AllSelectAction.Enabled := False;  
 end;  
   
 procedure TGikoForm.LogDeleteActionUpdate(Sender: TObject);  
 begin  
         if (GetActiveList is TBoard) and (ListView.SelCount > 0) then  
                 LogDeleteAction.Enabled := True  
         else  
                 LogDeleteAction.Enabled := False;  
6071  end;  end;
6072    
6073  procedure TGikoForm.BrowserTabCloseActionExecute(Sender: TObject);  procedure TGikoForm.BrowserTabCloseActionExecute(Sender: TObject);
# Line 7288  begin Line 7213  begin
7213          end;          end;
7214  end;  end;
7215    
7216  procedure TGikoForm.LeftmostTabSelectActionUpdate(Sender: TObject);  //ブラウザタブが1つ以上で左端でないActionで共通
 begin  
         LeftmostTabSelectAction.Enabled := (BrowserTab.TabIndex <> 0) and (BrowserTab.Tabs.Count > 0);  
 end;  
   
7217  procedure TGikoForm.LeftTabSelectActionUpdate(Sender: TObject);  procedure TGikoForm.LeftTabSelectActionUpdate(Sender: TObject);
7218  begin  begin
7219          LeftTabSelectAction.Enabled := (BrowserTab.TabIndex <> 0) and (BrowserTab.Tabs.Count > 0);          //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
7220            if (Sender <> nil) and (Sender is TAction) then begin
7221                    TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0) and (BrowserTab.TabIndex <> 0);
7222            end;
7223  end;  end;
7224    //ブラウザタブが1つ以上で右端でないActionで共通
7225  procedure TGikoForm.RightTabSelectActionUpdate(Sender: TObject);  procedure TGikoForm.RightTabSelectActionUpdate(Sender: TObject);
7226  begin  begin
7227          RightTabSelectAction.Enabled := (BrowserTab.TabIndex <> BrowserTab.Tabs.Count - 1) and (BrowserTab.Tabs.Count > 0);          //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
7228  end;          if (Sender <> nil) and (Sender is TAction) then begin
7229                    TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 0) and (BrowserTab.TabIndex <> BrowserTab.Tabs.Count - 1);
7230  procedure TGikoForm.RightmostTabSelectActionUpdate(Sender: TObject);          end;
 begin  
         RightmostTabSelectAction.Enabled := (BrowserTab.TabIndex <> BrowserTab.Tabs.Count - 1) and (BrowserTab.Tabs.Count > 0);  
7231  end;  end;
7232    
7233  procedure TGikoForm.WMSettingChange(var Message: TWMWinIniChange);  procedure TGikoForm.WMSettingChange(var Message: TWMWinIniChange);
# Line 7511  begin Line 7433  begin
7433                  ShowFavoriteAddDialog(TObject(ListView.Selected.Data));                  ShowFavoriteAddDialog(TObject(ListView.Selected.Data));
7434  end;  end;
7435    
 procedure TGikoForm.ThreadFavoriteAddActionUpdate(Sender: TObject);  
 begin  
         ThreadFavoriteAddAction.Enabled := (GetActiveList is TBoard) and (ListView.SelCount > 0);  
 end;  
   
7436  procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject);  procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject);
7437  begin  begin
7438          ShowFavoriteAddDialog(TObject(FClickNode.Data));          ShowFavoriteAddDialog(TObject(FClickNode.Data));
# Line 9241  begin Line 9158  begin
9158    
9159  end;  end;
9160    
 procedure TGikoForm.SelectResActionUpdate(Sender: TObject);  
 begin  
 end;  
   
9161  // 全てのレスを表示  // 全てのレスを表示
9162  procedure TGikoForm.AllResActionExecute(Sender: TObject);  procedure TGikoForm.AllResActionExecute(Sender: TObject);
9163  var  var
# Line 10810  procedure TGikoForm.SetFocusForBrowserAc Line 10723  procedure TGikoForm.SetFocusForBrowserAc
10723  begin  begin
10724          FActiveContent.FBrowser.SetFocus;          FActiveContent.FBrowser.SetFocus;
10725  end;  end;
10726    //ブラウザがあって、NULLタブ用のなければ有効になるActionで共通
10727  procedure TGikoForm.SetFocusForBrowserActionUpdate(Sender: TObject);  procedure TGikoForm.SetFocusForBrowserActionUpdate(Sender: TObject);
10728  begin  begin
10729          if( FActiveContent <> nil) and (FActiveContent.Browser <> nil) and          //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
10730                  (FActiveContent.Browser <> BrowserNullTab.Browser) then          if (Sender <> nil) and (Sender is TAction) then begin
10731                  SetFocusForBrowserAction.Enabled := true                  if( FActiveContent <> nil) and (FActiveContent.Browser <> nil) and
10732          else                          (FActiveContent.Browser <> BrowserNullTab.Browser) then
10733                  SetFocusForBrowserAction.Enabled := false;                          TAction(Sender).Enabled := true
10734                    else
10735                            TAction(Sender).Enabled := false;
10736            end;
10737  end;  end;
10738    
10739  procedure TGikoForm.SetFocusForThreadListActionExecute(Sender: TObject);  procedure TGikoForm.SetFocusForThreadListActionExecute(Sender: TObject);
# Line 10861  begin Line 10777  begin
10777          SetFocusForBrowserAction.Execute;          SetFocusForBrowserAction.Execute;
10778  end;  end;
10779    
 procedure TGikoForm.BrowserMaxAndFocusActionUpdate(Sender: TObject);  
 begin  
         if( FActiveContent <> nil) and (FActiveContent.Browser <> nil) and  
                 (FActiveContent.Browser <> BrowserNullTab.Browser) then  
                 BrowserMaxAndFocusAction.Enabled := true  
         else  
                 BrowserMaxAndFocusAction.Enabled := false;  
 end;  
10780  //スレッド一覧を最大化してフォーカスを当てる  //スレッド一覧を最大化してフォーカスを当てる
10781  procedure TGikoForm.ThreadlistMaxAndFocusActionExecute(Sender: TObject);  procedure TGikoForm.ThreadlistMaxAndFocusActionExecute(Sender: TObject);
10782  begin  begin
# Line 11119  begin Line 11027  begin
11027    
11028  end;  end;
11029    
 procedure TGikoForm.LogFolderOpenActionUpdate(Sender: TObject);  
 begin  
         if (GetActiveList is TCategory) and (ListView.SelCount > 0) then  
                 LogFolderOpenAction.Enabled := True  
         else if GetActiveList is TBoard then  
                 LogFolderOpenAction.Enabled := True  
         else  
                 LogFolderOpenAction.Enabled := False;  
 end;  
   
11030  function TGikoForm.GetTabURLs(AStringList: TStringList) : Boolean;  function TGikoForm.GetTabURLs(AStringList: TStringList) : Boolean;
11031  var  var
11032    rec : TBrowserRecord;    rec : TBrowserRecord;
# Line 11357  begin Line 11255  begin
11255    
11256  end;  end;
11257    
 procedure TGikoForm.BrowsBoradHeadActionUpdate(Sender: TObject);  
 begin  
         if (GetActiveList is TCategory) and (ListView.SelCount > 0) then  
                 BrowsBoradHeadAction.Enabled := True  
         else if GetActiveList is TBoard then  
                 BrowsBoradHeadAction.Enabled := True  
         else  
                 BrowsBoradHeadAction.Enabled := False;  
   
 end;  
11258  //NGワードファイルを編集するために開く  //NGワードファイルを編集するために開く
11259  procedure TGikoForm.EditNGActionExecute(Sender: TObject);  procedure TGikoForm.EditNGActionExecute(Sender: TObject);
11260  begin  begin
11261          GikoSys.FAbon.EditNGwords;          GikoSys.FAbon.EditNGwords;
11262  end;  end;
11263    
 procedure TGikoForm.ThreadRangeActionUpdate(Sender: TObject);  
 begin  
         ThreadRangeAction.Enabled := (GetActiveList is TBoard);  
 end;  
   
11264  procedure TGikoForm.ThreadRangeActionExecute(Sender: TObject);  procedure TGikoForm.ThreadRangeActionExecute(Sender: TObject);
11265  begin  begin
11266          case GikoSys.Setting.ThreadRange of          case GikoSys.Setting.ThreadRange of
# Line 11835  begin Line 11718  begin
11718          end;          end;
11719          BrowserTab.Tabs.EndUpdate;          BrowserTab.Tabs.EndUpdate;
11720  end;  end;
11721    //ブラウザタブが2つ以上あれば有効になるアクションで共通化
11722  procedure TGikoForm.RightTabCloseActionUpdate(Sender: TObject);  procedure TGikoForm.RightTabCloseActionUpdate(Sender: TObject);
11723  begin  begin
11724          RightTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 1);          //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
11725            if (Sender <> nil) and (Sender is TAction) then begin
11726                    TAction(Sender).Enabled := (BrowserTab.Tabs.Count > 1);
11727            end;
11728  end;  end;
11729    
11730  procedure TGikoForm.LeftTabCloseActionExecute(Sender: TObject);  procedure TGikoForm.LeftTabCloseActionExecute(Sender: TObject);
# Line 11858  begin Line 11744  begin
11744          BrowserTab.Tabs.EndUpdate;          BrowserTab.Tabs.EndUpdate;
11745  end;  end;
11746    
 procedure TGikoForm.LeftTabCloseActionUpdate(Sender: TObject);  
 begin  
         LeftTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 1);  
 end;  
   
11747  procedure TGikoForm.SameIDResAnchorActionExecute(Sender: TObject);  procedure TGikoForm.SameIDResAnchorActionExecute(Sender: TObject);
11748  var  var
11749          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
# Line 12209  end; Line 12090  end;
12090  procedure TGikoForm.BeLogInOutActionUpdate(Sender: TObject);  procedure TGikoForm.BeLogInOutActionUpdate(Sender: TObject);
12091  begin  begin
12092          if (GikoSys.Setting.BeUserID <> '') and (GikoSys.Setting.BeCode <> '') then begin          if (GikoSys.Setting.BeUserID <> '') and (GikoSys.Setting.BeCode <> '') then begin
12093          if (GikoSys.Setting.BeLogin) then BeLogInOutAction.Checked := true                  if (GikoSys.Setting.BeLogin) then BeLogInOutAction.Checked := true
12094          else BeLogInOutAction.Checked := false;                  else BeLogInOutAction.Checked := false;
12095          BeLogInOutAction.Enabled := true                  BeLogInOutAction.Enabled := true
12096      end else          end else
12097          BeLogInOutAction.Enabled := false;                  BeLogInOutAction.Enabled := false;
12098    
12099  end;  end;
12100  //リンクの文字列からレスポップアップ用のURLに変換する  //リンクの文字列からレスポップアップ用のURLに変換する
# Line 12290  end; Line 12171  end;
12171  //TActionでGetActiveContentがnil以外で有効になる  //TActionでGetActiveContentがnil以外で有効になる
12172  procedure TGikoForm.DependActiveCntentActionUpdate(Sender: TObject);  procedure TGikoForm.DependActiveCntentActionUpdate(Sender: TObject);
12173  begin  begin
12174            //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
12175          if (Sender <> nil) and (Sender is TAction) then begin          if (Sender <> nil) and (Sender is TAction) then begin
12176                  TAction(Sender).Enabled := (GetActiveContent <> nil);                  TAction(Sender).Enabled := (GetActiveContent <> nil);
12177          end;          end;
# Line 12297  end; Line 12179  end;
12179  //TActionでGetActiveContentがnil以外かつログを持っている  //TActionでGetActiveContentがnil以外かつログを持っている
12180  procedure TGikoForm.DependActiveCntentLogActionUpdate(Sender: TObject);  procedure TGikoForm.DependActiveCntentLogActionUpdate(Sender: TObject);
12181  begin  begin
12182            //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
12183          if (Sender <> nil) and (Sender is TAction) then begin          if (Sender <> nil) and (Sender is TAction) then begin
12184                  TAction(Sender).Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);                  TAction(Sender).Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
12185          end;          end;
12186  end;  end;
12187    //TActionでActiveListがTBoardで有効になる
12188    procedure TGikoForm.DependActiveListTBoardActionUpdate(Sender: TObject);
12189    begin
12190            //無くてもいいIF文 コードから無理やり呼ばないならチェックしなくても…
12191            if (Sender <> nil) and (Sender is TAction) then begin
12192                    TAction(Sender).Enabled := (GetActiveList is TBoard);
12193            end;
12194    end;
12195  initialization  initialization
12196                                  OleInitialize(nil);                                  OleInitialize(nil);
12197  finalization  finalization

Legend:
Removed from v.1.515.2.15  
changed lines
  Added in v.1.515.2.16

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