| 668 |
procedure OpenThreadItem(Thread: TThreadItem; URL: String); |
procedure OpenThreadItem(Thread: TThreadItem; URL: String); |
| 669 |
//! ListView(スレッド一覧)を更新する |
//! ListView(スレッド一覧)を更新する |
| 670 |
procedure RefreshListView(Thread: TThreadItem); |
procedure RefreshListView(Thread: TThreadItem); |
| 671 |
|
//! スレッド一覧の表示範囲設定チェッククリア |
| 672 |
|
procedure ClearThreadRengeAction; |
| 673 |
protected |
protected |
| 674 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 675 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 5812 |
|
|
| 5813 |
procedure TGikoForm.SetSelectWord( const text : string ); |
procedure TGikoForm.SetSelectWord( const text : string ); |
| 5814 |
begin |
begin |
| 5815 |
|
// スレ一覧の範囲指定を解除 |
| 5816 |
|
ClearThreadRengeAction; |
| 5817 |
|
|
| 5818 |
if Length( text ) = 0 then |
if Length( text ) = 0 then |
| 5819 |
begin |
begin |
| 5820 |
GikoDM.AllItemAction.Checked := True; |
GikoDM.AllItemAction.Checked := True; |
|
GikoDM.LogItemAction.Checked := False; |
|
|
GikoDM.NewItemAction.Checked := False; |
|
|
end else begin |
|
|
// チラつくと嫌だから、一応押してあるときだけ処理する |
|
|
if GikoDM.AllItemAction.Checked then |
|
|
GikoDM.AllItemAction.Checked := False; |
|
|
if GikoDM.LogItemAction.Checked then |
|
|
GikoDM.LogItemAction.Checked := False; |
|
|
if GikoDM.NewItemAction.Checked then |
|
|
GikoDM.NewItemaction.Checked := False; |
|
|
end; |
|
|
|
|
|
if Length( text ) = 0 then |
|
| 5821 |
SetListViewType( gvtAll ) |
SetListViewType( gvtAll ) |
| 5822 |
else |
end else begin |
| 5823 |
SetListViewType( gvtUser, text, false ); |
SetListViewType( gvtUser, text, false ); |
| 5824 |
|
end; |
| 5825 |
end; |
end; |
| 5826 |
|
|
| 5827 |
procedure TGikoForm.SelectComboBoxChange(Sender: TObject); |
procedure TGikoForm.SelectComboBoxChange(Sender: TObject); |
| 5857 |
end else |
end else |
| 5858 |
Str := SelectComboBox.Text + Str; |
Str := SelectComboBox.Text + Str; |
| 5859 |
|
|
| 5860 |
SetSelectWord(Str); |
if (Length(Str) > 0) then begin |
| 5861 |
|
SetSelectWord(Str); |
| 5862 |
|
end; |
| 5863 |
end; |
end; |
| 5864 |
end else if Length( SelectComboBox.Text ) = 0 then |
end else if Length( SelectComboBox.Text ) = 0 then |
| 5865 |
begin |
begin |
| 5868 |
* (ここでは何もしない) |
* (ここでは何もしない) |
| 5869 |
*} |
*} |
| 5870 |
end else begin |
end else begin |
| 5871 |
// チラつくと嫌だから、一応押してあるときだけ処理する |
// スレ一覧の範囲指定を解除 |
| 5872 |
if GikoDM.AllItemAction.Checked then |
ClearThreadRengeAction; |
|
GikoDM.AllItemAction.Checked := False; |
|
|
if GikoDM.LogItemAction.Checked then |
|
|
GikoDM.LogItemAction.Checked := False; |
|
|
if GikoDM.NewItemAction.Checked then |
|
|
GikoDM.NewItemaction.Checked := False; |
|
| 5873 |
end; |
end; |
| 5874 |
|
|
| 5875 |
end; |
end; |
| 5876 |
|
//! スレッド一覧の表示範囲設定チェッククリア |
| 5877 |
|
procedure TGikoForm.ClearThreadRengeAction; |
| 5878 |
|
begin |
| 5879 |
|
// チラつくと嫌だから、一応押してあるときだけ処理する |
| 5880 |
|
if GikoDM.AllItemAction.Checked then |
| 5881 |
|
GikoDM.AllItemAction.Checked := False; |
| 5882 |
|
if GikoDM.LogItemAction.Checked then |
| 5883 |
|
GikoDM.LogItemAction.Checked := False; |
| 5884 |
|
if GikoDM.NewItemAction.Checked then |
| 5885 |
|
GikoDM.NewItemaction.Checked := False; |
| 5886 |
|
if GikoDM.LiveItemAction.Checked then |
| 5887 |
|
GikoDM.LiveItemAction.Checked := False; |
| 5888 |
|
if GikoDM.ArchiveItemAction.Checked then |
| 5889 |
|
GikoDM.ArchiveItemAction.Checked := False; |
| 5890 |
|
|
| 5891 |
|
end; |
| 5892 |
|
|
| 5893 |
procedure TGikoForm.SelectComboBoxExit(Sender: TObject); |
procedure TGikoForm.SelectComboBoxExit(Sender: TObject); |
| 5894 |
begin |
begin |