Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/BrowserRecord.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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); |
| 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 |
|
|
|