Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/BrowserRecord.pas

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

revision 1.3 by h677, Tue Feb 21 15:35:49 2006 UTC revision 1.4 by h677, Sat Aug 12 22:19:57 2006 UTC
# Line 32  type Line 32  type
32                  //property      Movement        : string                read FMovement  write FMovement;                  //property      Movement        : string                read FMovement  write FMovement;
33                  procedure       Move(const AName: string);                  procedure       Move(const AName: string);
34                  procedure       IDAnchorPopup(Abody :string);                  procedure       IDAnchorPopup(Abody :string);
35            procedure OpenFindDialog;
36          end;          end;
37          // BrowserRecordについているFBrowserを外す          // BrowserRecordについているFBrowserを外す
38          procedure ReleaseBrowser( BRecord: TBrowserRecord);          procedure ReleaseBrowser( BRecord: TBrowserRecord);
# Line 148  begin Line 149  begin
149                  end;                  end;
150          end;          end;
151  end;  end;
152    {
153    \brief 検索ダイアログ呼び出し
154    }
155    procedure TBrowserRecord.OpenFindDialog();
156    const
157            CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
158            HTMLID_FIND = 1;
159    var
160            CmdTarget : IOleCommandTarget;
161            vaIn, vaOut: OleVariant;
162            PtrGUID: PGUID;
163    begin
164            if (Self.Browser <> nil) and (Self.Browser.Document <> nil) then begin
165                    New(PtrGUID);
166                    PtrGUID^ := CGID_WebBrowser;
167                    try
168                            Self.Browser.Document.QueryInterface(IOleCommandTarget, CmdTarget);
169                            if CmdTarget <> nil then begin
170                                    try
171                                            CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);
172                                    finally
173                                            CmdTarget._Release;
174                                    end;
175                            end;
176                    except
177                    end;
178                    Dispose(PtrGUID);
179            end;
180    end;
181    
182  end.  end.

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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