skin 用に <NONSPAMMINESS/> を追加。

[gikonavigoeson/gikonavi.git] / Preview.pas

diff --git a/Preview.pas b/Preview.pas
index 7d78928..fbafa70 100644 (file)
--- a/Preview.pas
+++ b/Preview.pas
@@ -3,7 +3,13 @@ unit Preview;
 interface
 uses
        Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-       ActiveX, ShDocVw;
+       ActiveX, 
+{$IF Defined(DELPRO) }
+       SHDocVw
+{$ELSE}
+       SHDocVw_TLB
+{$IFEND}
+;
 
 type
        TPreviewBrowser = class(TWebBrowser)
@@ -18,8 +24,10 @@ type
 implementation
 
 constructor TPreviewBrowser.Create(AOwner: TComponent);
+{
 var
-       Style: Longint;
+//     Style: Longint;
+}
 begin
        inherited Create(AOwner);
 //     Style := GetWindowLong(Self.Handle, GWL_EXSTYLE);