| 449 |
ToolButton16: TToolButton; |
ToolButton16: TToolButton; |
| 450 |
AllResAction: TAction; |
AllResAction: TAction; |
| 451 |
AllResToolButton: TToolButton; |
AllResToolButton: TToolButton; |
| 452 |
|
N41: TMenuItem; |
| 453 |
|
N42: TMenuItem; |
| 454 |
|
N49: TMenuItem; |
| 455 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 456 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 457 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 687 |
Shift: TShiftState); |
Shift: TShiftState); |
| 688 |
procedure SelectComboBoxExit(Sender: TObject); |
procedure SelectComboBoxExit(Sender: TObject); |
| 689 |
procedure NG1Click(Sender: TObject); |
procedure NG1Click(Sender: TObject); |
|
procedure NG2Click(Sender: TObject); |
|
| 690 |
procedure SelectResActionExecute(Sender: TObject); |
procedure SelectResActionExecute(Sender: TObject); |
| 691 |
procedure SelectResActionUpdate(Sender: TObject); |
procedure SelectResActionUpdate(Sender: TObject); |
| 692 |
procedure FormKeyDown(Sender: TObject; var Key: Word; |
procedure FormKeyDown(Sender: TObject; var Key: Word; |
| 695 |
Shift: TShiftState); |
Shift: TShiftState); |
| 696 |
procedure AllResActionExecute(Sender: TObject); |
procedure AllResActionExecute(Sender: TObject); |
| 697 |
procedure AllResActionUpdate(Sender: TObject); |
procedure AllResActionUpdate(Sender: TObject); |
| 698 |
|
procedure N41Click(Sender: TObject); |
| 699 |
|
procedure N42Click(Sender: TObject); |
| 700 |
|
procedure N49Click(Sender: TObject); |
| 701 |
private |
private |
| 702 |
{ Private 宣言 } |
{ Private 宣言 } |
| 703 |
|
|
| 1228 |
end; |
end; |
| 1229 |
// SetStdToolBar; |
// SetStdToolBar; |
| 1230 |
// SetLinkBar; |
// SetLinkBar; |
| 1231 |
|
|
| 1232 |
|
StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname; |
| 1233 |
end; |
end; |
| 1234 |
|
|
| 1235 |
// |
// |
| 6645 |
GikoSys.FAbon.EditNGwords; |
GikoSys.FAbon.EditNGwords; |
| 6646 |
end; |
end; |
| 6647 |
//NGワードファイルを再読み込みする |
//NGワードファイルを再読み込みする |
|
procedure TGikoForm.NG2Click(Sender: TObject); |
|
|
var |
|
|
ThreadItem : TThreadItem; |
|
|
begin |
|
|
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
|
|
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
|
|
end else begin |
|
|
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
SetContent( ThreadItem ); |
|
|
end; |
|
|
|
|
|
end; |
|
|
|
|
| 6648 |
procedure TGikoForm.SelectResActionExecute(Sender: TObject); |
procedure TGikoForm.SelectResActionExecute(Sender: TObject); |
| 6649 |
var |
var |
| 6650 |
Dlg: TListSelectDialog; |
Dlg: TListSelectDialog; |
| 6788 |
AllResAction.Enabled := GetActiveContent <> nil; |
AllResAction.Enabled := GetActiveContent <> nil; |
| 6789 |
end; |
end; |
| 6790 |
|
|
| 6791 |
|
procedure TGikoForm.N41Click(Sender: TObject); |
| 6792 |
|
var |
| 6793 |
|
ThreadItem : TThreadItem; |
| 6794 |
|
begin |
| 6795 |
|
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
| 6796 |
|
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
| 6797 |
|
end else begin |
| 6798 |
|
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
| 6799 |
|
ThreadItem := GetActiveContent; |
| 6800 |
|
if ThreadItem <> nil then |
| 6801 |
|
SetContent( ThreadItem ); |
| 6802 |
|
end; |
| 6803 |
|
|
| 6804 |
|
end; |
| 6805 |
|
|
| 6806 |
|
procedure TGikoForm.N42Click(Sender: TObject); |
| 6807 |
|
var |
| 6808 |
|
ThreadItem : TThreadItem; |
| 6809 |
|
begin |
| 6810 |
|
if GikoSys.FAbon.GoForward =false then begin |
| 6811 |
|
MsgBox(Handle, '一つ前のNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
| 6812 |
|
end else begin |
| 6813 |
|
StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname; |
| 6814 |
|
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
| 6815 |
|
ThreadItem := GetActiveContent; |
| 6816 |
|
if ThreadItem <> nil then |
| 6817 |
|
SetContent( ThreadItem ); |
| 6818 |
|
end; |
| 6819 |
|
|
| 6820 |
|
end; |
| 6821 |
|
|
| 6822 |
|
procedure TGikoForm.N49Click(Sender: TObject); |
| 6823 |
|
var |
| 6824 |
|
ThreadItem : TThreadItem; |
| 6825 |
|
begin |
| 6826 |
|
if GikoSys.FAbon.GoBack =false then begin |
| 6827 |
|
MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
| 6828 |
|
end else begin |
| 6829 |
|
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
| 6830 |
|
StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname; |
| 6831 |
|
ThreadItem := GetActiveContent; |
| 6832 |
|
if ThreadItem <> nil then |
| 6833 |
|
SetContent( ThreadItem ); |
| 6834 |
|
end; |
| 6835 |
|
|
| 6836 |
|
end; |
| 6837 |
|
|
| 6838 |
initialization |
initialization |
| 6839 |
OleInitialize(nil); |
OleInitialize(nil); |
| 6840 |
finalization |
finalization |