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.47 by h677, Sat Aug 12 10:31:10 2006 UTC revision 1.48 by h677, Sat Aug 12 22:19:57 2006 UTC
# Line 3972  begin Line 3972  begin
3972          end;          end;
3973  end;  end;
3974  // *************************************************************************  // *************************************************************************
 //! WebBrowserの検索ダイアログを呼び出す  
 // *************************************************************************  
 procedure OpenFindDialog(Browser: TWebbrowser);  
 const  
         CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';  
         HTMLID_FIND = 1;  
 var  
         CmdTarget : IOleCommandTarget;  
         vaIn, vaOut: OleVariant;  
         PtrGUID: PGUID;  
 begin  
         if Browser.Document <> nil then begin  
                 New(PtrGUID);  
                 PtrGUID^ := CGID_WebBrowser;  
                 try  
                         Browser.Document.QueryInterface(IOleCommandTarget, CmdTarget);  
                         if CmdTarget <> nil then begin  
                                 try  
                                         CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);  
                                 finally  
                                         CmdTarget._Release;  
                                 end;  
                         end;  
                 except  
                 end;  
                 Dispose(PtrGUID);  
         end;  
 end;  
   
 // *************************************************************************  
3975  //! 現在表示しているスレッドの検索ダイアログを表示する  //! 現在表示しているスレッドの検索ダイアログを表示する
3976  // *************************************************************************  // *************************************************************************
3977  procedure TGikoDM.OpenFindDialogActionExecute(Sender: TObject);  procedure TGikoDM.OpenFindDialogActionExecute(Sender: TObject);
3978  begin  begin
3979          if( GikoForm.ActiveContent <> nil) and (GikoForm.ActiveContent.Browser <> nil) then begin          if( GikoForm.ActiveContent <> nil) and (GikoForm.ActiveContent.Browser <> nil) then begin
3980          OpenFindDialog(GikoForm.ActiveContent.Browser);          GikoForm.ActiveContent.OpenFindDialog;
3981          end;          end;
3982  end;  end;
3983    

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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