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.53 by h677, Tue Feb 13 15:58:59 2007 UTC revision 1.54 by h677, Wed Feb 14 15:12:06 2007 UTC
# Line 435  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);
     procedure NGWordEditFormActionExecute(Sender: TObject);  
438    private    private
439          { Private 宣言 }          { Private 宣言 }
440          procedure ClearResFilter;          procedure ClearResFilter;
# Line 488  uses Line 487  uses
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 = 'エラー';
# Line 4337  begin Line 4336  begin
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;

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

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