| 3544 |
Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']'; |
Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']'; |
| 3545 |
//Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき |
//Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき |
| 3546 |
//新規にThreadを開いたときに真になっている。 |
//新規にThreadを開いたときに真になっている。 |
| 3547 |
if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin |
// if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin |
| 3548 |
|
if Thread.Repaint then begin |
| 3549 |
//Thread.LastSize := ThreadItem.Size; |
//Thread.LastSize := ThreadItem.Size; |
| 3550 |
Thread.Repaint := false; |
Thread.Repaint := false; |
| 3551 |
try |
try |
| 6121 |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
| 6122 |
end; |
end; |
| 6123 |
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront; |
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront; |
| 6124 |
GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
// GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
| 6125 |
OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
// OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
| 6126 |
SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx])); |
SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx])); |
| 6127 |
|
|
| 6128 |
if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then |
if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then |
| 8594 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 8595 |
FilterList : TStringList; |
FilterList : TStringList; |
| 8596 |
i, idx : Integer; |
i, idx : Integer; |
| 8597 |
|
lastStatus : Integer; |
| 8598 |
begin |
begin |
| 8599 |
|
if Length( SelectComboBox.Text ) > 0 then lastStatus := 1 |
| 8600 |
|
else if GikoSys.OnlyAHundredRes then lastStatus := 2 |
| 8601 |
|
else lastStatus := 0; |
| 8602 |
Dlg := TListSelectDialog.Create(Self); |
Dlg := TListSelectDialog.Create(Self); |
| 8603 |
try |
try |
| 8604 |
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
| 8606 |
Dlg.ShowModal; |
Dlg.ShowModal; |
| 8607 |
if Dlg.ModalResult = mrOK then begin |
if Dlg.ModalResult = mrOK then begin |
| 8608 |
if Length( Dlg.SelectComboBox.Text ) = 0 then begin |
if Length( Dlg.SelectComboBox.Text ) = 0 then begin |
| 8609 |
// 空入力で OK は全レス表示と同意義 |
// 空入力で OK はキャンセルと同意義 |
| 8610 |
AllResAction.Execute; |
case lastStatus of |
| 8611 |
|
0: AllResAction.Execute; |
| 8612 |
|
1: AllResAction.Execute; |
| 8613 |
|
2: OnlyAHundredRes.Execute; |
| 8614 |
|
end; |
| 8615 |
end else begin |
end else begin |
| 8616 |
// ボタンの更新 |
// ボタンの更新 |
| 8617 |
AllResAction.Checked := False; |
AllResAction.Checked := False; |
| 8618 |
SelectResAction.Checked := True; |
SelectResAction.Checked := True; |
| 8619 |
|
OnlyAHundredRes.Checked := False; |
| 8620 |
|
|
| 8621 |
// 最後に設定したものを覚えておく |
// 最後に設定したものを覚えておく |
| 8622 |
FSelectResWord := Dlg.SelectComboBox.Text; |
FSelectResWord := Dlg.SelectComboBox.Text; |
| 8656 |
if ThreadItem <> nil then |
if ThreadItem <> nil then |
| 8657 |
InsertBrowserTab( ThreadItem, True ); |
InsertBrowserTab( ThreadItem, True ); |
| 8658 |
end; |
end; |
| 8659 |
end else if Length( FSelectResWord ) > 0 then begin |
end else begin |
| 8660 |
|
// キャンセル |
| 8661 |
|
case lastStatus of |
| 8662 |
|
0: AllResAction.Execute; |
| 8663 |
|
2: OnlyAHundredRes.Execute; |
| 8664 |
|
end; |
| 8665 |
// ボタンの更新 |
// ボタンの更新 |
| 8666 |
AllResAction.Checked := False; |
// AllResAction.Checked := False; |
| 8667 |
SelectResAction.Checked := True; |
// SelectResAction.Checked := True; |
| 8668 |
|
// OnlyAHundredRes.Checked := False; |
| 8669 |
|
// GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked; |
| 8670 |
end; |
end; |
| 8671 |
finally |
finally |
| 8672 |
Dlg.Release; |
Dlg.Release; |
| 8697 |
// ボタンの更新 |
// ボタンの更新 |
| 8698 |
AllResAction.Checked := True; |
AllResAction.Checked := True; |
| 8699 |
SelectResAction.Checked := False; |
SelectResAction.Checked := False; |
| 8700 |
|
OnlyAHundredRes.Checked := False; |
| 8701 |
|
|
| 8702 |
|
if (Length( FSelectResWord ) > 0) or GikoSys.OnlyAHundredRes then begin |
| 8703 |
|
GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked; |
| 8704 |
|
|
|
if Length( FSelectResWord ) > 0 then begin |
|
| 8705 |
// フィルタ文字列を空にする |
// フィルタ文字列を空にする |
| 8706 |
FilterList := TStringList.Create; |
FilterList := TStringList.Create; |
| 8707 |
try |
try |
| 9694 |
end; |
end; |
| 9695 |
|
|
| 9696 |
procedure TGikoForm.OnlyAHundredResExecute(Sender: TObject); |
procedure TGikoForm.OnlyAHundredResExecute(Sender: TObject); |
| 9697 |
|
var |
| 9698 |
|
ThreadItem : TThreadItem; |
| 9699 |
|
FilterList : TStringList; |
| 9700 |
|
i: Integer; |
| 9701 |
begin |
begin |
| 9702 |
if (FActiveContent <> nil) and (FActiveContent.FBrowser.Busy) then begin |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) |
| 9703 |
AHundredResButton.Down := not AHundredResButton.Down; |
and (FActiveContent.FBrowser.Busy) then Exit; |
| 9704 |
Exit; |
|
| 9705 |
end; |
// 表示の更新 |
| 9706 |
GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked; |
AllResAction.Checked := False; |
| 9707 |
if FActiveContent <> nil then begin |
SelectResAction.Checked := False; |
| 9708 |
SetContent(FActiveContent); |
OnlyAHundredRes.Checked := True; |
| 9709 |
|
|
| 9710 |
|
if (Length( FSelectResWord ) > 0) or (not GikoSys.OnlyAHundredRes) then begin |
| 9711 |
|
// フィルタ文字列を空にする |
| 9712 |
|
FilterList := TStringList.Create; |
| 9713 |
|
try |
| 9714 |
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
| 9715 |
|
GikoSys.FSelectResFilter.Reverse := False; |
| 9716 |
|
finally |
| 9717 |
|
FilterList.Destroy; |
| 9718 |
|
end; |
| 9719 |
|
|
| 9720 |
|
FSelectResWord := ''; |
| 9721 |
|
GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked; |
| 9722 |
|
|
| 9723 |
|
// スレッドを再描画 |
| 9724 |
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 9725 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 9726 |
|
end; |
| 9727 |
|
ThreadItem := GetActiveContent; |
| 9728 |
|
if ThreadItem <> nil then |
| 9729 |
|
InsertBrowserTab( ThreadItem, True ); |
| 9730 |
end; |
end; |
| 9731 |
end; |
end; |
| 9732 |
|
|