| 500 |
FavoriteTreeViewNameCopyAction: TAction; |
FavoriteTreeViewNameCopyAction: TAction; |
| 501 |
FavoriteTreeViewNameURLCopyAction: TAction; |
FavoriteTreeViewNameURLCopyAction: TAction; |
| 502 |
FavoriteTreeViewLogDeleteAction: TAction; |
FavoriteTreeViewLogDeleteAction: TAction; |
| 503 |
OnlyAHundredRes: TAction; |
ResRangeAction: TAction; |
| 504 |
ToolButton20: TToolButton; |
ToolButton20: TToolButton; |
| 505 |
AHundredResButton: TToolButton; |
ResRangeButton: TToolButton; |
| 506 |
N60: TMenuItem; |
N60: TMenuItem; |
| 507 |
ExportFavoriteFileAction1: TMenuItem; |
ExportFavoriteFileAction1: TMenuItem; |
| 508 |
ExportFavoriteFile: TFileSaveAs; |
ExportFavoriteFile: TFileSaveAs; |
| 555 |
TabOpen: TMenuItem; |
TabOpen: TMenuItem; |
| 556 |
TabsSaveAction: TAction; |
TabsSaveAction: TAction; |
| 557 |
TabsOpenAction: TAction; |
TabsOpenAction: TAction; |
| 558 |
|
ResRangePopupMenu: TPopupMenu; |
| 559 |
|
N1001: TMenuItem; |
| 560 |
|
N501: TMenuItem; |
| 561 |
|
N22: TMenuItem; |
| 562 |
|
OnlyAHundredRes: TAction; |
| 563 |
|
OnlyNewResAction: TAction; |
| 564 |
|
OnlyKokoResAction: TAction; |
| 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); |
| 840 |
Shift: TShiftState; X, Y: Integer); |
Shift: TShiftState; X, Y: Integer); |
| 841 |
procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer; |
procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer; |
| 842 |
State: TDragState; var Accept: Boolean); |
State: TDragState; var Accept: Boolean); |
| 843 |
procedure OnlyAHundredResExecute(Sender: TObject); |
procedure ResRangeActionExecute(Sender: TObject); |
| 844 |
procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X, |
procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X, |
| 845 |
Y: Integer); |
Y: Integer); |
| 846 |
procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint; |
procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint; |
| 878 |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
| 879 |
procedure FavoriteTreeViewMouseUp(Sender: TObject; |
procedure FavoriteTreeViewMouseUp(Sender: TObject; |
| 880 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 881 |
procedure OnlyAHundredResUpdate(Sender: TObject); |
procedure ResRangeActionUpdate(Sender: TObject); |
| 882 |
procedure SetFocusForBrowserActionExecute(Sender: TObject); |
procedure SetFocusForBrowserActionExecute(Sender: TObject); |
| 883 |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
| 884 |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
| 903 |
procedure TabsOpenActionExecute(Sender: TObject); |
procedure TabsOpenActionExecute(Sender: TObject); |
| 904 |
procedure TabsSaveToFileActionExecute(Sender: TObject); |
procedure TabsSaveToFileActionExecute(Sender: TObject); |
| 905 |
procedure TabsOpenFromFileActionExecute(Sender: TObject); |
procedure TabsOpenFromFileActionExecute(Sender: TObject); |
| 906 |
|
procedure OnlyAHundredResExecute(Sender: TObject); |
| 907 |
|
procedure OnlyKokoResActionExecute(Sender: TObject); |
| 908 |
|
procedure OnlyNewResActionExecute(Sender: TObject); |
| 909 |
private |
private |
| 910 |
{ Private 宣言 } |
{ Private 宣言 } |
| 911 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 968 |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
| 969 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
| 970 |
FBrowsers: TList; |
FBrowsers: TList; |
| 971 |
|
FResRangeMenuSelect : Longint; ///< AHundredResButton で選択されている項目 (フォーマットは ResRange 互換) |
| 972 |
procedure SetBoardTreeNode( inBBS : TBBS ); |
procedure SetBoardTreeNode( inBBS : TBBS ); |
| 973 |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
| 974 |
function SetBoardListItem(Category: TCategory): Integer; |
function SetBoardListItem(Category: TCategory): Integer; |
| 1156 |
FThread : TThreadItem; |
FThread : TThreadItem; |
| 1157 |
FLastSize : Integer; |
FLastSize : Integer; |
| 1158 |
FRepaint : Boolean; |
FRepaint : Boolean; |
| 1159 |
FOnlyHundred: Boolean; |
// FOnlyHundred: Boolean; |
| 1160 |
public |
public |
| 1161 |
destructor Destroy; override; |
destructor Destroy; override; |
| 1162 |
property Browser : TWebBrowser read FBrowser write FBrowser; |
property Browser : TWebBrowser read FBrowser write FBrowser; |
| 1163 |
property Thread : TThreadItem read FThread write FThread; |
property Thread : TThreadItem read FThread write FThread; |
| 1164 |
property LastSize : Integer read FLastSize write FLastSize; |
property LastSize : Integer read FLastSize write FLastSize; |
| 1165 |
property Repaint : Boolean read FRepaint write FRepaint; |
property Repaint : Boolean read FRepaint write FRepaint; |
| 1166 |
property OnlyHundred : Boolean read FOnlyHundred write FOnlyHundred; |
// property OnlyHundred : Boolean read FOnlyHundred write FOnlyHundred; |
| 1167 |
end; |
end; |
| 1168 |
|
|
| 1169 |
var |
var |
| 1567 |
end; |
end; |
| 1568 |
ReadToolBarSetting(ActionList, BrowserToolBar); |
ReadToolBarSetting(ActionList, BrowserToolBar); |
| 1569 |
SetToolBarPopup; |
SetToolBarPopup; |
| 1570 |
OnlyAHundredRes.Checked := GikoSys.Setting.OnlyAHundredRes; |
|
| 1571 |
|
// レス表示範囲 |
| 1572 |
|
FResRangeMenuSelect := 100; |
| 1573 |
|
case GikoSys.ResRange of |
| 1574 |
|
Ord( grrAll ): |
| 1575 |
|
begin |
| 1576 |
|
AllResAction.Execute; |
| 1577 |
|
end; |
| 1578 |
|
Ord( grrSelect ): |
| 1579 |
|
begin |
| 1580 |
|
SelectComboBox.Text := SelectComboBox.Items[ 0 ]; |
| 1581 |
|
SelectResAction.Checked := True; |
| 1582 |
|
end; |
| 1583 |
|
else |
| 1584 |
|
FResRangeMenuSelect := GikoSys.ResRange; |
| 1585 |
|
// ResRangeAction.Execute; |
| 1586 |
|
case FResRangeMenuSelect of |
| 1587 |
|
Ord( grrKoko ): OnlyKokoResAction.Checked := True; |
| 1588 |
|
Ord( grrNew ): OnlyNewResAction.Checked := True; |
| 1589 |
|
100: OnlyAHundredRes.Checked := True; |
| 1590 |
|
end; |
| 1591 |
|
end; |
| 1592 |
|
|
| 1593 |
//アドレスバー |
//アドレスバー |
| 1594 |
AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop; |
AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop; |
| 1595 |
|
|
| 3396 |
//newBrowser.Browser.Navigate(BLANK_HTML); |
//newBrowser.Browser.Navigate(BLANK_HTML); |
| 3397 |
newBrowser.thread := ThreadItem; |
newBrowser.thread := ThreadItem; |
| 3398 |
newBrowser.Repaint := true; |
newBrowser.Repaint := true; |
| 3399 |
newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
// newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3400 |
|
|
| 3401 |
BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
| 3402 |
if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin |
if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin |
| 3424 |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
| 3425 |
//newBrowser.Browser.Navigate(BLANK_HTML); |
//newBrowser.Browser.Navigate(BLANK_HTML); |
| 3426 |
newBrowser.thread := ThreadItem; |
newBrowser.thread := ThreadItem; |
| 3427 |
newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
// newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3428 |
newBrowser.Repaint := true; |
newBrowser.Repaint := true; |
| 3429 |
|
|
| 3430 |
i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
| 3592 |
//追記 200406/19 |
//追記 200406/19 |
| 3593 |
//VisibleのときしかDocumentCompleteは呼ばれないらしい |
//VisibleのときしかDocumentCompleteは呼ばれないらしい |
| 3594 |
Thread.FBrowser.OnDocumentComplete(Thread.FBrowser, Thread.FBrowser.Parent, url); |
Thread.FBrowser.OnDocumentComplete(Thread.FBrowser, Thread.FBrowser.Parent, url); |
| 3595 |
Thread.OnlyHundred := GikoSys.OnlyAHundredRes; |
// Thread.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3596 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3597 |
//ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。 |
//ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。 |
| 3598 |
//相しないと一画面分しか描画できてないのでそれ以上のスクロール量を指定しても無効になる |
//相しないと一画面分しか描画できてないのでそれ以上のスクロール量を指定しても無効になる |
| 8478 |
i : Integer; |
i : Integer; |
| 8479 |
aIEButton : TToolButton; |
aIEButton : TToolButton; |
| 8480 |
aCabinetBBSButton : TToolButton; |
aCabinetBBSButton : TToolButton; |
| 8481 |
|
aResRangeButton : TToolButton; |
| 8482 |
begin |
begin |
| 8483 |
for i := 0 to StdToolBar.ButtonCount - 1 do begin |
for i := 0 to StdToolBar.ButtonCount - 1 do begin |
| 8484 |
end; |
end; |
| 8494 |
aCabinetBBSButton := FindToolBarButton( StdToolBar, CabinetBBSAction ); |
aCabinetBBSButton := FindToolBarButton( StdToolBar, CabinetBBSAction ); |
| 8495 |
if aCabinetBBSButton <> nil then |
if aCabinetBBSButton <> nil then |
| 8496 |
aCabinetBBSButton.DropdownMenu := BBSSelectPopupMenu; |
aCabinetBBSButton.DropdownMenu := BBSSelectPopupMenu; |
| 8497 |
|
aResRangeButton := FindToolBarButton( BrowserToolBar, ResRangeAction ); |
| 8498 |
|
if aResRangeButton <> nil then |
| 8499 |
|
aResRangeButton.DropdownMenu := ResRangePopupMenu; |
| 8500 |
end; |
end; |
| 8501 |
|
|
| 8502 |
procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; |
procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; |
| 8631 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 8632 |
FilterList : TStringList; |
FilterList : TStringList; |
| 8633 |
i, idx : Integer; |
i, idx : Integer; |
|
lastStatus : Integer; |
|
| 8634 |
begin |
begin |
|
if Length( SelectComboBox.Text ) > 0 then lastStatus := 1 |
|
|
else if GikoSys.OnlyAHundredRes then lastStatus := 2 |
|
|
else lastStatus := 0; |
|
| 8635 |
Dlg := TListSelectDialog.Create(Self); |
Dlg := TListSelectDialog.Create(Self); |
| 8636 |
try |
try |
| 8637 |
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
| 8640 |
if Dlg.ModalResult = mrOK then begin |
if Dlg.ModalResult = mrOK then begin |
| 8641 |
if Length( Dlg.SelectComboBox.Text ) = 0 then begin |
if Length( Dlg.SelectComboBox.Text ) = 0 then begin |
| 8642 |
// 空入力で OK はキャンセルと同意義 |
// 空入力で OK はキャンセルと同意義 |
| 8643 |
case lastStatus of |
case GikoSys.ResRange of |
| 8644 |
0: AllResAction.Execute; |
Ord( grrAll ): AllResAction.Execute; |
| 8645 |
1: AllResAction.Execute; |
Ord( grrSelect ): AllResAction.Execute; |
| 8646 |
2: OnlyAHundredRes.Execute; |
else ResRangeAction.Execute; |
| 8647 |
end; |
end; |
| 8648 |
end else begin |
end else begin |
| 8649 |
// ボタンの更新 |
// ボタンの更新 |
| 8650 |
AllResAction.Checked := False; |
AllResAction.Checked := False; |
| 8651 |
SelectResAction.Checked := True; |
SelectResAction.Checked := True; |
| 8652 |
OnlyAHundredRes.Checked := False; |
ResRangeAction.Checked := False; |
| 8653 |
|
GikoSys.ResRange := Ord( grrSelect ); |
| 8654 |
|
|
| 8655 |
// 最後に設定したものを覚えておく |
// 最後に設定したものを覚えておく |
| 8656 |
FSelectResWord := Dlg.SelectComboBox.Text; |
FSelectResWord := Dlg.SelectComboBox.Text; |
| 8692 |
end; |
end; |
| 8693 |
end else begin |
end else begin |
| 8694 |
// キャンセル |
// キャンセル |
| 8695 |
case lastStatus of |
case GikoSys.ResRange of |
| 8696 |
0: AllResAction.Execute; |
Ord( grrAll ): AllResAction.Execute; |
| 8697 |
2: OnlyAHundredRes.Execute; |
Ord( grrSelect ): {* nothing *}; |
| 8698 |
end; |
else ResRangeAction.Execute; |
| 8699 |
// ボタンの更新 |
end; |
|
// AllResAction.Checked := False; |
|
|
// SelectResAction.Checked := True; |
|
|
// OnlyAHundredRes.Checked := False; |
|
|
// GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked; |
|
| 8700 |
end; |
end; |
| 8701 |
finally |
finally |
| 8702 |
Dlg.Release; |
Dlg.Release; |
| 8727 |
// ボタンの更新 |
// ボタンの更新 |
| 8728 |
AllResAction.Checked := True; |
AllResAction.Checked := True; |
| 8729 |
SelectResAction.Checked := False; |
SelectResAction.Checked := False; |
| 8730 |
OnlyAHundredRes.Checked := False; |
ResRangeAction.Checked := False; |
| 8731 |
|
|
| 8732 |
if (Length( FSelectResWord ) > 0) or GikoSys.OnlyAHundredRes then begin |
if GikoSys.ResRange <> Ord( grrAll ) then begin |
| 8733 |
GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked; |
GikoSys.ResRange := Ord( grrAll ); |
| 8734 |
|
|
| 8735 |
// フィルタ文字列を空にする |
// フィルタ文字列を空にする |
| 8736 |
FilterList := TStringList.Create; |
FilterList := TStringList.Create; |
| 9723 |
|
|
| 9724 |
end; |
end; |
| 9725 |
|
|
| 9726 |
procedure TGikoForm.OnlyAHundredResExecute(Sender: TObject); |
procedure TGikoForm.ResRangeActionExecute(Sender: TObject); |
| 9727 |
var |
var |
| 9728 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 9729 |
FilterList : TStringList; |
FilterList : TStringList; |
| 9733 |
and (FActiveContent.FBrowser.Busy) then Exit; |
and (FActiveContent.FBrowser.Busy) then Exit; |
| 9734 |
|
|
| 9735 |
// 表示の更新 |
// 表示の更新 |
| 9736 |
AllResAction.Checked := False; |
AllResAction.Checked := False; |
| 9737 |
SelectResAction.Checked := False; |
SelectResAction.Checked := False; |
| 9738 |
OnlyAHundredRes.Checked := True; |
ResRangeButton.Down := True; |
| 9739 |
|
GikoSys.ResRange := FResRangeMenuSelect; |
| 9740 |
|
case FResRangeMenuSelect of |
| 9741 |
|
Ord( grrKoko ): OnlyKokoResAction.Checked := True; |
| 9742 |
|
Ord( grrNew ): OnlyNewResAction.Checked := True; |
| 9743 |
|
100: OnlyAHundredRes.Checked := True; |
| 9744 |
|
end; |
| 9745 |
|
|
| 9746 |
if (Length( FSelectResWord ) > 0) or (not GikoSys.OnlyAHundredRes) then begin |
// フィルタ文字列を空にする |
| 9747 |
// フィルタ文字列を空にする |
FilterList := TStringList.Create; |
| 9748 |
FilterList := TStringList.Create; |
try |
| 9749 |
try |
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
| 9750 |
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
GikoSys.FSelectResFilter.Reverse := False; |
| 9751 |
GikoSys.FSelectResFilter.Reverse := False; |
finally |
| 9752 |
finally |
FilterList.Destroy; |
| 9753 |
FilterList.Destroy; |
end; |
|
end; |
|
| 9754 |
|
|
| 9755 |
FSelectResWord := ''; |
FSelectResWord := ''; |
|
GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked; |
|
| 9756 |
|
|
| 9757 |
// スレッドを再描画 |
// スレッドを再描画 |
| 9758 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 9759 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
end; |
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 9760 |
end; |
end; |
| 9761 |
|
ThreadItem := GetActiveContent; |
| 9762 |
|
if ThreadItem <> nil then |
| 9763 |
|
InsertBrowserTab( ThreadItem, True ); |
| 9764 |
end; |
end; |
| 9765 |
|
|
| 9766 |
procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X, |
procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X, |
| 10430 |
|
|
| 10431 |
end; |
end; |
| 10432 |
|
|
| 10433 |
procedure TGikoForm.OnlyAHundredResUpdate(Sender: TObject); |
procedure TGikoForm.ResRangeActionUpdate(Sender: TObject); |
| 10434 |
begin |
begin |
| 10435 |
OnlyAHundredRes.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
ResRangeAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
| 10436 |
end; |
end; |
| 10437 |
|
|
| 10438 |
function TGikoForm.WebBrowserClick(Sender: TObject): WordBool; |
function TGikoForm.WebBrowserClick(Sender: TObject): WordBool; |
| 10910 |
end; |
end; |
| 10911 |
end; |
end; |
| 10912 |
|
|
| 10913 |
|
procedure TGikoForm.OnlyAHundredResExecute(Sender: TObject); |
| 10914 |
|
var |
| 10915 |
|
ThreadItem : TThreadItem; |
| 10916 |
|
FilterList : TStringList; |
| 10917 |
|
i: Integer; |
| 10918 |
|
begin |
| 10919 |
|
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
| 10920 |
|
and (FActiveContent.FBrowser.Busy) then Exit; |
| 10921 |
|
|
| 10922 |
|
// 表示の更新 |
| 10923 |
|
AllResAction.Checked := False; |
| 10924 |
|
SelectResAction.Checked := False; |
| 10925 |
|
ResRangeButton.Down := True; |
| 10926 |
|
OnlyAHundredRes.Checked := True; |
| 10927 |
|
OnlyKokoResAction.Checked := False; |
| 10928 |
|
OnlyNewResAction.Checked := False; |
| 10929 |
|
GikoSys.ResRange := 100; |
| 10930 |
|
FResRangeMenuSelect := 100; |
| 10931 |
|
|
| 10932 |
|
// フィルタ文字列を空にする |
| 10933 |
|
FilterList := TStringList.Create; |
| 10934 |
|
try |
| 10935 |
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
| 10936 |
|
GikoSys.FSelectResFilter.Reverse := False; |
| 10937 |
|
finally |
| 10938 |
|
FilterList.Destroy; |
| 10939 |
|
end; |
| 10940 |
|
|
| 10941 |
|
FSelectResWord := ''; |
| 10942 |
|
|
| 10943 |
|
// スレッドを再描画 |
| 10944 |
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 10945 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 10946 |
|
end; |
| 10947 |
|
ThreadItem := GetActiveContent; |
| 10948 |
|
if ThreadItem <> nil then |
| 10949 |
|
InsertBrowserTab( ThreadItem, True ); |
| 10950 |
|
end; |
| 10951 |
|
|
| 10952 |
|
procedure TGikoForm.OnlyKokoResActionExecute(Sender: TObject); |
| 10953 |
|
var |
| 10954 |
|
ThreadItem : TThreadItem; |
| 10955 |
|
FilterList : TStringList; |
| 10956 |
|
i: Integer; |
| 10957 |
|
begin |
| 10958 |
|
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
| 10959 |
|
and (FActiveContent.FBrowser.Busy) then Exit; |
| 10960 |
|
|
| 10961 |
|
// 表示の更新 |
| 10962 |
|
AllResAction.Checked := False; |
| 10963 |
|
SelectResAction.Checked := False; |
| 10964 |
|
ResRangeButton.Down := True; |
| 10965 |
|
OnlyAHundredRes.Checked := False; |
| 10966 |
|
OnlyKokoResAction.Checked := True; |
| 10967 |
|
OnlyNewResAction.Checked := False; |
| 10968 |
|
GikoSys.ResRange := Ord( grrKoko ); |
| 10969 |
|
FResRangeMenuSelect := Ord( grrKoko ); |
| 10970 |
|
|
| 10971 |
|
// フィルタ文字列を空にする |
| 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 |
|
|
| 10982 |
|
// スレッドを再描画 |
| 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; |
| 10990 |
|
|
| 10991 |
|
procedure TGikoForm.OnlyNewResActionExecute(Sender: TObject); |
| 10992 |
|
var |
| 10993 |
|
ThreadItem : TThreadItem; |
| 10994 |
|
FilterList : TStringList; |
| 10995 |
|
i: Integer; |
| 10996 |
|
begin |
| 10997 |
|
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
| 10998 |
|
and (FActiveContent.FBrowser.Busy) then Exit; |
| 10999 |
|
|
| 11000 |
|
// 表示の更新 |
| 11001 |
|
AllResAction.Checked := False; |
| 11002 |
|
SelectResAction.Checked := False; |
| 11003 |
|
ResRangeButton.Down := True; |
| 11004 |
|
OnlyAHundredRes.Checked := False; |
| 11005 |
|
OnlyKokoResAction.Checked := False; |
| 11006 |
|
OnlyNewResAction.Checked := True; |
| 11007 |
|
GikoSys.ResRange := Ord( grrNew ); |
| 11008 |
|
FResRangeMenuSelect := Ord( grrNew ); |
| 11009 |
|
|
| 11010 |
|
// フィルタ文字列を空にする |
| 11011 |
|
FilterList := TStringList.Create; |
| 11012 |
|
try |
| 11013 |
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
| 11014 |
|
GikoSys.FSelectResFilter.Reverse := False; |
| 11015 |
|
finally |
| 11016 |
|
FilterList.Destroy; |
| 11017 |
|
end; |
| 11018 |
|
|
| 11019 |
|
FSelectResWord := ''; |
| 11020 |
|
|
| 11021 |
|
// スレッドを再描画 |
| 11022 |
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 11023 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 11024 |
|
end; |
| 11025 |
|
ThreadItem := GetActiveContent; |
| 11026 |
|
if ThreadItem <> nil then |
| 11027 |
|
InsertBrowserTab( ThreadItem, True ); |
| 11028 |
|
end; |
| 11029 |
|
|
| 11030 |
initialization |
initialization |
| 11031 |
OleInitialize(nil); |
OleInitialize(nil); |
| 11032 |
finalization |
finalization |