| 446 |
SelectResAction: TAction; |
SelectResAction: TAction; |
| 447 |
ToolButton16: TToolButton; |
ToolButton16: TToolButton; |
| 448 |
AllResAction: TAction; |
AllResAction: TAction; |
|
AllResToolButton: TToolButton; |
|
| 449 |
N50: TMenuItem; |
N50: TMenuItem; |
| 450 |
A11: TMenuItem; |
A11: TMenuItem; |
| 451 |
S5: TMenuItem; |
S5: TMenuItem; |
| 561 |
OnlyAHundredRes: TAction; |
OnlyAHundredRes: TAction; |
| 562 |
OnlyNewResAction: TAction; |
OnlyNewResAction: TAction; |
| 563 |
OnlyKokoResAction: TAction; |
OnlyKokoResAction: TAction; |
| 564 |
|
A14: TMenuItem; |
| 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); |
| 1886 |
try |
try |
| 1887 |
// レス表示範囲 |
// レス表示範囲 |
| 1888 |
if not GikoSys.Setting.ResRangeHold then |
if not GikoSys.Setting.ResRangeHold then |
| 1889 |
GikoSys.Setting.ResRange := GikoSys.ResRange; |
GikoSys.Setting.ResRange := FResRangeMenuSelect; |
| 1890 |
except |
except |
| 1891 |
end; |
end; |
| 1892 |
|
|
| 1942 |
LockWindowUpdate(0); |
LockWindowUpdate(0); |
| 1943 |
try |
try |
| 1944 |
TreeView.Items.BeginUpdate; |
TreeView.Items.BeginUpdate; |
| 1945 |
Node := TreeView.Items.GetFirstNode.Free; |
TreeView.Items.GetFirstNode.Free; |
| 1946 |
TreeView.Items.Clear; |
TreeView.Items.Clear; |
| 1947 |
TreeView.Items.EndUpdate; |
TreeView.Items.EndUpdate; |
| 1948 |
except |
except |
| 8651 |
Dlg.SelectComboBox.Text := FSelectResWord; |
Dlg.SelectComboBox.Text := FSelectResWord; |
| 8652 |
Dlg.ShowModal; |
Dlg.ShowModal; |
| 8653 |
if Dlg.ModalResult = mrOK then begin |
if Dlg.ModalResult = mrOK then begin |
| 8654 |
|
SelectResAction.Checked := True; |
| 8655 |
if Length( Dlg.SelectComboBox.Text ) = 0 then begin |
if Length( Dlg.SelectComboBox.Text ) = 0 then begin |
| 8656 |
// 空入力で OK はキャンセルと同意義 |
// 空入力で OK は絞り込み解除と同意義 |
| 8657 |
case GikoSys.ResRange of |
ResRangeAction.Execute; |
|
Ord( grrAll ): AllResAction.Execute; |
|
|
Ord( grrSelect ): AllResAction.Execute; |
|
|
else ResRangeAction.Execute; |
|
|
end; |
|
| 8658 |
end else begin |
end else begin |
|
// ボタンの更新 |
|
|
AllResAction.Checked := False; |
|
|
SelectResAction.Checked := True; |
|
|
ResRangeAction.Checked := False; |
|
| 8659 |
GikoSys.ResRange := Ord( grrSelect ); |
GikoSys.ResRange := Ord( grrSelect ); |
| 8660 |
|
|
| 8661 |
// 最後に設定したものを覚えておく |
// 最後に設定したものを覚えておく |
| 8698 |
end; |
end; |
| 8699 |
end else begin |
end else begin |
| 8700 |
// キャンセル |
// キャンセル |
| 8701 |
case GikoSys.ResRange of |
if GikoSys.ResRange <> Ord( grrSelect ) then |
| 8702 |
Ord( grrAll ): AllResAction.Execute; |
ResRangeAction.Execute; |
|
Ord( grrSelect ): {* nothing *}; |
|
|
else ResRangeAction.Execute; |
|
|
end; |
|
| 8703 |
end; |
end; |
| 8704 |
finally |
finally |
| 8705 |
Dlg.Release; |
Dlg.Release; |
| 8727 |
if(FActiveContent <> nil) and (FActiveContent.FBrowser <> nil ) |
if(FActiveContent <> nil) and (FActiveContent.FBrowser <> nil ) |
| 8728 |
and (FActiveContent.FBrowser.Busy) then Exit; |
and (FActiveContent.FBrowser.Busy) then Exit; |
| 8729 |
|
|
| 8730 |
// ボタンの更新 |
FResRangeMenuSelect := Ord( grrAll ); |
|
AllResAction.Checked := True; |
|
|
SelectResAction.Checked := False; |
|
|
ResRangeAction.Checked := False; |
|
| 8731 |
|
|
| 8732 |
if GikoSys.ResRange <> Ord( grrAll ) then begin |
if GikoSys.ResRange <> Ord( grrAll ) then begin |
| 8733 |
GikoSys.ResRange := Ord( grrAll ); |
GikoSys.ResRange := Ord( grrAll ); |
| 9729 |
FilterList : TStringList; |
FilterList : TStringList; |
| 9730 |
i: Integer; |
i: Integer; |
| 9731 |
begin |
begin |
|
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
|
|
and (FActiveContent.FBrowser.Busy) then Exit; |
|
|
|
|
|
// 表示の更新 |
|
|
AllResAction.Checked := False; |
|
|
SelectResAction.Checked := False; |
|
|
ResRangeButton.Down := True; |
|
|
GikoSys.ResRange := FResRangeMenuSelect; |
|
| 9732 |
case FResRangeMenuSelect of |
case FResRangeMenuSelect of |
| 9733 |
Ord( grrKoko ): OnlyKokoResAction.Checked := True; |
Ord( grrAll ): AllResAction.Execute; |
| 9734 |
Ord( grrNew ): OnlyNewResAction.Checked := True; |
Ord( grrKoko ): OnlyKokoResAction.Execute; |
| 9735 |
100: OnlyAHundredRes.Checked := True; |
Ord( grrNew ): OnlyNewResAction.Execute; |
| 9736 |
end; |
100: OnlyAHundredRes.Execute; |
|
|
|
|
// フィルタ文字列を空にする |
|
|
FilterList := TStringList.Create; |
|
|
try |
|
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
|
|
GikoSys.FSelectResFilter.Reverse := False; |
|
|
finally |
|
|
FilterList.Destroy; |
|
|
end; |
|
|
|
|
|
FSelectResWord := ''; |
|
|
|
|
|
// スレッドを再描画 |
|
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
| 9737 |
end; |
end; |
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 9738 |
end; |
end; |
| 9739 |
|
|
| 9740 |
procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X, |
procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X, |
| 10893 |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
| 10894 |
and (FActiveContent.FBrowser.Busy) then Exit; |
and (FActiveContent.FBrowser.Busy) then Exit; |
| 10895 |
|
|
|
// 表示の更新 |
|
|
AllResAction.Checked := False; |
|
|
SelectResAction.Checked := False; |
|
|
ResRangeButton.Down := True; |
|
|
OnlyAHundredRes.Checked := True; |
|
|
OnlyKokoResAction.Checked := False; |
|
|
OnlyNewResAction.Checked := False; |
|
|
GikoSys.ResRange := 100; |
|
| 10896 |
FResRangeMenuSelect := 100; |
FResRangeMenuSelect := 100; |
| 10897 |
|
|
| 10898 |
// フィルタ文字列を空にする |
if GikoSys.ResRange <> 100 then begin |
| 10899 |
FilterList := TStringList.Create; |
GikoSys.ResRange := 100; |
|
try |
|
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
|
|
GikoSys.FSelectResFilter.Reverse := False; |
|
|
finally |
|
|
FilterList.Destroy; |
|
|
end; |
|
| 10900 |
|
|
| 10901 |
FSelectResWord := ''; |
// フィルタ文字列を空にする |
| 10902 |
|
FilterList := TStringList.Create; |
| 10903 |
|
try |
| 10904 |
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
| 10905 |
|
GikoSys.FSelectResFilter.Reverse := False; |
| 10906 |
|
finally |
| 10907 |
|
FilterList.Destroy; |
| 10908 |
|
end; |
| 10909 |
|
|
| 10910 |
// スレッドを再描画 |
FSelectResWord := ''; |
| 10911 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
| 10912 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
// スレッドを再描画 |
| 10913 |
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 10914 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 10915 |
|
end; |
| 10916 |
|
ThreadItem := GetActiveContent; |
| 10917 |
|
if ThreadItem <> nil then |
| 10918 |
|
InsertBrowserTab( ThreadItem, True ); |
| 10919 |
end; |
end; |
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 10920 |
end; |
end; |
| 10921 |
|
|
| 10922 |
procedure TGikoForm.OnlyKokoResActionExecute(Sender: TObject); |
procedure TGikoForm.OnlyKokoResActionExecute(Sender: TObject); |
| 10928 |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
| 10929 |
and (FActiveContent.FBrowser.Busy) then Exit; |
and (FActiveContent.FBrowser.Busy) then Exit; |
| 10930 |
|
|
|
// 表示の更新 |
|
|
AllResAction.Checked := False; |
|
|
SelectResAction.Checked := False; |
|
|
ResRangeButton.Down := True; |
|
|
OnlyAHundredRes.Checked := False; |
|
|
OnlyKokoResAction.Checked := True; |
|
|
OnlyNewResAction.Checked := False; |
|
|
GikoSys.ResRange := Ord( grrKoko ); |
|
| 10931 |
FResRangeMenuSelect := Ord( grrKoko ); |
FResRangeMenuSelect := Ord( grrKoko ); |
| 10932 |
|
|
| 10933 |
// フィルタ文字列を空にする |
if GikoSys.ResRange <> Ord( grrKoko ) then begin |
| 10934 |
FilterList := TStringList.Create; |
GikoSys.ResRange := Ord( grrKoko ); |
|
try |
|
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
|
|
GikoSys.FSelectResFilter.Reverse := False; |
|
|
finally |
|
|
FilterList.Destroy; |
|
|
end; |
|
| 10935 |
|
|
| 10936 |
FSelectResWord := ''; |
// フィルタ文字列を空にする |
| 10937 |
|
FilterList := TStringList.Create; |
| 10938 |
|
try |
| 10939 |
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
| 10940 |
|
GikoSys.FSelectResFilter.Reverse := False; |
| 10941 |
|
finally |
| 10942 |
|
FilterList.Destroy; |
| 10943 |
|
end; |
| 10944 |
|
|
| 10945 |
// スレッドを再描画 |
FSelectResWord := ''; |
| 10946 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
| 10947 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
// スレッドを再描画 |
| 10948 |
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 10949 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 10950 |
|
end; |
| 10951 |
|
ThreadItem := GetActiveContent; |
| 10952 |
|
if ThreadItem <> nil then |
| 10953 |
|
InsertBrowserTab( ThreadItem, True ); |
| 10954 |
end; |
end; |
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 10955 |
end; |
end; |
| 10956 |
|
|
| 10957 |
procedure TGikoForm.OnlyNewResActionExecute(Sender: TObject); |
procedure TGikoForm.OnlyNewResActionExecute(Sender: TObject); |
| 10963 |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
| 10964 |
and (FActiveContent.FBrowser.Busy) then Exit; |
and (FActiveContent.FBrowser.Busy) then Exit; |
| 10965 |
|
|
|
// 表示の更新 |
|
|
AllResAction.Checked := False; |
|
|
SelectResAction.Checked := False; |
|
|
ResRangeButton.Down := True; |
|
|
OnlyAHundredRes.Checked := False; |
|
|
OnlyKokoResAction.Checked := False; |
|
|
OnlyNewResAction.Checked := True; |
|
|
GikoSys.ResRange := Ord( grrNew ); |
|
| 10966 |
FResRangeMenuSelect := Ord( grrNew ); |
FResRangeMenuSelect := Ord( grrNew ); |
| 10967 |
|
|
| 10968 |
// フィルタ文字列を空にする |
if GikoSys.ResRange <> Ord( grrNew ) then begin |
| 10969 |
FilterList := TStringList.Create; |
GikoSys.ResRange := Ord( grrNew ); |
|
try |
|
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
|
|
GikoSys.FSelectResFilter.Reverse := False; |
|
|
finally |
|
|
FilterList.Destroy; |
|
|
end; |
|
| 10970 |
|
|
| 10971 |
FSelectResWord := ''; |
// フィルタ文字列を空にする |
| 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 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
| 10982 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
// スレッドを再描画 |
| 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; |
end; |
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 10990 |
end; |
end; |
| 10991 |
|
|
| 10992 |
initialization |
initialization |