Delphi6Professional版だとユニット名が違うので条件コンパイルするようにした

diff --git a/Editor.pas b/Editor.pas
index 72b1f44..c3cec17 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -5,7 +5,12 @@ interface
 uses
        Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
        Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, Menus, OleCtrls,
-       SHDocVw_TLB, ActiveX, {HTTPApp,} YofUtils, IniFiles, StrUtils,
+{$IF Defined(DELPRO) }
+       SHDocVw,
+{$ELSE}
+       SHDocVw_TLB,
+{$IFEND}
+       ActiveX, {HTTPApp,} YofUtils, IniFiles, StrUtils,
        GikoSystem, GikoUtil, ImgList, Clipbrd, BoardGroup,
        IdAntiFreezeBase,       IdAntiFreeze, IdBaseComponent, IdComponent,
        IdTCPConnection, IdTCPClient, IdHTTP, ActnList, StdActns, IdIntercept,

diff --git a/Giko.pas b/Giko.pas
index c66f593..5e5c76b 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -4,9 +4,16 @@ interface
 
 uses
        Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-       OleCtrls,       SHDocVw_TLB, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem,
+       OleCtrls,       ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem,
+{$IF Defined(DELPRO) }
+       SHDocVw,
+       MSHTML,
+{$ELSE}
+       SHDocVw_TLB,
+       MSHTML_TLB,
+{$IFEND}
        IdHTTP, ActiveX, Clipbrd, Buttons, ToolWin, {HTTPApp,} YofUtils, IdComponent,
-       ShellAPI, ImgList, ActnList, UrlMon, MSHTML_TLB, Tabs, IdGlobal, StrUtils,
+       ShellAPI, ImgList, ActnList, UrlMon, Tabs, IdGlobal, StrUtils,
        CommCtrl, IniFiles,
        GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,
        Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 91849d2..ec354fb 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -4,7 +4,14 @@ interface
 
 uses
        Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-       ComCtrls, IniFiles, ShellAPI, ActnList, Math, SHDocVw_TLB, MSHTML_TLB,
+       ComCtrls, IniFiles, ShellAPI, ActnList, Math,
+{$IF Defined(DELPRO) }
+       SHDocVw,
+       MSHTML,
+{$ELSE}
+       SHDocVw_TLB,
+       MSHTML_TLB,
+{$IFEND}
        {HttpApp,} YofUtils, URLMon, IdGlobal, IdURI, {Masks,}
        Setting, BoardGroup, gzip, Dolib, bmRegExp;
 

diff --git a/Preview.pas b/Preview.pas
index 1863a96..24aa8e8 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_TLB;
+       ActiveX, 
+{$IF Defined(DELPRO) }
+       SHDocVw
+{$ELSE}
+       SHDocVw_TLB
+{$IFEND}
+;
 
 type
        TPreviewBrowser = class(TWebBrowser)