| 215 |
ThreadSizeCalcForFileAction: TAction; |
ThreadSizeCalcForFileAction: TAction; |
| 216 |
SetInputAssistAction: TAction; |
SetInputAssistAction: TAction; |
| 217 |
OpenFindDialogAction: TAction; |
OpenFindDialogAction: TAction; |
| 218 |
|
ArchiveItemAction: TAction; |
| 219 |
|
LiveItemAction: TAction; |
| 220 |
procedure EditNGActionExecute(Sender: TObject); |
procedure EditNGActionExecute(Sender: TObject); |
| 221 |
procedure ReloadActionExecute(Sender: TObject); |
procedure ReloadActionExecute(Sender: TObject); |
| 222 |
procedure GoFowardActionExecute(Sender: TObject); |
procedure GoFowardActionExecute(Sender: TObject); |
| 401 |
procedure ThreadSizeCalcForFileActionExecute(Sender: TObject); |
procedure ThreadSizeCalcForFileActionExecute(Sender: TObject); |
| 402 |
procedure SetInputAssistActionExecute(Sender: TObject); |
procedure SetInputAssistActionExecute(Sender: TObject); |
| 403 |
procedure OpenFindDialogActionExecute(Sender: TObject); |
procedure OpenFindDialogActionExecute(Sender: TObject); |
| 404 |
|
procedure ArchiveItemActionExecute(Sender: TObject); |
| 405 |
|
procedure LiveItemActionExecute(Sender: TObject); |
| 406 |
private |
private |
| 407 |
{ Private 宣言 } |
{ Private 宣言 } |
| 408 |
procedure ClearResFilter; |
procedure ClearResFilter; |
| 415 |
procedure SelectThreadSaveToFile(dat: Boolean); |
procedure SelectThreadSaveToFile(dat: Boolean); |
| 416 |
function GetSortProperties(List: TObject;var vSortOrder: Boolean): Boolean; |
function GetSortProperties(List: TObject;var vSortOrder: Boolean): Boolean; |
| 417 |
procedure RecalcThreadSize(limit : Integer); |
procedure RecalcThreadSize(limit : Integer); |
| 418 |
|
procedure ClearSelectComboBox; |
| 419 |
public |
public |
| 420 |
{ Public 宣言 } |
{ Public 宣言 } |
| 421 |
procedure RepaintStatusBar; |
procedure RepaintStatusBar; |
| 2493 |
end; |
end; |
| 2494 |
end; |
end; |
| 2495 |
// ************************************************************************* |
// ************************************************************************* |
| 2496 |
|
//! SelectComboBoxの値をクリアする |
| 2497 |
|
// ************************************************************************* |
| 2498 |
|
procedure TGikoDM.ClearSelectComboBox; |
| 2499 |
|
begin |
| 2500 |
|
if GikoForm.SelectComboBoxPanel.Visible then begin |
| 2501 |
|
GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
| 2502 |
|
GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
| 2503 |
|
GikoForm.ListView.SetFocus; |
| 2504 |
|
end; |
| 2505 |
|
end; |
| 2506 |
|
// ************************************************************************* |
| 2507 |
//! スレッドをすべて表示する |
//! スレッドをすべて表示する |
| 2508 |
// ************************************************************************* |
// ************************************************************************* |
| 2509 |
procedure TGikoDM.AllItemActionExecute(Sender: TObject); |
procedure TGikoDM.AllItemActionExecute(Sender: TObject); |
| 2516 |
// SelectComboBox の履歴を更新しておく |
// SelectComboBox の履歴を更新しておく |
| 2517 |
GikoForm.ModifySelectList; |
GikoForm.ModifySelectList; |
| 2518 |
// SelectComboBox の値をクリア |
// SelectComboBox の値をクリア |
| 2519 |
if GikoForm.SelectComboBoxPanel.Visible then begin |
ClearSelectComboBox; |
|
GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
|
|
GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
|
|
GikoForm.ListView.SetFocus; |
|
|
end; |
|
| 2520 |
except |
except |
| 2521 |
end; |
end; |
| 2522 |
end; |
end; |
| 2533 |
// SelectComboBox の履歴を更新しておく |
// SelectComboBox の履歴を更新しておく |
| 2534 |
GikoForm.ModifySelectList; |
GikoForm.ModifySelectList; |
| 2535 |
// SelectComboBox の値をクリア |
// SelectComboBox の値をクリア |
| 2536 |
if GikoForm.SelectComboBoxPanel.Visible then begin |
ClearSelectComboBox; |
|
GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
|
|
GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
|
|
GikoForm.ListView.SetFocus; |
|
|
end; |
|
| 2537 |
except |
except |
| 2538 |
end; |
end; |
| 2539 |
end; |
end; |
| 2551 |
// SelectComboBox の履歴を更新しておく |
// SelectComboBox の履歴を更新しておく |
| 2552 |
GikoForm.ModifySelectList; |
GikoForm.ModifySelectList; |
| 2553 |
// SelectComboBox の値をクリア |
// SelectComboBox の値をクリア |
| 2554 |
if GikoForm.SelectComboBoxPanel.Visible then begin |
ClearSelectComboBox; |
| 2555 |
GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
except |
| 2556 |
GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
end; |
| 2557 |
GikoForm.ListView.SetFocus; |
end; |
| 2558 |
end; |
// ************************************************************************* |
| 2559 |
|
//! DAT落ちスレッドのみ表示する |
| 2560 |
|
// ************************************************************************* |
| 2561 |
|
procedure TGikoDM.ArchiveItemActionExecute(Sender: TObject); |
| 2562 |
|
begin |
| 2563 |
|
try |
| 2564 |
|
if GikoForm.ViewType <> gvtArch then |
| 2565 |
|
GikoForm.SetListViewType(gvtArch); |
| 2566 |
|
GikoSys.Setting.ThreadRange := gtrArch; |
| 2567 |
|
ArchiveItemAction.Checked := True; |
| 2568 |
|
// SelectComboBox の履歴を更新しておく |
| 2569 |
|
GikoForm.ModifySelectList; |
| 2570 |
|
// SelectComboBox の値をクリア |
| 2571 |
|
ClearSelectComboBox; |
| 2572 |
|
except |
| 2573 |
|
end; |
| 2574 |
|
end; |
| 2575 |
|
// ************************************************************************* |
| 2576 |
|
//! 生存スレッドのみ表示する |
| 2577 |
|
// ************************************************************************* |
| 2578 |
|
procedure TGikoDM.LiveItemActionExecute(Sender: TObject); |
| 2579 |
|
begin |
| 2580 |
|
try |
| 2581 |
|
if GikoForm.ViewType <> gvtLive then |
| 2582 |
|
GikoForm.SetListViewType(gvtLive); |
| 2583 |
|
GikoSys.Setting.ThreadRange := gtrLive; |
| 2584 |
|
LiveItemAction.Checked := True; |
| 2585 |
|
// SelectComboBox の履歴を更新しておく |
| 2586 |
|
GikoForm.ModifySelectList; |
| 2587 |
|
// SelectComboBox の値をクリア |
| 2588 |
|
ClearSelectComboBox; |
| 2589 |
except |
except |
| 2590 |
end; |
end; |
| 2591 |
end; |
end; |
| 2592 |
|
|
| 2593 |
// ************************************************************************* |
// ************************************************************************* |
| 2594 |
//! スレッドの表示範囲を設定 |
//! スレッドの表示範囲を設定 |
| 2595 |
// ************************************************************************* |
// ************************************************************************* |
| 2599 |
gtrAll: AllItemAction.Execute; |
gtrAll: AllItemAction.Execute; |
| 2600 |
gtrLog: LogItemAction.Execute; |
gtrLog: LogItemAction.Execute; |
| 2601 |
gtrNew: NewItemAction.Execute; |
gtrNew: NewItemAction.Execute; |
| 2602 |
|
gtrArch: ArchiveItemAction.Execute; |
| 2603 |
|
gtrLive: LiveItemAction.Execute; |
| 2604 |
end; |
end; |
| 2605 |
end; |
end; |
| 2606 |
// ************************************************************************* |
// ************************************************************************* |
| 3859 |
end; |
end; |
| 3860 |
end; |
end; |
| 3861 |
|
|
| 3862 |
|
|
| 3863 |
end. |
end. |
| 3864 |
|
|