Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 438 |
A11: TMenuItem; |
A11: TMenuItem; |
| 439 |
U3: TMenuItem; |
U3: TMenuItem; |
| 440 |
F3: TMenuItem; |
F3: TMenuItem; |
| 441 |
|
NG1: TMenuItem; |
| 442 |
|
NG2: TMenuItem; |
| 443 |
|
N43: TMenuItem; |
| 444 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 445 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 446 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 675 |
procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word; |
procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word; |
| 676 |
Shift: TShiftState); |
Shift: TShiftState); |
| 677 |
procedure SelectComboBoxExit(Sender: TObject); |
procedure SelectComboBoxExit(Sender: TObject); |
| 678 |
|
procedure NG1Click(Sender: TObject); |
| 679 |
|
procedure NG2Click(Sender: TObject); |
| 680 |
private |
private |
| 681 |
{ Private 宣言 } |
{ Private 宣言 } |
| 682 |
|
|
| 6598 |
|
|
| 6599 |
end; |
end; |
| 6600 |
|
|
| 6601 |
|
//NGワードファイルを編集するために開く |
| 6602 |
|
procedure TGikoForm.NG1Click(Sender: TObject); |
| 6603 |
|
begin |
| 6604 |
|
GikoSys.OpenNGwordFile; |
| 6605 |
|
end; |
| 6606 |
|
//NGワードファイルを再読み込みする |
| 6607 |
|
procedure TGikoForm.NG2Click(Sender: TObject); |
| 6608 |
|
|
| 6609 |
|
begin |
| 6610 |
|
if GikoSys.ReloadNGwordFile =false then begin |
| 6611 |
|
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
| 6612 |
|
end else begin |
| 6613 |
|
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
| 6614 |
|
end; |
| 6615 |
|
|
| 6616 |
|
end; |
| 6617 |
|
|
| 6618 |
initialization |
initialization |
| 6619 |
OleInitialize(nil); |
OleInitialize(nil); |
| 6620 |
finalization |
finalization |
| 6621 |
OleUninitialize; |
OleUninitialize; |
| 6622 |
end. |
end. |
|
|
Legend:
| Removed from v.1.5 |
|
| changed lines |
| |
Added in v.1.6 |
|
|
|