| 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); |
| 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; |
| 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; |
| 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 |
|
|
| 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 の値をクリア |
| 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 の値をクリア |
| 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 の値をクリア |
| 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; |
| 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; |
| 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; |
| 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 |