「ツール」にNGワードのメニューを追加

diff --git a/Giko.dfm b/Giko.dfm
index 362b3c4..3e4dac7 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -8303,6 +8303,17 @@ object GikoForm: TGikoForm
       object N40: TMenuItem
         Caption = '-'
       end
+      object NG1: TMenuItem
+        Caption = 'NG'#12527#12540#12489#12501#12449#12452#12523#32232#38598
+        OnClick = NG1Click
+      end
+      object NG2: TMenuItem
+        Caption = 'NG'#12527#12540#12489#20877#35501#12415#36796#12415
+        OnClick = NG2Click
+      end
+      object N43: TMenuItem
+        Caption = '-'
+      end
       object OptionMenu: TMenuItem
         Action = OptionAction
       end

diff --git a/Giko.pas b/Giko.pas
index cef5d36..a100e02 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -438,6 +438,9 @@ type
     A11: TMenuItem;
     U3: TMenuItem;
     F3: TMenuItem;
+    NG1: TMenuItem;
+    NG2: TMenuItem;
+    N43: TMenuItem;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -672,6 +675,8 @@ type
     procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
     procedure SelectComboBoxExit(Sender: TObject);
+    procedure NG1Click(Sender: TObject);
+    procedure NG2Click(Sender: TObject);
        private
                { Private \90é\8c¾ }
 
@@ -6593,9 +6598,25 @@ begin
 
 end;
 
+//NG\83\8f\81[\83h\83t\83@\83C\83\8b\82ð\95Ò\8fW\82·\82é\82½\82ß\82É\8aJ\82­
+procedure TGikoForm.NG1Click(Sender: TObject);
+begin
+    GikoSys.OpenNGwordFile;
+end;
+//NG\83\8f\81[\83h\83t\83@\83C\83\8b\82ð\8dÄ\93Ç\82Ý\8d\9e\82Ý\82·\82é
+procedure TGikoForm.NG2Click(Sender: TObject);
+
+begin
+    if GikoSys.ReloadNGwordFile =false then begin
+               MsgBox(Handle, 'NG\83\8f\81[\83h\83t\83@\83C\83\8b\82Ì\8dÄ\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½', '\83G\83\89\81[', MB_OK or MB_ICONEXCLAMATION);
+    end else begin
+        //\82±\82±\82Å\8c»\8dÝ\95\\8e¦\82³\82ê\82Ä\82¢\82é\83X\83\8c\83b\83h\82Ì\8dÄ\95`\89æ\82ð\8cÄ\82Ñ\8fo\82µ\82½\82¢\82ª\82â\82è\95û\95ª\82©\82ç\82¸¥¥¥\81B
+    end;
+
+end;
 
 initialization
         OleInitialize(nil);
-finalization 
+finalization
         OleUninitialize;
 end.