| 231 |
NewImageLinkToClipBoardAction: TAction; |
NewImageLinkToClipBoardAction: TAction; |
| 232 |
SetForcusForAddresBarAction: TAction; |
SetForcusForAddresBarAction: TAction; |
| 233 |
NewBoardSearchAction: TAction; |
NewBoardSearchAction: TAction; |
| 234 |
|
NGWordEditFormAction: TAction; |
| 235 |
procedure EditNGActionExecute(Sender: TObject); |
procedure EditNGActionExecute(Sender: TObject); |
| 236 |
procedure ReloadActionExecute(Sender: TObject); |
procedure ReloadActionExecute(Sender: TObject); |
| 237 |
procedure GoFowardActionExecute(Sender: TObject); |
procedure GoFowardActionExecute(Sender: TObject); |
| 435 |
procedure AllImageLinkToClipbordActionExecute(Sender: TObject); |
procedure AllImageLinkToClipbordActionExecute(Sender: TObject); |
| 436 |
procedure SetForcusForAddresBarActionExecute(Sender: TObject); |
procedure SetForcusForAddresBarActionExecute(Sender: TObject); |
| 437 |
procedure NewBoardSearchActionExecute(Sender: TObject); |
procedure NewBoardSearchActionExecute(Sender: TObject); |
| 438 |
|
procedure NGWordEditFormActionExecute(Sender: TObject); |
| 439 |
private |
private |
| 440 |
{ Private 宣言 } |
{ Private 宣言 } |
| 441 |
procedure ClearResFilter; |
procedure ClearResFilter; |
| 488 |
GikoBayesian, About, ShellAPI, |
GikoBayesian, About, ShellAPI, |
| 489 |
RoundName, RoundData, Menus, ListViewUtils, |
RoundName, RoundData, Menus, ListViewUtils, |
| 490 |
ThreadControl, GikoMessage, InputAssist, |
ThreadControl, GikoMessage, InputAssist, |
| 491 |
DefaultFileManager, Forms, NewBoardURL; |
DefaultFileManager, Forms, NewBoardURL, NGWordEdit; |
| 492 |
|
|
| 493 |
const |
const |
| 494 |
MSG_ERROR : string = 'エラー'; |
MSG_ERROR : string = 'エラー'; |
| 4334 |
try |
try |
| 4335 |
form.ShowModal; |
form.ShowModal; |
| 4336 |
finally |
finally |
| 4337 |
|
form.Release; |
| 4338 |
|
end; |
| 4339 |
|
end; |
| 4340 |
|
|
| 4341 |
|
procedure TGikoDM.NGWordEditFormActionExecute(Sender: TObject); |
| 4342 |
|
var |
| 4343 |
|
form: TNGWordEditForm; |
| 4344 |
|
begin |
| 4345 |
|
form := TNGWordEditForm.Create(Self); |
| 4346 |
|
try |
| 4347 |
|
form.ShowModal; |
| 4348 |
|
finally |
| 4349 |
form.Release; |
form.Release; |
| 4350 |
end; |
end; |
| 4351 |
end; |
end; |