From deee92241cf12f48eeb4576666a0a8e22025b147 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sat, 12 Aug 2006 22:19:57 +0000
Subject: [PATCH] =?utf8?q?=E6=A4=9C=E7=B4=A2=E3=83=80=E3=82=A4=E3=82=A2?=
 =?utf8?q?=E3=83=AD=E3=82=B0=E3=82=92=E8=A1=A8=E7=A4=BA=E3=81=99=E3=82=8B?=
 =?utf8?q?=E3=83=A1=E3=82=BD=E3=83=83=E3=83=89=E3=82=92=E7=A7=BB=E5=8B=95?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 BrowserRecord.pas  | 31 ++++++++++++++++++++++++++++++-
 GikoDataModule.dfm |  4 ++--
 GikoDataModule.pas | 32 +-------------------------------
 3 files changed, 33 insertions(+), 34 deletions(-)

diff --git a/BrowserRecord.pas b/BrowserRecord.pas
index 616d856..1dfb236 100644
--- a/BrowserRecord.pas
+++ b/BrowserRecord.pas
@@ -32,6 +32,7 @@ type
 		//property	Movement	: string		read FMovement	write FMovement;
 		procedure	Move(const AName: string);
 		procedure	IDAnchorPopup(Abody :string);
+        procedure OpenFindDialog;
 	end;
 	// BrowserRecord‚ɂ‚¢‚Ä‚¢‚éFBrowser‚ðŠO‚·
 	procedure ReleaseBrowser( BRecord: TBrowserRecord);
@@ -148,6 +149,34 @@ begin
 		end;
 	end;
 end;
-
+{
+\brief ŒŸõƒ_ƒCƒAƒƒOŒÄ‚яo‚µ
+}
+procedure TBrowserRecord.OpenFindDialog();
+const
+	CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
+	HTMLID_FIND = 1;
+var
+	CmdTarget : IOleCommandTarget;
+	vaIn, vaOut: OleVariant;
+	PtrGUID: PGUID;
+begin
+	if (Self.Browser <> nil) and (Self.Browser.Document <> nil) then begin
+		New(PtrGUID);
+		PtrGUID^ := CGID_WebBrowser;
+		try
+			Self.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;
 
 end.
diff --git a/GikoDataModule.dfm b/GikoDataModule.dfm
index 73236cd..17054f0 100644
--- a/GikoDataModule.dfm
+++ b/GikoDataModule.dfm
@@ -1288,14 +1288,14 @@ object GikoDM: TGikoDM
     object AllImageLinkToClipbordAction: TAction
       Category = #12473#12524#12483#12489
       Caption = #12452#12513#12540#12472#12522#12531#12463'URL'#21462#24471
-      Hint = #12377#12409#12390#12398#12524#12473#12363#12425#12452#12513#12540#12472#12408#12398#12522#12531#12463'URL'#12434#12463#12522#12483#12503#12508#12540#12489#12395#12467#12500#12540#12377#12427
+      Hint = #34920#31034#12373#12428#12390#12356#12427#12377#12409#12390#12398#12524#12473#12363#12425#12452#12513#12540#12472#12408#12398#12522#12531#12463'URL'#12434#12463#12522#12483#12503#12508#12540#12489#12395#12467#12500#12540#12377#12427
       OnExecute = AllImageLinkToClipbordActionExecute
       OnUpdate = DependActiveCntentLogActionUpdate
     end
     object NewImageLinkToClipBoardAction: TAction
       Category = #12473#12524#12483#12489
       Caption = #26032#30528#12524#12473#12452#12513#12540#12472#12522#12531#12463'URL'#21462#24471
-      Hint = #26032#30528#12524#12473#12363#12425#12452#12513#12540#12472#12408#12398#12522#12531#12463'URL'#12434#12463#12522#12483#12503#12508#12540#12489#12395#12467#12500#12540#12377#12427
+      Hint = #34920#31034#12373#12428#12390#12356#12427#26032#30528#12524#12473#12363#12425#12452#12513#12540#12472#12408#12398#12522#12531#12463'URL'#12434#12463#12522#12483#12503#12508#12540#12489#12395#12467#12500#12540#12377#12427
       OnExecute = NewImageLinkToClipBoardActionExecute
       OnUpdate = DependActiveCntentLogActionUpdate
     end
diff --git a/GikoDataModule.pas b/GikoDataModule.pas
index 893d398..4a90b7f 100644
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -3972,42 +3972,12 @@ begin
 	end;
 end;
 // *************************************************************************
-//! WebBrowser‚ÌŒŸõƒ_ƒCƒAƒƒO‚ðŒÄ‚яo‚·
-// *************************************************************************
-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;
-
-// *************************************************************************
 //! Œ»Ý•\Ž¦‚µ‚Ä‚¢‚éƒXƒŒƒbƒh‚ÌŒŸõƒ_ƒCƒAƒƒO‚ð•\Ž¦‚·‚é
 // *************************************************************************
 procedure TGikoDM.OpenFindDialogActionExecute(Sender: TObject);
 begin
 	if( GikoForm.ActiveContent <> nil) and (GikoForm.ActiveContent.Browser <> nil) then begin
-    	OpenFindDialog(GikoForm.ActiveContent.Browser);
+        GikoForm.ActiveContent.OpenFindDialog;
 	end;
 end;
 
-- 
2.11.0