| 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); |
| 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); |
| 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); |
| 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); |
| 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); |
| 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); |
| 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); |
| 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); |
| 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); |
| 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) |
| 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); |
| 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 |
|
|
| 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); |
| 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); |
| 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); |
| 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)); |
| 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 |
| 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); |
| 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 |
| 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; |
| 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 |
| 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); |
| 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; |
| 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に変換する |
| 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; |
| 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 |