[GExperts-CVS] gexperts/unstable/Src GX_CondDefine.inc, 1.43, 1.44 GX_GetIdeVersion.pas, 1.37, 1.38 GX_VerDepConst.pas, 1.30, 1.31

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv31779/Src

Modified Files:
	GX_CondDefine.inc GX_GetIdeVersion.pas GX_VerDepConst.pas 
Log Message:
Projected BDS 2007 support, untested

Index: GX_GetIdeVersion.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GetIdeVersion.pas,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- GX_GetIdeVersion.pas	17 Apr 2006 06:10:26 -0000	1.37
+++ GX_GetIdeVersion.pas	14 Jul 2006 01:31:14 -0000	1.38
@@ -12,6 +12,7 @@
      ideD800, ideD801, ideD802,
      ideD900, ideD901, ideD902, ideD903,
      ideBDS2006,
+     ideBDS2007,
      ideCSB100,
      ideBCB600, ideBCB601, ideBCB602, ideBCB604,
      ideKylix100,
@@ -377,6 +378,22 @@
   end;
 end;
 
+function GetBDS2007Version: TBorlandIdeVersion;
+const
+  CoreIde1100: TVersionNumber =
+    (Minor: 0; Major: 0; Build: 0; Release: 0);
+var
+  CoreIdeFileVersion: TVersionNumber;
+  VersionNumber: Integer;
+begin
+  Result := ideBDS2007;
+  CoreIdeFileVersion := GetFileVersionNumber(GetIdeRootDirectory + 'Bin\coreide110.bpl');
+  VersionNumber := CompareVersionNumber(CoreIdeFileVersion, CoreIde1100);
+  if VersionNumber > 0 then begin
+    //Result := ideD1101;
+  end;
+end;
+
 function GetBorlandIdeVersion: TBorlandIdeVersion;
 begin
   // We only actually detect the version once per session.
@@ -433,6 +450,11 @@
     Assert(Result in [ideBDS2006]);
   {$ENDIF VER180}
 
+  {$IFDEF VER190}  // BDS 2007
+    Result := GetBDS2007Version;
+    Assert(Result in [ideBDS2007]);
+  {$ENDIF VER190}
+
   if Result = ideUnknown then
     MessageDlg('Unknown IDE major version detected.  Please update GX_GetIdeVersion.pas.', mtError, [mbOK], 0);
 

Index: GX_CondDefine.inc
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- GX_CondDefine.inc	22 Jan 2006 22:54:38 -0000	1.43
+++ GX_CondDefine.inc	14 Jul 2006 01:31:14 -0000	1.44
@@ -52,6 +52,9 @@
           {$DEFINE GX_VER170_up}  // Delphi 9/2005
           {$IF CompilerVersion >= 18}
             {$DEFINE GX_VER180_up}  // BDS 2006
+            {$IF CompilerVersion >= 19}
+              {$DEFINE GX_VER190_up}  // BDS 2007
+            {$IFEND}
           {$IFEND}
         {$IFEND}
       {$IFEND}

Index: GX_VerDepConst.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- GX_VerDepConst.pas	24 Oct 2005 06:20:27 -0000	1.30
+++ GX_VerDepConst.pas	14 Jul 2006 01:31:14 -0000	1.31
@@ -58,6 +58,11 @@
     {$DEFINE GExpertsDllNameDefined}
   {$ENDIF VER180}
 
+  {$IFDEF VER190}
+    GExpertsDll = 'GExpertsBDS2007.dll';
+    {$DEFINE GExpertsDllNameDefined}
+  {$ENDIF VER190}
+
   {$IFNDEF GExpertsDllNameDefined}
     GExpertsDllNameDefined not defined
   {$ENDIF GExpertsDllNameDefined}
@@ -117,6 +122,11 @@
     {$DEFINE TTabDockHostFormClassContainerDefined}
   {$ENDIF VER180}
 
+  {$IFDEF VER190}
+    TTabDockHostFormClassContainer = 'designide110.bpl';
+    {$DEFINE TTabDockHostFormClassContainerDefined}
+  {$ENDIF VER190}
+
   {$IFNDEF TTabDockHostFormClassContainerDefined}
     TTabDockHostFormClassContainer not defined
   {$ENDIF TTabDockHostFormClassContainerDefined}
@@ -185,6 +195,11 @@
     {$DEFINE MajorVersionNumber}
   {$ENDIF VER180}
 
+  {$IFDEF VER190}
+    MajorVersionNumberChar = '11';  // BDS 2007
+    {$DEFINE MajorVersionNumber}
+  {$ENDIF VER190}
+
   {$IFNDEF MajorVersionNumber}
     MajorVersionNumberChar has not been defined
   {$ENDIF MajorVersionNumber}
@@ -247,6 +262,12 @@
     {$DEFINE IdeBaseKey}
   {$ENDIF VER180}
 
+  {$IFDEF VER190}
+    // BDS 2007
+    CompilerDefinedProductRegistryKey = 'BDS\5.0';
+    {$DEFINE IdeBaseKey}
+  {$ENDIF VER190}
+
   {$IFNDEF IdeBaseKey}
     CompilerDefinedProductRegistryKey not defined
   {$ENDIF IdeBaseKey}
@@ -293,6 +314,11 @@
     {$DEFINE ClassBrowserStorageDefined}
   {$ENDIF VER180}
 
+  {$IFDEF VER190}
+    ClassBrowserStorageFolder = 'Classes.BDS2007';
+    {$DEFINE ClassBrowserStorageDefined}
+  {$ENDIF VER190}
+
   {$IFNDEF ClassBrowserStorageDefined}
     Storage folder for class browser not defined
   {$ENDIF ClassBrowserStorageDefined}