Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

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

revision 1.51 by h677, Thu Jan 4 13:11:38 2007 UTC revision 1.52 by h677, Sun Feb 4 14:12:52 2007 UTC
# Line 231  type Line 231  type
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);
# Line 434  type Line 435  type
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;
# Line 486  uses Line 488  uses
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 = 'エラー';
# Line 4332  begin Line 4334  begin
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;

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

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