| 443 |
F4: TMenuItem; |
F4: TMenuItem; |
| 444 |
N48: TMenuItem; |
N48: TMenuItem; |
| 445 |
T14: TMenuItem; |
T14: TMenuItem; |
| 446 |
|
SelectItemToolButton: TToolButton; |
| 447 |
|
SelectResToolButton: TToolButton; |
| 448 |
|
SelectResAction: TAction; |
| 449 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 450 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 451 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 682 |
procedure SelectComboBoxExit(Sender: TObject); |
procedure SelectComboBoxExit(Sender: TObject); |
| 683 |
procedure NG1Click(Sender: TObject); |
procedure NG1Click(Sender: TObject); |
| 684 |
procedure NG2Click(Sender: TObject); |
procedure NG2Click(Sender: TObject); |
| 685 |
|
procedure SelectResActionExecute(Sender: TObject); |
| 686 |
|
procedure SelectResActionUpdate(Sender: TObject); |
| 687 |
private |
private |
| 688 |
{ Private 宣言 } |
{ Private 宣言 } |
| 689 |
|
|
| 6602 |
end; |
end; |
| 6603 |
//NGワードファイルを再読み込みする |
//NGワードファイルを再読み込みする |
| 6604 |
procedure TGikoForm.NG2Click(Sender: TObject); |
procedure TGikoForm.NG2Click(Sender: TObject); |
| 6605 |
|
var |
| 6606 |
|
ThreadItem : TThreadItem; |
| 6607 |
begin |
begin |
| 6608 |
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
| 6609 |
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
| 6610 |
end else begin |
end else begin |
| 6611 |
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
| 6612 |
|
ThreadItem := GetActiveContent; |
| 6613 |
|
if ThreadItem <> nil then |
| 6614 |
|
SetContent( ThreadItem ); |
| 6615 |
end; |
end; |
| 6616 |
|
|
| 6617 |
end; |
end; |
| 6618 |
|
|
| 6619 |
|
procedure TGikoForm.SelectResActionExecute(Sender: TObject); |
| 6620 |
|
var |
| 6621 |
|
Dlg: TListSelectDialog; |
| 6622 |
|
ThreadItem : TThreadItem; |
| 6623 |
|
FilterList : TStringList; |
| 6624 |
|
begin |
| 6625 |
|
try |
| 6626 |
|
Dlg := TListSelectDialog.Create(Self); |
| 6627 |
|
Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList); |
| 6628 |
|
Dlg.ShowModal; |
| 6629 |
|
if Dlg.ModalResult <> mrCancel then begin |
| 6630 |
|
if Length( Dlg.SelectComboBox.Text ) = 0 then |
| 6631 |
|
GikoSys.FSelectResFilter.Reverse := False |
| 6632 |
|
else |
| 6633 |
|
GikoSys.FSelectResFilter.Reverse := True; |
| 6634 |
|
FilterList := TStringList.Create; |
| 6635 |
|
FilterList.Add( Dlg.SelectComboBox.Text ); |
| 6636 |
|
GikoSys.FSelectResFilter.LoadFromStringList( FilterList ); |
| 6637 |
|
ThreadItem := GetActiveContent; |
| 6638 |
|
if ThreadItem <> nil then |
| 6639 |
|
SetContent( ThreadItem ); |
| 6640 |
|
end; |
| 6641 |
|
finally |
| 6642 |
|
Dlg.Release; |
| 6643 |
|
FilterList.Destroy; |
| 6644 |
|
end; |
| 6645 |
|
|
| 6646 |
|
end; |
| 6647 |
|
|
| 6648 |
|
procedure TGikoForm.SelectResActionUpdate(Sender: TObject); |
| 6649 |
|
begin |
| 6650 |
|
SelectResAction.Enabled := GetActiveContent <> nil; |
| 6651 |
|
end; |
| 6652 |
|
|
| 6653 |
initialization |
initialization |
| 6654 |
OleInitialize(nil); |
OleInitialize(nil); |
| 6655 |
finalization |
finalization |