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-04-10 00:55:02
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv16547 Modified Files: Readme.txt Log Message: VERSION 1.32 Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.110 retrieving revision 1.111 diff -u -d -r1.110 -r1.111 --- Readme.txt 8 Apr 2007 00:10:43 -0000 1.110 +++ Readme.txt 10 Apr 2007 00:54:55 -0000 1.111 @@ -1,4 +1,4 @@ -GExperts 1.31 +GExperts 1.32 Open Source Programming Tools for Delphi and C++Builder Source code, the FAQ, and the latest news are available at: @@ -98,6 +98,12 @@ CHANGE LOG ---------------------- +VERSION 1.32 (April ??, 2007) +- Save GExperts data files under the user's Application Data\GExperts directory + by default for new installs, to better support Windows Vista user restrictions. + To change this location manually, go to GExperts Configuration, File Locations. + + VERSION 1.31 (April 7, 2007) - General: Added support for Delphi 2007 Fixed a possible shutdown exception when unloading GExperts |
From: Erik B. <eb...@us...> - 2007-04-09 06:09:30
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv7789 Modified Files: GExperts.iss Log Message: Use Application Data to store data files Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- GExperts.iss 1 Apr 2007 03:21:11 -0000 1.22 +++ GExperts.iss 9 Apr 2007 06:09:27 -0000 1.23 @@ -9,7 +9,7 @@ #else ; IDE compiler #define Delphi2007 - #define Version "1.30" + #define Version "1.32" #endif #define Product "GExperts" @@ -82,13 +82,13 @@ #endif #ifndef IDEShortName - #error Usage: "isppcc.exe GExperts.iss /dDelphi7 /dVersion=1.20" + #error Usage: "isppcc.exe GExperts.iss /dDelphi7 /dVersion=1.32" #endif -#define FullName Product +" for "+ IDELongName +" "+ IDEVer -#define BinaryDir IDEShortName + IDEVer -#define DLLName "GExperts" + DLLSuffix + ".dll" -#define AppIDValue Product + IDEShortName + IDEVer +#define FullName Product +" for "+ IDELongName +" "+ IDEVer +#define BinaryDir IDEShortName + IDEVer +#define DLLName "GExperts" + DLLSuffix + ".dll" +#define AppIDValue Product + IDEShortName + IDEVer [Setup] AllowNoIcons=true @@ -130,28 +130,42 @@ [Registry] Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts; ValueType: STRING; ValueName: GExperts; ValueData: {app}\{#DLLName}; Flags: uninsdeletevalue; Check: IDEExecuted Root: HKLM; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts; ValueType: STRING; ValueName: GExperts; ValueData: {app}\{#DLLName}; Flags: uninsdeletevalue uninsdeletekeyifempty -Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: ConfigPath; ValueData: {app}; Check: IDEExecuted Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: HelpFile; ValueData: {app}\GExperts.chm; Check: IDEExecuted Root: HKCU; Subkey: Software\GExperts\Debug; ValueType: STRING; ValueName: FilePath; ValueData: {app}\GDebug.exe [Code] +procedure DeleteDirAndSettings(Dir: string); +begin + if (Dir <> '') and DirExists(Dir) then + begin + Dir := AddBackslash(Dir); + Deltree(Dir + '*.xml', False, True, False); + Deltree(Dir + '*.fs', False, True, False); + Deltree(Dir + '*.log', False, True, False); + Deltree(Dir + '*.debuglog', False, True, False); + Deltree(Dir + '*.gex', False, True, False); + Deltree(Dir + 'Classes.{#DLLSuffix}', True, True, True); // Classes.D6, etc. + // Delete this settings directory itself only if it is now empty + Deltree(Dir, True, False, False); + end; +end; + procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); +var + DataPath: string; begin if CurUninstallStep = usPostUninstall then begin + DataPath := ''; // Delete the DLL reference even if it was copied from the HKLM tree RegDeleteValue(HKEY_CURRENT_USER, 'Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts', 'GExperts'); case MsgBox('Do you want to delete all of your GExperts preferences and data files?', mbConfirmation, MB_YESNOCANCEL or MB_DEFBUTTON2) of IDYES: begin - Deltree(ExpandConstant('{app}\*.xml'), False, True, False); - Deltree(ExpandConstant('{app}\*.fs'), False, True, False); - Deltree(ExpandConstant('{app}\*.log'), False, True, False); - Deltree(ExpandConstant('{app}\*.debuglog'), False, True, False); - Deltree(ExpandConstant('{app}\*.gex'), False, True, False); - Deltree(ExpandConstant('{app}\Classes.{#DLLSuffix}'), True, True, True); - Deltree(ExpandConstant('{app}'), True, False, False); + RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc', 'ConfigPath', DataPath); + DeleteDirAndSettings(DataPath); + DeleteDirAndSettings(ExpandConstant('{app}')); RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}'); end; IDCANCEL: |
From: Erik B. <eb...@us...> - 2007-04-09 06:05:22
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv6305 Modified Files: PreInstall.txt Log Message: Remove Borland mention Index: PreInstall.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/PreInstall.txt,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- PreInstall.txt 17 Mar 2007 07:24:06 -0000 1.18 +++ PreInstall.txt 9 Apr 2007 06:05:18 -0000 1.19 @@ -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/2007, 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 CodeGear at: http://www.codegear.com/. 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. |
From: Erik B. <eb...@us...> - 2007-04-09 06:01:12
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv4647/Src Modified Files: GX_CondDefine.inc GX_ConfigurationInfo.pas GX_Configure.pas GX_VerDepConst.pas Log Message: Default to store data files in Application Data\GExperts for better Vista support Minor .chm help file directory support tweak Delphi 2007 IFDEF tweaks Index: GX_Configure.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.pas,v retrieving revision 1.47 retrieving revision 1.48 diff -u -d -r1.47 -r1.48 --- GX_Configure.pas 23 Mar 2007 08:59:00 -0000 1.47 +++ GX_Configure.pas 9 Apr 2007 06:01:09 -0000 1.48 @@ -358,7 +358,7 @@ var CurrentIdeFolder: string; begin - dlgHelpFile.InitialDir := ConfigInfo.ConfigPath; + dlgHelpFile.InitialDir := ExtractFilePath(edHelpFile.Text); CurrentIdeFolder := GetCurrentDir; try Index: GX_ConfigurationInfo.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ConfigurationInfo.pas,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- GX_ConfigurationInfo.pas 1 Apr 2007 03:21:11 -0000 1.45 +++ GX_ConfigurationInfo.pas 9 Apr 2007 06:01:09 -0000 1.46 @@ -128,7 +128,7 @@ {$IFOPT D+} GX_DbugIntf, {$ENDIF} SysUtils, GX_IdeEnhance, GX_EditorEnhancements, GX_MessageBox, - GX_GenericUtils, GX_GenericClasses, GX_IdeUtils, GX_OtaUtils; + GX_GenericUtils, GX_GenericClasses, GX_IdeUtils, GX_OtaUtils, GX_VerDepConst; type TConfigInfo = class(TSingletonInterfacedObject, IConfigInfo) @@ -394,7 +394,7 @@ else // Windows begin FGExpertsPath := AddSlash(ExtractFilePath(ThisDllName)); - FConfigPath := ExtractFilePath(ThisDllName); + FConfigPath := AddSlash(GetUserApplicationDataFolder) + AddSlash('GExperts') + IDEEnglishName; end; EditorEnhancements.Enabled := False; @@ -408,6 +408,7 @@ destructor TConfigInfo.Destroy; begin {$IFOPT D+} SendDebug('TConfigInfo.Destroy'); {$ENDIF D+} + SaveSettings; FreeEditorEnhancements; FreeIdeEnhancements; @@ -426,7 +427,7 @@ try FVclPath := AddSlash(Settings.ReadString(ConfigurationKey, 'VCLPath', FVclPath)); FConfigPath := AddSlash(Settings.ReadString(ConfigurationKey, 'ConfigPath', FConfigPath)); - FHelpFileLocation := Settings.ReadString(ConfigurationKey, 'HelpFile', FConfigPath + 'GExperts.chm'); + FHelpFileLocation := Settings.ReadString(ConfigurationKey, 'HelpFile', FGExpertsPath + 'GExperts.chm'); if SameText(ExtractFileExt(FHelpFileLocation), '.hlp') then FHelpFileLocation := ChangeFileExt(FHelpFileLocation, '.chm'); FAlphabetizeMenu := Settings.ReadBool(ConfigurationKey, 'AlphabetizeMenu', False); @@ -445,7 +446,8 @@ var Settings: TGExpertsSettings; begin - Assert(not IsStandAlone); + if IsStandAlone then + Exit; // Do not localize any of the following strings. Settings := TGExpertsSettings.Create; Index: GX_CondDefine.inc =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- GX_CondDefine.inc 17 Mar 2007 07:55:39 -0000 1.45 +++ GX_CondDefine.inc 9 Apr 2007 06:01:09 -0000 1.46 @@ -18,7 +18,7 @@ {$IFNDEF GX_AutomatedBuild} // Turn things on we want compiled into GExperts - {.$DEFINE SYNEDIT} + {$DEFINE SYNEDIT} {.$DEFINE GX_DEBUGLOG} {$ENDIF GX_AutomatedBuild} Index: GX_VerDepConst.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- GX_VerDepConst.pas 17 Mar 2007 07:55:39 -0000 1.32 +++ GX_VerDepConst.pas 9 Apr 2007 06:01:09 -0000 1.33 @@ -195,7 +195,7 @@ {$ENDIF VER170} {$IFDEF VER180} - {$IFDEF VER185} + {$IFNDEF VER185} MajorVersionNumberChar = '10'; // BDS 2006 {$ELSE} MajorVersionNumberChar = '11'; // Delphi 2007 @@ -213,6 +213,75 @@ {$ENDIF MajorVersionNumber} {$UNDEF MajorVersionNumber} + +// ***************************************************** +// +// The "English" name of the IDE: "Delphi 2007", etc. +// +// ***************************************************** + {$UNDEF IDEEnglishNameDefined} + {$IFDEF VER140} + {$IFDEF LINUX} + {$IFDEF GX_KYLIX1} + IDEEnglishName = 'Kylix 1'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF GX_KYLIX1} + {$IFDEF GX_KYLIX2} + IDEEnglishName = 'Kylix 2'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF GX_KYLIX2} + {$IFDEF GX_KYLIX3} + IDEEnglishName = 'Kylix 3'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF GX_KYLIX3} + {$ENDIF LINUX} + {$IFDEF MSWINDOWS} + {$IFDEF BCB} + IDEEnglishName = 'C++Builder 6'; + {$DEFINE IDEEnglishNameDefined} + {$ELSE} + IDEEnglishName = 'Delphi 6'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF} + {$ENDIF MSWINDOWS} + {$ENDIF VER140} + + {$IFDEF VER150} + IDEEnglishName = 'Delphi 7'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF VER150} + + {$IFDEF VER160} + IDEEnglishName = 'Delphi 8'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF VER160} + + {$IFDEF VER170} + IDEEnglishName = 'Delphi 2005'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF VER170} + + {$IFDEF VER180} + {$IFNDEF VER185} + IDEEnglishName = 'BDS 2006'; + {$DEFINE IDEEnglishNameDefined} + {$ELSE} + IDEEnglishName = 'Delphi 2007'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF} + {$ENDIF VER180} + + {$IFDEF VER190} + IDEEnglishName = 'RAD Studio 2007'; + {$DEFINE IDEEnglishNameDefined} + {$ENDIF VER190} + + {$IFNDEF IDEEnglishNameDefined} + IDEEnglishName has not been defined + {$ENDIF IDEEnglishNameDefined} + {$UNDEF IDEEnglishNameDefined} + + // ***************************************************** // // Base registry key for each IDE version, in case @@ -265,10 +334,10 @@ {$ENDIF VER170} {$IFDEF VER180} - {$IFDEF VER185} - CompilerDefinedProductRegistryKey = 'BDS\5.0'; // Delphi 2007 - {$ELSE} + {$IFNDEF VER185} CompilerDefinedProductRegistryKey = 'BDS\4.0'; // BDS 2006 + {$ELSE} + CompilerDefinedProductRegistryKey = 'BDS\5.0'; // Delphi 2007 {$ENDIF} {$DEFINE IdeBaseKey} {$ENDIF VER180} @@ -321,10 +390,10 @@ {$ENDIF VER170} {$IFDEF VER180} - {$IFDEF VER185} - ClassBrowserStorageFolder = 'Classes.Delphi2007'; - {$ELSE} + {$IFNDEF VER185} ClassBrowserStorageFolder = 'Classes.BDS2006'; + {$ELSE} + ClassBrowserStorageFolder = 'Classes.Delphi2007'; {$ENDIF} {$DEFINE ClassBrowserStorageDefined} {$ENDIF VER180} |
From: Erik B. <eb...@us...> - 2007-04-09 05:53:33
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv1588/Src/Utils Modified Files: GX_GenericUtils.pas GX_IdeUtils.pas GX_OtaUtils.pas Log Message: function RunningDelphi2007: Boolean; function RunningDelphi2007OrGreater: Boolean; function GetSpecialFolderPath(const FolderID: Integer): string; function GetUserApplicationDataFolder: string; D2007 support for: function GxOtaGetIDEProductIdentifier: string; Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.200 retrieving revision 1.201 diff -u -d -r1.200 -r1.201 --- GX_OtaUtils.pas 23 Mar 2007 09:33:44 -0000 1.200 +++ GX_OtaUtils.pas 9 Apr 2007 05:53:31 -0000 1.201 @@ -2156,15 +2156,15 @@ Result := 'C++Builder' else if RunningLinux then Result := 'Kylix' - else if RunningBDS2006OrGreater then + else if RunningBDS2006 then Result := 'Borland Developer Studio' else - Result := 'Delphi'; + Result := 'Delphi'; // Delphi 6/7/8/2005/2007. Check Cogswell. end else begin - Result := GxOtaGetIDEServices.GetProductIdentifier; - Assert(Trim(Result) <> '', 'GetProductIdentifier returns nothing'); + Result := GxOtaGetIDEServices.GetProductIdentifier; // D2007: 'CodeGear Delphi for Microsoft Windows' + Assert(NotEmpty(Result), 'GetProductIdentifier returns nothing'); end; end; Index: GX_IdeUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_IdeUtils.pas,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- GX_IdeUtils.pas 22 Mar 2007 20:36:51 -0000 1.35 +++ GX_IdeUtils.pas 9 Apr 2007 05:53:31 -0000 1.36 @@ -68,6 +68,8 @@ function RunningDelphi7OrLess: Boolean; function RunningDelphi7OrGreater: Boolean; function RunningDelphi2005: Boolean; +function RunningDelphi2007: Boolean; +function RunningDelphi2007OrGreater: Boolean; function RunningBDS2006OrGreater: Boolean; function RunningBDS2006: Boolean; function RunningCPPBuilder: Boolean; @@ -416,6 +418,24 @@ {$ENDIF} end; +function RunningDelphi2007: Boolean; +begin + {$IFDEF VER185} + Result := True; + {$ELSE} + Result := False; + {$ENDIF} +end; + +function RunningDelphi2007OrGreater: Boolean; +begin + {$IFDEF GX_VER185_up} + Result := True; + {$ELSE} + Result := False; + {$ENDIF} +end; + function RunningBDS2006OrGreater: Boolean; begin {$IFDEF GX_VER180_up} Index: GX_GenericUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GenericUtils.pas,v retrieving revision 1.154 retrieving revision 1.155 diff -u -d -r1.154 -r1.155 --- GX_GenericUtils.pas 22 Mar 2007 20:36:51 -0000 1.154 +++ GX_GenericUtils.pas 9 Apr 2007 05:53:31 -0000 1.155 @@ -403,6 +403,10 @@ // If RaiseException is True, an exception is raised on failure function GXShellExecute(const FileName, Parameters: string; const RaiseException: Boolean): Boolean; +// Get a Windows OS folder path. Pass in one of the ShlObj.CSIDL_ constants +function GetSpecialFolderPath(const FolderID: Integer): string; +function GetUserApplicationDataFolder: string; + // See if the current OS is Windows function RunningWindows: Boolean; // See if the current OS is some variant of UNIX @@ -2686,6 +2690,42 @@ raise Exception.CreateFmt('%s (%s)', [SysErrorMessage(GetLastError), FileName]); end; +procedure FreeItemIDList(var IDList: PItemIDList); +var + Malloc: IMalloc; +begin + if Succeeded(SHGetMalloc(Malloc)) then + begin + if Malloc.DidAlloc(IdList) = 1 then + begin + Malloc.Free(IDList); + IDList := nil; + end; + end; +end; + +function GetSpecialFolderPath(const FolderID: Integer): string; +var + IDList: PItemIDList; +begin + Result := ''; + if SHGetSpecialFolderLocation(0, FolderID, IDList) = NOERROR then + try + SetLength(Result, MAX_PATH); + if SHGetPathFromIDList(IDList, PChar(Result)) then + SetLength(Result, StrLen(PChar(Result))); + finally + FreeItemIDList(IDList); + end; + if IsEmpty(Result) then + raise Exception.Create('Unable to get Windows path for system folder: ' + IntToStr(FOlderID)); +end; + +function GetUserApplicationDataFolder: string; +begin + Result := GetSpecialFolderPath(CSIDL_APPDATA); +end; + function RunningWindows: Boolean; begin {$IFDEF MSWINDOWS} |
From: Erik B. <eb...@us...> - 2007-04-08 00:54:25
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv24189 Modified Files: GExpertsD6.dof Log Message: various updates for 1.31 Index: GExpertsD6.dof =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD6.dof,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- GExpertsD6.dof 16 Oct 2006 07:06:27 -0000 1.8 +++ GExpertsD6.dof 8 Apr 2007 00:54:25 -0000 1.9 @@ -61,7 +61,7 @@ AutoIncBuild=0 MajorVer=1 MinorVer=3 -Release=0 +Release=1 Build=0 Debug=0 PreRelease=0 @@ -73,61 +73,59 @@ [Version Info Keys] CompanyName=GExperts, Inc. and Erik Berry FileDescription=GExperts for Delphi 6 -FileVersion=1.3.0.0 +FileVersion=1.3.1.0 InternalName=GExperts for Delphi 6 LegalCopyright= LegalTrademarks= OriginalFilename=GExpertsD6.dll ProductName=GExperts for Delphi 6 -ProductVersion=1.30 +ProductVersion=1.31 Comments=Open Source -Compile Date=Tuesday, June 07, 2005 3:28 AM +Compile Date=Saturday, October 06, 2001 3:07 PM +CompileDate=Friday, March 23, 2007 4:39 AM [Excluded Packages] -d:\borland\delphi6\Bin\dclnet60.bpl=Borland Internet Components -d:\borland\delphi6\Bin\dcl31w60.bpl=Delphi 1.0 Compatibility Components -d:\borland\delphi6\Bin\dclshlctrls60.bpl=Shell Control Property and Component Editors -D:\Borland\Delphi6\Bin\dcldb60.bpl=Borland Database Components +D:\Borland\Delphi6\Projects\Bpl\JclBaseExpertD60.bpl=JCL Package containing common units for JCL Experts +d:\borland\delphi6\Bin\dclsoap60.bpl=Borland SOAP Components +D:\Borland\Delphi6\Bin\dclnet60.bpl=Borland Internet Components +d:\borland\delphi6\Projects\Bpl\ExtListViewPack.bpl=(untitled) +d:\borland\delphi6\Projects\Bpl\Package1.bpl=(untitled) d:\borland\delphi6\Bin\dclado60.bpl=Borland ADO DB Components -D:\Borland\Delphi6\Bin\dclmid60.bpl=Borland MyBase DataAccess Components -d:\borland\delphi6\Bin\dclact60.bpl=Borland ActionBar Components -D:\Borland\Ace\D6\acepro60.bpl=ACE Reporter Professional Version 1.71 -d:\borland\delphi6\Projects\Bpl\JclDebugIdeD60.bpl=JCL Debug IDE extension for Delphi 6 -D:\Borland\DBISAMD6\lib\db319d6d.bpl=DBISAM Database System Design-Time Package +D:\Borland\Delphi6\Bin\dcldb60.bpl=Borland Database Components d:\borland\delphi6\Projects\Bpl\BetterADO.bpl=BetterADO +D:\Borland\DBISAMD6\lib\db319d6d.bpl=DBISAM Database System Design-Time Package D:\Borland\DevExpressD6\InplaceEditors\Lib\dcldxEdtrD6.bpl=Express inplace editors -D:\Borland\DevExpressD6\QuantumGrid\Lib\dclEQTLD6.bpl=ExpressQuantumTreeList by Developer Express Inc. +D:\Borland\DevExpressD6\Editors\Lib\dcldxELibD6.bpl=ExpressEditors Library by Developer Express Inc. D:\Borland\DevExpressD6\QuantumGrid\Lib\dclECQDBCD6.bpl=ExpressQuantumDBControl by Developer Express Inc. -D:\Borland\DevExpressD6\QuantumGrid\Lib\dclEQDBTLD6.bpl=ExpressQuantumDBTreeList by Developer Express Inc. +D:\Borland\DevExpressD6\QuantumGrid\Lib\dclEQTLD6.bpl=ExpressQuantumTreeList by Developer Express Inc. D:\Borland\DevExpressD6\QuantumGrid\Lib\dclEQGridD6.bpl=ExpressQuantumGrid by Developer Express Inc. -D:\Borland\DevExpressD6\QuantumGrid\Lib\dcldxGrEdD6.bpl=Express extended inplace editors D:\Borland\DevExpressD6\QuantumGrid\Lib\dcldxExELD6.bpl=ExpressEditors Library (Extended) by Developer Express Inc. -D:\Borland\DevExpressD6\Editors\Lib\dcldxELibD6.bpl=ExpressEditors Library by Developer Express Inc. -d:\borland\delphi6\Bin\dclcds60.bpl=Borland Base Cached ClientDataset Component +D:\Borland\DevExpressD6\QuantumGrid\Lib\dclEQDBTLD6.bpl=ExpressQuantumDBTreeList by Developer Express Inc. +D:\Borland\DevExpressD6\QuantumGrid\Lib\dcldxGrEdD6.bpl=Express extended inplace editors +D:\Borland\Delphi6\Bin\dbx60.bpl=Borland SQL Explorer UI Package +D:\Borland\RemObjects\Dcu\D6\RemObjects_Core_D6.bpl=RemObjects - Core Package D:\Borland\ReportBuilderD6\Lib\dclRBP66.bpl=ReportBuilder Professional -C:\WINDOWS\system32\rbADO66.bpl=ReportBuilder Data Access for ADO D:\Borland\ReportBuilderD6\Lib\dclRBU66.bpl=ReportBuilder Sample Components -D:\Borland\RemObjects\Dcu\D6\RemObjects_Core_D6.bpl=RemObjects - Core Package -D:\Borland\RemObjects\Dcu\D6\RemObjects_IDE_D6.bpl=RemObjects - IDE -D:\Borland\RemObjects\Dcu\D6\RemObjects_RODX_D6.bpl=RemObjects - RODXSock Library -D:\Borland\RemObjects\Dcu\D6\RemObjects_BPDX_D6.bpl=RemObjects - BPDX Package -D:\Borland\RemObjects\Dcu\D6\RemObjects_DataSnap_D6.bpl=RemObjects - DataSnap Package -d:\borland\delphi6\Bin\dclmcn60.bpl=Borland DataSnap Connection Components +D:\Borland\ReportBuilderD6\Lib\dclRBC66.bpl=ReportBuilder TeeChart 4.04 Components D:\Borland\ReportBuilderD6\Lib\dclDAD66.bpl=ReportBuilder Data Access Environment -C:\WINDOWS\system32\rbDBE66.bpl=ReportBuilder Data Access for dbExpress -C:\WINDOWS\system32\rbIBE66.bpl=ReportBuilder Data Access for Interbase Express -D:\Borland\Delphi6\Bin\dbx60.bpl=Borland SQL Explorer UI Package +D:\Borland\RemObjects\Dcu\D6\RemObjects_IDE_D6.bpl=RemObjects - IDE +d:\borland\delphi6\Bin\dclcds60.bpl=Borland Base Cached ClientDataset Component +D:\Borland\Delphi6\Bin\dclmid60.bpl=Borland MyBase DataAccess Components +d:\borland\delphi6\Bin\dclbde60.bpl=Borland BDE DB Components d:\borland\delphi6\Bin\DCLIB60.bpl=InterBase Data Access Components d:\borland\delphi6\Bin\dclbdecds60.bpl=Borland Local BDE ClientDataset Components d:\borland\delphi6\Bin\dclqrt60.bpl=QuickReport Components d:\borland\delphi6\Bin\dcltee60.bpl=TeeChart Components -D:\Borland\Delphi6\Bin\dclbde60.bpl=Borland BDE DB Components d:\borland\delphi6\Bin\dcldss60.bpl=Borland Decision Cube Components d:\borland\delphi6\Bin\dcltqr60.bpl=TeeChart for QuickReport Components d:\borland\delphi6\Bin\dclclxdb60.bpl=Borland CLX Database Components D:\Borland\Delphi6\Bin\dclclxstd60.bpl=Borland CLX Standard Components +d:\borland\delphi6\Bin\dclmcn60.bpl=Borland DataSnap Connection Components d:\borland\delphi6\Bin\dclsmpedit60.bpl=Borland Editor Script Enhancements d:\borland\delphi6\Bin\applet60.bpl=Borland Control Panel Applet Package d:\borland\delphi6\Bin\dclemacsedit60.bpl=Borland Editor Emacs Enhancements +d:\borland\delphi6\Bin\dclact60.bpl=Borland ActionBar Components +d:\borland\delphi6\Bin\dcl31w60.bpl=Delphi 1.0 Compatibility Components +d:\borland\delphi6\Bin\dclshlctrls60.bpl=Shell Control Property and Component Editors d:\borland\delphi6\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package d:\borland\delphi6\Bin\DCLNMF60.bpl=NetMasters Fastnet Tools d:\borland\delphi6\Bin\dclwbm60.bpl=Borland InternetExpress Components @@ -135,9 +133,7 @@ d:\borland\delphi6\Bin\dclwebsnap60.bpl=Borland WebSnap Components d:\borland\delphi6\Bin\dcldbx60.bpl=Borland dbExpress Components d:\borland\delphi6\Bin\dcldbxcds60.bpl=Borland Local DBX ClientDataset Components -D:\Borland\ReportBuilderD6\Lib\dclRBC66.bpl=ReportBuilder TeeChart 4.04 Components C:\WINDOWS\system32\ibevnt60.bpl=Borland Interbase Event Alerter Component -D:\Borland\RemObjects\Dcu\D6\RemObjects_Indy_D6.bpl=RemObjects - Indy Package [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
From: Erik B. <eb...@us...> - 2007-04-08 00:10:46
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv7319 Modified Files: CleanFiles.bat CleanInplace.bat CleanRelease.bat Readme.txt SourceCode.txt Log Message: Minor Release 1.31 updates Text/doc and help file changes and removal of various old cruft Index: SourceCode.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/SourceCode.txt,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- SourceCode.txt 6 Mar 2006 11:52:05 -0000 1.30 +++ SourceCode.txt 8 Apr 2007 00:10:43 -0000 1.31 @@ -6,15 +6,14 @@ ------------------------------------------------------------------------------ - Open: - GExpertsBDS2006.dpr Borland Delphi 2006 - GExpertsD9.dpr Borland Delphi 2005 (Delphi 9) - GExpertsD8.dpr Borland Delphi 8 (See: http://cc.borland.com/ccweb.exe/listing?id=21448) - GExpertsD7.dpr Borland Delphi 7 - GExpertsD6.dpr Borland Delphi 6 - GExpertsD5.dpr Borland Delphi 5 - GExpertsBCB6.bpr Borland C++Builder 6 - GExpertsBCB5.bpr Borland C++Builder 5 - GExpertsKylix3.dpr Borland Kylix 3 (unsupported, largely broken) + GExpertsDelphi2007.dproj CodeGear Delphi 2007 + GExpertsBDS2006.dpr Borland Delphi 2006 + GExpertsD9.dpr Borland Delphi 2005 (Delphi 9) + GExpertsD8.dpr Borland Delphi 8 (See: http://cc.borland.com/ccweb.exe/listing?id=21448) + GExpertsD7.dpr Borland Delphi 7 + GExpertsD6.dpr Borland Delphi 6 + GExpertsBCB6.bpr Borland C++Builder 6 + GExpertsKylix3.dpr Borland Kylix 3 (unsupported, largely broken) Prior versions of Delphi and C++Builder are not supported. In most cases, you can build the dll now and install it, but @@ -36,7 +35,6 @@ - Add these packages to the project's runtime package list (required to access various internal IDE units such as ToolsAPI): rtl;vcl;vclx;designide;vclsmp Delphi 6 or greater - Vcl50;Vclx50;DsnIde50 Delphi 5 and C++Builder 5 vcl;rtl;vclx;bcbsmp;designide C++Builder 6 baseclx:vcl:designide Kylix 3 Index: CleanInplace.bat =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/CleanInplace.bat,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- CleanInplace.bat 31 Jan 2006 21:35:39 -0000 1.4 +++ CleanInplace.bat 8 Apr 2007 00:10:43 -0000 1.5 @@ -15,8 +15,6 @@ del /S *.$* del /S *.dcu del /S *.bak -del /S *.gid -del /S *.fts del /S *.~* del /S *.dpu del /S *.cfg Index: CleanRelease.bat =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/CleanRelease.bat,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- CleanRelease.bat 26 Jan 2001 18:09:01 -0000 1.1 +++ CleanRelease.bat 8 Apr 2007 00:10:43 -0000 1.2 @@ -18,10 +18,6 @@ del /S *.$* del /S *.dcu del /S *.bak -del /S *.hlp -del /S *.gid -del /S *.cnt -del /S *.fts del /S *.~* del /S *.dll del /S *.dcp Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.109 retrieving revision 1.110 diff -u -d -r1.109 -r1.110 --- Readme.txt 23 Mar 2007 10:03:02 -0000 1.109 +++ Readme.txt 8 Apr 2007 00:10:43 -0000 1.110 @@ -23,7 +23,7 @@ THE EXPERTS ---------------------- GExperts contains numerous experts. See the online help -(GExperts.hlp) for information on the usage of the experts. +(GExperts.chm) for information on the usage of the experts. KNOWN LIMITATIONS/BUGS @@ -79,19 +79,12 @@ Then add a new string value that points to the GExperts DLL: GExperts=C:\Program Files\GExperts\GExpertsDX.dll or -GExperts=C:\Program Files\GExperts\GExpertsBCBX.dll - - Before installing GExperts, it is strongly recommended to upgrade to these -versions of your IDEs, or a more recent release, if available: - - BDS 2006 - - Delphi 2005 - - Delphi 8.02 (Update Pack 2) - - Delphi 7.1 (Update Pack 1) - - Delphi 6.02 (Update Pack 2) - - C++Builder 6.02 (Update Pack 2) +GExperts=C:\Program Files\GExperts\GExpertsBCBX.dll or +GExperts=C:\Program Files\GExperts\GExpertsDelphiX.dll -using the free patches available from: - http://www.borland.com/downloads/ + Before installing GExperts, it is strongly recommended that you install +the latest updates and patches for your IDE available from: + http://www.codegear.com/ UNINSTALLATION @@ -100,16 +93,18 @@ or the IDE might temporarily leave a blank area where the docked expert used to be on the next IDE restart. Uninstallation of GExperts can be done from the Control Panel's -Add/Remove Programs Applet. +Add/Remove Programs or Programs [and Features] tool under Vista. CHANGE LOG ---------------------- -VERSION 1.31 (March, 2007?) +VERSION 1.31 (April 7, 2007) - General: Added support for Delphi 2007 Fixed a possible shutdown exception when unloading GExperts -- IDE Enhancements: Allow resizing some IDE options dialogs, etc. See the - help file for full details. + Help switched to HTML Help format (.chm) for better Vista support + Improve the font rendering on several forms +- IDE Enhancements: Added a new option to allow resizing and enhancing some + IDE dialogs (for BDS 2006 or later). See the help file for full details. VERSION 1.30 (October 26, 2006) Index: CleanFiles.bat =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/CleanFiles.bat,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- CleanFiles.bat 2 Dec 2004 05:22:55 -0000 1.3 +++ CleanFiles.bat 8 Apr 2007 00:10:43 -0000 1.4 @@ -28,8 +28,6 @@ del /S *.$* del /S *.dcu del /S *.bak -del /S /A:H *.gid -del /S *.fts del /S *.~* del /S *.cfg del /S *_orig_?.* @@ -58,8 +56,6 @@ GOTO Delete :DelRelease -del /S *.hlp -del /S *.cnt del /S *.dll del /S *.dcp del /S *.dof |
From: Erik B. <eb...@us...> - 2007-04-08 00:10:44
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv7319/Src Modified Files: GX_Configure.dfm Log Message: Minor Release 1.31 updates Text/doc and help file changes and removal of various old cruft Index: GX_Configure.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.dfm,v retrieving revision 1.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- GX_Configure.dfm 1 Apr 2007 03:21:11 -0000 1.34 +++ GX_Configure.dfm 8 Apr 2007 00:10:44 -0000 1.35 @@ -685,7 +685,7 @@ end end object dlgHelpFile: TOpenDialog - DefaultExt = '.hlp' + DefaultExt = '.chm' Filter = 'Help Files (*.chm)|*.chm' Options = [ofPathMustExist, ofFileMustExist] Title = 'Select Help File' |
From: Erik B. <eb...@us...> - 2007-04-01 03:28:27
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv22549/Comps Added Files: GXHtmlHelp.pas Log Message: HTML Help API for Delphi 6/7/8 --- NEW FILE: GXHtmlHelp.pas --- unit GXHtmlHelp; interface uses Windows; function HtmlHelp(hWndCaller: HWND; pszFile: PChar; uCommand: UINT; dwData: DWORD): HWND; function HtmlHelpA(hWndCaller: HWND; pszFile: PAnsiChar; uCommand: UINT; dwData: DWORD): HWND; function HtmlHelpW(hWndCaller: HWND; pszFile: PWideChar; uCommand: UINT; dwData: DWORD): HWND; const HH_DISPLAY_INDEX = 2; HH_HELP_CONTEXT = $F; implementation uses SysUtils; type THtmlHelpAProc = function (hWndCaller: HWND; pszFile: PAnsiChar; uCommand: UINT; dwData: DWORD): HWnd; stdcall; THtmlHelpWProc = function (hWndCaller: HWND; pszFile: PWideChar; uCommand: UINT; dwData: DWORD): HWnd; stdcall; var HtmlHelpOcxModule: HModule; HtmlHelpAProc: THtmlHelpAProc; HtmlHelpWProc: THtmlHelpWPRoc; function HtmlHelpSupported: Boolean; begin if HtmlHelpOcxModule = 0 then begin HtmlHelpOcxModule := LoadLibrary('hhctrl.ocx'); if HtmlHelpOcxModule <> 0 then begin @HtmlHelpAProc := GetProcAddress(HtmlHelpOcxModule, 'HtmlHelpA'); @HtmlHelpWProc := GetProcAddress(HtmlHelpOcxModule, 'HtmlHelpW'); end; end; if Assigned(HtmlHelpAProc) and Assigned(HtmlHelpWProc) then Result := True else Result := False; end; function HtmlHelp(hWndCaller: HWND; pszFile: LPCTSTR; uCommand: UINT; dwData: DWORD): HWND; begin Result := HtmlHelpA(hWndCaller, pszFile, uCommand, dwData); if Result = 0 then raise Exception.Create('Microsoft HTML Help not installed. Please update to Internet Explorer 5 or later.'); end; function HtmlHelpA(hWndCaller: HWND; pszFile: PAnsiChar; uCommand: UINT; dwData:DWORD): HWND; begin if HtmlHelpSupported then Result := HtmlHelpAProc(hWndCaller, pszFile, uCommand, dwData) else Result := 0; end; function HtmlHelpW(hWndCaller: HWND; pszFile: PWideChar; uCommand: UINT; dwData:DWORD): HWND; begin if HtmlHelpSupported then Result := HtmlHelpWProc(hWndCaller, pszFile, uCommand, dwData) else Result := 0; end; procedure UnloadHtmlHelpModule; begin if HtmlHelpOcxModule <> 0 then FreeLibrary(HtmlHelpOcxModule); end; initialization HtmlHelpOcxModule := 0; finalization UnloadHtmlHelpModule; end. |
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src Modified Files: GX_AsciiChart.pas GX_Backup.pas GX_CleanDirectories.pas GX_ClipboardHistory.pas GX_ComponentGrid.pas GX_CompRename.dfm GX_CompRename.pas GX_ExpertManager.pas GX_IdeShortCuts.dfm GX_IdeShortCuts.pas GX_MacroLibrary.pas GX_MessageBox.pas GX_MessageDialog.pas GX_PeInformation.pas GX_ProjDepend.pas GX_SourceExport.pas GX_TabOrder.dfm GX_TabOrder.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_MacroLibrary.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MacroLibrary.pas,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- GX_MacroLibrary.pas 5 Jul 2006 13:54:30 -0000 1.11 +++ GX_MacroLibrary.pas 1 Apr 2007 03:26:15 -0000 1.12 @@ -826,6 +826,7 @@ begin inherited; SetToolbarGradient(ToolBar); + SetDefaultFont(Self); //lvMacros.DoubleBuffered := True; // Causing D2005 paint issues for docked/pinned windows end; Index: GX_ComponentGrid.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ComponentGrid.pas,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- GX_ComponentGrid.pas 22 Nov 2006 19:37:16 -0000 1.30 +++ GX_ComponentGrid.pas 1 Apr 2007 03:26:15 -0000 1.31 @@ -439,6 +439,7 @@ procedure TfmComponentGrid.FormCreate(Sender: TObject); begin SetToolbarGradient(ToolBar); + SetDefaultFont(Self); StringGrid := TSortGrid.Create(Self); with StringGrid do begin Index: GX_PeInformation.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_PeInformation.pas,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- GX_PeInformation.pas 17 Apr 2006 06:10:26 -0000 1.40 +++ GX_PeInformation.pas 1 Apr 2007 03:26:15 -0000 1.41 @@ -591,6 +591,7 @@ inherited Create(AOwner); SetToolbarGradient(ToolBar); + SetDefaultFont(Self); FileDrop := TDropFileTarget.Create(nil); FileDrop.OnDrop := DropFiles; FileDrop.DragTypes := [dtCopy, dtMove, dtLink]; Index: GX_SourceExport.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_SourceExport.pas,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- GX_SourceExport.pas 8 Dec 2005 05:39:42 -0000 1.32 +++ GX_SourceExport.pas 1 Apr 2007 03:26:15 -0000 1.33 @@ -348,6 +348,7 @@ inherited Create(AOwner); SetToolbarGradient(ToolBar); + SetDefaultFont(Self); // Destroyed with form FEditor := TSynEdit.Create(Self); with FEditor do Index: GX_ExpertManager.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ExpertManager.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- GX_ExpertManager.pas 17 Apr 2006 06:13:41 -0000 1.31 +++ GX_ExpertManager.pas 1 Apr 2007 03:26:15 -0000 1.32 @@ -250,6 +250,7 @@ inherited Create(AOwner); SetToolbarGradient(ToolBar); + SetDefaultFont(Self); SetNonModalFormPopupMode(Self); FFileDrop := TDropFileTarget.Create(nil); Index: GX_AsciiChart.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_AsciiChart.pas,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- GX_AsciiChart.pas 16 May 2006 02:06:13 -0000 1.26 +++ GX_AsciiChart.pas 1 Apr 2007 03:26:15 -0000 1.27 @@ -722,6 +722,7 @@ inherited Create(AOwner); SetToolbarGradient(ToolBar); + SetDefaultFont(Self); SetNonModalFormPopupMode(Self); GetFonts; CenterForm(Self); Index: GX_ClipboardHistory.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ClipboardHistory.pas,v retrieving revision 1.53 retrieving revision 1.54 diff -u -d -r1.53 -r1.54 --- GX_ClipboardHistory.pas 25 Jan 2006 05:36:11 -0000 1.53 +++ GX_ClipboardHistory.pas 1 Apr 2007 03:26:15 -0000 1.54 @@ -457,6 +457,7 @@ inherited Create(AOwner); SetToolbarGradient(ToolBar); + SetDefaultFont(Self); {$IFOPT D+} SendDebug('Creating clipboard history data list'); {$ENDIF} FDataList := TList.Create; SplitterRatio := 0.50; Index: GX_ProjDepend.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ProjDepend.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- GX_ProjDepend.pas 8 Dec 2005 05:39:42 -0000 1.38 +++ GX_ProjDepend.pas 1 Apr 2007 03:26:15 -0000 1.39 @@ -750,6 +750,7 @@ begin inherited Create(AOwner); SetToolbarGradient(ToolBar); + SetDefaultFont(Self); SetNonModalFormPopupMode(Self); FFilterList := TStringList.Create; Index: GX_CleanDirectories.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CleanDirectories.pas,v retrieving revision 1.41 retrieving revision 1.42 diff -u -d -r1.41 -r1.42 --- GX_CleanDirectories.pas 17 Mar 2007 07:55:39 -0000 1.41 +++ GX_CleanDirectories.pas 1 Apr 2007 03:26:15 -0000 1.42 @@ -418,6 +418,7 @@ begin laStatus.Caption := ''; LoadSettings; + SetDefaultFont(Self); if CleanExpert.ExtensionList.Count > 0 then clbExtensions.Items.Assign(CleanExpert.ExtensionList) Index: GX_MessageDialog.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MessageDialog.pas,v retrieving revision 1.62 retrieving revision 1.63 diff -u -d -r1.62 -r1.63 --- GX_MessageDialog.pas 5 Jul 2006 13:54:30 -0000 1.62 +++ GX_MessageDialog.pas 1 Apr 2007 03:26:15 -0000 1.63 @@ -331,6 +331,7 @@ constructor TfmMessageDialog.Create(AOwner: TComponent; Settings: TMessageDialogSettings); begin inherited Create(AOwner); + SetDefaultFont(Self); FMessageType := nil; pgeMessageDialogChange(Self); FSettings := Settings; Index: GX_Backup.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Backup.pas,v retrieving revision 1.65 retrieving revision 1.66 diff -u -d -r1.65 -r1.66 --- GX_Backup.pas 17 Apr 2006 06:13:41 -0000 1.65 +++ GX_Backup.pas 1 Apr 2007 03:26:15 -0000 1.66 @@ -409,6 +409,7 @@ constructor TfmBackup.Create(AOwner: TComponent); begin inherited Create(AOwner); + SetDefaultFont(Self); FLibraryPath := TStringList.Create; FLibraryPath.Duplicates := dupIgnore; Index: GX_TabOrder.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_TabOrder.pas,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- GX_TabOrder.pas 28 Jul 2006 02:52:55 -0000 1.29 +++ GX_TabOrder.pas 1 Apr 2007 03:26:15 -0000 1.30 @@ -26,6 +26,7 @@ procedure tvCompsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure btnOrderByPositionClick(Sender: TObject); procedure btnResetOrderClick(Sender: TObject); + procedure FormCreate(Sender: TObject); private FormEditor: IOTAFormEditor; FBiDiMode: TBiDiMode; @@ -458,6 +459,11 @@ SortTreeViewComponentsByOriginalTabOrder; end; +procedure TfmTabOrder.FormCreate(Sender: TObject); +begin + SetDefaultFont(Self); +end; + initialization RegisterGX_Expert(TTabExpert); end. Index: GX_CompRename.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.dfm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- GX_CompRename.dfm 23 Mar 2007 09:03:34 -0000 1.11 +++ GX_CompRename.dfm 1 Apr 2007 03:26:15 -0000 1.12 @@ -45,13 +45,6 @@ Anchors = [akLeft, akBottom] Caption = 'Invalid identifier' Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clRed - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentColor = False - ParentFont = False Visible = False end object edtOldName: TEdit Index: GX_CompRename.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.pas,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- GX_CompRename.pas 23 Mar 2007 09:03:34 -0000 1.30 +++ GX_CompRename.pas 1 Apr 2007 03:26:15 -0000 1.31 @@ -826,6 +826,8 @@ procedure TfmCompRename.FormCreate(Sender: TObject); begin SetModalFormPopupMode(Self); + SetDefaultFont(Self); + lblReason.Font.Color := clRed; lblReason.Top := btnOK.Top + Round((btnOK.Height / 2) - (lblReason.Height / 2)); end; Index: GX_IdeShortCuts.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeShortCuts.dfm,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- GX_IdeShortCuts.dfm 16 May 2005 03:27:32 -0000 1.10 +++ GX_IdeShortCuts.dfm 1 Apr 2007 03:26:15 -0000 1.11 @@ -10,7 +10,7 @@ Constraints.MinWidth = 500 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText - Font.Height = -10 + Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Index: GX_IdeShortCuts.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeShortCuts.pas,v retrieving revision 1.42 retrieving revision 1.43 diff -u -d -r1.42 -r1.43 --- GX_IdeShortCuts.pas 6 Sep 2006 07:53:34 -0000 1.42 +++ GX_IdeShortCuts.pas 1 Apr 2007 03:26:15 -0000 1.43 @@ -650,6 +650,7 @@ procedure TfmIdeShortCuts.FormCreate(Sender: TObject); begin + SetDefaultFont(Self); hkShortCut := TGXHotKey.Create(Self); hkShortCut.Parent := pnlControls; hkShortCut.SetBounds(100, 83, 160, 21); Index: GX_TabOrder.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_TabOrder.dfm,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- GX_TabOrder.dfm 16 May 2005 03:27:32 -0000 1.12 +++ GX_TabOrder.dfm 1 Apr 2007 03:26:15 -0000 1.13 @@ -17,6 +17,7 @@ OldCreateOrder = True Position = poScreenCenter Scaled = False + OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object pnlButtons: TPanel Index: GX_MessageBox.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MessageBox.pas,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- GX_MessageBox.pas 5 Jul 2006 13:54:30 -0000 1.20 +++ GX_MessageBox.pas 1 Apr 2007 03:26:15 -0000 1.21 @@ -53,7 +53,7 @@ uses {$IFOPT D+} GX_DbugIntf, {$ENDIF} SysUtils, Consts, - GX_ConfigurationInfo; + GX_ConfigurationInfo, GX_GenericUtils; const MsgDlgResults: array[TMsgDlgBtn] of Integer = ( @@ -138,6 +138,7 @@ begin Dlg := TfmGxMessageBox.Create(nil); try + SetDefaultFont(Dlg); Dlg.Caption := Adaptor.GetCaption; Dlg.chkNeverShowAgain.Enabled := Adaptor.AllowSuppress; Dlg.mmoMessage.Lines.Text := Adaptor.GetMessage; |
From: Erik B. <eb...@us...> - 2007-04-01 03:26:17
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ToDo In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src/ToDo Modified Files: GX_ToDo.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_ToDo.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ToDo/GX_ToDo.pas,v retrieving revision 1.55 retrieving revision 1.56 diff -u -d -r1.55 -r1.56 --- GX_ToDo.pas 1 Sep 2006 21:02:23 -0000 1.55 +++ GX_ToDo.pas 1 Apr 2007 03:26:16 -0000 1.56 @@ -906,6 +906,7 @@ begin inherited Create(AOwner); SetToolbarGradient(ToolBar); + SetDefaultFont(Self); FIsFirstActivation := True; FColumnIndex := -1; |
From: Erik B. <eb...@us...> - 2007-04-01 03:26:17
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Proofreader In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src/Proofreader Modified Files: GX_ProofreaderConfig.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_ProofreaderConfig.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Proofreader/GX_ProofreaderConfig.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- GX_ProofreaderConfig.pas 5 Jul 2006 13:54:32 -0000 1.28 +++ GX_ProofreaderConfig.pas 1 Apr 2007 03:26:16 -0000 1.29 @@ -128,6 +128,7 @@ SetToolbarGradient(tbrReplacement); SetToolbarGradient(tbrDictionary); + SetDefaultFont(Self); Assert(Assigned(ProofreaderExpert)); FProofreaderExpert := ProofreaderExpert; Assert(Assigned(ProofreaderData)); |
From: Erik B. <eb...@us...> - 2007-04-01 03:26:17
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/OpenFile In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src/OpenFile Modified Files: GX_OpenFile.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_OpenFile.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFile.pas,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GX_OpenFile.pas 17 Mar 2007 07:46:43 -0000 1.18 +++ GX_OpenFile.pas 1 Apr 2007 03:26:16 -0000 1.19 @@ -617,6 +617,7 @@ procedure TfmOpenFile.FormCreate(Sender: TObject); begin SetToolbarGradient(ToolBar); + SetDefaultFont(Self); lvSearchPath.Color := clBtnFace; lvSearchPath.Enabled := False; lvCommon.Color := clBtnFace; |
From: Erik B. <eb...@us...> - 2007-04-01 03:26:17
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src/ReplaceComponents Modified Files: GX_ReplaceComp.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_ReplaceComp.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents/GX_ReplaceComp.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- GX_ReplaceComp.pas 17 Apr 2006 06:06:38 -0000 1.12 +++ GX_ReplaceComp.pas 1 Apr 2007 03:26:16 -0000 1.13 @@ -449,6 +449,7 @@ constructor TfmReplaceComp.Create(AOwner: TComponent); begin inherited Create(AOwner); + SetDefaultFont(Self); LoadFormSettings; SetupControls; |
From: Erik B. <eb...@us...> - 2007-04-01 03:26:16
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ProjOptionSets In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src/ProjOptionSets Modified Files: GX_ProjOptionSets.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_ProjOptionSets.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ProjOptionSets/GX_ProjOptionSets.pas,v retrieving revision 1.53 retrieving revision 1.54 diff -u -d -r1.53 -r1.54 --- GX_ProjOptionSets.pas 17 Apr 2006 06:06:37 -0000 1.53 +++ GX_ProjOptionSets.pas 1 Apr 2007 03:26:16 -0000 1.54 @@ -1437,6 +1437,7 @@ begin inherited; SetToolbarGradient(ToolBar); + SetDefaultFont(Self); pcSettings.ActivePage := tabSets; end; |
From: Erik B. <eb...@us...> - 2007-04-01 03:26:16
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/MacroTemplates In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src/MacroTemplates Modified Files: GX_MacroSelect.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_MacroSelect.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/MacroTemplates/GX_MacroSelect.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- GX_MacroSelect.pas 14 May 2005 19:49:36 -0000 1.8 +++ GX_MacroSelect.pas 1 Apr 2007 03:26:15 -0000 1.9 @@ -39,7 +39,8 @@ uses Messages, Windows, - GX_MacroTemplates, GX_MacroTemplatesExpert, GX_ConfigurationInfo; + GX_MacroTemplates, GX_MacroTemplatesExpert, GX_ConfigurationInfo, + GX_GenericUtils; {$R *.dfm} @@ -184,6 +185,7 @@ procedure TfmMacroSelect.FormCreate(Sender: TObject); begin LoadFormLayout; + SetDefaultFont(Self); end; procedure TfmMacroSelect.FormClose(Sender: TObject; var Action: TCloseAction); |
From: Erik B. <eb...@us...> - 2007-04-01 03:26:16
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ClassBrowser In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src/ClassBrowser Modified Files: GX_ClassBrowser.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_ClassBrowser.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ClassBrowser/GX_ClassBrowser.pas,v retrieving revision 1.52 retrieving revision 1.53 diff -u -d -r1.52 -r1.53 --- GX_ClassBrowser.pas 5 Jul 2006 13:54:31 -0000 1.52 +++ GX_ClassBrowser.pas 1 Apr 2007 03:26:15 -0000 1.53 @@ -1419,6 +1419,7 @@ SetToolbarGradient(tbMain); SetToolbarGradient(tbKinds); SetToolbarGradient(tbVisibility); + SetDefaultFont(Self); SetNonModalFormPopupMode(Self); FStartingDir := ExtractFilePath(Application.ExeName); |
From: Erik B. <eb...@us...> - 2007-04-01 03:26:16
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/CodeLib In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src/CodeLib Modified Files: GX_CodeLib.pas Log Message: Use Tahoma/ClearType for our main forms under most OS versions Index: GX_CodeLib.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/CodeLib/GX_CodeLib.pas,v retrieving revision 1.64 retrieving revision 1.65 diff -u -d -r1.64 -r1.65 --- GX_CodeLib.pas 5 Jul 2006 13:54:31 -0000 1.64 +++ GX_CodeLib.pas 1 Apr 2007 03:26:15 -0000 1.65 @@ -1183,6 +1183,7 @@ inherited Create(AOwner); SetNonModalFormPopupMode(Self); SetToolbarGradient(ToolBar); + SetDefaultFont(Self); SetupSyntaxHighlightingControl; Screen.Cursor := crHourglass; |
From: Erik B. <eb...@us...> - 2007-04-01 03:21:16
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv19515/Src/Utils Modified Files: GX_GxUtils.pas Log Message: HTML Help (.chm) support instead of .hlp which no longer works on Vista Index: GX_GxUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GxUtils.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GX_GxUtils.pas 20 Jun 2006 20:03:34 -0000 1.19 +++ GX_GxUtils.pas 1 Apr 2007 03:21:11 -0000 1.20 @@ -13,7 +13,9 @@ {$I GX_CondDefine.inc} uses - Graphics, Controls; + Graphics, + {$IFNDEF GX_VER170_up}GXHtmlHelp,{$ENDIF} + Controls; // Returns True if the binary this function is called from // has been linked against various packages; at this time, @@ -126,25 +128,19 @@ end; procedure CallWinHelp(const Command, ContextID: Integer; const HelpOwner: TWinControl); -var - ControlHandle: HWND; begin - if Assigned(HelpOwner) then - ControlHandle := HelpOwner.Handle - else - ControlHandle := 0; - - WinHelp(ControlHandle, PChar(ConfigInfo.HelpFile), Command, ContextID); + // The 0 allows the help to drop behind the IDE + HtmlHelp(0, PChar(ConfigInfo.HelpFile), Command, ContextID); end; procedure GxContextHelpContents(const HelpOwner: TWinControl); begin - CallWinHelp(HELP_CONTENTS, 0, HelpOwner); + CallWinHelp(HH_DISPLAY_INDEX, 0, HelpOwner); end; procedure GxContextHelp(const HelpOwner: TWinControl; const ContextID: Integer); begin - CallWinHelp(HELP_CONTEXT, ContextID, HelpOwner); + CallWinHelp(HH_HELP_CONTEXT, ContextID, HelpOwner); end; function ComponentPaletteAvailable: Boolean; |
From: Erik B. <eb...@us...> - 2007-04-01 03:21:16
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/FavFiles In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv19515/Src/FavFiles Modified Files: GX_FavFiles.pas Log Message: HTML Help (.chm) support instead of .hlp which no longer works on Vista Index: GX_FavFiles.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/FavFiles/GX_FavFiles.pas,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- GX_FavFiles.pas 17 Mar 2007 07:49:31 -0000 1.56 +++ GX_FavFiles.pas 1 Apr 2007 03:21:11 -0000 1.57 @@ -1258,7 +1258,7 @@ '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;*.dproj)|*.dpr;*.bpr;*.dpk;*.bpk;*.bpg;*.bdsproj;*.bdsgroup;*.dproj' + '|Pascal Files (*.pas;*.inc)|*.pas;*.inc' + - '|Help Files (*.hlp)|*.hlp' + + '|Help Files (*.chm;*.hlp)|*.chm;*.hlp' + '|Graphics Files (*.bmp;*.wmf)|*.bmp;*.wmf' + '|Text Files (*.txt;*.me;*.asc)|*.txt;*.me;*.asc' + '|Executable Files (*.exe)|*.exe' + @@ -1271,6 +1271,7 @@ inherited; SetToolbarGradient(ToolBar); + SetDefaultFont(Self); pnlFileView.Caption := ''; SetNonModalFormPopupMode(Self); splTreeView.AutoSnap := False; |
From: Erik B. <eb...@us...> - 2007-04-01 03:21:16
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv19515/Src Modified Files: GX_ConfigurationInfo.pas GX_Configure.dfm Log Message: HTML Help (.chm) support instead of .hlp which no longer works on Vista Index: GX_ConfigurationInfo.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ConfigurationInfo.pas,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- GX_ConfigurationInfo.pas 23 Mar 2007 08:59:00 -0000 1.44 +++ GX_ConfigurationInfo.pas 1 Apr 2007 03:21:11 -0000 1.45 @@ -426,7 +426,9 @@ try FVclPath := AddSlash(Settings.ReadString(ConfigurationKey, 'VCLPath', FVclPath)); FConfigPath := AddSlash(Settings.ReadString(ConfigurationKey, 'ConfigPath', FConfigPath)); - FHelpFileLocation := Settings.ReadString(ConfigurationKey, 'HelpFile', FConfigPath + 'GExperts.hlp'); + FHelpFileLocation := Settings.ReadString(ConfigurationKey, 'HelpFile', FConfigPath + 'GExperts.chm'); + if SameText(ExtractFileExt(FHelpFileLocation), '.hlp') then + FHelpFileLocation := ChangeFileExt(FHelpFileLocation, '.chm'); FAlphabetizeMenu := Settings.ReadBool(ConfigurationKey, 'AlphabetizeMenu', False); FEditorExpertsEnabled := Settings.ReadBool(ConfigurationKey, 'EditorExpertsEnabled', True); FPlaceGxMainMenuInToolsMenu := Settings.ReadBool(ConfigurationKey, 'PlaceGxMainMenuInToolsMenu', False); Index: GX_Configure.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.dfm,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- GX_Configure.dfm 23 Mar 2007 08:59:00 -0000 1.33 +++ GX_Configure.dfm 1 Apr 2007 03:21:11 -0000 1.34 @@ -686,7 +686,7 @@ end object dlgHelpFile: TOpenDialog DefaultExt = '.hlp' - Filter = 'Help Files (*.hlp)|*.hlp' + Filter = 'Help Files (*.chm)|*.chm' Options = [ofPathMustExist, ofFileMustExist] Title = 'Select Help File' Left = 358 |
From: Erik B. <eb...@us...> - 2007-04-01 03:21:16
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv19515 Modified Files: GExperts.iss Log Message: HTML Help (.chm) support instead of .hlp which no longer works on Vista Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- GExperts.iss 25 Mar 2007 07:30:43 -0000 1.21 +++ GExperts.iss 1 Apr 2007 03:21:11 -0000 1.22 @@ -115,8 +115,7 @@ Source: Binaries\{#BinaryDir}\ExpMgr.exe; DestDir: {app}; Flags: ignoreversion Source: Binaries\{#BinaryDir}\GDebug.exe; DestDir: {app}; Flags: ignoreversion Source: Binaries\{#BinaryDir}\Grep.exe; DestDir: {app}; Flags: ignoreversion -Source: Help\GExperts.hlp; DestDir: {app}; Flags: ignoreversion -Source: Help\GExperts.cnt; DestDir: {app}; Flags: ignoreversion +Source: Help\GExperts.chm; DestDir: {app}; Flags: ignoreversion Source: {#DLLName}; DestDir: {app}; Flags: ignoreversion Source: DbugIntf.pas; DestDir: {app}; Flags: ignoreversion Source: Readme.txt; DestDir: {app}; Flags: isreadme ignoreversion @@ -124,7 +123,7 @@ [Icons] Name: {group}\Debug Window; Filename: {app}\GDebug.exe Name: {group}\Expert Manager; Filename: {app}\ExpMgr.exe -Name: {group}\GExperts Help; Filename: {app}\GExperts.hlp +Name: {group}\GExperts Help; Filename: {app}\GExperts.chm Name: {group}\GExperts Readme; Filename: {app}\Readme.txt Name: {group}\Grep Search; Filename: {app}\Grep.exe @@ -132,7 +131,7 @@ Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts; ValueType: STRING; ValueName: GExperts; ValueData: {app}\{#DLLName}; Flags: uninsdeletevalue; Check: IDEExecuted Root: HKLM; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts; ValueType: STRING; ValueName: GExperts; ValueData: {app}\{#DLLName}; Flags: uninsdeletevalue uninsdeletekeyifempty Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: ConfigPath; ValueData: {app}; Check: IDEExecuted -Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: HelpFile; ValueData: {app}\GExperts.hlp; Check: IDEExecuted +Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: HelpFile; ValueData: {app}\GExperts.chm; Check: IDEExecuted Root: HKCU; Subkey: Software\GExperts\Debug; ValueType: STRING; ValueName: FilePath; ValueData: {app}\GDebug.exe [Code] |
From: Erik B. <eb...@us...> - 2007-03-25 07:30:45
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv7238 Modified Files: GExperts.iss Log Message: Deal with both HKLM and HKCU registry keys to handle users who have not executed the IDE yet Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- GExperts.iss 17 Mar 2007 07:24:05 -0000 1.20 +++ GExperts.iss 25 Mar 2007 07:30:43 -0000 1.21 @@ -92,7 +92,7 @@ [Setup] AllowNoIcons=true -AppCopyright=Copyright 1996-2006 by GExperts, Inc. and Erik Berry +AppCopyright=Copyright 1996-2007 by GExperts, Inc. and Erik Berry AppName={#Product} AppVerName={#FullName} AppID={#AppIDValue} @@ -129,15 +129,19 @@ Name: {group}\Grep Search; Filename: {app}\Grep.exe [Registry] -Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts; ValueType: STRING; ValueName: GExperts; ValueData: {app}\{#DLLName}; Flags: uninsdeletevalue -Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: ConfigPath; ValueData: {app} -Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: HelpFile; ValueData: {app}\GExperts.hlp +Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts; ValueType: STRING; ValueName: GExperts; ValueData: {app}\{#DLLName}; Flags: uninsdeletevalue; Check: IDEExecuted +Root: HKLM; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts; ValueType: STRING; ValueName: GExperts; ValueData: {app}\{#DLLName}; Flags: uninsdeletevalue uninsdeletekeyifempty +Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: ConfigPath; ValueData: {app}; Check: IDEExecuted +Root: HKCU; Subkey: Software\Borland\{#IDERegName}\{#IDERegVer}.0\GExperts-{#VerRegKey}\Misc; ValueType: STRING; ValueName: HelpFile; ValueData: {app}\GExperts.hlp; Check: IDEExecuted Root: HKCU; Subkey: Software\GExperts\Debug; ValueType: STRING; ValueName: FilePath; ValueData: {app}\GDebug.exe [Code] procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); begin if CurUninstallStep = usPostUninstall then + begin + // Delete the DLL reference even if it was copied from the HKLM tree + RegDeleteValue(HKEY_CURRENT_USER, 'Software\Borland\{#IDERegName}\{#IDERegVer}.0\Experts', 'GExperts'); case MsgBox('Do you want to delete all of your GExperts preferences and data files?', mbConfirmation, MB_YESNOCANCEL or MB_DEFBUTTON2) of IDYES: @@ -154,5 +158,10 @@ IDCANCEL: Abort; end; + end; end; +function IDEExecuted: Boolean; +begin + Result := RegKeyExists(HKEY_CURRENT_USER, 'Software\Borland\{#IDERegName}\{#IDERegVer}.0'); +end; |
From: Erik B. <eb...@us...> - 2007-03-23 10:03:05
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv26344 Modified Files: GExpertsBDS2006.bdsproj GExpertsBDS2006.dpr GExpertsD6.dpr GExpertsD7.dof GExpertsD7.dpr GExpertsD8.dpr GExpertsD9.bdsproj GExpertsD9.dpr GExpertsDelphi2007.dpr GExpertsDelphi2007.dproj Readme.txt Log Message: Add IDE form enhancement feature Index: GExpertsD6.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD6.dpr,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GExpertsD6.dpr 17 Mar 2007 07:24:06 -0000 1.18 +++ GExpertsD6.dpr 23 Mar 2007 10:03:02 -0000 1.19 @@ -193,7 +193,8 @@ GX_eAlign in 'Src\EditorExperts\GX_eAlign.pas' {fmAlign}, GX_eAlignOptions in 'Src\EditorExperts\GX_eAlignOptions.pas' {fmAlignOptions}, GX_FileScanner in 'Src\GX_FileScanner.pas', - GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}; + GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}, + GX_IdeFormEnhancer in 'Src\GX_IdeFormEnhancer.pas'; {$E dll} Index: GExpertsDelphi2007.dproj =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsDelphi2007.dproj,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- GExpertsDelphi2007.dproj 20 Mar 2007 15:47:07 -0000 1.1 +++ GExpertsDelphi2007.dproj 23 Mar 2007 10:03:02 -0000 1.2 @@ -12,14 +12,11 @@ </PropertyGroup> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <Version>7.0</Version> - <DCC_DebugInformation>False</DCC_DebugInformation> - <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> - <DCC_Optimize>False</DCC_Optimize> <DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck> <DCC_RangeChecking>True</DCC_RangeChecking> <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> - <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo> <DCC_UnitSearchPath>Src;Comps;Comps\Abbrevia</DCC_UnitSearchPath> <DCC_ResourcePath>Src;Comps;Comps\Abbrevia</DCC_ResourcePath> <DCC_ObjPath>Src;Comps;Comps\Abbrevia</DCC_ObjPath> @@ -38,6 +35,7 @@ <DCC_ObjPath>Src;Comps;Comps\Abbrevia</DCC_ObjPath> <DCC_IncludePath>Src;Comps;Comps\Abbrevia</DCC_IncludePath> <DCC_Define>DEBUG</DCC_Define> + <DCC_Optimize>False</DCC_Optimize> </PropertyGroup> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'GExperts Release|AnyCPU' "> <Version>7.0</Version> @@ -71,15 +69,6 @@ <Borland.ProjectType /> <BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="RunParams">-np -ns</Parameters><Parameters Name="HostApplication">D:\Borland\Delphi2007\bin\bds.exe</Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">True</VersionInfo><VersionInfo Name="Special">True</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">True</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.3.1.0</VersionInfoKeys><VersionInfoKeys Name="CompanyName">GExperts, Inc. and Erik Berry</VersionInfoKeys><VersionInfoKeys Name="FileDescription">GExperts for Delphi 2007</VersionInfoKeys><VersionInfoKeys Name="InternalName">GExperts for Delphi 2007</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">GExpertsDelphi2007.dll</VersionInfoKeys><VersionInfoKeys Name="ProductName">GExperts for Delphi 2007</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.31</VersionInfoKeys><VersionInfoKeys Name="Comments">Open Source</VersionInfoKeys><VersionInfoKeys Name="Compile Date">Saturday, October 06, 2001 3:07 PM</VersionInfoKeys><VersionInfoKeys Name="CompileDate">Wednesday, July 05, 2006 12:26 AM</VersionInfoKeys><VersionInfoKeys Name="SpecialBuild"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GExpertsDelphi2007.dpr</Source></Source><Excluded_Packages> - - - - - - - - - <Excluded_Packages Name="$(BDS)\bin\dcldbxcds4100.bpl">CodeGear SimpleDataset Component (DBX)</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> @@ -258,6 +247,7 @@ <DCCReference Include="Src\GX_GExperts.pas" /> <DCCReference Include="Src\GX_IconMessageBox.pas" /> <DCCReference Include="Src\GX_IdeEnhance.pas" /> + <DCCReference Include="Src\GX_IdeFormEnhancer.pas" /> <DCCReference Include="Src\GX_IdeShortCuts.pas"> <Form>fmIdeShortCuts</Form> </DCCReference> @@ -376,7 +366,6 @@ <Form>fmReplaceCompMapList</Form> </DCCReference> <DCCReference Include="Src\ReplaceComponents\GX_ReplaceCompUtils.pas" /> - <DCCReference Include="Src\RMDAddIn.pas" /> <DCCReference Include="Src\SetComponentProps\GX_SetComponentProps.pas" /> <DCCReference Include="Src\SetComponentProps\GX_SetComponentPropsConfig.pas"> <Form>fmSetComponentPropsConfig</Form> Index: GExpertsD7.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD7.dpr,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- GExpertsD7.dpr 17 Mar 2007 07:24:06 -0000 1.18 +++ GExpertsD7.dpr 23 Mar 2007 10:03:02 -0000 1.19 @@ -193,7 +193,8 @@ GX_eAlign in 'Src\EditorExperts\GX_eAlign.pas' {fmAlign}, GX_eAlignOptions in 'Src\EditorExperts\GX_eAlignOptions.pas' {fmAlignOptions}, GX_FileScanner in 'Src\GX_FileScanner.pas', - GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}; + GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}, + GX_IdeFormEnhancer in 'Src\GX_IdeFormEnhancer.pas'; {$E dll} Index: GExpertsDelphi2007.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsDelphi2007.dpr,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- GExpertsDelphi2007.dpr 20 Mar 2007 15:47:06 -0000 1.1 +++ GExpertsDelphi2007.dpr 23 Mar 2007 10:03:02 -0000 1.2 @@ -193,7 +193,8 @@ GX_eAlign in 'Src\EditorExperts\GX_eAlign.pas' {fmAlign}, GX_eAlignOptions in 'Src\EditorExperts\GX_eAlignOptions.pas' {fmAlignOptions}, GX_FileScanner in 'Src\GX_FileScanner.pas', - GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}; + GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}, + GX_IdeFormEnhancer in 'Src\GX_IdeFormEnhancer.pas'; {$E dll} Index: GExpertsD7.dof =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD7.dof,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- GExpertsD7.dof 16 Oct 2006 20:12:12 -0000 1.6 +++ GExpertsD7.dof 23 Mar 2007 10:03:02 -0000 1.7 @@ -122,31 +122,31 @@ [Version Info Keys] CompanyName=GExperts, Inc. and Erik Berry FileDescription=GExperts for Delphi 7 -FileVersion=1.3.0.0 +FileVersion=1.3.1.0 InternalName=GExperts for Delphi 7 LegalCopyright= LegalTrademarks= OriginalFilename=GExpertsD7.dll ProductName=GExperts for Delphi 7 -ProductVersion=1.30 +ProductVersion=1.31 Comments=Open Source -Compile Date=Friday, August 12, 2005 1:14 AM +CompileDate=Monday, February 12, 2007 6:36 AM [Excluded Packages] -d:\borland\delphi7\Bin\dclact70.bpl=Borland ActionBar Components -d:\borland\delphi7\Bin\dclado70.bpl=Borland ADO DB Components D:\Borland\Delphi7\Bin\dclmid70.bpl=Borland MyBase DataAccess Components -D:\Borland\Ace\D7\acepro70.bpl=ACE Reporter Professional Version 1.60 -D:\Borland\Delphi7\Bin\dclbde70.bpl=Borland BDE DB Components -D:\Borland\Delphi7\Bin\dbx70.bpl=Borland SQL Explorer UI Package -d:\borland\delphi7\Bin\dcltee70.bpl=TeeChart Components +d:\borland\delphi7\Bin\dclado70.bpl=Borland ADO DB Components +d:\borland\delphi7\Bin\dclact70.bpl=Borland ActionBar Components d:\borland\delphi7\Bin\dclnet70.bpl=Borland Internet Components d:\borland\delphi7\Bin\dclmcn70.bpl=Borland DataSnap Connection Components d:\borland\delphi7\Bin\dcldbx70.bpl=Borland dbExpress Components d:\borland\delphi7\Bin\dcldbxcds70.bpl=Borland SimpleDataset Component (DBX) +d:\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package +D:\Borland\Delphi7\Bin\dclbde70.bpl=Borland BDE DB Components +D:\Borland\Delphi7\Bin\dbx70.bpl=Borland SQL Explorer UI Package d:\borland\delphi7\Bin\dclwbm70.bpl=Borland InternetExpress Components d:\borland\delphi7\Bin\dclie70.bpl=Internet Explorer Components d:\borland\delphi7\Bin\dclwebsnap70.bpl=Borland WebSnap Components d:\borland\delphi7\Bin\DCLIB70.bpl=InterBase Data Access Components +d:\borland\delphi7\Bin\dcltee70.bpl=TeeChart Components d:\borland\delphi7\Bin\dcldss70.bpl=Borland Decision Cube Components d:\borland\delphi7\Bin\dclclxdb70.bpl=Borland CLX Database Components D:\Borland\Delphi7\Bin\dclclxstd70.bpl=Borland CLX Standard Components @@ -154,12 +154,11 @@ d:\borland\delphi7\Bin\applet70.bpl=Borland Control Panel Applet Package d:\borland\delphi7\Bin\dclemacsedit70.bpl=Borland Editor Emacs Enhancements d:\borland\delphi7\Bin\dclmlwiz70.bpl=Borland Markup Language Wizards -d:\borland\delphi7\Bin\dclshlctrls70.bpl=Shell Control Property and Component Editors -d:\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package C:\WINDOWS\system32\ibevnt70.bpl=Borland Interbase Event Alerter Component +d:\borland\delphi7\Bin\dclshlctrls70.bpl=Shell Control Property and Component Editors [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 -Item0=Src;Comps;Comps\Abbrevia \ No newline at end of file +Item0=Src;Comps;Comps\Abbrevia Index: GExpertsD8.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD8.dpr,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GExpertsD8.dpr 17 Mar 2007 07:24:06 -0000 1.19 +++ GExpertsD8.dpr 23 Mar 2007 10:03:02 -0000 1.20 @@ -193,7 +193,8 @@ GX_eAlign in 'Src\EditorExperts\GX_eAlign.pas' {fmAlign}, GX_eAlignOptions in 'Src\EditorExperts\GX_eAlignOptions.pas' {fmAlignOptions}, GX_FileScanner in 'Src\GX_FileScanner.pas', - GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}; + GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}, + GX_IdeFormEnhancer in 'Src\GX_IdeFormEnhancer.pas'; {$E dll} Index: GExpertsD9.bdsproj =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD9.bdsproj,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- GExpertsD9.bdsproj 8 Dec 2005 05:43:43 -0000 1.5 +++ GExpertsD9.bdsproj 23 Mar 2007 10:03:02 -0000 1.6 @@ -169,8 +169,7 @@ <Language Name="ActiveLang" Type="String"></Language> <Language Name="ProjectLang" Type="String">$00000000</Language> <Language Name="RootDir" Type="String"></Language> - </Language> - <Excluded_Packages> + </Language> <Excluded_Packages> <Excluded_Packages Name="d:\borland\delphi9\bin\dclado90.bpl">Borland ADO DB Components</Excluded_Packages> <Excluded_Packages Name="d:\borland\delphi9\Bin\dclib90.bpl">Borland InterBase Express Components</Excluded_Packages> <Excluded_Packages Name="d:\borland\delphi9\Bin\dclIntraweb_72_90.bpl">Intraweb 7.2 Design Package for Delphi Win32</Excluded_Packages> Index: GExpertsBDS2006.bdsproj =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsBDS2006.bdsproj,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GExpertsBDS2006.bdsproj 13 May 2006 22:21:21 -0000 1.2 +++ GExpertsBDS2006.bdsproj 23 Mar 2007 10:03:02 -0000 1.3 @@ -162,7 +162,7 @@ <VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo> </VersionInfo> <VersionInfoKeys> - <VersionInfoKeys Name="FileVersion" Type="String">1.3.0.0</VersionInfoKeys> + <VersionInfoKeys Name="FileVersion" Type="String">1.3.1.0</VersionInfoKeys> <VersionInfoKeys Name="CompanyName" Type="String">GExperts, Inc. and Erik Berry</VersionInfoKeys> <VersionInfoKeys Name="FileDescription" Type="String">GExperts for BDS 2006</VersionInfoKeys> <VersionInfoKeys Name="InternalName" Type="String">GExperts for BDS 2006</VersionInfoKeys> @@ -170,10 +170,11 @@ <VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename" Type="String">GExpertsBDS2006.dll</VersionInfoKeys> <VersionInfoKeys Name="ProductName" Type="String">GExperts for BDS 2006</VersionInfoKeys> - <VersionInfoKeys Name="ProductVersion" Type="String">1.3.0.0</VersionInfoKeys> + <VersionInfoKeys Name="ProductVersion" Type="String">1.3.1.0</VersionInfoKeys> <VersionInfoKeys Name="Comments">Open Source</VersionInfoKeys> - <VersionInfoKeys Name="Compile Date">Saturday, October 06, 2001 3:07 PM</VersionInfoKeys> <VersionInfoKeys Name="CompileDate">Wednesday, April 26, 2006 4:23 AM</VersionInfoKeys> - </VersionInfoKeys> + <VersionInfoKeys Name="Compile Date">Saturday, October 06, 2001 3:07 PM</VersionInfoKeys> + <VersionInfoKeys Name="CompileDate">Wednesday, March 21, 2007 9:52 PM</VersionInfoKeys> + </VersionInfoKeys> <Language> <Language Name="ActiveLang" Type="String"></Language> <Language Name="ProjectLang" Type="String">$00000000</Language> Index: GExpertsD9.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsD9.dpr,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- GExpertsD9.dpr 17 Mar 2007 07:24:06 -0000 1.16 +++ GExpertsD9.dpr 23 Mar 2007 10:03:02 -0000 1.17 @@ -193,7 +193,8 @@ GX_eAlign in 'Src\EditorExperts\GX_eAlign.pas' {fmAlign}, GX_eAlignOptions in 'Src\EditorExperts\GX_eAlignOptions.pas' {fmAlignOptions}, GX_FileScanner in 'Src\GX_FileScanner.pas', - GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}; + GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}, + GX_IdeFormEnhancer in 'Src\GX_IdeFormEnhancer.pas'; {$E dll} Index: GExpertsBDS2006.dpr =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExpertsBDS2006.dpr,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- GExpertsBDS2006.dpr 17 Mar 2007 07:24:06 -0000 1.3 +++ GExpertsBDS2006.dpr 23 Mar 2007 10:03:02 -0000 1.4 @@ -193,7 +193,8 @@ GX_eAlign in 'Src\EditorExperts\GX_eAlign.pas' {fmAlign}, GX_eAlignOptions in 'Src\EditorExperts\GX_eAlignOptions.pas' {fmAlignOptions}, GX_FileScanner in 'Src\GX_FileScanner.pas', - GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}; + GX_MacroLibrary in 'Src\GX_MacroLibrary.pas' {fmMacroLibrary}, + GX_IdeFormEnhancer in 'Src\GX_IdeFormEnhancer.pas'; {$E dll} Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.108 retrieving revision 1.109 diff -u -d -r1.108 -r1.109 --- Readme.txt 17 Mar 2007 07:24:06 -0000 1.108 +++ Readme.txt 23 Mar 2007 10:03:02 -0000 1.109 @@ -108,6 +108,8 @@ VERSION 1.31 (March, 2007?) - General: Added support for Delphi 2007 Fixed a possible shutdown exception when unloading GExperts +- IDE Enhancements: Allow resizing some IDE options dialogs, etc. See the + help file for full details. VERSION 1.30 (October 26, 2006) |
From: Erik B. <eb...@us...> - 2007-03-23 09:49:11
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv20889/Comps Modified Files: GpLists.pas Log Message: Work around Delphi 8 internal compiler error Index: GpLists.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpLists.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- GpLists.pas 19 Jan 2007 18:02:33 -0000 1.5 +++ GpLists.pas 23 Mar 2007 09:49:08 -0000 1.6 @@ -1356,7 +1356,7 @@ function TGpInt64List.IndexOf(item: int64): integer; begin - if Sorted then begin + if Sorted then begin if not Find(item, Result) then Result := -1 end @@ -1453,13 +1453,13 @@ } type - PInteger64 = ^Int64; // Workaround for Delphi 6 "Internal error: URW699" below + PInteger64 = ^Int64; // Workaround for Delphi 6/8 "Internal error: URW699" below function TGpInt64List.Restore(baseAddr: pointer): pointer; var iList : integer; numItems: integer; - pList : {$IFNDEF D7PLUS} PInteger64 {$ELSE} PLargeInteger {$ENDIF}; + pList : PInteger64; // Workaround for Delphi 6/8 "Internal error: URW699" below begin pList := baseAddr; numItems := integer(pList^); @@ -2618,3 +2618,7 @@ end. + + + + |