| 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); |
|
procedure NGWordEditFormActionExecute(Sender: TObject); |
|
| 438 |
private |
private |
| 439 |
{ Private 宣言 } |
{ Private 宣言 } |
| 440 |
procedure ClearResFilter; |
procedure ClearResFilter; |
| 487 |
GikoBayesian, About, ShellAPI, |
GikoBayesian, About, ShellAPI, |
| 488 |
RoundName, RoundData, Menus, ListViewUtils, |
RoundName, RoundData, Menus, ListViewUtils, |
| 489 |
ThreadControl, GikoMessage, InputAssist, |
ThreadControl, GikoMessage, InputAssist, |
| 490 |
DefaultFileManager, Forms, NewBoardURL, NGWordEdit; |
DefaultFileManager, Forms, NewBoardURL; |
| 491 |
|
|
| 492 |
const |
const |
| 493 |
MSG_ERROR : string = 'エラー'; |
MSG_ERROR : string = 'エラー'; |
| 4336 |
try |
try |
| 4337 |
form.ShowModal; |
form.ShowModal; |
| 4338 |
finally |
finally |
|
form.Release; |
|
|
end; |
|
|
end; |
|
|
|
|
|
procedure TGikoDM.NGWordEditFormActionExecute(Sender: TObject); |
|
|
var |
|
|
form: TNGWordEditForm; |
|
|
begin |
|
|
form := TNGWordEditForm.Create(Self); |
|
|
try |
|
|
form.ShowModal; |
|
|
finally |
|
| 4339 |
form.Release; |
form.Release; |
| 4340 |
end; |
end; |
| 4341 |
end; |
end; |