Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by yoffy, Mon Aug 11 15:42:21 2003 UTC revision 1.6 by h677, Tue Aug 12 14:16:11 2003 UTC
# Line 438  type Line 438  type
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);
# Line 672  type Line 675  type
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    
# Line 6593  begin Line 6598  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26