| 895 |
const |
const |
| 896 |
CAPTION_NAME: string = 'ギコナビ'; |
CAPTION_NAME: string = 'ギコナビ'; |
| 897 |
BLANK_HTML: string = 'about:blank'; |
BLANK_HTML: string = 'about:blank'; |
| 898 |
SELECTCOMBOBOX_NAME: string = 'スレッド絞込検索'; |
SELECTCOMBOBOX_NAME: string = ''; // 'スレッド絞込検索'; |
| 899 |
|
SELECTCOMBOBOX_COLOR: TColor = clWindow; |
| 900 |
|
|
| 901 |
//ツリー・リストアイコン |
//ツリー・リストアイコン |
| 902 |
ITEM_ICON_2CH1 = 0; //2chアイコン |
ITEM_ICON_2CH1 = 0; //2chアイコン |
| 3681 |
// SelectComboBox の値をクリア |
// SelectComboBox の値をクリア |
| 3682 |
if SelectComboBox.Parent <> nil then begin |
if SelectComboBox.Parent <> nil then begin |
| 3683 |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
| 3684 |
SelectComboBox.Color := clSkyBlue; |
SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
| 3685 |
ListView.SetFocus; |
ListView.SetFocus; |
| 3686 |
end; |
end; |
| 3687 |
except |
except |
| 3702 |
// SelectComboBox の値をクリア |
// SelectComboBox の値をクリア |
| 3703 |
if SelectComboBox.Parent <> nil then begin |
if SelectComboBox.Parent <> nil then begin |
| 3704 |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
| 3705 |
SelectComboBox.Color := clSkyBlue; |
SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
| 3706 |
ListView.SetFocus; |
ListView.SetFocus; |
| 3707 |
end; |
end; |
| 3708 |
except |
except |
| 3724 |
// SelectComboBox の値をクリア |
// SelectComboBox の値をクリア |
| 3725 |
if SelectComboBox.Parent <> nil then begin |
if SelectComboBox.Parent <> nil then begin |
| 3726 |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
| 3727 |
SelectComboBox.Color := clSkyBlue; |
SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
| 3728 |
ListView.SetFocus; |
ListView.SetFocus; |
| 3729 |
end; |
end; |
| 3730 |
except |
except |
| 3766 |
if Length( SelectComboBox.Text ) = 0 then begin |
if Length( SelectComboBox.Text ) = 0 then begin |
| 3767 |
AllItemAction.Checked := True; |
AllItemAction.Checked := True; |
| 3768 |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
| 3769 |
SelectComboBox.Color := clSkyBlue; |
SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
| 3770 |
end; |
end; |
| 3771 |
|
|
| 3772 |
if GetActiveList is TBoard then |
if GetActiveList is TBoard then |
| 3782 |
|
|
| 3783 |
if Length( Dlg.SelectComboBox.Text ) = 0 then begin |
if Length( Dlg.SelectComboBox.Text ) = 0 then begin |
| 3784 |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
| 3785 |
SelectComboBox.Color := clSkyBlue; |
SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
| 3786 |
end else begin |
end else begin |
| 3787 |
SelectComboBox.Text := Dlg.SelectComboBox.Text; |
SelectComboBox.Text := Dlg.SelectComboBox.Text; |
| 3788 |
SelectComboBox.Color := clWindow; |
SelectComboBox.Color := clWindow; |
| 6771 |
if Length( SelectComboBox.Text ) = 0 then |
if Length( SelectComboBox.Text ) = 0 then |
| 6772 |
begin |
begin |
| 6773 |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
| 6774 |
SelectComboBox.Color := clSkyBlue; |
SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
| 6775 |
end; |
end; |
| 6776 |
|
|
| 6777 |
end; |
end; |