You can subscribe to this list here.
2001 |
Jan
|
Feb
(32) |
Mar
(98) |
Apr
(26) |
May
(33) |
Jun
(50) |
Jul
(82) |
Aug
(197) |
Sep
(187) |
Oct
(186) |
Nov
(99) |
Dec
(70) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2002 |
Jan
(31) |
Feb
(32) |
Mar
(16) |
Apr
(7) |
May
(10) |
Jun
(6) |
Jul
(11) |
Aug
(39) |
Sep
(24) |
Oct
(54) |
Nov
(13) |
Dec
(135) |
2003 |
Jan
(22) |
Feb
(9) |
Mar
(29) |
Apr
(4) |
May
(40) |
Jun
(52) |
Jul
(8) |
Aug
(33) |
Sep
(111) |
Oct
(25) |
Nov
(40) |
Dec
(47) |
2004 |
Jan
(19) |
Feb
(87) |
Mar
(105) |
Apr
(30) |
May
(40) |
Jun
(11) |
Jul
(88) |
Aug
(23) |
Sep
(16) |
Oct
(16) |
Nov
(13) |
Dec
(13) |
2005 |
Jan
(42) |
Feb
(3) |
Mar
(55) |
Apr
(46) |
May
(74) |
Jun
(23) |
Jul
(10) |
Aug
(69) |
Sep
(15) |
Oct
(49) |
Nov
(148) |
Dec
(168) |
2006 |
Jan
(64) |
Feb
(14) |
Mar
(26) |
Apr
(25) |
May
(26) |
Jun
(9) |
Jul
(21) |
Aug
(5) |
Sep
(11) |
Oct
(25) |
Nov
(8) |
Dec
|
2007 |
Jan
(5) |
Feb
(4) |
Mar
(50) |
Apr
(22) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Erik B. <eb...@us...> - 2007-03-18 17:46:41
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv14105 Modified Files: GExperts.iss GExpertsBDS2006.dpr GExpertsD6.dpr GExpertsD7.dpr GExpertsD8.dpr GExpertsD9.dpr GExpertsKylix3.dpr License.txt PreInstall.txt Readme.txt Log Message: Minor Delphi 2007 changes 2007 date update Index: GExpertsD6.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD6.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD6.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD6.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD7.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD7.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD7.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD7.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD9.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD9.dpr,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- GExpertsD9.dpr 16 Apr 2006 19:21:06 -0000 1.15 +++ GExpertsD9.dpr 17 Mar 2007 07:24:06 -0000 1.16 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsBDS2006.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsBDS2006.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GExpertsBDS2006.dpr 16 Apr 2006 19:21:06 -0000 1.2 +++ GExpertsBDS2006.dpr 17 Mar 2007 07:24:06 -0000 1.3 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: PreInstall.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/PreInstall.txt,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- PreInstall.txt 24 Oct 2005 06:20:40 -0000 1.17 +++ PreInstall.txt 17 Mar 2007 07:24:06 -0000 1.18 @@ -1,3 +1,3 @@ Please backup and uninstall any earlier versions of GExperts before installing this version (you will not lose your saved preferences from any compatible version). You can uninstall GExperts from the Control Panel's "Add/Remove Programs" applet. - NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005, BDS 2006, and C++Builder 6.03. + NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005/2007, BDS 2006, and C++Builder 6.03. Index: GExpertsD8.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD8.dpr,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GExpertsD8.dpr 16 Apr 2006 19:21:06 -0000 1.18 +++ GExpertsD8.dpr 17 Mar 2007 07:24:06 -0000 1.19 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsKylix3.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsKylix3.dpr,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- GExpertsKylix3.dpr 16 Apr 2006 19:21:06 -0000 1.11 +++ GExpertsKylix3.dpr 17 Mar 2007 07:24:06 -0000 1.12 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: License.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/License.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- License.txt 16 Apr 2006 19:21:06 -0000 1.7 +++ License.txt 17 Mar 2007 07:24:06 -0000 1.8 @@ -1,6 +1,6 @@ GExperts License Agreement - GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. + GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. The rules governing the use of GExperts and the GExperts source code are derived from the official Open Source Definition, available at http://www.opensource.org. The conditions and limitations are as follows: Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.107 retrieving revision 1.108 diff -u -d -r1.107 -r1.108 --- Readme.txt 26 Oct 2006 01:21:02 -0000 1.107 +++ Readme.txt 17 Mar 2007 07:24:06 -0000 1.108 @@ -1,4 +1,4 @@ -GExperts 1.30 +GExperts 1.31 Open Source Programming Tools for Delphi and C++Builder Source code, the FAQ, and the latest news are available at: @@ -105,6 +105,11 @@ CHANGE LOG ---------------------- +VERSION 1.31 (March, 2007?) +- General: Added support for Delphi 2007 + Fixed a possible shutdown exception when unloading GExperts + + VERSION 1.30 (October 26, 2006) - General: Added support for Delphi 2006. Better syntax highlighting support for C#, HTML, and XML (Erik). Better ClearType support in Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GExperts.iss 16 Oct 2006 06:53:10 -0000 1.19 +++ GExperts.iss 17 Mar 2007 07:24:05 -0000 1.20 @@ -8,7 +8,7 @@ #endif #else ; IDE compiler - #define BDS2007 + #define Delphi2007 #define Version "1.30" #endif @@ -55,13 +55,21 @@ #define IDERegName "BDS" #define IDERegVer "4" #endif +#ifdef Delphi2007 + #define IDEShortName "Delphi" + #define IDELongName "Delphi" + #define IDEVer "2007" + #define DLLSuffix "Delphi2007" + #define IDERegName "BDS" + #define IDERegVer "5" +#endif #ifdef BDS2007 #define IDEShortName "BDS" #define IDELongName "BDS" #define IDEVer "2007" #define DLLSuffix "BDS2007" #define IDERegName "BDS" - #define IDERegVer "5" + #define IDERegVer "6" #endif #ifdef BCB6 #define BCB |
From: Erik B. <eb...@us...> - 2007-03-18 17:42:36
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv26620/Src Modified Files: GX_CleanDirectories.pas GX_CondDefine.inc GX_GetIdeVersion.pas GX_VerDepConst.pas Log Message: Minor Delphi 2007 changes Index: GX_CleanDirectories.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CleanDirectories.pas,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- GX_CleanDirectories.pas 21 Jan 2006 21:05:58 -0000 1.40 +++ GX_CleanDirectories.pas 17 Mar 2007 07:55:39 -0000 1.41 @@ -411,7 +411,7 @@ '.tds' + sLineBreak + '.tmp' + sLineBreak + '.$*' + sLineBreak + '.~*' + sLineBreak + '.#??' + sLineBreak + '.ddp' + sLineBreak + '.rsm' + sLineBreak + '.map' + sLineBreak + '.pdb' + sLineBreak + '.gex' + sLineBreak +'.~xfm' + sLineBreak + '.~nfm'+ sLineBreak + - '.~bdsproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + + '.~bdsproj'+ sLineBreak + '.~dproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + '.dcuil' + sLineBreak + '.dcpil'; var i, j: Integer; Index: GX_GetIdeVersion.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GetIdeVersion.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- GX_GetIdeVersion.pas 14 Jul 2006 01:31:14 -0000 1.38 +++ GX_GetIdeVersion.pas 17 Mar 2007 07:55:39 -0000 1.39 @@ -12,6 +12,7 @@ ideD800, ideD801, ideD802, ideD900, ideD901, ideD902, ideD903, ideBDS2006, + ideDelphi2007, ideBDS2007, ideCSB100, ideBCB600, ideBCB601, ideBCB602, ideBCB604, @@ -378,6 +379,22 @@ end; end; +function GetDelphi2007Version: TBorlandIdeVersion; +const + CoreIde1000: TVersionNumber = + (Minor: 0; Major: 0; Build: 0; Release: 0); +var + CoreIdeFileVersion: TVersionNumber; + VersionNumber: Integer; +begin + Result := ideDelphi2007; + CoreIdeFileVersion := GetFileVersionNumber(GetIdeRootDirectory + 'Bin\coreide100.bpl'); + VersionNumber := CompareVersionNumber(CoreIdeFileVersion, CoreIde1000); + if VersionNumber > 0 then begin + //Result := ideD1001; + end; +end; + function GetBDS2007Version: TBorlandIdeVersion; const CoreIde1100: TVersionNumber = @@ -445,9 +462,14 @@ Assert(Result in [ideD900, ideD901, ideD902, ideD903]); {$ENDIF VER170} - {$IFDEF VER180} // BDS 2006 - Result := GetBDS2006Version; - Assert(Result in [ideBDS2006]); + {$IFDEF VER180} + {$IFNDEF VER185} // BDS 2006 + Result := GetBDS2006Version; + Assert(Result in [ideBDS2006]); + {$ELSE} // Delphi 2007 + Result := GetDelphi2007Version; + Assert(Result in [ideDelphi2007]); + {$ENDIF} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 Index: GX_CondDefine.inc =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- GX_CondDefine.inc 14 Jul 2006 01:31:14 -0000 1.44 +++ GX_CondDefine.inc 17 Mar 2007 07:55:39 -0000 1.45 @@ -52,6 +52,9 @@ {$DEFINE GX_VER170_up} // Delphi 9/2005 {$IF CompilerVersion >= 18} {$DEFINE GX_VER180_up} // BDS 2006 + {$IFDEF VER185} + {$DEFINE GX_VER185_up} // Delphi 2007 + {$ENDIF} {$IF CompilerVersion >= 19} {$DEFINE GX_VER190_up} // BDS 2007 {$IFEND} Index: GX_VerDepConst.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- GX_VerDepConst.pas 14 Jul 2006 01:31:14 -0000 1.31 +++ GX_VerDepConst.pas 17 Mar 2007 07:55:39 -0000 1.32 @@ -54,7 +54,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + GExpertsDll = 'GExpertsDelphi2007.dll'; + {$ELSE} GExpertsDll = 'GExpertsBDS2006.dll'; + {$ENDIF} {$DEFINE GExpertsDllNameDefined} {$ENDIF VER180} @@ -117,7 +121,7 @@ {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER170} - {$IFDEF VER180} + {$IFDEF VER180} // BDS 2006 and Delphi 2007 TTabDockHostFormClassContainer = 'designide100.bpl'; {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER180} @@ -191,12 +195,16 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} MajorVersionNumberChar = '10'; // BDS 2006 + {$ELSE} + MajorVersionNumberChar = '11'; // Delphi 2007 + {$ENDIF} {$DEFINE MajorVersionNumber} {$ENDIF VER180} {$IFDEF VER190} - MajorVersionNumberChar = '11'; // BDS 2007 + MajorVersionNumberChar = '12'; // BDS 2007 {$DEFINE MajorVersionNumber} {$ENDIF VER190} @@ -255,16 +263,19 @@ CompilerDefinedProductRegistryKey = 'BDS\3.0'; {$DEFINE IdeBaseKey} {$ENDIF VER170} - + {$IFDEF VER180} - // BDS 2006 - CompilerDefinedProductRegistryKey = 'BDS\4.0'; + {$IFDEF VER185} + CompilerDefinedProductRegistryKey = 'BDS\5.0'; // Delphi 2007 + {$ELSE} + CompilerDefinedProductRegistryKey = 'BDS\4.0'; // BDS 2006 + {$ENDIF} {$DEFINE IdeBaseKey} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 - CompilerDefinedProductRegistryKey = 'BDS\5.0'; + CompilerDefinedProductRegistryKey = 'BDS\6.0'; {$DEFINE IdeBaseKey} {$ENDIF VER190} @@ -310,7 +321,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + ClassBrowserStorageFolder = 'Classes.Delphi2007'; + {$ELSE} ClassBrowserStorageFolder = 'Classes.BDS2006'; + {$ENDIF} {$DEFINE ClassBrowserStorageDefined} {$ENDIF VER180} |
From: Erik B. <eb...@us...> - 2007-03-18 17:40:46
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15248/Src/Utils Modified Files: GX_GenericUtils.pas GX_OtaUtils.pas Log Message: Minor Delphi 2007 changes Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.198 retrieving revision 1.199 diff -u -d -r1.198 -r1.199 --- GX_OtaUtils.pas 26 Feb 2007 06:20:13 -0000 1.198 +++ GX_OtaUtils.pas 17 Mar 2007 07:26:30 -0000 1.199 @@ -292,7 +292,7 @@ // Returns file name of the project; returns // an empty string if there is no (active) project. -// Use NormalizeBdsProj to get the dpr instead of the bdsproj for Delphi projects +// Use NormalizeBdsProj to get the dpr instead of the bdsproj/dproj for Delphi projects function GxOtaGetProjectFileName(Project: IOTAProject; NormalizeBdsProj: Boolean = False): string; function GxOtaGetCurrentProjectFileName(NormalizeBdsProj: Boolean = False): string; @@ -1060,7 +1060,7 @@ Result := ''; if Assigned(Project) then begin Result := Project.FileName; - if NormalizeBdsProj and IsBdsproj(Result) then begin + if NormalizeBdsProj and IsBdsprojOrDproj(Result) then begin if GxOtaProjectIsEitherDelphi(Project) then begin Result := ChangeFileExt(Result, '.dpr'); if (not FileExists(Result)) and FileExists(ChangeFileExt(Result, '.dpk')) then @@ -2417,7 +2417,7 @@ shSQL: Result := gxpSQL; else begin Ext := ExtractUpperFileExt(FileName); - if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ']) then + if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ', 'DPROJ']) then Result := gxpXML else if StringInArray(Ext, ['HTM', 'HTML', 'ASP']) then Result := gxpHTML @@ -3649,7 +3649,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); @@ -3766,7 +3766,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); Index: GX_GenericUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GenericUtils.pas,v retrieving revision 1.152 retrieving revision 1.153 diff -u -d -r1.152 -r1.153 --- GX_GenericUtils.pas 26 Feb 2007 06:18:49 -0000 1.152 +++ GX_GenericUtils.pas 17 Mar 2007 07:26:30 -0000 1.153 @@ -265,7 +265,8 @@ // Sets the ParentBackground property, if supported by the current VCL version // This needs to be false for colored TPanels that can appear in a themed app -procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); +procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); overload; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); overload; // Determine if the passed in class inherits from ClassName without // linking in the units that contain ClassName @@ -319,6 +320,8 @@ function IsDcp(const FileName: string): Boolean; function IsBdsgroup(const FileName: string): Boolean; function IsBdsproj(const FileName: string): Boolean; +function IsDproj(const FileName: string): Boolean; +function IsBdsprojOrDproj(const FileName: string): Boolean; function IsPackage(const FileName: string): Boolean; function IsDelphiPackage(const FileName: string): Boolean; function IsCsproj(const FileName: string): Boolean; @@ -1800,10 +1803,19 @@ procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); begin {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(Panel)); Panel.ParentBackground := Value; {$ENDIF} end; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); +begin + {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(GroupBox)); + GroupBox.ParentBackground := Value; + {$ENDIF} +end; + function InheritsFromClass(ClassType: TClass; const ClassName: string): Boolean; begin Result := True; @@ -2078,6 +2090,7 @@ or IsBpr(FileName) or IsBdsgroup(FileName) or IsBdsproj(FileName) + or IsDproj(FileName) or IsPackage(FileName) or IsCsproj(FileName); end; @@ -2163,6 +2176,16 @@ Result := FileMatchesExtension(FileName, '.bdsproj'); end; +function IsDproj(const FileName: string): Boolean; +begin + Result := FileMatchesExtension(FileName, '.dproj'); +end; + +function IsBdsprojOrDproj(const FileName: string): Boolean; +begin + Result := IsBdsproj(FileName) or IsDproj(FileName); +end; + function IsPackage(const FileName: string): Boolean; begin Result := FileMatchesExtensions(FileName, ['.dpk', '.dpkw', '.bpk']); |
From: Erik B. <eb...@us...> - 2007-03-18 17:04:18
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv14105 Modified Files: GExperts.iss GExpertsBDS2006.dpr GExpertsD6.dpr GExpertsD7.dpr GExpertsD8.dpr GExpertsD9.dpr GExpertsKylix3.dpr License.txt PreInstall.txt Readme.txt Log Message: Minor Delphi 2007 changes 2007 date update Index: GExpertsD6.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD6.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD6.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD6.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD7.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD7.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD7.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD7.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD9.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD9.dpr,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- GExpertsD9.dpr 16 Apr 2006 19:21:06 -0000 1.15 +++ GExpertsD9.dpr 17 Mar 2007 07:24:06 -0000 1.16 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsBDS2006.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsBDS2006.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GExpertsBDS2006.dpr 16 Apr 2006 19:21:06 -0000 1.2 +++ GExpertsBDS2006.dpr 17 Mar 2007 07:24:06 -0000 1.3 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: PreInstall.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/PreInstall.txt,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- PreInstall.txt 24 Oct 2005 06:20:40 -0000 1.17 +++ PreInstall.txt 17 Mar 2007 07:24:06 -0000 1.18 @@ -1,3 +1,3 @@ Please backup and uninstall any earlier versions of GExperts before installing this version (you will not lose your saved preferences from any compatible version). You can uninstall GExperts from the Control Panel's "Add/Remove Programs" applet. - NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005, BDS 2006, and C++Builder 6.03. + NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005/2007, BDS 2006, and C++Builder 6.03. Index: GExpertsD8.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD8.dpr,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GExpertsD8.dpr 16 Apr 2006 19:21:06 -0000 1.18 +++ GExpertsD8.dpr 17 Mar 2007 07:24:06 -0000 1.19 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsKylix3.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsKylix3.dpr,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- GExpertsKylix3.dpr 16 Apr 2006 19:21:06 -0000 1.11 +++ GExpertsKylix3.dpr 17 Mar 2007 07:24:06 -0000 1.12 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: License.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/License.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- License.txt 16 Apr 2006 19:21:06 -0000 1.7 +++ License.txt 17 Mar 2007 07:24:06 -0000 1.8 @@ -1,6 +1,6 @@ GExperts License Agreement - GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. + GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. The rules governing the use of GExperts and the GExperts source code are derived from the official Open Source Definition, available at http://www.opensource.org. The conditions and limitations are as follows: Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.107 retrieving revision 1.108 diff -u -d -r1.107 -r1.108 --- Readme.txt 26 Oct 2006 01:21:02 -0000 1.107 +++ Readme.txt 17 Mar 2007 07:24:06 -0000 1.108 @@ -1,4 +1,4 @@ -GExperts 1.30 +GExperts 1.31 Open Source Programming Tools for Delphi and C++Builder Source code, the FAQ, and the latest news are available at: @@ -105,6 +105,11 @@ CHANGE LOG ---------------------- +VERSION 1.31 (March, 2007?) +- General: Added support for Delphi 2007 + Fixed a possible shutdown exception when unloading GExperts + + VERSION 1.30 (October 26, 2006) - General: Added support for Delphi 2006. Better syntax highlighting support for C#, HTML, and XML (Erik). Better ClearType support in Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GExperts.iss 16 Oct 2006 06:53:10 -0000 1.19 +++ GExperts.iss 17 Mar 2007 07:24:05 -0000 1.20 @@ -8,7 +8,7 @@ #endif #else ; IDE compiler - #define BDS2007 + #define Delphi2007 #define Version "1.30" #endif @@ -55,13 +55,21 @@ #define IDERegName "BDS" #define IDERegVer "4" #endif +#ifdef Delphi2007 + #define IDEShortName "Delphi" + #define IDELongName "Delphi" + #define IDEVer "2007" + #define DLLSuffix "Delphi2007" + #define IDERegName "BDS" + #define IDERegVer "5" +#endif #ifdef BDS2007 #define IDEShortName "BDS" #define IDELongName "BDS" #define IDEVer "2007" #define DLLSuffix "BDS2007" #define IDERegName "BDS" - #define IDERegVer "5" + #define IDERegVer "6" #endif #ifdef BCB6 #define BCB |
From: Erik B. <eb...@us...> - 2007-03-18 17:04:03
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv26620/Src Modified Files: GX_CleanDirectories.pas GX_CondDefine.inc GX_GetIdeVersion.pas GX_VerDepConst.pas Log Message: Minor Delphi 2007 changes Index: GX_CleanDirectories.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CleanDirectories.pas,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- GX_CleanDirectories.pas 21 Jan 2006 21:05:58 -0000 1.40 +++ GX_CleanDirectories.pas 17 Mar 2007 07:55:39 -0000 1.41 @@ -411,7 +411,7 @@ '.tds' + sLineBreak + '.tmp' + sLineBreak + '.$*' + sLineBreak + '.~*' + sLineBreak + '.#??' + sLineBreak + '.ddp' + sLineBreak + '.rsm' + sLineBreak + '.map' + sLineBreak + '.pdb' + sLineBreak + '.gex' + sLineBreak +'.~xfm' + sLineBreak + '.~nfm'+ sLineBreak + - '.~bdsproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + + '.~bdsproj'+ sLineBreak + '.~dproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + '.dcuil' + sLineBreak + '.dcpil'; var i, j: Integer; Index: GX_GetIdeVersion.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GetIdeVersion.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- GX_GetIdeVersion.pas 14 Jul 2006 01:31:14 -0000 1.38 +++ GX_GetIdeVersion.pas 17 Mar 2007 07:55:39 -0000 1.39 @@ -12,6 +12,7 @@ ideD800, ideD801, ideD802, ideD900, ideD901, ideD902, ideD903, ideBDS2006, + ideDelphi2007, ideBDS2007, ideCSB100, ideBCB600, ideBCB601, ideBCB602, ideBCB604, @@ -378,6 +379,22 @@ end; end; +function GetDelphi2007Version: TBorlandIdeVersion; +const + CoreIde1000: TVersionNumber = + (Minor: 0; Major: 0; Build: 0; Release: 0); +var + CoreIdeFileVersion: TVersionNumber; + VersionNumber: Integer; +begin + Result := ideDelphi2007; + CoreIdeFileVersion := GetFileVersionNumber(GetIdeRootDirectory + 'Bin\coreide100.bpl'); + VersionNumber := CompareVersionNumber(CoreIdeFileVersion, CoreIde1000); + if VersionNumber > 0 then begin + //Result := ideD1001; + end; +end; + function GetBDS2007Version: TBorlandIdeVersion; const CoreIde1100: TVersionNumber = @@ -445,9 +462,14 @@ Assert(Result in [ideD900, ideD901, ideD902, ideD903]); {$ENDIF VER170} - {$IFDEF VER180} // BDS 2006 - Result := GetBDS2006Version; - Assert(Result in [ideBDS2006]); + {$IFDEF VER180} + {$IFNDEF VER185} // BDS 2006 + Result := GetBDS2006Version; + Assert(Result in [ideBDS2006]); + {$ELSE} // Delphi 2007 + Result := GetDelphi2007Version; + Assert(Result in [ideDelphi2007]); + {$ENDIF} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 Index: GX_CondDefine.inc =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- GX_CondDefine.inc 14 Jul 2006 01:31:14 -0000 1.44 +++ GX_CondDefine.inc 17 Mar 2007 07:55:39 -0000 1.45 @@ -52,6 +52,9 @@ {$DEFINE GX_VER170_up} // Delphi 9/2005 {$IF CompilerVersion >= 18} {$DEFINE GX_VER180_up} // BDS 2006 + {$IFDEF VER185} + {$DEFINE GX_VER185_up} // Delphi 2007 + {$ENDIF} {$IF CompilerVersion >= 19} {$DEFINE GX_VER190_up} // BDS 2007 {$IFEND} Index: GX_VerDepConst.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- GX_VerDepConst.pas 14 Jul 2006 01:31:14 -0000 1.31 +++ GX_VerDepConst.pas 17 Mar 2007 07:55:39 -0000 1.32 @@ -54,7 +54,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + GExpertsDll = 'GExpertsDelphi2007.dll'; + {$ELSE} GExpertsDll = 'GExpertsBDS2006.dll'; + {$ENDIF} {$DEFINE GExpertsDllNameDefined} {$ENDIF VER180} @@ -117,7 +121,7 @@ {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER170} - {$IFDEF VER180} + {$IFDEF VER180} // BDS 2006 and Delphi 2007 TTabDockHostFormClassContainer = 'designide100.bpl'; {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER180} @@ -191,12 +195,16 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} MajorVersionNumberChar = '10'; // BDS 2006 + {$ELSE} + MajorVersionNumberChar = '11'; // Delphi 2007 + {$ENDIF} {$DEFINE MajorVersionNumber} {$ENDIF VER180} {$IFDEF VER190} - MajorVersionNumberChar = '11'; // BDS 2007 + MajorVersionNumberChar = '12'; // BDS 2007 {$DEFINE MajorVersionNumber} {$ENDIF VER190} @@ -255,16 +263,19 @@ CompilerDefinedProductRegistryKey = 'BDS\3.0'; {$DEFINE IdeBaseKey} {$ENDIF VER170} - + {$IFDEF VER180} - // BDS 2006 - CompilerDefinedProductRegistryKey = 'BDS\4.0'; + {$IFDEF VER185} + CompilerDefinedProductRegistryKey = 'BDS\5.0'; // Delphi 2007 + {$ELSE} + CompilerDefinedProductRegistryKey = 'BDS\4.0'; // BDS 2006 + {$ENDIF} {$DEFINE IdeBaseKey} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 - CompilerDefinedProductRegistryKey = 'BDS\5.0'; + CompilerDefinedProductRegistryKey = 'BDS\6.0'; {$DEFINE IdeBaseKey} {$ENDIF VER190} @@ -310,7 +321,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + ClassBrowserStorageFolder = 'Classes.Delphi2007'; + {$ELSE} ClassBrowserStorageFolder = 'Classes.BDS2006'; + {$ENDIF} {$DEFINE ClassBrowserStorageDefined} {$ENDIF VER180} |
From: Erik B. <eb...@us...> - 2007-03-18 17:02:48
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15248/Src/Utils Modified Files: GX_GenericUtils.pas GX_OtaUtils.pas Log Message: Minor Delphi 2007 changes Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.198 retrieving revision 1.199 diff -u -d -r1.198 -r1.199 --- GX_OtaUtils.pas 26 Feb 2007 06:20:13 -0000 1.198 +++ GX_OtaUtils.pas 17 Mar 2007 07:26:30 -0000 1.199 @@ -292,7 +292,7 @@ // Returns file name of the project; returns // an empty string if there is no (active) project. -// Use NormalizeBdsProj to get the dpr instead of the bdsproj for Delphi projects +// Use NormalizeBdsProj to get the dpr instead of the bdsproj/dproj for Delphi projects function GxOtaGetProjectFileName(Project: IOTAProject; NormalizeBdsProj: Boolean = False): string; function GxOtaGetCurrentProjectFileName(NormalizeBdsProj: Boolean = False): string; @@ -1060,7 +1060,7 @@ Result := ''; if Assigned(Project) then begin Result := Project.FileName; - if NormalizeBdsProj and IsBdsproj(Result) then begin + if NormalizeBdsProj and IsBdsprojOrDproj(Result) then begin if GxOtaProjectIsEitherDelphi(Project) then begin Result := ChangeFileExt(Result, '.dpr'); if (not FileExists(Result)) and FileExists(ChangeFileExt(Result, '.dpk')) then @@ -2417,7 +2417,7 @@ shSQL: Result := gxpSQL; else begin Ext := ExtractUpperFileExt(FileName); - if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ']) then + if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ', 'DPROJ']) then Result := gxpXML else if StringInArray(Ext, ['HTM', 'HTML', 'ASP']) then Result := gxpHTML @@ -3649,7 +3649,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); @@ -3766,7 +3766,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); Index: GX_GenericUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GenericUtils.pas,v retrieving revision 1.152 retrieving revision 1.153 diff -u -d -r1.152 -r1.153 --- GX_GenericUtils.pas 26 Feb 2007 06:18:49 -0000 1.152 +++ GX_GenericUtils.pas 17 Mar 2007 07:26:30 -0000 1.153 @@ -265,7 +265,8 @@ // Sets the ParentBackground property, if supported by the current VCL version // This needs to be false for colored TPanels that can appear in a themed app -procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); +procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); overload; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); overload; // Determine if the passed in class inherits from ClassName without // linking in the units that contain ClassName @@ -319,6 +320,8 @@ function IsDcp(const FileName: string): Boolean; function IsBdsgroup(const FileName: string): Boolean; function IsBdsproj(const FileName: string): Boolean; +function IsDproj(const FileName: string): Boolean; +function IsBdsprojOrDproj(const FileName: string): Boolean; function IsPackage(const FileName: string): Boolean; function IsDelphiPackage(const FileName: string): Boolean; function IsCsproj(const FileName: string): Boolean; @@ -1800,10 +1803,19 @@ procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); begin {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(Panel)); Panel.ParentBackground := Value; {$ENDIF} end; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); +begin + {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(GroupBox)); + GroupBox.ParentBackground := Value; + {$ENDIF} +end; + function InheritsFromClass(ClassType: TClass; const ClassName: string): Boolean; begin Result := True; @@ -2078,6 +2090,7 @@ or IsBpr(FileName) or IsBdsgroup(FileName) or IsBdsproj(FileName) + or IsDproj(FileName) or IsPackage(FileName) or IsCsproj(FileName); end; @@ -2163,6 +2176,16 @@ Result := FileMatchesExtension(FileName, '.bdsproj'); end; +function IsDproj(const FileName: string): Boolean; +begin + Result := FileMatchesExtension(FileName, '.dproj'); +end; + +function IsBdsprojOrDproj(const FileName: string): Boolean; +begin + Result := IsBdsproj(FileName) or IsDproj(FileName); +end; + function IsPackage(const FileName: string): Boolean; begin Result := FileMatchesExtensions(FileName, ['.dpk', '.dpkw', '.bpk']); |
From: Erik B. <eb...@us...> - 2007-03-18 16:14:37
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv14105 Modified Files: GExperts.iss GExpertsBDS2006.dpr GExpertsD6.dpr GExpertsD7.dpr GExpertsD8.dpr GExpertsD9.dpr GExpertsKylix3.dpr License.txt PreInstall.txt Readme.txt Log Message: Minor Delphi 2007 changes 2007 date update Index: GExpertsD6.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD6.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD6.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD6.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD7.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD7.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD7.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD7.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD9.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD9.dpr,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- GExpertsD9.dpr 16 Apr 2006 19:21:06 -0000 1.15 +++ GExpertsD9.dpr 17 Mar 2007 07:24:06 -0000 1.16 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsBDS2006.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsBDS2006.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GExpertsBDS2006.dpr 16 Apr 2006 19:21:06 -0000 1.2 +++ GExpertsBDS2006.dpr 17 Mar 2007 07:24:06 -0000 1.3 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: PreInstall.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/PreInstall.txt,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- PreInstall.txt 24 Oct 2005 06:20:40 -0000 1.17 +++ PreInstall.txt 17 Mar 2007 07:24:06 -0000 1.18 @@ -1,3 +1,3 @@ Please backup and uninstall any earlier versions of GExperts before installing this version (you will not lose your saved preferences from any compatible version). You can uninstall GExperts from the Control Panel's "Add/Remove Programs" applet. - NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005, BDS 2006, and C++Builder 6.03. + NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005/2007, BDS 2006, and C++Builder 6.03. Index: GExpertsD8.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD8.dpr,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GExpertsD8.dpr 16 Apr 2006 19:21:06 -0000 1.18 +++ GExpertsD8.dpr 17 Mar 2007 07:24:06 -0000 1.19 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsKylix3.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsKylix3.dpr,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- GExpertsKylix3.dpr 16 Apr 2006 19:21:06 -0000 1.11 +++ GExpertsKylix3.dpr 17 Mar 2007 07:24:06 -0000 1.12 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: License.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/License.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- License.txt 16 Apr 2006 19:21:06 -0000 1.7 +++ License.txt 17 Mar 2007 07:24:06 -0000 1.8 @@ -1,6 +1,6 @@ GExperts License Agreement - GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. + GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. The rules governing the use of GExperts and the GExperts source code are derived from the official Open Source Definition, available at http://www.opensource.org. The conditions and limitations are as follows: Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.107 retrieving revision 1.108 diff -u -d -r1.107 -r1.108 --- Readme.txt 26 Oct 2006 01:21:02 -0000 1.107 +++ Readme.txt 17 Mar 2007 07:24:06 -0000 1.108 @@ -1,4 +1,4 @@ -GExperts 1.30 +GExperts 1.31 Open Source Programming Tools for Delphi and C++Builder Source code, the FAQ, and the latest news are available at: @@ -105,6 +105,11 @@ CHANGE LOG ---------------------- +VERSION 1.31 (March, 2007?) +- General: Added support for Delphi 2007 + Fixed a possible shutdown exception when unloading GExperts + + VERSION 1.30 (October 26, 2006) - General: Added support for Delphi 2006. Better syntax highlighting support for C#, HTML, and XML (Erik). Better ClearType support in Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GExperts.iss 16 Oct 2006 06:53:10 -0000 1.19 +++ GExperts.iss 17 Mar 2007 07:24:05 -0000 1.20 @@ -8,7 +8,7 @@ #endif #else ; IDE compiler - #define BDS2007 + #define Delphi2007 #define Version "1.30" #endif @@ -55,13 +55,21 @@ #define IDERegName "BDS" #define IDERegVer "4" #endif +#ifdef Delphi2007 + #define IDEShortName "Delphi" + #define IDELongName "Delphi" + #define IDEVer "2007" + #define DLLSuffix "Delphi2007" + #define IDERegName "BDS" + #define IDERegVer "5" +#endif #ifdef BDS2007 #define IDEShortName "BDS" #define IDELongName "BDS" #define IDEVer "2007" #define DLLSuffix "BDS2007" #define IDERegName "BDS" - #define IDERegVer "5" + #define IDERegVer "6" #endif #ifdef BCB6 #define BCB |
From: Erik B. <eb...@us...> - 2007-03-18 16:14:22
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv26620/Src Modified Files: GX_CleanDirectories.pas GX_CondDefine.inc GX_GetIdeVersion.pas GX_VerDepConst.pas Log Message: Minor Delphi 2007 changes Index: GX_CleanDirectories.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CleanDirectories.pas,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- GX_CleanDirectories.pas 21 Jan 2006 21:05:58 -0000 1.40 +++ GX_CleanDirectories.pas 17 Mar 2007 07:55:39 -0000 1.41 @@ -411,7 +411,7 @@ '.tds' + sLineBreak + '.tmp' + sLineBreak + '.$*' + sLineBreak + '.~*' + sLineBreak + '.#??' + sLineBreak + '.ddp' + sLineBreak + '.rsm' + sLineBreak + '.map' + sLineBreak + '.pdb' + sLineBreak + '.gex' + sLineBreak +'.~xfm' + sLineBreak + '.~nfm'+ sLineBreak + - '.~bdsproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + + '.~bdsproj'+ sLineBreak + '.~dproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + '.dcuil' + sLineBreak + '.dcpil'; var i, j: Integer; Index: GX_GetIdeVersion.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GetIdeVersion.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- GX_GetIdeVersion.pas 14 Jul 2006 01:31:14 -0000 1.38 +++ GX_GetIdeVersion.pas 17 Mar 2007 07:55:39 -0000 1.39 @@ -12,6 +12,7 @@ ideD800, ideD801, ideD802, ideD900, ideD901, ideD902, ideD903, ideBDS2006, + ideDelphi2007, ideBDS2007, ideCSB100, ideBCB600, ideBCB601, ideBCB602, ideBCB604, @@ -378,6 +379,22 @@ end; end; +function GetDelphi2007Version: TBorlandIdeVersion; +const + CoreIde1000: TVersionNumber = + (Minor: 0; Major: 0; Build: 0; Release: 0); +var + CoreIdeFileVersion: TVersionNumber; + VersionNumber: Integer; +begin + Result := ideDelphi2007; + CoreIdeFileVersion := GetFileVersionNumber(GetIdeRootDirectory + 'Bin\coreide100.bpl'); + VersionNumber := CompareVersionNumber(CoreIdeFileVersion, CoreIde1000); + if VersionNumber > 0 then begin + //Result := ideD1001; + end; +end; + function GetBDS2007Version: TBorlandIdeVersion; const CoreIde1100: TVersionNumber = @@ -445,9 +462,14 @@ Assert(Result in [ideD900, ideD901, ideD902, ideD903]); {$ENDIF VER170} - {$IFDEF VER180} // BDS 2006 - Result := GetBDS2006Version; - Assert(Result in [ideBDS2006]); + {$IFDEF VER180} + {$IFNDEF VER185} // BDS 2006 + Result := GetBDS2006Version; + Assert(Result in [ideBDS2006]); + {$ELSE} // Delphi 2007 + Result := GetDelphi2007Version; + Assert(Result in [ideDelphi2007]); + {$ENDIF} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 Index: GX_CondDefine.inc =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- GX_CondDefine.inc 14 Jul 2006 01:31:14 -0000 1.44 +++ GX_CondDefine.inc 17 Mar 2007 07:55:39 -0000 1.45 @@ -52,6 +52,9 @@ {$DEFINE GX_VER170_up} // Delphi 9/2005 {$IF CompilerVersion >= 18} {$DEFINE GX_VER180_up} // BDS 2006 + {$IFDEF VER185} + {$DEFINE GX_VER185_up} // Delphi 2007 + {$ENDIF} {$IF CompilerVersion >= 19} {$DEFINE GX_VER190_up} // BDS 2007 {$IFEND} Index: GX_VerDepConst.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- GX_VerDepConst.pas 14 Jul 2006 01:31:14 -0000 1.31 +++ GX_VerDepConst.pas 17 Mar 2007 07:55:39 -0000 1.32 @@ -54,7 +54,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + GExpertsDll = 'GExpertsDelphi2007.dll'; + {$ELSE} GExpertsDll = 'GExpertsBDS2006.dll'; + {$ENDIF} {$DEFINE GExpertsDllNameDefined} {$ENDIF VER180} @@ -117,7 +121,7 @@ {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER170} - {$IFDEF VER180} + {$IFDEF VER180} // BDS 2006 and Delphi 2007 TTabDockHostFormClassContainer = 'designide100.bpl'; {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER180} @@ -191,12 +195,16 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} MajorVersionNumberChar = '10'; // BDS 2006 + {$ELSE} + MajorVersionNumberChar = '11'; // Delphi 2007 + {$ENDIF} {$DEFINE MajorVersionNumber} {$ENDIF VER180} {$IFDEF VER190} - MajorVersionNumberChar = '11'; // BDS 2007 + MajorVersionNumberChar = '12'; // BDS 2007 {$DEFINE MajorVersionNumber} {$ENDIF VER190} @@ -255,16 +263,19 @@ CompilerDefinedProductRegistryKey = 'BDS\3.0'; {$DEFINE IdeBaseKey} {$ENDIF VER170} - + {$IFDEF VER180} - // BDS 2006 - CompilerDefinedProductRegistryKey = 'BDS\4.0'; + {$IFDEF VER185} + CompilerDefinedProductRegistryKey = 'BDS\5.0'; // Delphi 2007 + {$ELSE} + CompilerDefinedProductRegistryKey = 'BDS\4.0'; // BDS 2006 + {$ENDIF} {$DEFINE IdeBaseKey} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 - CompilerDefinedProductRegistryKey = 'BDS\5.0'; + CompilerDefinedProductRegistryKey = 'BDS\6.0'; {$DEFINE IdeBaseKey} {$ENDIF VER190} @@ -310,7 +321,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + ClassBrowserStorageFolder = 'Classes.Delphi2007'; + {$ELSE} ClassBrowserStorageFolder = 'Classes.BDS2006'; + {$ENDIF} {$DEFINE ClassBrowserStorageDefined} {$ENDIF VER180} |
From: Erik B. <eb...@us...> - 2007-03-18 16:13:29
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15248/Src/Utils Modified Files: GX_GenericUtils.pas GX_OtaUtils.pas Log Message: Minor Delphi 2007 changes Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.198 retrieving revision 1.199 diff -u -d -r1.198 -r1.199 --- GX_OtaUtils.pas 26 Feb 2007 06:20:13 -0000 1.198 +++ GX_OtaUtils.pas 17 Mar 2007 07:26:30 -0000 1.199 @@ -292,7 +292,7 @@ // Returns file name of the project; returns // an empty string if there is no (active) project. -// Use NormalizeBdsProj to get the dpr instead of the bdsproj for Delphi projects +// Use NormalizeBdsProj to get the dpr instead of the bdsproj/dproj for Delphi projects function GxOtaGetProjectFileName(Project: IOTAProject; NormalizeBdsProj: Boolean = False): string; function GxOtaGetCurrentProjectFileName(NormalizeBdsProj: Boolean = False): string; @@ -1060,7 +1060,7 @@ Result := ''; if Assigned(Project) then begin Result := Project.FileName; - if NormalizeBdsProj and IsBdsproj(Result) then begin + if NormalizeBdsProj and IsBdsprojOrDproj(Result) then begin if GxOtaProjectIsEitherDelphi(Project) then begin Result := ChangeFileExt(Result, '.dpr'); if (not FileExists(Result)) and FileExists(ChangeFileExt(Result, '.dpk')) then @@ -2417,7 +2417,7 @@ shSQL: Result := gxpSQL; else begin Ext := ExtractUpperFileExt(FileName); - if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ']) then + if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ', 'DPROJ']) then Result := gxpXML else if StringInArray(Ext, ['HTM', 'HTML', 'ASP']) then Result := gxpHTML @@ -3649,7 +3649,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); @@ -3766,7 +3766,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); Index: GX_GenericUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GenericUtils.pas,v retrieving revision 1.152 retrieving revision 1.153 diff -u -d -r1.152 -r1.153 --- GX_GenericUtils.pas 26 Feb 2007 06:18:49 -0000 1.152 +++ GX_GenericUtils.pas 17 Mar 2007 07:26:30 -0000 1.153 @@ -265,7 +265,8 @@ // Sets the ParentBackground property, if supported by the current VCL version // This needs to be false for colored TPanels that can appear in a themed app -procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); +procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); overload; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); overload; // Determine if the passed in class inherits from ClassName without // linking in the units that contain ClassName @@ -319,6 +320,8 @@ function IsDcp(const FileName: string): Boolean; function IsBdsgroup(const FileName: string): Boolean; function IsBdsproj(const FileName: string): Boolean; +function IsDproj(const FileName: string): Boolean; +function IsBdsprojOrDproj(const FileName: string): Boolean; function IsPackage(const FileName: string): Boolean; function IsDelphiPackage(const FileName: string): Boolean; function IsCsproj(const FileName: string): Boolean; @@ -1800,10 +1803,19 @@ procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); begin {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(Panel)); Panel.ParentBackground := Value; {$ENDIF} end; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); +begin + {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(GroupBox)); + GroupBox.ParentBackground := Value; + {$ENDIF} +end; + function InheritsFromClass(ClassType: TClass; const ClassName: string): Boolean; begin Result := True; @@ -2078,6 +2090,7 @@ or IsBpr(FileName) or IsBdsgroup(FileName) or IsBdsproj(FileName) + or IsDproj(FileName) or IsPackage(FileName) or IsCsproj(FileName); end; @@ -2163,6 +2176,16 @@ Result := FileMatchesExtension(FileName, '.bdsproj'); end; +function IsDproj(const FileName: string): Boolean; +begin + Result := FileMatchesExtension(FileName, '.dproj'); +end; + +function IsBdsprojOrDproj(const FileName: string): Boolean; +begin + Result := IsBdsproj(FileName) or IsDproj(FileName); +end; + function IsPackage(const FileName: string): Boolean; begin Result := FileMatchesExtensions(FileName, ['.dpk', '.dpkw', '.bpk']); |
From: Erik B. <eb...@us...> - 2007-03-18 15:12:56
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv14105 Modified Files: GExperts.iss GExpertsBDS2006.dpr GExpertsD6.dpr GExpertsD7.dpr GExpertsD8.dpr GExpertsD9.dpr GExpertsKylix3.dpr License.txt PreInstall.txt Readme.txt Log Message: Minor Delphi 2007 changes 2007 date update Index: GExpertsD6.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD6.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD6.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD6.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD7.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD7.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD7.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD7.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD9.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD9.dpr,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- GExpertsD9.dpr 16 Apr 2006 19:21:06 -0000 1.15 +++ GExpertsD9.dpr 17 Mar 2007 07:24:06 -0000 1.16 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsBDS2006.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsBDS2006.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GExpertsBDS2006.dpr 16 Apr 2006 19:21:06 -0000 1.2 +++ GExpertsBDS2006.dpr 17 Mar 2007 07:24:06 -0000 1.3 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: PreInstall.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/PreInstall.txt,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- PreInstall.txt 24 Oct 2005 06:20:40 -0000 1.17 +++ PreInstall.txt 17 Mar 2007 07:24:06 -0000 1.18 @@ -1,3 +1,3 @@ Please backup and uninstall any earlier versions of GExperts before installing this version (you will not lose your saved preferences from any compatible version). You can uninstall GExperts from the Control Panel's "Add/Remove Programs" applet. - NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005, BDS 2006, and C++Builder 6.03. + NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005/2007, BDS 2006, and C++Builder 6.03. Index: GExpertsD8.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD8.dpr,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GExpertsD8.dpr 16 Apr 2006 19:21:06 -0000 1.18 +++ GExpertsD8.dpr 17 Mar 2007 07:24:06 -0000 1.19 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsKylix3.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsKylix3.dpr,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- GExpertsKylix3.dpr 16 Apr 2006 19:21:06 -0000 1.11 +++ GExpertsKylix3.dpr 17 Mar 2007 07:24:06 -0000 1.12 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: License.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/License.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- License.txt 16 Apr 2006 19:21:06 -0000 1.7 +++ License.txt 17 Mar 2007 07:24:06 -0000 1.8 @@ -1,6 +1,6 @@ GExperts License Agreement - GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. + GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. The rules governing the use of GExperts and the GExperts source code are derived from the official Open Source Definition, available at http://www.opensource.org. The conditions and limitations are as follows: Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.107 retrieving revision 1.108 diff -u -d -r1.107 -r1.108 --- Readme.txt 26 Oct 2006 01:21:02 -0000 1.107 +++ Readme.txt 17 Mar 2007 07:24:06 -0000 1.108 @@ -1,4 +1,4 @@ -GExperts 1.30 +GExperts 1.31 Open Source Programming Tools for Delphi and C++Builder Source code, the FAQ, and the latest news are available at: @@ -105,6 +105,11 @@ CHANGE LOG ---------------------- +VERSION 1.31 (March, 2007?) +- General: Added support for Delphi 2007 + Fixed a possible shutdown exception when unloading GExperts + + VERSION 1.30 (October 26, 2006) - General: Added support for Delphi 2006. Better syntax highlighting support for C#, HTML, and XML (Erik). Better ClearType support in Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GExperts.iss 16 Oct 2006 06:53:10 -0000 1.19 +++ GExperts.iss 17 Mar 2007 07:24:05 -0000 1.20 @@ -8,7 +8,7 @@ #endif #else ; IDE compiler - #define BDS2007 + #define Delphi2007 #define Version "1.30" #endif @@ -55,13 +55,21 @@ #define IDERegName "BDS" #define IDERegVer "4" #endif +#ifdef Delphi2007 + #define IDEShortName "Delphi" + #define IDELongName "Delphi" + #define IDEVer "2007" + #define DLLSuffix "Delphi2007" + #define IDERegName "BDS" + #define IDERegVer "5" +#endif #ifdef BDS2007 #define IDEShortName "BDS" #define IDELongName "BDS" #define IDEVer "2007" #define DLLSuffix "BDS2007" #define IDERegName "BDS" - #define IDERegVer "5" + #define IDERegVer "6" #endif #ifdef BCB6 #define BCB |
From: Erik B. <eb...@us...> - 2007-03-18 15:10:34
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv26620/Src Modified Files: GX_CleanDirectories.pas GX_CondDefine.inc GX_GetIdeVersion.pas GX_VerDepConst.pas Log Message: Minor Delphi 2007 changes Index: GX_CleanDirectories.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CleanDirectories.pas,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- GX_CleanDirectories.pas 21 Jan 2006 21:05:58 -0000 1.40 +++ GX_CleanDirectories.pas 17 Mar 2007 07:55:39 -0000 1.41 @@ -411,7 +411,7 @@ '.tds' + sLineBreak + '.tmp' + sLineBreak + '.$*' + sLineBreak + '.~*' + sLineBreak + '.#??' + sLineBreak + '.ddp' + sLineBreak + '.rsm' + sLineBreak + '.map' + sLineBreak + '.pdb' + sLineBreak + '.gex' + sLineBreak +'.~xfm' + sLineBreak + '.~nfm'+ sLineBreak + - '.~bdsproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + + '.~bdsproj'+ sLineBreak + '.~dproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + '.dcuil' + sLineBreak + '.dcpil'; var i, j: Integer; Index: GX_GetIdeVersion.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GetIdeVersion.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- GX_GetIdeVersion.pas 14 Jul 2006 01:31:14 -0000 1.38 +++ GX_GetIdeVersion.pas 17 Mar 2007 07:55:39 -0000 1.39 @@ -12,6 +12,7 @@ ideD800, ideD801, ideD802, ideD900, ideD901, ideD902, ideD903, ideBDS2006, + ideDelphi2007, ideBDS2007, ideCSB100, ideBCB600, ideBCB601, ideBCB602, ideBCB604, @@ -378,6 +379,22 @@ end; end; +function GetDelphi2007Version: TBorlandIdeVersion; +const + CoreIde1000: TVersionNumber = + (Minor: 0; Major: 0; Build: 0; Release: 0); +var + CoreIdeFileVersion: TVersionNumber; + VersionNumber: Integer; +begin + Result := ideDelphi2007; + CoreIdeFileVersion := GetFileVersionNumber(GetIdeRootDirectory + 'Bin\coreide100.bpl'); + VersionNumber := CompareVersionNumber(CoreIdeFileVersion, CoreIde1000); + if VersionNumber > 0 then begin + //Result := ideD1001; + end; +end; + function GetBDS2007Version: TBorlandIdeVersion; const CoreIde1100: TVersionNumber = @@ -445,9 +462,14 @@ Assert(Result in [ideD900, ideD901, ideD902, ideD903]); {$ENDIF VER170} - {$IFDEF VER180} // BDS 2006 - Result := GetBDS2006Version; - Assert(Result in [ideBDS2006]); + {$IFDEF VER180} + {$IFNDEF VER185} // BDS 2006 + Result := GetBDS2006Version; + Assert(Result in [ideBDS2006]); + {$ELSE} // Delphi 2007 + Result := GetDelphi2007Version; + Assert(Result in [ideDelphi2007]); + {$ENDIF} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 Index: GX_CondDefine.inc =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- GX_CondDefine.inc 14 Jul 2006 01:31:14 -0000 1.44 +++ GX_CondDefine.inc 17 Mar 2007 07:55:39 -0000 1.45 @@ -52,6 +52,9 @@ {$DEFINE GX_VER170_up} // Delphi 9/2005 {$IF CompilerVersion >= 18} {$DEFINE GX_VER180_up} // BDS 2006 + {$IFDEF VER185} + {$DEFINE GX_VER185_up} // Delphi 2007 + {$ENDIF} {$IF CompilerVersion >= 19} {$DEFINE GX_VER190_up} // BDS 2007 {$IFEND} Index: GX_VerDepConst.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- GX_VerDepConst.pas 14 Jul 2006 01:31:14 -0000 1.31 +++ GX_VerDepConst.pas 17 Mar 2007 07:55:39 -0000 1.32 @@ -54,7 +54,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + GExpertsDll = 'GExpertsDelphi2007.dll'; + {$ELSE} GExpertsDll = 'GExpertsBDS2006.dll'; + {$ENDIF} {$DEFINE GExpertsDllNameDefined} {$ENDIF VER180} @@ -117,7 +121,7 @@ {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER170} - {$IFDEF VER180} + {$IFDEF VER180} // BDS 2006 and Delphi 2007 TTabDockHostFormClassContainer = 'designide100.bpl'; {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER180} @@ -191,12 +195,16 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} MajorVersionNumberChar = '10'; // BDS 2006 + {$ELSE} + MajorVersionNumberChar = '11'; // Delphi 2007 + {$ENDIF} {$DEFINE MajorVersionNumber} {$ENDIF VER180} {$IFDEF VER190} - MajorVersionNumberChar = '11'; // BDS 2007 + MajorVersionNumberChar = '12'; // BDS 2007 {$DEFINE MajorVersionNumber} {$ENDIF VER190} @@ -255,16 +263,19 @@ CompilerDefinedProductRegistryKey = 'BDS\3.0'; {$DEFINE IdeBaseKey} {$ENDIF VER170} - + {$IFDEF VER180} - // BDS 2006 - CompilerDefinedProductRegistryKey = 'BDS\4.0'; + {$IFDEF VER185} + CompilerDefinedProductRegistryKey = 'BDS\5.0'; // Delphi 2007 + {$ELSE} + CompilerDefinedProductRegistryKey = 'BDS\4.0'; // BDS 2006 + {$ENDIF} {$DEFINE IdeBaseKey} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 - CompilerDefinedProductRegistryKey = 'BDS\5.0'; + CompilerDefinedProductRegistryKey = 'BDS\6.0'; {$DEFINE IdeBaseKey} {$ENDIF VER190} @@ -310,7 +321,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + ClassBrowserStorageFolder = 'Classes.Delphi2007'; + {$ELSE} ClassBrowserStorageFolder = 'Classes.BDS2006'; + {$ENDIF} {$DEFINE ClassBrowserStorageDefined} {$ENDIF VER180} |
From: Erik B. <eb...@us...> - 2007-03-18 15:05:48
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15248/Src/Utils Modified Files: GX_GenericUtils.pas GX_OtaUtils.pas Log Message: Minor Delphi 2007 changes Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.198 retrieving revision 1.199 diff -u -d -r1.198 -r1.199 --- GX_OtaUtils.pas 26 Feb 2007 06:20:13 -0000 1.198 +++ GX_OtaUtils.pas 17 Mar 2007 07:26:30 -0000 1.199 @@ -292,7 +292,7 @@ // Returns file name of the project; returns // an empty string if there is no (active) project. -// Use NormalizeBdsProj to get the dpr instead of the bdsproj for Delphi projects +// Use NormalizeBdsProj to get the dpr instead of the bdsproj/dproj for Delphi projects function GxOtaGetProjectFileName(Project: IOTAProject; NormalizeBdsProj: Boolean = False): string; function GxOtaGetCurrentProjectFileName(NormalizeBdsProj: Boolean = False): string; @@ -1060,7 +1060,7 @@ Result := ''; if Assigned(Project) then begin Result := Project.FileName; - if NormalizeBdsProj and IsBdsproj(Result) then begin + if NormalizeBdsProj and IsBdsprojOrDproj(Result) then begin if GxOtaProjectIsEitherDelphi(Project) then begin Result := ChangeFileExt(Result, '.dpr'); if (not FileExists(Result)) and FileExists(ChangeFileExt(Result, '.dpk')) then @@ -2417,7 +2417,7 @@ shSQL: Result := gxpSQL; else begin Ext := ExtractUpperFileExt(FileName); - if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ']) then + if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ', 'DPROJ']) then Result := gxpXML else if StringInArray(Ext, ['HTM', 'HTML', 'ASP']) then Result := gxpHTML @@ -3649,7 +3649,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); @@ -3766,7 +3766,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); Index: GX_GenericUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GenericUtils.pas,v retrieving revision 1.152 retrieving revision 1.153 diff -u -d -r1.152 -r1.153 --- GX_GenericUtils.pas 26 Feb 2007 06:18:49 -0000 1.152 +++ GX_GenericUtils.pas 17 Mar 2007 07:26:30 -0000 1.153 @@ -265,7 +265,8 @@ // Sets the ParentBackground property, if supported by the current VCL version // This needs to be false for colored TPanels that can appear in a themed app -procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); +procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); overload; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); overload; // Determine if the passed in class inherits from ClassName without // linking in the units that contain ClassName @@ -319,6 +320,8 @@ function IsDcp(const FileName: string): Boolean; function IsBdsgroup(const FileName: string): Boolean; function IsBdsproj(const FileName: string): Boolean; +function IsDproj(const FileName: string): Boolean; +function IsBdsprojOrDproj(const FileName: string): Boolean; function IsPackage(const FileName: string): Boolean; function IsDelphiPackage(const FileName: string): Boolean; function IsCsproj(const FileName: string): Boolean; @@ -1800,10 +1803,19 @@ procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); begin {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(Panel)); Panel.ParentBackground := Value; {$ENDIF} end; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); +begin + {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(GroupBox)); + GroupBox.ParentBackground := Value; + {$ENDIF} +end; + function InheritsFromClass(ClassType: TClass; const ClassName: string): Boolean; begin Result := True; @@ -2078,6 +2090,7 @@ or IsBpr(FileName) or IsBdsgroup(FileName) or IsBdsproj(FileName) + or IsDproj(FileName) or IsPackage(FileName) or IsCsproj(FileName); end; @@ -2163,6 +2176,16 @@ Result := FileMatchesExtension(FileName, '.bdsproj'); end; +function IsDproj(const FileName: string): Boolean; +begin + Result := FileMatchesExtension(FileName, '.dproj'); +end; + +function IsBdsprojOrDproj(const FileName: string): Boolean; +begin + Result := IsBdsproj(FileName) or IsDproj(FileName); +end; + function IsPackage(const FileName: string): Boolean; begin Result := FileMatchesExtensions(FileName, ['.dpk', '.dpkw', '.bpk']); |
From: Erik B. <eb...@us...> - 2007-03-18 14:06:08
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv14105 Modified Files: GExperts.iss GExpertsBDS2006.dpr GExpertsD6.dpr GExpertsD7.dpr GExpertsD8.dpr GExpertsD9.dpr GExpertsKylix3.dpr License.txt PreInstall.txt Readme.txt Log Message: Minor Delphi 2007 changes 2007 date update Index: GExpertsD6.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD6.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD6.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD6.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD7.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD7.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD7.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD7.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD9.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD9.dpr,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- GExpertsD9.dpr 16 Apr 2006 19:21:06 -0000 1.15 +++ GExpertsD9.dpr 17 Mar 2007 07:24:06 -0000 1.16 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsBDS2006.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsBDS2006.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GExpertsBDS2006.dpr 16 Apr 2006 19:21:06 -0000 1.2 +++ GExpertsBDS2006.dpr 17 Mar 2007 07:24:06 -0000 1.3 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: PreInstall.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/PreInstall.txt,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- PreInstall.txt 24 Oct 2005 06:20:40 -0000 1.17 +++ PreInstall.txt 17 Mar 2007 07:24:06 -0000 1.18 @@ -1,3 +1,3 @@ Please backup and uninstall any earlier versions of GExperts before installing this version (you will not lose your saved preferences from any compatible version). You can uninstall GExperts from the Control Panel's "Add/Remove Programs" applet. - NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005, BDS 2006, and C++Builder 6.03. + NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005/2007, BDS 2006, and C++Builder 6.03. Index: GExpertsD8.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD8.dpr,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GExpertsD8.dpr 16 Apr 2006 19:21:06 -0000 1.18 +++ GExpertsD8.dpr 17 Mar 2007 07:24:06 -0000 1.19 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsKylix3.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsKylix3.dpr,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- GExpertsKylix3.dpr 16 Apr 2006 19:21:06 -0000 1.11 +++ GExpertsKylix3.dpr 17 Mar 2007 07:24:06 -0000 1.12 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: License.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/License.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- License.txt 16 Apr 2006 19:21:06 -0000 1.7 +++ License.txt 17 Mar 2007 07:24:06 -0000 1.8 @@ -1,6 +1,6 @@ GExperts License Agreement - GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. + GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. The rules governing the use of GExperts and the GExperts source code are derived from the official Open Source Definition, available at http://www.opensource.org. The conditions and limitations are as follows: Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.107 retrieving revision 1.108 diff -u -d -r1.107 -r1.108 --- Readme.txt 26 Oct 2006 01:21:02 -0000 1.107 +++ Readme.txt 17 Mar 2007 07:24:06 -0000 1.108 @@ -1,4 +1,4 @@ -GExperts 1.30 +GExperts 1.31 Open Source Programming Tools for Delphi and C++Builder Source code, the FAQ, and the latest news are available at: @@ -105,6 +105,11 @@ CHANGE LOG ---------------------- +VERSION 1.31 (March, 2007?) +- General: Added support for Delphi 2007 + Fixed a possible shutdown exception when unloading GExperts + + VERSION 1.30 (October 26, 2006) - General: Added support for Delphi 2006. Better syntax highlighting support for C#, HTML, and XML (Erik). Better ClearType support in Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GExperts.iss 16 Oct 2006 06:53:10 -0000 1.19 +++ GExperts.iss 17 Mar 2007 07:24:05 -0000 1.20 @@ -8,7 +8,7 @@ #endif #else ; IDE compiler - #define BDS2007 + #define Delphi2007 #define Version "1.30" #endif @@ -55,13 +55,21 @@ #define IDERegName "BDS" #define IDERegVer "4" #endif +#ifdef Delphi2007 + #define IDEShortName "Delphi" + #define IDELongName "Delphi" + #define IDEVer "2007" + #define DLLSuffix "Delphi2007" + #define IDERegName "BDS" + #define IDERegVer "5" +#endif #ifdef BDS2007 #define IDEShortName "BDS" #define IDELongName "BDS" #define IDEVer "2007" #define DLLSuffix "BDS2007" #define IDERegName "BDS" - #define IDERegVer "5" + #define IDERegVer "6" #endif #ifdef BCB6 #define BCB |
From: Erik B. <eb...@us...> - 2007-03-18 14:04:34
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv26620/Src Modified Files: GX_CleanDirectories.pas GX_CondDefine.inc GX_GetIdeVersion.pas GX_VerDepConst.pas Log Message: Minor Delphi 2007 changes Index: GX_CleanDirectories.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CleanDirectories.pas,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- GX_CleanDirectories.pas 21 Jan 2006 21:05:58 -0000 1.40 +++ GX_CleanDirectories.pas 17 Mar 2007 07:55:39 -0000 1.41 @@ -411,7 +411,7 @@ '.tds' + sLineBreak + '.tmp' + sLineBreak + '.$*' + sLineBreak + '.~*' + sLineBreak + '.#??' + sLineBreak + '.ddp' + sLineBreak + '.rsm' + sLineBreak + '.map' + sLineBreak + '.pdb' + sLineBreak + '.gex' + sLineBreak +'.~xfm' + sLineBreak + '.~nfm'+ sLineBreak + - '.~bdsproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + + '.~bdsproj'+ sLineBreak + '.~dproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + '.dcuil' + sLineBreak + '.dcpil'; var i, j: Integer; Index: GX_GetIdeVersion.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GetIdeVersion.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- GX_GetIdeVersion.pas 14 Jul 2006 01:31:14 -0000 1.38 +++ GX_GetIdeVersion.pas 17 Mar 2007 07:55:39 -0000 1.39 @@ -12,6 +12,7 @@ ideD800, ideD801, ideD802, ideD900, ideD901, ideD902, ideD903, ideBDS2006, + ideDelphi2007, ideBDS2007, ideCSB100, ideBCB600, ideBCB601, ideBCB602, ideBCB604, @@ -378,6 +379,22 @@ end; end; +function GetDelphi2007Version: TBorlandIdeVersion; +const + CoreIde1000: TVersionNumber = + (Minor: 0; Major: 0; Build: 0; Release: 0); +var + CoreIdeFileVersion: TVersionNumber; + VersionNumber: Integer; +begin + Result := ideDelphi2007; + CoreIdeFileVersion := GetFileVersionNumber(GetIdeRootDirectory + 'Bin\coreide100.bpl'); + VersionNumber := CompareVersionNumber(CoreIdeFileVersion, CoreIde1000); + if VersionNumber > 0 then begin + //Result := ideD1001; + end; +end; + function GetBDS2007Version: TBorlandIdeVersion; const CoreIde1100: TVersionNumber = @@ -445,9 +462,14 @@ Assert(Result in [ideD900, ideD901, ideD902, ideD903]); {$ENDIF VER170} - {$IFDEF VER180} // BDS 2006 - Result := GetBDS2006Version; - Assert(Result in [ideBDS2006]); + {$IFDEF VER180} + {$IFNDEF VER185} // BDS 2006 + Result := GetBDS2006Version; + Assert(Result in [ideBDS2006]); + {$ELSE} // Delphi 2007 + Result := GetDelphi2007Version; + Assert(Result in [ideDelphi2007]); + {$ENDIF} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 Index: GX_CondDefine.inc =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- GX_CondDefine.inc 14 Jul 2006 01:31:14 -0000 1.44 +++ GX_CondDefine.inc 17 Mar 2007 07:55:39 -0000 1.45 @@ -52,6 +52,9 @@ {$DEFINE GX_VER170_up} // Delphi 9/2005 {$IF CompilerVersion >= 18} {$DEFINE GX_VER180_up} // BDS 2006 + {$IFDEF VER185} + {$DEFINE GX_VER185_up} // Delphi 2007 + {$ENDIF} {$IF CompilerVersion >= 19} {$DEFINE GX_VER190_up} // BDS 2007 {$IFEND} Index: GX_VerDepConst.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- GX_VerDepConst.pas 14 Jul 2006 01:31:14 -0000 1.31 +++ GX_VerDepConst.pas 17 Mar 2007 07:55:39 -0000 1.32 @@ -54,7 +54,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + GExpertsDll = 'GExpertsDelphi2007.dll'; + {$ELSE} GExpertsDll = 'GExpertsBDS2006.dll'; + {$ENDIF} {$DEFINE GExpertsDllNameDefined} {$ENDIF VER180} @@ -117,7 +121,7 @@ {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER170} - {$IFDEF VER180} + {$IFDEF VER180} // BDS 2006 and Delphi 2007 TTabDockHostFormClassContainer = 'designide100.bpl'; {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER180} @@ -191,12 +195,16 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} MajorVersionNumberChar = '10'; // BDS 2006 + {$ELSE} + MajorVersionNumberChar = '11'; // Delphi 2007 + {$ENDIF} {$DEFINE MajorVersionNumber} {$ENDIF VER180} {$IFDEF VER190} - MajorVersionNumberChar = '11'; // BDS 2007 + MajorVersionNumberChar = '12'; // BDS 2007 {$DEFINE MajorVersionNumber} {$ENDIF VER190} @@ -255,16 +263,19 @@ CompilerDefinedProductRegistryKey = 'BDS\3.0'; {$DEFINE IdeBaseKey} {$ENDIF VER170} - + {$IFDEF VER180} - // BDS 2006 - CompilerDefinedProductRegistryKey = 'BDS\4.0'; + {$IFDEF VER185} + CompilerDefinedProductRegistryKey = 'BDS\5.0'; // Delphi 2007 + {$ELSE} + CompilerDefinedProductRegistryKey = 'BDS\4.0'; // BDS 2006 + {$ENDIF} {$DEFINE IdeBaseKey} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 - CompilerDefinedProductRegistryKey = 'BDS\5.0'; + CompilerDefinedProductRegistryKey = 'BDS\6.0'; {$DEFINE IdeBaseKey} {$ENDIF VER190} @@ -310,7 +321,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + ClassBrowserStorageFolder = 'Classes.Delphi2007'; + {$ELSE} ClassBrowserStorageFolder = 'Classes.BDS2006'; + {$ENDIF} {$DEFINE ClassBrowserStorageDefined} {$ENDIF VER180} |
From: Erik B. <eb...@us...> - 2007-03-18 13:59:37
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15248/Src/Utils Modified Files: GX_GenericUtils.pas GX_OtaUtils.pas Log Message: Minor Delphi 2007 changes Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.198 retrieving revision 1.199 diff -u -d -r1.198 -r1.199 --- GX_OtaUtils.pas 26 Feb 2007 06:20:13 -0000 1.198 +++ GX_OtaUtils.pas 17 Mar 2007 07:26:30 -0000 1.199 @@ -292,7 +292,7 @@ // Returns file name of the project; returns // an empty string if there is no (active) project. -// Use NormalizeBdsProj to get the dpr instead of the bdsproj for Delphi projects +// Use NormalizeBdsProj to get the dpr instead of the bdsproj/dproj for Delphi projects function GxOtaGetProjectFileName(Project: IOTAProject; NormalizeBdsProj: Boolean = False): string; function GxOtaGetCurrentProjectFileName(NormalizeBdsProj: Boolean = False): string; @@ -1060,7 +1060,7 @@ Result := ''; if Assigned(Project) then begin Result := Project.FileName; - if NormalizeBdsProj and IsBdsproj(Result) then begin + if NormalizeBdsProj and IsBdsprojOrDproj(Result) then begin if GxOtaProjectIsEitherDelphi(Project) then begin Result := ChangeFileExt(Result, '.dpr'); if (not FileExists(Result)) and FileExists(ChangeFileExt(Result, '.dpk')) then @@ -2417,7 +2417,7 @@ shSQL: Result := gxpSQL; else begin Ext := ExtractUpperFileExt(FileName); - if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ']) then + if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ', 'DPROJ']) then Result := gxpXML else if StringInArray(Ext, ['HTM', 'HTML', 'ASP']) then Result := gxpHTML @@ -3649,7 +3649,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); @@ -3766,7 +3766,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); Index: GX_GenericUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GenericUtils.pas,v retrieving revision 1.152 retrieving revision 1.153 diff -u -d -r1.152 -r1.153 --- GX_GenericUtils.pas 26 Feb 2007 06:18:49 -0000 1.152 +++ GX_GenericUtils.pas 17 Mar 2007 07:26:30 -0000 1.153 @@ -265,7 +265,8 @@ // Sets the ParentBackground property, if supported by the current VCL version // This needs to be false for colored TPanels that can appear in a themed app -procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); +procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); overload; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); overload; // Determine if the passed in class inherits from ClassName without // linking in the units that contain ClassName @@ -319,6 +320,8 @@ function IsDcp(const FileName: string): Boolean; function IsBdsgroup(const FileName: string): Boolean; function IsBdsproj(const FileName: string): Boolean; +function IsDproj(const FileName: string): Boolean; +function IsBdsprojOrDproj(const FileName: string): Boolean; function IsPackage(const FileName: string): Boolean; function IsDelphiPackage(const FileName: string): Boolean; function IsCsproj(const FileName: string): Boolean; @@ -1800,10 +1803,19 @@ procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); begin {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(Panel)); Panel.ParentBackground := Value; {$ENDIF} end; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); +begin + {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(GroupBox)); + GroupBox.ParentBackground := Value; + {$ENDIF} +end; + function InheritsFromClass(ClassType: TClass; const ClassName: string): Boolean; begin Result := True; @@ -2078,6 +2090,7 @@ or IsBpr(FileName) or IsBdsgroup(FileName) or IsBdsproj(FileName) + or IsDproj(FileName) or IsPackage(FileName) or IsCsproj(FileName); end; @@ -2163,6 +2176,16 @@ Result := FileMatchesExtension(FileName, '.bdsproj'); end; +function IsDproj(const FileName: string): Boolean; +begin + Result := FileMatchesExtension(FileName, '.dproj'); +end; + +function IsBdsprojOrDproj(const FileName: string): Boolean; +begin + Result := IsBdsproj(FileName) or IsDproj(FileName); +end; + function IsPackage(const FileName: string): Boolean; begin Result := FileMatchesExtensions(FileName, ['.dpk', '.dpkw', '.bpk']); |
From: Erik B. <eb...@us...> - 2007-03-18 13:21:07
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv14105 Modified Files: GExperts.iss GExpertsBDS2006.dpr GExpertsD6.dpr GExpertsD7.dpr GExpertsD8.dpr GExpertsD9.dpr GExpertsKylix3.dpr License.txt PreInstall.txt Readme.txt Log Message: Minor Delphi 2007 changes 2007 date update Index: GExpertsD6.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD6.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD6.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD6.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD7.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD7.dpr,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExpertsD7.dpr 16 Apr 2006 19:21:06 -0000 1.17 +++ GExpertsD7.dpr 17 Mar 2007 07:24:06 -0000 1.18 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsD9.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD9.dpr,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- GExpertsD9.dpr 16 Apr 2006 19:21:06 -0000 1.15 +++ GExpertsD9.dpr 17 Mar 2007 07:24:06 -0000 1.16 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsBDS2006.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsBDS2006.dpr,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GExpertsBDS2006.dpr 16 Apr 2006 19:21:06 -0000 1.2 +++ GExpertsBDS2006.dpr 17 Mar 2007 07:24:06 -0000 1.3 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: PreInstall.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/PreInstall.txt,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- PreInstall.txt 24 Oct 2005 06:20:40 -0000 1.17 +++ PreInstall.txt 17 Mar 2007 07:24:06 -0000 1.18 @@ -1,3 +1,3 @@ Please backup and uninstall any earlier versions of GExperts before installing this version (you will not lose your saved preferences from any compatible version). You can uninstall GExperts from the Control Panel's "Add/Remove Programs" applet. - NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005, BDS 2006, and C++Builder 6.03. + NOTE: GExperts runs best and is tested only with the latest patch versions of Delphi and C++Builder. For best results, please install the latest patches from Borland at: http://www.borland.com/devsupport/. At the time of release, the latest tested versions were Delphi 6.02/7.1/8.02/2005/2007, BDS 2006, and C++Builder 6.03. Index: GExpertsD8.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD8.dpr,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GExpertsD8.dpr 16 Apr 2006 19:21:06 -0000 1.18 +++ GExpertsD8.dpr 17 Mar 2007 07:24:06 -0000 1.19 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: GExpertsKylix3.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsKylix3.dpr,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- GExpertsKylix3.dpr 16 Apr 2006 19:21:06 -0000 1.11 +++ GExpertsKylix3.dpr 17 Mar 2007 07:24:06 -0000 1.12 @@ -2,7 +2,7 @@ { GExperts License Agreement -GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several +GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc. and Erik Berry. You should contact the other authors concerning their respective copyrights Index: License.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/License.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- License.txt 16 Apr 2006 19:21:06 -0000 1.7 +++ License.txt 17 Mar 2007 07:24:06 -0000 1.8 @@ -1,6 +1,6 @@ GExperts License Agreement - GExperts is copyright 1996-2006 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. + GExperts is copyright 1996-2007 by GExperts, Inc, Erik Berry, and several other authors who have submitted their code for inclusion. This license agreement only covers code written by GExperts, Inc and Erik Berry. You should contact the other authors concerning their respective copyrights and conditions. The rules governing the use of GExperts and the GExperts source code are derived from the official Open Source Definition, available at http://www.opensource.org. The conditions and limitations are as follows: Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.107 retrieving revision 1.108 diff -u -d -r1.107 -r1.108 --- Readme.txt 26 Oct 2006 01:21:02 -0000 1.107 +++ Readme.txt 17 Mar 2007 07:24:06 -0000 1.108 @@ -1,4 +1,4 @@ -GExperts 1.30 +GExperts 1.31 Open Source Programming Tools for Delphi and C++Builder Source code, the FAQ, and the latest news are available at: @@ -105,6 +105,11 @@ CHANGE LOG ---------------------- +VERSION 1.31 (March, 2007?) +- General: Added support for Delphi 2007 + Fixed a possible shutdown exception when unloading GExperts + + VERSION 1.30 (October 26, 2006) - General: Added support for Delphi 2006. Better syntax highlighting support for C#, HTML, and XML (Erik). Better ClearType support in Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GExperts.iss 16 Oct 2006 06:53:10 -0000 1.19 +++ GExperts.iss 17 Mar 2007 07:24:05 -0000 1.20 @@ -8,7 +8,7 @@ #endif #else ; IDE compiler - #define BDS2007 + #define Delphi2007 #define Version "1.30" #endif @@ -55,13 +55,21 @@ #define IDERegName "BDS" #define IDERegVer "4" #endif +#ifdef Delphi2007 + #define IDEShortName "Delphi" + #define IDELongName "Delphi" + #define IDEVer "2007" + #define DLLSuffix "Delphi2007" + #define IDERegName "BDS" + #define IDERegVer "5" +#endif #ifdef BDS2007 #define IDEShortName "BDS" #define IDELongName "BDS" #define IDEVer "2007" #define DLLSuffix "BDS2007" #define IDERegName "BDS" - #define IDERegVer "5" + #define IDERegVer "6" #endif #ifdef BCB6 #define BCB |
From: Erik B. <eb...@us...> - 2007-03-18 13:18:55
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv26620/Src Modified Files: GX_CleanDirectories.pas GX_CondDefine.inc GX_GetIdeVersion.pas GX_VerDepConst.pas Log Message: Minor Delphi 2007 changes Index: GX_CleanDirectories.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CleanDirectories.pas,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- GX_CleanDirectories.pas 21 Jan 2006 21:05:58 -0000 1.40 +++ GX_CleanDirectories.pas 17 Mar 2007 07:55:39 -0000 1.41 @@ -411,7 +411,7 @@ '.tds' + sLineBreak + '.tmp' + sLineBreak + '.$*' + sLineBreak + '.~*' + sLineBreak + '.#??' + sLineBreak + '.ddp' + sLineBreak + '.rsm' + sLineBreak + '.map' + sLineBreak + '.pdb' + sLineBreak + '.gex' + sLineBreak +'.~xfm' + sLineBreak + '.~nfm'+ sLineBreak + - '.~bdsproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + + '.~bdsproj'+ sLineBreak + '.~dproj'+ sLineBreak + '.~bdsgroup' + sLineBreak + '.identcache' + sLineBreak + '.dcuil' + sLineBreak + '.dcpil'; var i, j: Integer; Index: GX_GetIdeVersion.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GetIdeVersion.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- GX_GetIdeVersion.pas 14 Jul 2006 01:31:14 -0000 1.38 +++ GX_GetIdeVersion.pas 17 Mar 2007 07:55:39 -0000 1.39 @@ -12,6 +12,7 @@ ideD800, ideD801, ideD802, ideD900, ideD901, ideD902, ideD903, ideBDS2006, + ideDelphi2007, ideBDS2007, ideCSB100, ideBCB600, ideBCB601, ideBCB602, ideBCB604, @@ -378,6 +379,22 @@ end; end; +function GetDelphi2007Version: TBorlandIdeVersion; +const + CoreIde1000: TVersionNumber = + (Minor: 0; Major: 0; Build: 0; Release: 0); +var + CoreIdeFileVersion: TVersionNumber; + VersionNumber: Integer; +begin + Result := ideDelphi2007; + CoreIdeFileVersion := GetFileVersionNumber(GetIdeRootDirectory + 'Bin\coreide100.bpl'); + VersionNumber := CompareVersionNumber(CoreIdeFileVersion, CoreIde1000); + if VersionNumber > 0 then begin + //Result := ideD1001; + end; +end; + function GetBDS2007Version: TBorlandIdeVersion; const CoreIde1100: TVersionNumber = @@ -445,9 +462,14 @@ Assert(Result in [ideD900, ideD901, ideD902, ideD903]); {$ENDIF VER170} - {$IFDEF VER180} // BDS 2006 - Result := GetBDS2006Version; - Assert(Result in [ideBDS2006]); + {$IFDEF VER180} + {$IFNDEF VER185} // BDS 2006 + Result := GetBDS2006Version; + Assert(Result in [ideBDS2006]); + {$ELSE} // Delphi 2007 + Result := GetDelphi2007Version; + Assert(Result in [ideDelphi2007]); + {$ENDIF} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 Index: GX_CondDefine.inc =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- GX_CondDefine.inc 14 Jul 2006 01:31:14 -0000 1.44 +++ GX_CondDefine.inc 17 Mar 2007 07:55:39 -0000 1.45 @@ -52,6 +52,9 @@ {$DEFINE GX_VER170_up} // Delphi 9/2005 {$IF CompilerVersion >= 18} {$DEFINE GX_VER180_up} // BDS 2006 + {$IFDEF VER185} + {$DEFINE GX_VER185_up} // Delphi 2007 + {$ENDIF} {$IF CompilerVersion >= 19} {$DEFINE GX_VER190_up} // BDS 2007 {$IFEND} Index: GX_VerDepConst.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- GX_VerDepConst.pas 14 Jul 2006 01:31:14 -0000 1.31 +++ GX_VerDepConst.pas 17 Mar 2007 07:55:39 -0000 1.32 @@ -54,7 +54,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + GExpertsDll = 'GExpertsDelphi2007.dll'; + {$ELSE} GExpertsDll = 'GExpertsBDS2006.dll'; + {$ENDIF} {$DEFINE GExpertsDllNameDefined} {$ENDIF VER180} @@ -117,7 +121,7 @@ {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER170} - {$IFDEF VER180} + {$IFDEF VER180} // BDS 2006 and Delphi 2007 TTabDockHostFormClassContainer = 'designide100.bpl'; {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER180} @@ -191,12 +195,16 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} MajorVersionNumberChar = '10'; // BDS 2006 + {$ELSE} + MajorVersionNumberChar = '11'; // Delphi 2007 + {$ENDIF} {$DEFINE MajorVersionNumber} {$ENDIF VER180} {$IFDEF VER190} - MajorVersionNumberChar = '11'; // BDS 2007 + MajorVersionNumberChar = '12'; // BDS 2007 {$DEFINE MajorVersionNumber} {$ENDIF VER190} @@ -255,16 +263,19 @@ CompilerDefinedProductRegistryKey = 'BDS\3.0'; {$DEFINE IdeBaseKey} {$ENDIF VER170} - + {$IFDEF VER180} - // BDS 2006 - CompilerDefinedProductRegistryKey = 'BDS\4.0'; + {$IFDEF VER185} + CompilerDefinedProductRegistryKey = 'BDS\5.0'; // Delphi 2007 + {$ELSE} + CompilerDefinedProductRegistryKey = 'BDS\4.0'; // BDS 2006 + {$ENDIF} {$DEFINE IdeBaseKey} {$ENDIF VER180} {$IFDEF VER190} // BDS 2007 - CompilerDefinedProductRegistryKey = 'BDS\5.0'; + CompilerDefinedProductRegistryKey = 'BDS\6.0'; {$DEFINE IdeBaseKey} {$ENDIF VER190} @@ -310,7 +321,11 @@ {$ENDIF VER170} {$IFDEF VER180} + {$IFDEF VER185} + ClassBrowserStorageFolder = 'Classes.Delphi2007'; + {$ELSE} ClassBrowserStorageFolder = 'Classes.BDS2006'; + {$ENDIF} {$DEFINE ClassBrowserStorageDefined} {$ENDIF VER180} |
From: Erik B. <eb...@us...> - 2007-03-18 13:16:32
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15248/Src/Utils Modified Files: GX_GenericUtils.pas GX_OtaUtils.pas Log Message: Minor Delphi 2007 changes Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.198 retrieving revision 1.199 diff -u -d -r1.198 -r1.199 --- GX_OtaUtils.pas 26 Feb 2007 06:20:13 -0000 1.198 +++ GX_OtaUtils.pas 17 Mar 2007 07:26:30 -0000 1.199 @@ -292,7 +292,7 @@ // Returns file name of the project; returns // an empty string if there is no (active) project. -// Use NormalizeBdsProj to get the dpr instead of the bdsproj for Delphi projects +// Use NormalizeBdsProj to get the dpr instead of the bdsproj/dproj for Delphi projects function GxOtaGetProjectFileName(Project: IOTAProject; NormalizeBdsProj: Boolean = False): string; function GxOtaGetCurrentProjectFileName(NormalizeBdsProj: Boolean = False): string; @@ -1060,7 +1060,7 @@ Result := ''; if Assigned(Project) then begin Result := Project.FileName; - if NormalizeBdsProj and IsBdsproj(Result) then begin + if NormalizeBdsProj and IsBdsprojOrDproj(Result) then begin if GxOtaProjectIsEitherDelphi(Project) then begin Result := ChangeFileExt(Result, '.dpr'); if (not FileExists(Result)) and FileExists(ChangeFileExt(Result, '.dpk')) then @@ -2417,7 +2417,7 @@ shSQL: Result := gxpSQL; else begin Ext := ExtractUpperFileExt(FileName); - if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ']) then + if StringInArray(Ext, ['XML', 'BDSGROUP', 'BDSPROJ', 'DPROJ']) then Result := gxpXML else if StringInArray(Ext, ['HTM', 'HTML', 'ASP']) then Result := gxpHTML @@ -3649,7 +3649,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); @@ -3766,7 +3766,7 @@ SourceEditor := GxOtaGetSourceEditorFromModule(Module, FileName); // If there is no source editor for the file name, we can't load it // We might be trying to load a .pas with the .dfm open as text - if (not (IsBdsgroup(FileName) or IsBdsproj(FileName))) and (not Assigned(SourceEditor)) then + if (not (IsBdsgroup(FileName) or IsBdsprojOrDproj(FileName))) and (not Assigned(SourceEditor)) then Exit; end; FileReader := TEditReader.Create(FileName); Index: GX_GenericUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GenericUtils.pas,v retrieving revision 1.152 retrieving revision 1.153 diff -u -d -r1.152 -r1.153 --- GX_GenericUtils.pas 26 Feb 2007 06:18:49 -0000 1.152 +++ GX_GenericUtils.pas 17 Mar 2007 07:26:30 -0000 1.153 @@ -265,7 +265,8 @@ // Sets the ParentBackground property, if supported by the current VCL version // This needs to be false for colored TPanels that can appear in a themed app -procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); +procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); overload; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); overload; // Determine if the passed in class inherits from ClassName without // linking in the units that contain ClassName @@ -319,6 +320,8 @@ function IsDcp(const FileName: string): Boolean; function IsBdsgroup(const FileName: string): Boolean; function IsBdsproj(const FileName: string): Boolean; +function IsDproj(const FileName: string): Boolean; +function IsBdsprojOrDproj(const FileName: string): Boolean; function IsPackage(const FileName: string): Boolean; function IsDelphiPackage(const FileName: string): Boolean; function IsCsproj(const FileName: string): Boolean; @@ -1800,10 +1803,19 @@ procedure SetParentBackgroundValue(Panel: TCustomPanel; Value: Boolean); begin {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(Panel)); Panel.ParentBackground := Value; {$ENDIF} end; +procedure SetParentBackgroundValue(GroupBox: TGroupBox; Value: Boolean); +begin + {$IFDEF GX_VER150_up} // Delphi 7+ + Assert(Assigned(GroupBox)); + GroupBox.ParentBackground := Value; + {$ENDIF} +end; + function InheritsFromClass(ClassType: TClass; const ClassName: string): Boolean; begin Result := True; @@ -2078,6 +2090,7 @@ or IsBpr(FileName) or IsBdsgroup(FileName) or IsBdsproj(FileName) + or IsDproj(FileName) or IsPackage(FileName) or IsCsproj(FileName); end; @@ -2163,6 +2176,16 @@ Result := FileMatchesExtension(FileName, '.bdsproj'); end; +function IsDproj(const FileName: string): Boolean; +begin + Result := FileMatchesExtension(FileName, '.dproj'); +end; + +function IsBdsprojOrDproj(const FileName: string): Boolean; +begin + Result := IsBdsproj(FileName) or IsDproj(FileName); +end; + function IsPackage(const FileName: string): Boolean; begin Result := FileMatchesExtensions(FileName, ['.dpk', '.dpkw', '.bpk']); |
From: Erik B. <eb...@us...> - 2007-03-18 12:41:44
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ProjOptionSets In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21917/Src/ProjOptionSets Modified Files: GX_ProjOptMap.pas Log Message: Minor Delphi 2007 changes Index: GX_ProjOptMap.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ProjOptionSets/GX_ProjOptMap.pas,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- GX_ProjOptMap.pas 10 Nov 2005 22:32:48 -0000 1.24 +++ GX_ProjOptMap.pas 17 Mar 2007 07:43:51 -0000 1.25 @@ -84,7 +84,7 @@ // TODO 4 -oAnyone -cFeature : Add similar maps for the environment options? const - GxOptionsMap: array[0..281] of TGxOptionsMap = ( + GxOptionsMap: array[0..299] of TGxOptionsMap = ( ( // 0 Name: 'HostApplication'; AssumedTypeKind: tkLString; @@ -2071,6 +2071,132 @@ Description: 'Generate C++ .hpp files'; Categories: [ocBCB, ocCompiler]; Translator: GxBoolOptionTranslator; + ), + ( + Name: 'PasPlatform'; + AssumedTypeKind: tkEnumeration; + Description: 'PasPlatform'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'SignAssembly'; + AssumedTypeKind: tkEnumeration; + Description: 'SignAssembly'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'DelaySign'; + AssumedTypeKind: tkEnumeration; + Description: 'DelaySign'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'KeyFile'; + AssumedTypeKind: tkLString; + Description: 'KeyFile'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'KeyContainer'; + AssumedTypeKind: tkLString; + Description: 'KeyContainer'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnOptionTruncated'; + AssumedTypeKind: tkInteger; + Description: 'WarnOptionTruncated'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnWideCharReduced'; + AssumedTypeKind: tkInteger; + Description: 'WarnWideCharReduced'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnDuplicatesIgnored'; + AssumedTypeKind: tkInteger; + Description: 'WarnDuplicatesIgnored'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnInitSeq'; + AssumedTypeKind: tkInteger; + Description: 'WarnInitSeq'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnLocalPInvoke'; + AssumedTypeKind: tkInteger; + Description: 'WarnLocalPInvoke'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnXMLWhitespaceNotAllowed'; + AssumedTypeKind: tkInteger; + Description: 'WarnXMLWhitespaceNotAllowed'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnXMLUnknownEntity'; + AssumedTypeKind: tkInteger; + Description: 'WarnXMLUnknownEntity'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnXMLInvalidNameStart'; + AssumedTypeKind: tkInteger; + Description: 'WarnXMLInvalidNameStart'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnXMLInvalidName'; + AssumedTypeKind: tkInteger; + Description: 'WarnXMLInvalidName'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnXMLExpectedCharacter'; + AssumedTypeKind: tkInteger; + Description: 'WarnXMLExpectedCharacter'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnXMLCREFNoResolve'; + AssumedTypeKind: tkInteger; + Description: 'WarnXMLCREFNoResolve'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( + Name: 'WarnXMLNoParm'; + AssumedTypeKind: tkInteger; + Description: 'WarnXMLNoParm'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; + ), + ( // 299 + Name: 'WarnXMLNoMatchingParm'; + AssumedTypeKind: tkInteger; + Description: 'WarnXMLNoMatchingParm'; + Categories: [ocUnknown]; + Translator: GxStringOptionTranslator; ) ); |
From: Erik B. <eb...@us...> - 2007-03-18 12:41:41
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/FavFiles In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv24242/Src/FavFiles Modified Files: GX_FavFiles.pas Log Message: Minor Delphi 2007 changes Index: GX_FavFiles.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/FavFiles/GX_FavFiles.pas,v retrieving revision 1.55 retrieving revision 1.56 diff -u -d -r1.55 -r1.56 --- GX_FavFiles.pas 17 Apr 2006 06:06:37 -0000 1.55 +++ GX_FavFiles.pas 17 Mar 2007 07:49:31 -0000 1.56 @@ -1256,7 +1256,7 @@ resourcestring SOpenFilter = // Note: Localize only the descriptive text, not the extensions 'Source Files (*.dpr;*.bpr;*.dpk;*.bpk;*.bpg;*.pas;*.cpp;*.hpp;*.c;*.h)|*.dpr;*.bpr;*.dpk;*.bpk;*.bpg;*.pas;*.cpp;*.hpp;*.c;*.h' + - '|Project Files (*.dpr;*.bpr;*.dpk;*.bpk;*.bpg;*.bdsproj;*.bdsgroup)|*.dpr;*.bpr;*.dpk;*.bpk;*.bpg;*.bdsproj;*.bdsgroup' + + '|Project Files (*.dpr;*.bpr;*.dpk;*.bpk;*.bpg;*.bdsproj;*.bdsgroup;*.dproj)|*.dpr;*.bpr;*.dpk;*.bpk;*.bpg;*.bdsproj;*.bdsgroup;*.dproj' + '|Pascal Files (*.pas;*.inc)|*.pas;*.inc' + '|Help Files (*.hlp)|*.hlp' + '|Graphics Files (*.bmp;*.wmf)|*.bmp;*.wmf' + |
From: Erik B. <eb...@us...> - 2007-03-18 12:41:36
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv18795/Src/ReplaceComponents Modified Files: GX_ReplaceCompMapDets.dfm GX_ReplaceCompMapList.dfm Log Message: Minor UI tweaks Index: GX_ReplaceCompMapDets.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents/GX_ReplaceCompMapDets.dfm,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- GX_ReplaceCompMapDets.dfm 28 Jul 2006 02:55:37 -0000 1.7 +++ GX_ReplaceCompMapDets.dfm 17 Mar 2007 07:36:05 -0000 1.8 @@ -15,6 +15,7 @@ Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False + Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow Index: GX_ReplaceCompMapList.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents/GX_ReplaceCompMapList.dfm,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- GX_ReplaceCompMapList.dfm 8 Dec 2005 05:39:41 -0000 1.5 +++ GX_ReplaceCompMapList.dfm 17 Mar 2007 07:36:05 -0000 1.6 @@ -14,6 +14,7 @@ Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False + Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow |
From: Erik B. <eb...@us...> - 2007-03-18 12:26:18
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Proofreader In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv18795/Src/Proofreader Modified Files: GX_ProofreaderConfig.dfm Log Message: Minor UI tweaks Index: GX_ProofreaderConfig.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Proofreader/GX_ProofreaderConfig.dfm,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- GX_ProofreaderConfig.dfm 8 Dec 2005 05:39:41 -0000 1.14 +++ GX_ProofreaderConfig.dfm 17 Mar 2007 07:36:04 -0000 1.15 @@ -170,7 +170,7 @@ end object cbReplacerActive: TCheckBox Left = 101 - Top = 3 + Top = 6 Width = 171 Height = 18 Caption = 'E&nable AutoCorrect' |
From: Erik B. <eb...@us...> - 2007-02-26 06:21:45
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv11345/Src Modified Files: GX_ConfigurationInfo.pas GX_Configure.pas GX_EditorEnhancements.pas GX_IdeEnhance.pas Log Message: Add some logging to help with a CanCreate issue somewhere Index: GX_Configure.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.pas,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- GX_Configure.pas 19 Jan 2007 02:52:07 -0000 1.45 +++ GX_Configure.pas 26 Feb 2007 06:21:41 -0000 1.46 @@ -408,6 +408,8 @@ var EditorExpert: TEditorExpert; begin + {$IFOPT D+} SendDebug('TfmConfiguration.lvEditorExpertsChange'); {$ENDIF} + if lvEditorExperts.Selected = nil then begin btnConfigure.Enabled := False; @@ -467,6 +469,7 @@ ListItem: TListItem; GxEditorExpertManager: TGxEditorExpertManager; begin + {$IFOPT D+} SendDebug('TfmConfiguration.LoadEditorExperts'); {$ENDIF} lvEditorExperts.Items.Clear; if not Assigned(GExpertsInst.EditorExpertManager) then Exit; Index: GX_ConfigurationInfo.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ConfigurationInfo.pas,v retrieving revision 1.42 retrieving revision 1.43 diff -u -d -r1.42 -r1.43 --- GX_ConfigurationInfo.pas 21 Jan 2006 21:05:58 -0000 1.42 +++ GX_ConfigurationInfo.pas 26 Feb 2007 06:21:41 -0000 1.43 @@ -406,6 +406,7 @@ destructor TConfigInfo.Destroy; begin + {$IFOPT D+} SendDebug('TConfigInfo.Destroy'); {$ENDIF D+} FreeEditorEnhancements; FreeIdeEnhancements; Index: GX_IdeEnhance.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeEnhance.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- GX_IdeEnhance.pas 21 Jan 2006 21:05:58 -0000 1.28 +++ GX_IdeEnhance.pas 26 Feb 2007 06:21:41 -0000 1.29 @@ -122,6 +122,7 @@ constructor TIdeEnhancements.Create; begin + {$IFOPT D+} SendDebug('TIdeEnhancements.Create'); {$ENDIF} inherited Create; if IsStandAlone then @@ -716,6 +717,7 @@ function IdeEnhancements: TIdeEnhancements; begin + {$IFOPT D+} SendDebug('Calling IdeEnhancements'); {$ENDIF D+} Assert(CanCreate, 'CanCreate not set'); if PrivateIdeEnhancements = nil then @@ -726,6 +728,7 @@ procedure FreeIdeEnhancements; begin + {$IFOPT D+} SendDebug('FreeIdeEnhancements'); {$ENDIF D+} CanCreate := False; FreeAndNil(PrivateIdeEnhancements); Index: GX_EditorEnhancements.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_EditorEnhancements.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- GX_EditorEnhancements.pas 21 Jan 2006 21:05:58 -0000 1.31 +++ GX_EditorEnhancements.pas 26 Feb 2007 06:21:41 -0000 1.32 @@ -473,7 +473,7 @@ function EditorEnhancements: TEditorEnhancements; begin - Assert(CanCreate); + Assert(CanCreate, 'CanCreate must be true in EditorEnhancements'); if PrivateEditorEnhancements = nil then PrivateEditorEnhancements := TEditorEnhancements.Create(nil); @@ -483,12 +483,14 @@ procedure FreeEditorEnhancements; begin + {$IFOPT D+} SendDebug('FreeEditorEnhancements CanCreate: ' + BooleanText(CanCreate)); {$ENDIF} CanCreate := False; FreeAndNil(PrivateEditorEnhancements); end; initialization + CanCreate := True; finalization FreeEditorEnhancements; |
From: Erik B. <eb...@us...> - 2007-02-26 06:20:18
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv10530/Src/Utils Modified Files: GX_OtaUtils.pas Log Message: Quick hack for dpk support in GxOtaGetProjectFileName Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.197 retrieving revision 1.198 diff -u -d -r1.197 -r1.198 --- GX_OtaUtils.pas 26 Oct 2006 01:17:10 -0000 1.197 +++ GX_OtaUtils.pas 26 Feb 2007 06:20:13 -0000 1.198 @@ -1061,8 +1061,11 @@ if Assigned(Project) then begin Result := Project.FileName; if NormalizeBdsProj and IsBdsproj(Result) then begin - if GxOtaProjectIsEitherDelphi(Project) then + if GxOtaProjectIsEitherDelphi(Project) then begin Result := ChangeFileExt(Result, '.dpr'); + if (not FileExists(Result)) and FileExists(ChangeFileExt(Result, '.dpk')) then + Result := ChangeFileExt(Result, '.dpk'); + end; end; end; end; |
From: Erik B. <eb...@us...> - 2007-02-26 06:18:57
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv10047/Src/Utils Modified Files: GX_GenericUtils.pas Log Message: Detect XP64 and Longhorn Index: GX_GenericUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GenericUtils.pas,v retrieving revision 1.151 retrieving revision 1.152 diff -u -d -r1.151 -r1.152 --- GX_GenericUtils.pas 16 Oct 2006 06:56:59 -0000 1.151 +++ GX_GenericUtils.pas 26 Feb 2007 06:18:49 -0000 1.152 @@ -50,6 +50,20 @@ ); end; + TOSVersionInfoExA = packed record + dwOSVersionInfoSize: DWORD; + dwMajorVersion: DWORD; + dwMinorVersion: DWORD; + dwBuildNumber: DWORD; + dwPlatformId: DWORD; + szCSDVersion: array[0..127] of AnsiChar; + wServicePackMajor: WORD; + wServicePackMinor: WORD; + wSuiteMask: WORD; + wProductType: Byte; + wReserved: Byte; + end; + EVersionInfoNotFound = class(Exception); TListBoxCheckAction = (chAll, chNone, chInvert); @@ -2622,14 +2636,29 @@ {$ENDIF LINUX} {$IFDEF MSWINDOWS} +function GetVersionExA(lpVersionInformation: Pointer): BOOL; stdcall; + external kernel32 name 'GetVersionExA'; + function GetOSString: string; +const + VER_NT_WORKSTATION = $01; var OSPlatform: string; BuildNumber: Integer; + SysInfo: TSystemInfo; + VerInfoEx: TOSVersionInfoExA; begin Result := 'Unknown Windows Version'; OSPlatform := 'Windows'; BuildNumber := 0; + ZeroMemory(@SysInfo, SizeOf(SysInfo)); + GetSystemInfo(SysInfo); + + ZeroMemory(@VerInfoEx, SizeOf(VerInfoEx)); + VerInfoEx.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA); + if not GetVersionExA(@VerInfoEx) then + VerInfoEx.dwOSVersionInfoSize := 0; + case Win32Platform of VER_PLATFORM_WIN32_WINDOWS: begin @@ -2662,11 +2691,19 @@ case Win32MinorVersion of 0: OSPlatform := 'Windows 2000'; 1: OSPlatform := 'Windows XP'; - 2: OSPlatform := 'Windows Server 2003'; + 2: begin + OSPlatform := 'Windows XP64'; + if (VerInfoEx.dwOSVersionInfoSize > 0) and (VerInfoEx.wProductType <> VER_NT_WORKSTATION) then + OSPlatform := 'Windows Server 2003'; + end; end; end else if Win32MajorVersion = 6 then + begin OSPlatform := 'Windows Vista'; + if (VerInfoEx.dwOSVersionInfoSize > 0) and (VerInfoEx.wProductType <> VER_NT_WORKSTATION) then + OSPlatform := 'Windows Server Longhorn'; + end; BuildNumber := Win32BuildNumber; end; VER_PLATFORM_WIN32s: |