gexperts-cvs Mailing List for GExperts (Page 2)

gexperts-cvs — CVS change notifications

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

Flat | Threaded

<< < 1 2 3 4 .. 134 > >> (Page 2 of 134)

[GExperts-CVS] gexperts/unstable/Src/Utils GX_OtaUtils.pas, 1.199, 1.200

From: Erik B. <eb...@us...> - 2007-03-23 09:33:46

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

Modified Files:
	GX_OtaUtils.pas 
Log Message:
Never try to get a native object for a VCL.NET component

Index: GX_OtaUtils.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v
retrieving revision 1.199
retrieving revision 1.200
diff -u -d -r1.199 -r1.200
--- GX_OtaUtils.pas	17 Mar 2007 07:26:30 -0000	1.199
+++ GX_OtaUtils.pas	23 Mar 2007 09:33:44 -0000	1.200
@@ -2528,10 +2528,10 @@
     tkWString: Result := Buffer.WString;
     tkSet:
       begin
-        if PreferStrings then
+        if PreferStrings and GxOtaActiveDesignerIsVCL then
         begin
           NativeObject := GxOtaGetNativeObject(AComponent);
-          Assert(Assigned(NativeObject));
+          Assert(Assigned(NativeObject), 'No native object for property ' + PropertyName);
           Result := SetToString(FindTypeInfo(NativeObject, PropertyName), Buffer.Int);
         end
         else
@@ -2539,7 +2539,7 @@
       end;
     tkEnumeration:
       begin
-        if PreferStrings then
+        if PreferStrings and GxOtaActiveDesignerIsVCL then
         begin
           NativeObject := GxOtaGetNativeObject(AComponent);
           Assert(Assigned(NativeObject));
@@ -2599,6 +2599,7 @@
   VFloat           : Extended;
   VChar            : Char;
   VWChar           : WChar;
+  VBoolean         : Boolean;
 
   function PropertyDescription: string;
   begin
@@ -2664,8 +2665,23 @@
 
     // Note: Booleans are of type tkEnumeration
     tkEnumeration: begin
-        VInteger := GetEnumValueFromStr(NativeObject, PropertyName, Value);
-        Result := AComponent.SetPropByName(PropertyName, VInteger);
+        if Assigned(NativeObject) then begin
+          VInteger := GetEnumValueFromStr(NativeObject, PropertyName, Value);
+          Result := AComponent.SetPropByName(PropertyName, VInteger);
+        end
+        else begin // VCL.NET error in BDS 2006: "Invalid property typeinfo type": http://qc.borland.com/wc/qcmain.aspx?d=42751
+          if SameText(Value, 'TRUE') or SameText(Value, 'FALSE') then begin
+            VBoolean := SameText(Value, 'TRUE');
+            Result := AComponent.SetPropByName(PropertyName, VBoolean);
+          end
+          else begin
+            VInteger := StrToIntDef(Value, -99998);
+            if VInteger <> -99998 then
+              Result := AComponent.SetPropByName(PropertyName, VInteger)
+            else
+              raise Exception.CreateFmt('Unsupported property value for %s: %s (try using the integer representing the enum value)', [PropertyDescription, Value]);
+          end;
+        end;
       end;
 
     // Support for sets is partial, because we don't support normalizing the values
@@ -2675,7 +2691,7 @@
           SetOrdProp(NativeObject, PropertyName, VInteger);
         end
         else
-          raise Exception.CreateFmt('No native object available for to set component property %s', [PropertyDescription]);
+          raise Exception.CreateFmt('No native object available to set component property %s', [PropertyDescription]);
       end;
 
     else // Unsupported: tkUnknown, tkMethod, tkInterface, tkDynArray, tkClass, tkArray, tkRecord
@@ -2688,7 +2704,7 @@
   CompHandle: TOTAHandle;
 begin
   Result := nil;
-  if AComponent = nil then
+  if (AComponent = nil) or (not GxOtaActiveDesignerIsVCL) then
     Exit;
   CompHandle := AComponent.GetComponentHandle;
   if Assigned(CompHandle) then

[GExperts-CVS] gexperts/unstable/Src GX_CompRename.dfm, 1.10, 1.11 GX_CompRename.pas, 1.29, 1.30

From: Erik B. <eb...@us...> - 2007-03-23 09:03:35

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

Modified Files:
	GX_CompRename.dfm GX_CompRename.pas 
Log Message:
Enforce the error label Y position, remove an IFDEF

Index: GX_CompRename.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.pas,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- GX_CompRename.pas	28 Jul 2006 02:54:32 -0000	1.29
+++ GX_CompRename.pas	23 Mar 2007 09:03:34 -0000	1.30
@@ -820,16 +820,13 @@
 function TCompRenameExpert.IsDefaultActive: Boolean;
 begin
   // IDE Bug: This expert does not work under Delphi 8
-  {$IFNDEF VER160}
-  Result := True;
-  {$ELSE VER160}
-  Result := False;
-  {$ENDIF VER160}
+  Result := not RunningDelphi8;
 end;
 
 procedure TfmCompRename.FormCreate(Sender: TObject);
 begin
   SetModalFormPopupMode(Self);
+  lblReason.Top := btnOK.Top + Round((btnOK.Height / 2) - (lblReason.Height / 2));
 end;
 
 procedure TfmCompRename.btnSettingsClick(Sender: TObject);

Index: GX_CompRename.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.dfm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- GX_CompRename.dfm	28 Jul 2006 02:54:32 -0000	1.10
+++ GX_CompRename.dfm	23 Mar 2007 09:03:34 -0000	1.11
@@ -4,8 +4,8 @@
   ActiveControl = edtNewName
   BorderStyle = bsDialog
   Caption = 'GExperts Rename Component'
-  ClientHeight = 95
-  ClientWidth = 334
+  ClientHeight = 97
+  ClientWidth = 355
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -17,8 +17,8 @@
   Scaled = False
   OnCreate = FormCreate
   DesignSize = (
-    334
-    95)
+    355
+    97)
   PixelsPerInch = 96
   TextHeight = 13
   object lblOldName: TLabel
@@ -39,7 +39,7 @@
   end
   object lblReason: TLabel
     Left = 10
-    Top = 68
+    Top = 70
     Width = 73
     Height = 13
     Anchors = [akLeft, akBottom]
@@ -57,7 +57,7 @@
   object edtOldName: TEdit
     Left = 91
     Top = 8
-    Width = 235
+    Width = 256
     Height = 21
     TabStop = False
     Anchors = [akLeft, akTop, akRight]
@@ -68,7 +68,7 @@
   object edtNewName: TEdit
     Left = 91
     Top = 32
-    Width = 235
+    Width = 256
     Height = 21
     Anchors = [akLeft, akTop, akRight]
     AutoSelect = False
@@ -76,8 +76,8 @@
     OnChange = edtNewNameChange
   end
   object btnCancel: TButton
-    Left = 171
-    Top = 63
+    Left = 192
+    Top = 65
     Width = 75
     Height = 25
     Anchors = [akRight, akBottom]
@@ -87,8 +87,8 @@
     TabOrder = 3
   end
   object btnOK: TButton
-    Left = 91
-    Top = 63
+    Left = 112
+    Top = 65
     Width = 75
     Height = 25
     Anchors = [akRight, akBottom]
@@ -98,8 +98,8 @@
     TabOrder = 2
   end
   object btnSettings: TButton
-    Left = 251
-    Top = 63
+    Left = 272
+    Top = 65
     Width = 75
     Height = 25
     Anchors = [akRight, akBottom]

[GExperts-CVS] gexperts/unstable/Src GX_ConfigurationInfo.pas, 1.43, 1.44 GX_Configure.dfm, 1.32, 1.33 GX_Configure.pas, 1.46, 1.47 GX_IdeEnhance.pas, 1.29, 1.30

From: Erik B. <eb...@us...> - 2007-03-23 08:59:03

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

Modified Files:
	GX_ConfigurationInfo.pas GX_Configure.dfm GX_Configure.pas 
	GX_IdeEnhance.pas 
Log Message:
Remove IdeEnhancements.Enabled feature that never worked anyway
Add form enhancer feature to IDE enhancements
Remove/hide the custom OI/CP font feature that stoped working in recent IDEs anyway
Rearrange configuration dialog slightly

Index: GX_Configure.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.pas,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -d -r1.46 -r1.47
--- GX_Configure.pas	26 Feb 2007 06:21:41 -0000	1.46
+++ GX_Configure.pas	23 Mar 2007 08:59:00 -0000	1.47
@@ -46,18 +46,8 @@
     chkEditorToolBar: TCheckBox;
     gbxIDEMenu: TGroupBox;
     chkDisableEditorExperts: TCheckBox;
-    gbxFonts: TGroupBox;
     dlgFont: TFontDialog;
-    btnOIFont: TButton;
-    btnCPFont: TButton;
-    chkOIFontEnabled: TCheckBox;
-    chkCPFontEnabled: TCheckBox;
-    chkDisableIDEEnhancements: TCheckBox;
     chkDisableEDTEnhancements: TCheckBox;
-    gbxFileSaving: TGroupBox;
-    chkAutoSave: TCheckBox;
-    lblEvery: TLabel;
-    lblMinutes: TLabel;
     chkEditTabButtonsFlat: TCheckBox;
     rgAlign: TRadioGroup;
     gbxTabDockHost: TGroupBox;
@@ -74,16 +64,27 @@
     chkAlphabetizeMenu: TCheckBox;
     btnConfigureToolBar: TButton;
     chkPlaceGxMainMenuInToolsMenu: TCheckBox;
-    chkOIFontNames: TCheckBox;
     chkMiddleButtonClose: TCheckBox;
     tshDebug: TTabSheet;
     chkEditorKeyTracing: TCheckBox;
     btnEnumerateModules: TButton;
-    edtMinutes: TEdit;
-    udMinutes: TUpDown;
     btnEumerateActions: TButton;
     btnGetFonts: TButton;
     btnAppBuilder: TButton;
+    gbxIDEForms: TGroupBox;
+    chkEnhanceDialogs: TCheckBox;
+    chkOIFontNames: TCheckBox;
+    gbxFonts: TGroupBox;
+    btnOIFont: TButton;
+    btnCPFont: TButton;
+    chkOIFontEnabled: TCheckBox;
+    chkCPFontEnabled: TCheckBox;
+    gbxFileSaving: TGroupBox;
+    lblEvery: TLabel;
+    lblMinutes: TLabel;
+    chkAutoSave: TCheckBox;
+    edtMinutes: TEdit;
+    udMinutes: TUpDown;
     procedure btnEnumerateModulesClick(Sender: TObject);
     procedure chkEditorKeyTracingClick(Sender: TObject);
     procedure sbVCLDirClick(Sender: TObject);
@@ -96,7 +97,6 @@
     procedure btnShortCutClick(Sender: TObject);
     procedure EditShortCutClick(Sender: TObject);
     procedure chkDisableEditorExpertsClick(Sender: TObject);
-    procedure chkDisableIDEEnhancementsClick(Sender: TObject);
     procedure chkFontEnabledClick(Sender: TObject);
     procedure btnFontClick(Sender: TObject);
     procedure chkDisableEDTEnhancementsClick(Sender: TObject);
@@ -192,8 +192,6 @@
   chkDisableEditorExperts.Checked := not ConfigInfo.EditorExpertsEnabled;
 
   LoadIdeEnhancements;
-  chkDisableIDEEnhancements.Checked := not IdeEnhancements.Enabled;
-  DisableUnsupportedIdeItems;
 
   chkPlaceGxMainMenuInToolsMenu.Checked := ConfigInfo.PlaceGxMainMenuInToolsMenu;
   chkAlphabetizeMenu.Checked := ConfigInfo.AlphabetizeMenu;
@@ -201,7 +199,7 @@
   LoadEditorEnhancements;
   chkEditorKeyTracing.Checked := GxOtaGetEditorKeyTracingEnabled;
   chkDisableEDTEnhancements.Checked := not EditorEnhancements.Enabled;
-  chkDisableIDEEnhancementsClick(chkDisableIDEEnhancements);
+  DisableUnsupportedIdeItems;
 
   tshDebug.TabVisible := False;
 end;
@@ -494,8 +492,6 @@
 begin
   Assert(IdeEnhancements <> nil);
 
-  chkDisableIDEEnhancements.Checked := not IdeEnhancements.Enabled;
-
   if not EditorEnhancementsPossible then
     tshEditor.TabVisible := False;
   gbxEditor.Enabled := RunningDelphi7OrLess;
@@ -515,6 +511,8 @@
   chkMultiLineTabDockHost.Checked := IdeEnhancements.MultiLineTabDockHost;
   chkDefaultMultiLineTabDockHost.Checked := IdeEnhancements.DefaultMultiLineTabDockHost;
 
+  chkEnhanceDialogs.Checked := IdeEnhancements.EnhanceIDEForms;
+
   chkCPFontEnabled.Checked := IdeEnhancements.CPFontEnabled;
   FCPFont.Assign(IdeEnhancements.CPFont);
 
@@ -563,8 +561,6 @@
 begin
   Assert(IdeEnhancements <> nil);
 
-  IdeEnhancements.Enabled := not chkDisableIDEEnhancements.Checked;
-
   // Multi-line tab dock host
   IdeEnhancements.MultiLineTabDockHost := chkMultiLineTabDockHost.Checked;
   IdeEnhancements.DefaultMultiLineTabDockHost := chkDefaultMultiLineTabDockHost.Checked;
@@ -581,6 +577,8 @@
   IdeEnhancements.OIFont.Assign(FOIFont);
   IdeEnhancements.CPFont.Assign(FCPFont);
 
+  IdeEnhancements.EnhanceIDEForms := chkEnhanceDialogs.Checked;
+
   // Menus
   ConfigInfo.PlaceGxMainMenuInToolsMenu := chkPlaceGxMainMenuInToolsMenu.Checked;
   GXMenuActionManager.Alphabetical := chkAlphabetizeMenu.Checked;
@@ -657,27 +655,6 @@
     lvEditorExperts.Items[0].Selected := True;
 end;
 
-procedure TfmConfiguration.chkDisableIDEEnhancementsClick(Sender: TObject);
-var
-  EnableState: Boolean;
-begin
-  EnableState := not chkDisableIDEEnhancements.Checked;
-
-  SetupGroupBox(gbxFonts, EnableState);
-  SetupGroupBox(gbxCompPalette, EnableState);
-  SetupGroupBox(gbxIDEMenu, EnableState);
-  SetupGroupBox(gbxFileSaving, EnableState);
-  SetupGroupBox(gbxTabDockHost, EnableState);
-
-  chkFontEnabledClick(Self);
-  chkCPAsButtonsClick(chkCPAsButtons);
-  chkCPTabsInPopupClick(chkCPTabsInPopup);
-  chkMultiLineTabDockHostClick(chkMultiLineTabDockHost);
-  chkCPMultiLineClick(chkCPMultiLine);
-
-  DisableUnsupportedIdeItems;
-end;
-
 procedure TfmConfiguration.chkDisableEDTEnhancementsClick(Sender: TObject);
 var
   EnableState: Boolean;
@@ -714,12 +691,9 @@
 end;
 
 procedure TfmConfiguration.chkFontEnabledClick(Sender: TObject);
-var
-  IdeEnhancementsEnabled: Boolean;
 begin
-  IdeEnhancementsEnabled := not chkDisableIDEEnhancements.Checked;
-  btnOIFont.Enabled := chkOIFontEnabled.Checked and IdeEnhancementsEnabled;
-  btnCPFont.Enabled := chkCPFontEnabled.Checked and IdeEnhancementsEnabled;
+  btnOIFont.Enabled := chkOIFontEnabled.Checked;
+  btnCPFont.Enabled := chkCPFontEnabled.Checked;
 end;
 
 procedure TfmConfiguration.btnFontClick(Sender: TObject);
@@ -754,9 +728,7 @@
   EnableState: Boolean;
 begin
   EnableState := (Sender as TCheckBox).Checked and
-                 (Sender as TCheckBox).Enabled and
-                 not chkDisableIDEEnhancements.Checked;
-
+                 (Sender as TCheckBox).Enabled;
   chkCPFlat.Enabled := EnableState;
 end;
 
@@ -765,8 +737,7 @@
   EnableState: Boolean;
 begin
   EnableState := (Sender as TCheckBox).Checked and
-                 (Sender as TCheckBox).Enabled and
-                 not chkDisableIDEEnhancements.Checked;
+                 (Sender as TCheckBox).Enabled;
   chkCPTabsInPopupAlphaSort.Enabled := EnableState;
 end;
 
@@ -775,8 +746,7 @@
   EnableState: Boolean;
 begin
   EnableState := (Sender as TCheckBox).Checked and
-                 (Sender as TCheckBox).Enabled and
-                 not chkDisableIDEEnhancements.Checked;
+                 (Sender as TCheckBox).Enabled;
 
   chkCPScrollOpposite.Enabled := EnableState;
   chkCPRaggedRight.Enabled := EnableState;
@@ -816,8 +786,7 @@
   EnableState: Boolean;
 begin
   EnableState := (Sender as TCheckBox).Checked and
-                 (Sender as TCheckBox).Enabled and
-                 not chkDisableIDEEnhancements.Checked;
+                 (Sender as TCheckBox).Enabled;
 
   chkDefaultMultiLineTabDockHost.Enabled := EnableState;
 end;

Index: GX_ConfigurationInfo.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ConfigurationInfo.pas,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- GX_ConfigurationInfo.pas	26 Feb 2007 06:21:41 -0000	1.43
+++ GX_ConfigurationInfo.pas	23 Mar 2007 08:59:00 -0000	1.44
@@ -398,9 +398,10 @@
   end;
 
   EditorEnhancements.Enabled := False;
-  IdeEnhancements.Enabled := False;
 
   LoadSettings;
+  if not IsStandAlone then
+    IdeEnhancements.Initialize;
   ShowGxMessageBox(TShowBadDirectoryMessage, FConfigPath);
 end;
 
@@ -431,9 +432,6 @@
     FPlaceGxMainMenuInToolsMenu := Settings.ReadBool(ConfigurationKey, 'PlaceGxMainMenuInToolsMenu', False);
     FEnableKeyboardShortcuts := Settings.ReadBool(ConfigurationKey, 'EnableKeyboardShortcuts', True);
 
-    Setting := Settings.ReadBool(ConfigurationKey, 'IdeEnhancementsEnabled', False);
-    IdeEnhancements.Enabled := Setting and not IsStandAlone;
-
     Setting := Settings.ReadBool(ConfigurationKey, 'EditorEnhancementsEnabled', False);
     EditorEnhancements.Enabled := Setting and not IsStandAlone;
   finally
@@ -456,7 +454,6 @@
     Settings.WriteBool(ConfigurationKey, 'AlphabetizeMenu', FAlphabetizeMenu);
     Settings.WriteBool(ConfigurationKey, 'EditorExpertsEnabled', FEditorExpertsEnabled);
     Settings.WriteBool(ConfigurationKey, 'PlaceGxMainMenuInToolsMenu', FPlaceGxMainMenuInToolsMenu);
-    Settings.WriteBool(ConfigurationKey, 'IdeEnhancementsEnabled', IdeEnhancements.Enabled);
     Settings.WriteBool(ConfigurationKey, 'EditorEnhancementsEnabled', EditorEnhancements.Enabled);
   finally
     FreeAndNil(Settings);

Index: GX_IdeEnhance.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeEnhance.pas,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- GX_IdeEnhance.pas	26 Feb 2007 06:21:41 -0000	1.29
+++ GX_IdeEnhance.pas	23 Mar 2007 08:59:00 -0000	1.30
@@ -6,12 +6,11 @@
 
 uses
   Classes, Graphics, ComCtrls, Menus,
-  GX_MultiLinePalette, GX_MultilineHost;
+  GX_MultiLinePalette, GX_MultilineHost, GX_IdeFormEnhancer;
 
 type
   TIdeEnhancements = class(TObject)
   private
-    FEnabled: Boolean;
     // Fonts
     FOIFont: TFont;
     FOldOIFont: TFont;
@@ -27,7 +26,6 @@
     {$ENDIF VER150}
     procedure SetAutoSave(const Value: Boolean);
     procedure SetAutoSaveInterval(const Value: Integer);
-    procedure SetEnabled(const Value: Boolean);
     procedure SetOIFont(Value: TFont);
     procedure SetOIFontEnabled(Value: Boolean);
     procedure OIFontChange(Sender: TObject);
@@ -71,18 +69,20 @@
     procedure SetCPFlatButtons(const Value: Boolean);
     procedure SetCPRaggedRight(const Value: Boolean);
     procedure SetCPScrollOpposite(const Value: Boolean);
-    procedure Install;
     procedure Remove;
     function ConfigurationKey: string;
+    procedure SetEnhanceIDEForms(const Value: Boolean);
+    function GetEnhanceIDEForms: Boolean;
   public
     constructor Create;
     destructor Destroy; override;
 
-    property Enabled: Boolean read FEnabled write SetEnabled;
-
+    procedure Initialize;
     procedure LoadSettings;
     procedure SaveSettings;
 
+    // IDE
+    property EnhanceIDEForms: Boolean read GetEnhanceIDEForms write SetEnhanceIDEForms;
     // Fonts
     property OIFontEnabled: Boolean read FOIFontEnabled write SetOIFontEnabled;
     property OIFont: TFont read FOIFont;
@@ -135,7 +135,7 @@
   FCPFont.OnChange := CPFontChange;
 end;
 
-procedure TIdeEnhancements.Install;
+procedure TIdeEnhancements.Initialize;
 begin
   Assert(Application.MainForm <> nil, 'No MainForm found');
 
@@ -149,6 +149,7 @@
 
 procedure TIdeEnhancements.Remove;
 begin
+  EnhanceIDEForms := False;
   // MultiLine component palette
   CPMultiLine := False;
   CPAsButtons := False;
@@ -160,18 +161,15 @@
   RemoveMultiLineComponentTabs;
   RemoveMultiLineHostTabs;
   OIFontEnabled := False;
+  // Don't call SaveSettings after this point
 end;
 
-procedure TIdeEnhancements.SetEnabled(const Value: Boolean);
+procedure TIdeEnhancements.SetEnhanceIDEForms(const Value: Boolean);
 begin
-  if FEnabled <> Value then
-  begin
-    FEnabled := Value;
-    if FEnabled then
-      Install
-    else
-      Remove;
-  end;
+  if Value then
+    TIDEFormEnhancements.SetEnabled(True)
+  else
+    TIDEFormEnhancements.SetEnabled(False);
 end;
 
 destructor TIdeEnhancements.Destroy;
@@ -198,6 +196,7 @@
   Settings := TGExpertsSettings.Create;
   with Settings do
     try
+      EnhanceIDEForms := ReadBool(ConfigurationKey, 'EnhanceIDEForms', False);
       // File saving
       AutoSave := ReadBool(ConfigurationKey, 'AutoSave', False);
       AutoSaveInterval := ReadInteger(ConfigurationKey, 'AutoSaveInterval', 5);
@@ -238,6 +237,7 @@
   Settings := TGExpertsSettings.Create;
   with Settings do
     try
+      WriteBool(ConfigurationKey, 'EnhanceIDEForms', EnhanceIDEForms);
       // File saving
       WriteBool(ConfigurationKey, 'AutoSave', AutoSave);
       WriteInteger(ConfigurationKey, 'AutoSaveInterval', AutoSaveInterval);
@@ -672,6 +672,11 @@
   Result := GX_MultilineHost.DefaultToMultiLine;
 end;
 
+function TIdeEnhancements.GetEnhanceIDEForms: Boolean;
+begin
+  Result := TIDEFormEnhancements.GetEnabled;
+end;
+
 function TIdeEnhancements.GetMultiLineTabDockHost: Boolean;
 begin
   Result := (FMultiLineTabDockHostManager <> nil);

Index: GX_Configure.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.dfm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- GX_Configure.dfm	30 Jun 2006 07:07:11 -0000	1.32
+++ GX_Configure.dfm	23 Mar 2007 08:59:00 -0000	1.33
@@ -1,12 +1,12 @@
 object fmConfiguration: TfmConfiguration
   Left = 411
   Top = 164
-  Width = 525
-  Height = 540
+  Width = 519
+  Height = 520
   BorderIcons = [biSystemMenu]
   Caption = 'GExperts Configuration'
   Color = clBtnFace
-  Constraints.MinHeight = 448
+  Constraints.MinHeight = 520
   Constraints.MinWidth = 493
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -25,8 +25,8 @@
   object pnlMain: TPanel
     Left = 0
     Top = 0
-    Width = 517
-    Height = 477
+    Width = 511
+    Height = 457
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 7
@@ -34,8 +34,8 @@
     object pcConfig: TPageControl
       Left = 7
       Top = 7
-      Width = 503
-      Height = 463
+      Width = 497
+      Height = 443
       ActivePage = tshExperts
       Align = alClient
       HotTrack = True
@@ -48,8 +48,8 @@
         object sbxExperts: TScrollBox
           Left = 0
           Top = 0
-          Width = 495
-          Height = 435
+          Width = 489
+          Height = 415
           VertScrollBar.Increment = 40
           VertScrollBar.Range = 920
           VertScrollBar.Tracking = True
@@ -61,18 +61,18 @@
       object tshGeneral: TTabSheet
         Caption = 'File Locations'
         DesignSize = (
-          495
-          435)
+          489
+          415)
         object gbxLocations: TGroupBox
           Left = 8
           Top = 8
-          Width = 477
+          Width = 471
           Height = 169
           Anchors = [akLeft, akTop, akRight]
           Caption = 'File Locations'
           TabOrder = 0
           DesignSize = (
-            477
+            471
             169)
           object lblVCL: TLabel
             Left = 12
@@ -99,7 +99,7 @@
             FocusControl = edHelpFile
           end
           object sbVCLDir: TButton
-            Left = 444
+            Left = 438
             Top = 40
             Width = 21
             Height = 21
@@ -109,7 +109,7 @@
             OnClick = sbVCLDirClick
           end
           object sbConfigDir: TButton
-            Left = 444
+            Left = 438
             Top = 88
             Width = 21
             Height = 21
@@ -119,7 +119,7 @@
             OnClick = sbConfigDirClick
           end
           object sbHelpFile: TButton
-            Left = 444
+            Left = 438
             Top = 136
             Width = 21
             Height = 21
@@ -131,7 +131,7 @@
           object edVCLPath: TEdit
             Left = 12
             Top = 40
-            Width = 432
+            Width = 426
             Height = 21
             Anchors = [akLeft, akTop, akRight]
             TabOrder = 0
@@ -139,7 +139,7 @@
           object edConfigPath: TEdit
             Left = 12
             Top = 88
-            Width = 432
+            Width = 426
             Height = 21
             Anchors = [akLeft, akTop, akRight]
             TabOrder = 2
@@ -147,7 +147,7 @@
           object edHelpFile: TEdit
             Left = 12
             Top = 136
-            Width = 432
+            Width = 426
             Height = 21
             Anchors = [akLeft, akTop, akRight]
             TabOrder = 4
@@ -157,21 +157,21 @@
       object tshEditorExperts: TTabSheet
         Caption = 'Editor Experts'
         DesignSize = (
-          495
-          435)
+          489
+          415)
         object gbxKeyboard: TGroupBox
           Left = 8
           Top = 8
-          Width = 478
-          Height = 417
+          Width = 472
+          Height = 397
           Anchors = [akLeft, akTop, akRight, akBottom]
           Caption = 'Editor Experts'
           TabOrder = 0
           DesignSize = (
-            478
-            417)
+            472
+            397)
           object btnConfigure: TButton
-            Left = 393
+            Left = 387
             Top = 80
             Width = 75
             Height = 26
@@ -182,7 +182,7 @@
             OnClick = btnConfigureClick
           end
           object btnShortcut: TButton
-            Left = 393
+            Left = 387
             Top = 116
             Width = 75
             Height = 26
@@ -194,8 +194,8 @@
           end
           object meHelp: TMemo
             Left = 10
-            Top = 289
-            Width = 458
+            Top = 269
+            Width = 452
             Height = 118
             TabStop = False
             Anchors = [akLeft, akRight, akBottom]
@@ -205,7 +205,7 @@
             TabOrder = 4
           end
           object chkDisableEditorExperts: TCheckBox
-            Left = 393
+            Left = 387
             Top = 22
             Width = 82
             Height = 21
@@ -217,8 +217,8 @@
           object lvEditorExperts: TListView
             Left = 10
             Top = 22
-            Width = 375
-            Height = 260
+            Width = 369
+            Height = 240
             Anchors = [akLeft, akTop, akRight, akBottom]
             Columns = <
               item
@@ -244,15 +244,15 @@
         Caption = 'IDE'
         object gbxIDEMenu: TGroupBox
           Left = 8
-          Top = 83
-          Width = 265
+          Top = 8
+          Width = 330
           Height = 70
           Caption = '&Menu'
-          TabOrder = 1
+          TabOrder = 0
           object chkAlphabetizeMenu: TCheckBox
             Left = 8
             Top = 22
-            Width = 253
+            Width = 310
             Height = 17
             Caption = 'Alphabetize the GExperts menu items'
             TabOrder = 0
@@ -260,133 +260,19 @@
           object chkPlaceGxMainMenuInToolsMenu: TCheckBox
             Left = 8
             Top = 41
-            Width = 253
+            Width = 310
             Height = 17
             Caption = 'Place GExperts menu under Tools'
             TabOrder = 1
           end
         end
-        object gbxFonts: TGroupBox
-          Left = 8
-          Top = 159
-          Width = 329
-          Height = 96
-          Caption = 'Custom &Fonts'
-          TabOrder = 2
-          object btnOIFont: TButton
-            Left = 24
-            Top = 42
-            Width = 119
-            Height = 26
-            Caption = 'Object Inspector'
-            TabOrder = 1
-            OnClick = btnFontClick
-          end
-          object btnCPFont: TButton
-            Left = 172
-            Top = 42
-            Width = 124
-            Height = 26
-            Caption = 'Component Palette'
-            TabOrder = 3
-            OnClick = btnFontClick
-          end
-          object chkOIFontEnabled: TCheckBox
-            Left = 55
-            Top = 71
-            Width = 89
-            Height = 17
-            Caption = 'Enable'
-            TabOrder = 2
-            OnClick = chkFontEnabledClick
-          end
-          object chkCPFontEnabled: TCheckBox
-            Left = 203
-            Top = 71
-            Width = 97
-            Height = 17
-            Caption = 'Enable'
-            TabOrder = 4
-            OnClick = chkFontEnabledClick
-          end
-          object chkOIFontNames: TCheckBox
-            Left = 8
-            Top = 19
-            Width = 317
-            Height = 17
-            Caption = 'Show object inspector font names using the font'
-            TabOrder = 0
-          end
-        end
-        object chkDisableIDEEnhancements: TCheckBox
-          Left = 280
-          Top = 11
-          Width = 181
-          Height = 17
-          Caption = '&Disable IDE enhancements'
-          TabOrder = 3
-          OnClick = chkDisableIDEEnhancementsClick
-        end
-        object gbxFileSaving: TGroupBox
-          Left = 285
-          Top = 83
-          Width = 180
-          Height = 70
-          Caption = 'File &Saving'
-          TabOrder = 4
-          Visible = False
-          object lblEvery: TLabel
-            Left = 31
-            Top = 44
-            Width = 27
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Every'
-          end
-          object lblMinutes: TLabel
-            Left = 120
-            Top = 44
-            Width = 42
-            Height = 13
-            Caption = 'minute(s)'
-          end
-          object chkAutoSave: TCheckBox
-            Left = 12
-            Top = 20
-            Width = 157
-            Height = 17
-            Caption = 'Enable auto save of files'
-            TabOrder = 0
-            OnClick = chkAutoSaveClick
-          end
-          object edtMinutes: TEdit
-            Left = 64
-            Top = 40
-            Width = 38
-            Height = 21
-            TabOrder = 1
-            Text = '1'
-          end
-          object udMinutes: TUpDown
-            Left = 102
-            Top = 40
-            Width = 12
-            Height = 21
-            Associate = edtMinutes
-            Min = 1
-            Max = 1000
-            Position = 1
-            TabOrder = 2
-            Wrap = False
-          end
-        end
         object gbxTabDockHost: TGroupBox
           Left = 8
-          Top = 8
-          Width = 265
+          Top = 165
+          Width = 329
           Height = 68
           Caption = 'Tab Dock &Hosts'
-          TabOrder = 0
+          TabOrder = 2
           object chkMultiLineTabDockHost: TCheckBox
             Left = 8
             Top = 22
@@ -407,15 +293,15 @@
         end
         object gbxCompPalette: TGroupBox
           Left = 8
-          Top = 262
-          Width = 329
+          Top = 240
+          Width = 330
           Height = 165
           Caption = 'Component &Palette'
-          TabOrder = 5
+          TabOrder = 3
           object chkCPMultiLine: TCheckBox
             Left = 8
             Top = 22
-            Width = 291
+            Width = 310
             Height = 17
             Caption = 'Multiline tabs'
             TabOrder = 0
@@ -424,7 +310,7 @@
           object chkCPAsButtons: TCheckBox
             Left = 8
             Top = 79
-            Width = 291
+            Width = 310
             Height = 17
             Caption = 'Show tabs as buttons'
             TabOrder = 3
@@ -433,7 +319,7 @@
           object chkCPTabsInPopup: TCheckBox
             Left = 8
             Top = 118
-            Width = 291
+            Width = 310
             Height = 17
             Caption = 'Add popup menu/button with tab names'
             TabOrder = 5
@@ -442,7 +328,7 @@
           object chkCPFlat: TCheckBox
             Left = 24
             Top = 98
-            Width = 275
+            Width = 300
             Height = 17
             Caption = 'Flat buttons'
             TabOrder = 4
@@ -450,7 +336,7 @@
           object chkCPTabsInPopupAlphaSort: TCheckBox
             Left = 24
             Top = 137
-            Width = 275
+            Width = 300
             Height = 19
             Caption = 'Show tab names in alphabetical order'
             TabOrder = 6
@@ -458,7 +344,7 @@
           object chkCPScrollOpposite: TCheckBox
             Left = 24
             Top = 41
-            Width = 275
+            Width = 300
             Height = 17
             Caption = 'Scroll &opposite'
             TabOrder = 1
@@ -466,12 +352,44 @@
           object chkCPRaggedRight: TCheckBox
             Left = 24
             Top = 60
-            Width = 275
+            Width = 300
             Height = 17
             Caption = 'Ragged &right'
             TabOrder = 2
           end
         end
+        object gbxIDEForms: TGroupBox
+          Left = 8
+          Top = 86
+          Width = 330
+          Height = 70
+          Caption = 'IDE'
+          TabOrder = 1
+          object chkEnhanceDialogs: TCheckBox
+            Left = 9
+            Top = 19
+            Width = 310
+            Height = 17
+            Hint = 
+              'Enhance IDE options dialogs to allow resizing, remember position' +
+              's, increase'#13'combobox DropDownCounts, resizable picture open dial' +
+              'ogs, collapse Together'#13'options tree node, etc.  (Most enhancemen' +
+              'ts require BDS 2006 or later)'
+            Caption = 'Enhance IDE dialogs (allow resize, remember position, etc.)'
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 0
+            OnClick = chkAutoSaveClick
+          end
+          object chkOIFontNames: TCheckBox
+            Left = 8
+            Top = 43
+            Width = 310
+            Height = 17
+            Caption = 'Show object inspector font names using the font'
+            TabOrder = 1
+          end
+        end
       end
       object tshEditor: TTabSheet
         Caption = 'Code Editor'
@@ -622,22 +540,119 @@
           TabOrder = 4
           OnClick = btnAppBuilderClick
         end
+        object gbxFonts: TGroupBox
+          Left = 16
+          Top = 175
+          Width = 321
+          Height = 81
+          Caption = 'Custom &Fonts'
+          TabOrder = 5
+          object btnOIFont: TButton
+            Left = 24
+            Top = 22
+            Width = 119
+            Height = 26
+            Caption = 'Object Inspector'
+            TabOrder = 0
+            OnClick = btnFontClick
+          end
+          object btnCPFont: TButton
+            Left = 172
+            Top = 22
+            Width = 124
+            Height = 26
+            Caption = 'Component Palette'
+            TabOrder = 2
+            OnClick = btnFontClick
+          end
+          object chkOIFontEnabled: TCheckBox
+            Left = 55
+            Top = 51
+            Width = 89
+            Height = 17
+            Caption = 'Enable'
+            TabOrder = 1
+            OnClick = chkFontEnabledClick
+          end
+          object chkCPFontEnabled: TCheckBox
+            Left = 203
+            Top = 51
+            Width = 97
+            Height = 17
+            Caption = 'Enable'
+            TabOrder = 3
+            OnClick = chkFontEnabledClick
+          end
+        end
+        object gbxFileSaving: TGroupBox
+          Left = 18
+          Top = 269
+          Width = 175
+          Height = 70
+          Caption = 'File &Saving'
+          TabOrder = 6
+          Visible = False
+          object lblEvery: TLabel
+            Left = 31
+            Top = 44
+            Width = 27
+            Height = 13
+            Alignment = taRightJustify
+            Caption = 'Every'
+          end
+          object lblMinutes: TLabel
+            Left = 120
+            Top = 44
+            Width = 42
+            Height = 13
+            Caption = 'minute(s)'
+          end
+          object chkAutoSave: TCheckBox
+            Left = 12
+            Top = 20
+            Width = 157
+            Height = 17
+            Caption = 'Enable auto save of files'
+            TabOrder = 0
+            OnClick = chkAutoSaveClick
+          end
+          object edtMinutes: TEdit
+            Left = 64
+            Top = 40
+            Width = 38
+            Height = 21
+            TabOrder = 1
+            Text = '1'
+          end
+          object udMinutes: TUpDown
+            Left = 102
+            Top = 40
+            Width = 16
+            Height = 21
+            Associate = edtMinutes
+            Min = 1
+            Max = 1000
+            Position = 1
+            TabOrder = 2
+            Wrap = False
+          end
+        end
       end
     end
   end
   object pnlButtons: TPanel
     Left = 0
-    Top = 477
-    Width = 517
+    Top = 457
+    Width = 511
     Height = 34
     Align = alBottom
     BevelOuter = bvNone
     TabOrder = 1
     DesignSize = (
-      517
+      511
       34)
     object btnOK: TButton
-      Left = 275
+      Left = 269
       Top = 1
       Width = 75
       Height = 26
@@ -648,7 +663,7 @@
       OnClick = btnOKClick
     end
     object btnCancel: TButton
-      Left = 355
+      Left = 349
       Top = 1
       Width = 75
       Height = 26
@@ -659,7 +674,7 @@
       TabOrder = 1
     end
     object btnHelp: TButton
-      Left = 435
+      Left = 429
       Top = 1
       Width = 75
       Height = 26

[GExperts-CVS] gexperts/unstable/Src GX_IdeFormEnhancer.pas, 1.1, 1.2

From: Erik B. <eb...@us...> - 2007-03-23 08:51:16

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

Modified Files:
	GX_IdeFormEnhancer.pas 
Log Message:
Support the Delphi 6 editor options dialog
Don't allow placing forms offscreen

Index: GX_IdeFormEnhancer.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeFormEnhancer.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- GX_IdeFormEnhancer.pas	23 Mar 2007 02:39:01 -0000	1.1
+++ GX_IdeFormEnhancer.pas	23 Mar 2007 08:51:15 -0000	1.2
@@ -121,7 +121,7 @@
       ComboDropDownCount: 15;
     ),
     (
-      FormClassNames: 'TProjectOptionsDialog;TDelphiProjectOptionsDialog;TLoadProcessDialog;TDotNetOptionForm;TPasEnvironmentDialog';
+      FormClassNames: 'TProjectOptionsDialog;TDelphiProjectOptionsDialog;TLoadProcessDialog;TDotNetOptionForm;TPasEnvironmentDialog;TPasEditorPropertyDialog';
       MakeResizable: True;
       RememberSize: True;
       RememberWidth: False;
@@ -238,6 +238,8 @@
       Form.Top := Settings.ReadInteger(Section, TopIdent, Form.Top);
       Form.Left := Settings.ReadInteger(Section, LeftIdent, Form.Left);
     end;
+    if RememberSize or RememberPosition then
+      EnsureFormVisible(Form);
     if RememberSplitterPosition then
     begin
       Panel := FindSplitPanel(Form);
@@ -330,7 +332,7 @@
 
 destructor TFormChangeManager.Destroy;
 begin
-  FreeAndNil(FManagedForms);
+  FreeAndNil(FManagedForms); // This frees/unhooks any managed form objects
   if @Screen.OnActiveFormChange = @FNewActiveFormChanged then
     Screen.OnActiveFormChange := FOldActiveFormChanged;
   FOldActiveFormChanged := nil;

[GExperts-CVS] gexperts/unstable/Src GX_IdeFormEnhancer.pas, NONE, 1.1

From: Erik B. <eb...@us...> - 2007-03-23 02:39:04

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

Added Files:
	GX_IdeFormEnhancer.pas 
Log Message:
Ne IDE form enhancement option
Make BDS 2006+ options dialogs resizable
Removes the scrollbar from the Tools, Options dialog, the scrollbar from the about box, increases the combobox DropDownCounts of many IDE dialogs, remembers the width of the search dialog, allows resizing the open picture dialogs for image lists and glyphs, remembers the splitter positions, etc. 

--- NEW FILE: GX_IdeFormEnhancer.pas ---
unit GX_IdeFormEnhancer;

interface

type
  TIDEFormEnhancements = class
  public
    class function GetEnabled: Boolean;// static;
    class procedure SetEnabled(const Value: Boolean); //static;
    // Delphi 8- can't handle class properties
    //class property Enabled: Boolean read GetEnabled write SetEnabled;
  end;

implementation

uses Classes, Forms, Windows, Dialogs, SysUtils, ToolsAPI, ExtCtrls,
  Controls, IniFiles, ActnList, ActnMan, Menus, ExtDlgs, StdCtrls,
  GX_GenericUtils, TypInfo, ComCtrls, GX_ConfigurationInfo, Contnrs,
  GX_IdeUtils;

type
  THackForm = class(TCustomForm);

  TFormChanges = record
    // Source-defined
    FormClassNames: string;
    MakeResizable: Boolean;
    RememberSize: Boolean;
    RememberWidth: Boolean;
    RememberPosition: Boolean;
    RememberSplitterPosition: Boolean;
    CollapseTreeNodes: string;
    ResizePictureDialogs: Boolean;
    ComboDropDownCount: Integer;
  end;

  TManagedForm = class(TObject)
    // Source-defined
    FormClassName: string;
    MakeResizable: Boolean;
    RememberSize: Boolean;
    RememberWidth: Boolean;
    RememberPosition: Boolean;
    RememberSplitterPosition: Boolean;
    CollapseTreeNodes: string;
    ResizePictureDialogs: Boolean;
    ComboDropDownCount: Integer;
    // Runtime properties
    Handle: HWnd;
    OldDestroy: TNotifyEvent;
    // Methods
    destructor Destroy; override;
    function GetRegistryKey: string;
    function FindSplitPanel(Form: TCustomForm): TCustomPanel;
    procedure SetComboDropDownCount(Control: TControl);

    procedure DoMakeResizable(Form: TCustomForm);
    procedure DoCollapseTreeNodes(Form: TCustomForm);
    procedure DoSaveFormState(Form: TCustomForm);
    procedure DoLoadFormState(Form: TCustomForm);
    procedure DoResizePictureDialogs(Form: TCustomForm);
    procedure DoComboDropDownCount(Form: TCustomForm);
  end;

  TManagedFormList = class(TObjectList)
    function GetForm(Form: TCustomForm): TManagedForm; overload;
    function GetForm(Index: Integer): TManagedForm; overload;
  end;

  TFormChangeManager = class(TObject)
  private
    FOldActiveFormChanged: TNotifyEvent;
    FNewActiveFormChanged: TNotifyEvent;
    FManagedForms: TManagedFormList;
  protected
    constructor Create;
    destructor Destroy; override;
    function ShouldManageForm(Form: TCustomForm; var Changes: TFormChanges): Boolean;
    procedure ScreenActiveFormChange(Sender: TObject);
    procedure ProcessActivatedForm(Form: TCustomForm);
    function FindScreenForm(const FormClassName: string; Handle: HWND): TCustomForm;
    procedure FormDestroy(Sender: TObject);
    function FindManagedForm(Form: TCustomForm; var ManagedForm: TManagedForm): Boolean;
    function IsManagingForm(Form: TCustomForm): Boolean;
    procedure ModifyForm(Form: TCustomForm; ManagedForm: TManagedForm);
  end;

const
  FormsToChange: array[0..3] of TFormChanges = (
    (
      FormClassNames: 'TSrchDialog';
      MakeResizable: False;
      RememberSize: False;
      RememberWidth: True;
      RememberPosition: False;
      RememberSplitterPosition: False;
      CollapseTreeNodes: '';
      ResizePictureDialogs: False;
      ComboDropDownCount: 15;
    ),
    (
      FormClassNames: 'TDefaultEnvironmentDialog';
      MakeResizable: True;
      RememberSize: True;
      RememberWidth: False;
      RememberPosition: True;
      RememberSplitterPosition: True;
      CollapseTreeNodes: 'Together';
      ResizePictureDialogs: False;
      ComboDropDownCount: 15;
    ),
    (
      FormClassNames: 'TImageListEditor;TPictureEditorDlg';
      MakeResizable: False;
      RememberSize: False;
      RememberWidth: False;
      RememberPosition: False;
      RememberSplitterPosition: False;
      CollapseTreeNodes: '';
      ResizePictureDialogs: True;
      ComboDropDownCount: 15;
    ),
    (
      FormClassNames: 'TProjectOptionsDialog;TDelphiProjectOptionsDialog;TLoadProcessDialog;TDotNetOptionForm;TPasEnvironmentDialog';
      MakeResizable: True;
      RememberSize: True;
      RememberWidth: False;
      RememberPosition: True;
      RememberSplitterPosition: True;
      CollapseTreeNodes: '';
      ResizePictureDialogs: False;
      ComboDropDownCount: 15;
    )
  );

  WidthIdent = 'Width';
  HeightIdent = 'Height';
  TopIdent = 'Top';
  LeftIdent = 'Left';
  SplitPosIdent = 'SplitPos';

var
  PrivateFormChangeManager: TFormChangeManager = nil;

destructor TManagedForm.Destroy;
var
  Form: TCustomForm;
begin
  Form := PrivateFormChangeManager.FindScreenForm(FormClassName, Handle);
  if Assigned(Form) then
    THackForm(Form).OnDestroy := OldDestroy;
  inherited;
end;

function TManagedForm.FindSplitPanel(Form: TCustomForm): TCustomPanel;
var
  i: Integer;
  Control: TControl;
begin
  Result := nil;
  for i := 0 to Form.ControlCount - 1 do
  begin
    Control := Form.Controls[i];
    if (Control is TCustomPanel) and (Control.Align = alLeft) then
    begin
      Result := Control as TCustomPanel;
      Break;
    end;
  end;
end;

function TManagedForm.GetRegistryKey: string;
begin
  Result := AddSlash(ConfigInfo.GExpertsIdeRootRegistryKey) + 'IDEForms';
end;

procedure TManagedForm.DoCollapseTreeNodes(Form: TCustomForm);
var
  LeftPanel: TCustomPanel;
  Node: TTreeNode;
  Nodes: TStringList;
  i: Integer;
begin
  if IsEmpty(CollapseTreeNodes) then
    Exit;
  Nodes := TStringList.Create;
  try
    AnsiStrTok(CollapseTreeNodes, ';', Nodes);
    for i := 0 to Nodes.Count - 1 do
    begin
      Node := nil;
      LeftPanel := FindSplitPanel(Form);
      if leftPanel.ControlCount > 0 then
        if LeftPanel.Controls[0] is TTreeView then
          Node := FindTreeNode(LeftPanel.Controls[0] as TTreeView, Nodes[i]);
      if Assigned(Node) then
        Node.Collapse(False);
    end;
  finally
    FreeAndNil(Nodes);
  end;
end;

procedure TManagedForm.SetComboDropDownCount(Control: TControl);
begin
  if StrContains('Combo', Control.ClassName) or StrContains('ColorBox', Control.ClassName) then
  begin
    if TypInfo.IsPublishedProp(Control, 'DropDownCount') then
      if TypInfo.PropIsType(Control, 'DropDownCount', tkInteger) then
        if GetPropValue(Control, 'DropDownCount', False) < ComboDropDownCount then
          TypInfo.SetPropValue(Control, 'DropDownCount', ComboDropDownCount);
  end;
end;

procedure TManagedForm.DoComboDropDownCount(Form: TCustomForm);
begin
  if ComboDropDownCount > 0 then
    IterateOverControls(Form, SetComboDropDownCount);
end;

procedure TManagedForm.DoLoadFormState(Form: TCustomForm);
var
  Settings: TGExpertsSettings;
  Section: string;
  Panel: TCustomPanel;
begin
  Assert(Assigned(Form));
  Settings := TGExpertsSettings.Create(GetRegistryKey);
  try
    Section := Form.ClassName;
    if RememberSize then
    begin
      Form.Width := Settings.ReadInteger(Section, WidthIdent, Form.Width);
      Form.Height := Settings.ReadInteger(Section, HeightIdent, Form.Height);
    end;
    if RememberPosition then
    begin
      Form.Top := Settings.ReadInteger(Section, TopIdent, Form.Top);
      Form.Left := Settings.ReadInteger(Section, LeftIdent, Form.Left);
    end;
    if RememberSplitterPosition then
    begin
      Panel := FindSplitPanel(Form);
      if Assigned(Panel) then
        Panel.Width := Settings.ReadInteger(Section, SplitPosIdent, Panel.Width);
    end;
    if RememberWidth and (not RememberSize) then begin
      Form.Width := Settings.ReadInteger(Section, WidthIdent, Form.Width);
      if not RememberPosition then
        CenterForm(Form);
    end;
    //if Self.CenterForm then
    //  GX_GenericUtils.CenterForm(Form);
  finally
    FreeAndNil(Settings);
  end;
end;

procedure TManagedForm.DoMakeResizable(Form: TCustomForm);
begin
  Assert(Assigned(Form));
  if MakeResizable and (Form.BorderStyle <> bsSizeable) then
    if RunningBDS2006OrGreater then // Delphi 6/7/8/2005 fail with an exception: "Can't change Visible in OnShow"
      Form.BorderStyle := bsSizeable;
end;

procedure TManagedForm.DoResizePictureDialogs(Form: TCustomForm);
var
  i: Integer;
  PictureDialog: TOpenPictureDialog;
begin
  if ResizePictureDialogs then begin
    for i := 0 to Form.ComponentCount - 1 do
    begin
      if Form.Components[i] is TOpenPictureDialog then
      begin
        PictureDialog := TOpenPictureDialog(Form.Components[i]);
        PictureDialog.Options := PictureDialog.Options + [ofEnableSizing];
      end;
    end;
  end;
end;

procedure TManagedForm.DoSaveFormState(Form: TCustomForm);
var
  Settings: TGExpertsSettings;
  Section: string;
  Panel: TCustomPanel;
begin
  Assert(Assigned(Form));
  Settings := TGExpertsSettings.Create(GetRegistryKey);
  try
    Section := Form.ClassName;
    if RememberSize then
    begin
      Settings.WriteInteger(Section, WidthIdent, Form.Width);
      Settings.WriteInteger(Section, HeightIdent, Form.Height);
    end;
    if RememberPosition then
    begin
      Settings.WriteInteger(Section, TopIdent, Form.Top);
      Settings.WriteInteger(Section, LeftIdent, Form.Left);
    end;
    if RememberSplitterPosition then
    begin
      Panel := FindSplitPanel(Form);
      if Assigned(Panel) then
        Settings.WriteInteger(Section, SplitPosIdent, Panel.Width)
      else
        Settings.DeleteKey(Section, SplitPosIdent);
    end;
    if RememberWidth and (not RememberSize) then begin
      Settings.WriteInteger(Section, WidthIdent, Form.Width)
    end;
  finally
    FreeAndNil(Settings);
  end;
end;

{ TFormChangeManager }

constructor TFormChangeManager.Create;
begin
  inherited;
  FManagedForms := TManagedFormList.Create(True);
  FOldActiveFormChanged := Screen.OnActiveFormChange;
  FNewActiveFormChanged := ScreenActiveFormChange;
  Screen.OnActiveFormChange := ScreenActiveFormChange;
end;

destructor TFormChangeManager.Destroy;
begin
  FreeAndNil(FManagedForms);
  if @Screen.OnActiveFormChange = @FNewActiveFormChanged then
    Screen.OnActiveFormChange := FOldActiveFormChanged;
  FOldActiveFormChanged := nil;
  inherited;
end;

function TFormChangeManager.FindManagedForm(Form: TCustomForm; var ManagedForm: TManagedForm): Boolean;
var
  i: Integer;
  TempManagedForm: TManagedForm;
begin
  Result := False;
  for i := 0 to FManagedForms.Count - 1 do
  begin
    TempManagedForm := FManagedForms.GetForm(i);
    if (Form.ClassName = TempManagedForm.FormClassName) and (Form.Handle = TempManagedForm.Handle) then
    begin
      ManagedForm := TempManagedForm;
      Result := True;
      Exit;
    end;
  end;
end;

function TFormChangeManager.FindScreenForm(const FormClassName: string; Handle: HWND): TCustomForm;
var
  i: Integer;
  Form: TCustomForm;
begin
  Result := nil;
  for i := Screen.CustomFormCount - 1 downto 0 do
  begin
    Form := Screen.CustomForms[i];
    if (Form.ClassName = FormClassName) and (Form.Handle = Handle) then
    begin
      Result := Form;
      Break;
    end;
  end;
end;

procedure TFormChangeManager.FormDestroy(Sender: TObject);
var
  ManagedForm: TManagedForm;
  Form: TCustomForm;
begin
  Assert(Sender is TCustomForm);
  Form := Sender as TCustomForm;
  if not FindManagedForm(Form, ManagedForm) then
    raise Exception.Create('Destroyed managed form not found: ' + Form.ClassName);
  ManagedForm.DoSaveFormState(Form);
  if Assigned(ManagedForm.OldDestroy) then
    ManagedForm.OldDestroy(Sender);
  FManagedForms.Remove(ManagedForm); // Resets using OldDestroy
end;

function TFormChangeManager.IsManagingForm(Form: TCustomForm): Boolean;
begin
  Result := Assigned(FManagedForms.GetForm(Form));
end;

procedure TFormChangeManager.ModifyForm(Form: TCustomForm; ManagedForm: TManagedForm);
begin
  Assert(Assigned(Form));
  Assert(Assigned(ManagedForm));
  Assert(Form.ClassName = ManagedForm.FormClassName);
  Assert(Form.Handle = ManagedForm.Handle);
  ManagedForm.DoMakeResizable(Form);
  ManagedForm.DoLoadFormState(Form);
  ManagedForm.DoCollapseTreeNodes(Form);
  ManagedForm.DoResizePictureDialogs(Form);
  ManagedForm.DoComboDropDownCount(Form);
end;

procedure TFormChangeManager.ProcessActivatedForm(Form: TCustomForm);
var
  Changes: TFormChanges;
  ManagedForm: TManagedForm;
begin
  Assert(Assigned(Form));
  if ShouldManageForm(Form, Changes) then begin
    ManagedForm := TManagedForm.Create;
    ManagedForm.FormClassName := Form.ClassName;
    ManagedForm.Handle := Form.Handle;
    ManagedForm.MakeResizable := Changes.MakeResizable;
    ManagedForm.RememberSize := Changes.RememberSize;
    ManagedForm.RememberPosition := Changes.RememberPosition;
    ManagedForm.RememberSplitterPosition := Changes.RememberSplitterPosition;
    ManagedForm.RememberWidth := Changes.RememberWidth;
    ManagedForm.CollapseTreeNodes := Changes.CollapseTreeNodes;
    ManagedForm.ResizePictureDialogs := Changes.ResizePictureDialogs;
    ManagedForm.ComboDropDownCount := Changes.ComboDropDownCount;
    ManagedForm.OldDestroy := THackForm(Form).OnDestroy;
    THackForm(Form).OnDestroy := FormDestroy;
    FManagedForms.Add(ManagedForm);
    ModifyForm(Form, ManagedForm);
  end;
end;

procedure TFormChangeManager.ScreenActiveFormChange(Sender: TObject);
begin
  if Assigned(FOldActiveFormChanged) then
    FOldActiveFormChanged(Sender);
  if Assigned(Screen) then
    if Assigned(Screen.ActiveCustomForm) then
      ProcessActivatedForm(Screen.ActiveCustomForm);
end;

function TFormChangeManager.ShouldManageForm(Form: TCustomForm;
  var Changes: TFormChanges): Boolean;
var
  i: Integer;
  Control: TControl;
begin
  Assert(Assigned(Form));
  Result := False;
  if StringInArray(Form.ClassName, ['TAppBuilder', 'TMessageForm', 'TPropertyInspector', 'TObjectTreeView', 'TEditWindow']) or (csDesigning in Form.ComponentState) then
    Exit;
  if (Form.ClassName = 'TAboutBox') then  // Or TAboutBoxHiColor in D7-
  begin
    if RunningDelphi8OrGreater then
    begin
      Control := Form.FindChildControl('InstalledProducts');
      if Assigned(Control) then
      begin // Remove the horizontal scrollbar
        Control.Left := Control.Left - 1;
        Control.Width := Control.Width + 4;
      end;
    end;
  end;
  for i := Low(FormsToChange) to High(FormsToChange) do
  begin
    if StrContains(Form.ClassName + ';', FormsToChange[i].FormClassNames + ';') then
    begin
      if not IsManagingForm(Form) then begin
        Result := True;
        Changes := FormsToChange[i];
        Break;
      end;
    end;
  end;
end;

{ TManagedFormList }

function TManagedFormList.GetForm(Form: TCustomForm): TManagedForm;
var
  i: Integer;
  ManagedForm: TManagedForm;
begin
  Result := nil;
  for i := Count - 1 downto 0 do
  begin
    ManagedForm := GetForm(i);
    if (ManagedForm.FormClassName = Form.ClassName) and (ManagedForm.Handle = Form.Handle) then
    begin
      Result := ManagedForm;
      Break;
    end;
  end;
end;

function TManagedFormList.GetForm(Index: Integer): TManagedForm;
begin
  Result := (Items[Index] as TManagedForm);
end;

{ TIDEFormEnhancements }

class function TIDEFormEnhancements.GetEnabled: Boolean;
begin
  Result := Assigned(PrivateFormChangeManager);
end;

class procedure TIDEFormEnhancements.SetEnabled(const Value: Boolean);
begin
  if Value and (not Assigned(PrivateFormChangeManager)) then
    PrivateFormChangeManager := TFormChangeManager.Create
  else if not Value then
    FreeAndNil(PrivateFormChangeManager);
end;

initialization
finalization
  TIDEFormEnhancements.SetEnabled(False);

end.

[GExperts-CVS] gexperts/unstable/Src GX_EditorFormServices.pas, 1.23, 1.24

From: Erik B. <eb...@us...> - 2007-03-23 01:09:40

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

Modified Files:
	GX_EditorFormServices.pas 
Log Message:
Add HCBT_ACTIVATE comment for later consideration

Index: GX_EditorFormServices.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_EditorFormServices.pas,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- GX_EditorFormServices.pas	28 Apr 2005 18:34:06 -0000	1.23
+++ GX_EditorFormServices.pas	23 Mar 2007 00:43:09 -0000	1.24
@@ -224,7 +224,7 @@
 
   try
     case nCode of
-      HCBT_SETFOCUS:
+      HCBT_SETFOCUS: // A control with a window handle was focused
         if wParam > 0 then  // wParam is 0 if an Exception happens in HCBT_Setfocus
         begin
           ApiResult := GetClassName(wParam, ClassNameBuffer, SizeOf(ClassNameBuffer));
@@ -240,6 +240,24 @@
             PrivateGxEditorFormServices.BeforeSetFocusEditorForm(wParam);
           end;
         end;
+      (*  This may be useful later to replace the Screen.OnActiveFormChanged hook 
+      HCBT_ACTIVATE: // A top-level window was focused
+        if wParam > 0 then  // wParam is 0 if an Exception happens in HCBT_ACTIVATE?
+        begin
+          ApiResult := GetClassName(wParam, ClassNameBuffer, SizeOf(ClassNameBuffer));
+          Win32Check(ApiResult <> 0);
+          Assert(ApiResult < ClassNameBufferSize, 'Found class name larger than fixed buffer size');
+
+          {$IFOPT D+} SendDebug('Window hook found: ' + StrPas(ClassNameBuffer)); {$ENDIF}
+          ComparisonResult := StrLIComp(ClassNameBuffer, 'TDefaultEnvironmentDialog', ClassNameBufferSize);
+          if ComparisonResult = 0 then
+          begin
+            {$IFOPT D+} SendDebug('SetFocus hook found a form to resize'); {$ENDIF}
+            Assert(Assigned(PrivateGxEditorFormServices));
+            //PrivateGxEditorFormServices.BeforeSetFocusEditorForm(wParam);
+          end;
+        end;
+      *)
     else
       // Nothing.
     end;

[GExperts-CVS] gexperts/unstable/Src/Utils GX_GenericUtils.pas, 1.153, 1.154 GX_IdeUtils.pas, 1.34, 1.35

From: Erik B. <eb...@us...> - 2007-03-22 20:40:08

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

Modified Files:
	GX_GenericUtils.pas GX_IdeUtils.pas 
Log Message:
function RunningDelphi2005: Boolean;
function NotEmpty(const Str: string): Boolean;
function IsEmpty(const Str: string): Boolean;
procedure IterateOverControls(Control: TControl; ActionProc: TForEachControlProc);
procedure MakeMultiline(Control: TButtonControl);
function FindTreeNode(Tree: TTreeView; const NodeText: string): TTreeNode;

Index: GX_IdeUtils.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_IdeUtils.pas,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- GX_IdeUtils.pas	21 Jan 2006 20:13:10 -0000	1.34
+++ GX_IdeUtils.pas	22 Mar 2007 20:36:51 -0000	1.35
@@ -67,6 +67,7 @@
 function RunningDelphi8OrGreater: Boolean;
 function RunningDelphi7OrLess: Boolean;
 function RunningDelphi7OrGreater: Boolean;
+function RunningDelphi2005: Boolean;
 function RunningBDS2006OrGreater: Boolean;
 function RunningBDS2006: Boolean;
 function RunningCPPBuilder: Boolean;
@@ -406,6 +407,15 @@
   {$ENDIF}
 end;
 
+function RunningDelphi2005: Boolean;
+begin
+  {$IFDEF VER170}
+  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.153
retrieving revision 1.154
diff -u -d -r1.153 -r1.154
--- GX_GenericUtils.pas	17 Mar 2007 07:26:30 -0000	1.153
+++ GX_GenericUtils.pas	22 Mar 2007 20:36:51 -0000	1.154
@@ -68,6 +68,8 @@
 
   TListBoxCheckAction = (chAll, chNone, chInvert);
 
+  TForEachControlProc = procedure(Control: TControl) of object;
+
 //                     System
 //
 //
@@ -123,7 +125,9 @@
 function StrEndsWith(const SubStr, Str: string; CaseSensitive: Boolean = True): Boolean;
 // See is a string contains another substring
 function StrContains(const SubStr, Str: string; CaseSensitive: Boolean = True): Boolean;
-
+// Check for empty (when trimmed) strings
+function NotEmpty(const Str: string): Boolean;
+function IsEmpty(const Str: string): Boolean;
 
 // Delete up to n of the rightmost characters in the string
 function DeleteRight(const Value: string; NumChars: Integer): string;
@@ -230,6 +234,7 @@
 // iterates over the Parent property of WindowContainer,
 // not over the Owner property.
 function FindChild(const WindowContainer: TWinControl; const ControlName: string): TControl;
+procedure IterateOverControls(Control: TControl; ActionProc: TForEachControlProc);
 
 // See is this component owns an object of the specified class name
 function ComponentOwnsClass(Component: TComponent; const ClassName: string): Boolean;
@@ -240,6 +245,9 @@
 // Get the width of a default scrollbar
 function GetScrollbarWidth: Integer;
 
+// Make a Button/CheckBox multiline (WordWrap).  D6 does not have this property.
+procedure MakeMultiline(Control: TButtonControl);
+
 // Check, uncheck, or invert the checks in a TCheckListBox
 procedure SetListBoxChecked(CheckList: TCheckListBox; Action: TListboxCheckAction);
 
@@ -247,6 +255,8 @@
 procedure ListViewDeleteSelected(ListView: TListView);
 procedure ListViewSelectAll(ListView: TListView);
 
+function FindTreeNode(Tree: TTreeView; const NodeText: string): TTreeNode;
+
 procedure SetToolbarGradient(ToolBar: TToolBar; Enabled: Boolean = True);
 
 // Enable/disable a control and all children
@@ -1353,6 +1363,16 @@
     Result := CaseInsensitivePos(SubStr, Str) > 0;
 end;
 
+function NotEmpty(const Str: string): Boolean;
+begin
+  Result := Trim(Str) <> '';
+end;
+
+function IsEmpty(const Str: string): Boolean;
+begin
+  Result := Trim(Str) = '';
+end;
+
 function AddSlash(const Directory: string): string;
 begin
   Result := IncludeTrailingPathDelimiter(Directory);
@@ -1647,6 +1667,22 @@
   end;
 end;
 
+procedure IterateOverControls(Control: TControl; ActionProc: TForEachControlProc);
+var
+  WinControl: TWinControl;
+  i: Integer;
+begin
+  Assert(Assigned(ActionProc));
+  Assert(Assigned(Control));
+  ActionProc(Control);
+  if (Control is TWinControl) then
+  begin
+    WinControl := Control as TWinControl;
+    for i := 0 to WinControl.ControlCount - 1 do
+      IterateOverControls(WinControl.Controls[i], ActionProc);
+  end;
+end;
+
 function ComponentOwnsClass(Component: TComponent; const ClassName: string): Boolean;
 var
   i: Integer;
@@ -1688,6 +1724,11 @@
   Result := GetSystemMetrics(SM_CXVSCROLL);
 end;
 
+procedure MakeMultiline(Control: TButtonControl);
+begin
+  SetWindowLong(Control.Handle, GWL_STYLE, GetWindowLong(Control.Handle, GWL_STYLE) or BS_MULTILINE);
+end;
+
 procedure SetListBoxChecked(CheckList: TCheckListBox; Action: TListBoxCheckAction);
 var
   i: Integer;
@@ -1741,6 +1782,24 @@
     ListView.Items[i].Selected := True;
 end;
 
+function FindTreeNode(Tree: TTreeView; const NodeText: string): TTreeNode;
+var
+  Node: TTreeNode;
+begin
+  Assert(Assigned(Tree));
+  Result := nil;
+  Node := Tree.Items.GetFirstNode;
+  while Assigned(Node) do
+  begin
+    if SameText(Node.Text, NodeText) then begin
+      Result := Node;
+      Exit;
+    end
+    else
+      Node := Node.GetNext;
+  end;
+end;
+
 procedure SetToolBarGradient(ToolBar: TToolBar; Enabled: Boolean);
 begin
   {$IFDEF GX_VER180_up}

[GExperts-CVS] gexperts/unstable GExpertsDelphi2007.dpr, NONE, 1.1 GExpertsDelphi2007.dproj, NONE, 1.1

From: Erik B. <eb...@us...> - 2007-03-20 16:09:57

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

Added Files:
	GExpertsDelphi2007.dpr GExpertsDelphi2007.dproj 
Log Message:
Delphi 2007 project

--- NEW FILE: GExpertsDelphi2007.dpr ---
library GExpertsDelphi2007;
{
GExperts License Agreement

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:

Usage of GExperts binary distributions is permitted for all developers.
You may not use the GExperts source code to develop proprietary or
commercial products including plugins or libraries for those products.
You may use the GExperts source code in an Open Source project, under
the terms listed below.

You may not use the GExperts source code to create and distribute custom
versions of GExperts under the "GExperts" name.  If you do modify and
distribute custom versions of GExperts, the binary distribution must be
named differently and clearly marked so users can tell they are not using
the official GExperts distribution.  A visible and unmodified version of
this license must appear in any modified distribution of GExperts.

Custom distributions of GExperts must include all of the custom changes
as a patch file that can be applied to the original source code.  This
restriction is in place to protect the integrity of the original author's
source code.  No support for modified versions of GExperts will be
provided by the original authors or on the GExperts mailing lists.

All works derived from GExperts must be distributed under a license
compatible with this license and the official Open Source Definition,
which can be obtained from http://www.opensource.org/.

Please note that GExperts, Inc. and the other contributing authors hereby
state that this package is provided "as is" and without any express or
implied warranties, including, but not without limitation, the implied
warranties of merchantability and fitness for a particular purpose. In
other words, we accept no liability for any damage that may result from
using GExperts or programs that use the GExperts source code.

If you have license questions, please email Erik Berry at eb...@ge....
}

{$R 'Icons\GXIcons.res' 'Icons\GXIcons.rc'}

uses
  GX_LibrarySource in 'Src\GX_LibrarySource.pas',
  GX_Experts in 'Src\GX_Experts.pas',
  GX_GExperts in 'Src\GX_GExperts.pas',
  GX_ProcedureList in 'Src\GX_ProcedureList.pas' {fmProcedureList},
  GX_ProcedureListOptions in 'Src\GX_ProcedureListOptions.pas' {fmProcedureListOptions},
  GX_About in 'Src\GX_About.pas' {fmAbout},
  GX_ExpertManager in 'Src\GX_ExpertManager.pas' {fmExpertManager},
  GX_GrepResults in 'Src\Grep\GX_GrepResults.pas' {fmGrepResults},
  GX_Search in 'Src\Grep\GX_Search.pas',
  GX_GrepSearch in 'Src\Grep\GX_GrepSearch.pas' {fmGrepSearch},
  GX_GrepOptions in 'Src\Grep\GX_GrepOptions.pas' {fmGrepOptions},
  GX_MessageDialog in 'Src\GX_MessageDialog.pas' {fmMessageDialog},
  GX_MessageOptions in 'Src\GX_MessageOptions.pas' {fmMessageOptions},
  GX_EditReader in 'Src\GX_EditReader.pas',
  GX_Backup in 'Src\GX_Backup.pas' {fmBackup},
  GX_BackupOptions in 'Src\GX_BackupOptions.pas' {fmBackupOptions},
  GX_BackupConfig in 'Src\GX_BackupConfig.pas' {fmBackupConfig},
  GX_TabOrder in 'Src\GX_TabOrder.pas' {fmTabOrder},
  GX_CleanDirectories in 'Src\GX_CleanDirectories.pas' {fmCleanDirectories},
  GX_ClipboardHistory in 'Src\GX_ClipboardHistory.pas' {fmClipboardHistory},
  GX_ClipboardOptions in 'Src\GX_ClipboardOptions.pas' {fmClipboardOptions},
  GX_FavFiles in 'Src\FavFiles\GX_FavFiles.pas' {fmFavFiles},
  GX_FavOptions in 'Src\FavFiles\GX_FavOptions.pas' {fmFavOptions},
  GX_FavUtil in 'Src\FavFiles\GX_FavUtil.pas',
  GX_FavNewFolder in 'Src\FavFiles\GX_FavNewFolder.pas' {fmFavNewFolder},
  GX_FavFileProp in 'Src\FavFiles\GX_FavFileProp.pas' {fmFavFileProp},
  GX_ClassBrowser in 'Src\ClassBrowser\GX_ClassBrowser.pas' {fmClassBrowser},
  GX_ClassOptions in 'Src\ClassBrowser\GX_ClassOptions.pas' {fmClassOptions},
  GX_ClassReport in 'Src\ClassBrowser\GX_ClassReport.pas' {fmClassReport},
  GX_ClassProp in 'Src\ClassBrowser\GX_ClassProp.pas' {fmClassProp},
  GX_ClassIdentify in 'Src\ClassBrowser\GX_ClassIdentify.pas' {fmClassIdentify},
  GX_ClassParsing in 'Src\ClassBrowser\GX_ClassParsing.pas' {fmClassParsing},
  GX_SourceExport in 'Src\GX_SourceExport.pas' {fmSourceExport},
  GX_CodeLib in 'Src\CodeLib\GX_CodeLib.pas' {fmCodeLib},
  GX_CodeSrch in 'Src\CodeLib\GX_CodeSrch.pas' {fmCodeSearch},
  GX_CodeOpt in 'Src\CodeLib\GX_CodeOpt.pas' {fmCodeOptions},
  GX_Progress in 'Src\GX_Progress.pas' {fmProgress},
  GX_AsciiChart in 'Src\GX_AsciiChart.pas' {fmAsciiChart},
  GX_PeInformation in 'Src\GX_PeInformation.pas' {fmPeInformation},
  GX_PeInfo in 'Src\GX_PeInfo.pas',
  GX_ComponentGrid in 'Src\GX_ComponentGrid.pas' {fmComponentGrid},
  GX_IdeShortCuts in 'Src\GX_IdeShortCuts.pas' {fmIdeShortCuts},
  GX_ProjDepend in 'Src\GX_ProjDepend.pas' {fmProjDepend},
  GX_ProjDependProp in 'Src\GX_ProjDependProp.pas' {fmProjDependProp},
  GX_PerfectLayout in 'Src\GX_PerfectLayout.pas' {fmPerfectLayout},
  GX_ToDo in 'Src\ToDo\GX_ToDo.pas' {fmToDo},
  GX_ToDoOptions in 'Src\ToDo\GX_ToDoOptions.pas' {fmToDoOptions},
  GX_EditorExpert in 'Src\EditorExperts\GX_EditorExpert.pas',
  GX_eComment in 'Src\EditorExperts\GX_eComment.pas' {fmCommentConfig},
  GX_eDate in 'Src\EditorExperts\GX_eDate.pas' {fmDateFormat},
  GX_eFindDelimiter in 'Src\EditorExperts\GX_eFindDelimiter.pas',
  GX_EditorShortcut in 'Src\GX_EditorShortcut.pas' {fmEditorShortcut},
  GX_MenusForEditorExpert in 'Src\EditorExperts\GX_MenusForEditorExpert.pas',
  GX_ProofreaderExpert in 'Src\Proofreader\GX_ProofreaderExpert.pas',
  GX_ProofreaderConfig in 'Src\Proofreader\GX_ProofreaderConfig.pas' {fmProofreaderConfig},
  GX_ProofreaderCorrection in 'Src\Proofreader\GX_ProofreaderCorrection.pas',
  GX_ProofreaderUtils in 'Src\Proofreader\GX_ProofreaderUtils.pas',
  GX_ProofreaderKeyboard in 'Src\Proofreader\GX_ProofreaderKeyboard.pas',
  GX_ProofreaderDefaults in 'Src\Proofreader\GX_ProofreaderDefaults.pas',
  GX_IdeEnhance in 'Src\GX_IdeEnhance.pas',
  GX_Toolbar in 'Src\EditorToolbar\GX_Toolbar.pas',
  GX_IdeDock in 'Src\IdeIntegration\Native\GX_IdeDock.pas' {fmIdeDockForm},
  GX_ConfigurationInfo in 'Src\GX_ConfigurationInfo.pas',
  GX_Configure in 'Src\GX_Configure.pas' {fmConfiguration},
  GX_MultiLinePalette in 'Src\GX_MultiLinePalette.pas',
  GX_EditorEnhancements in 'Src\GX_EditorEnhancements.pas',
  GX_ProjOptionSets in 'Src\ProjOptionSets\GX_ProjOptionSets.pas' {fmProjOptionSets},
  GX_ProjOptMap in 'Src\ProjOptionSets\GX_ProjOptMap.pas',
  GX_MultilineHost in 'Src\GX_MultilineHost.pas',
  GX_VerDepConst in 'Src\GX_VerDepConst.pas',
  GX_CompsToCode in 'Src\GX_CompsToCode.pas' {fmCompsToCode},
  GX_MessageBox in 'Src\GX_MessageBox.pas' {fmGxMessageBox},
  GX_OtaUtils in 'Src\Utils\GX_OtaUtils.pas',
  GX_GenericUtils in 'Src\Utils\GX_GenericUtils.pas',
  GX_SynMemoUtils in 'Src\GX_SynMemoUtils.pas',
  GX_EditorExpertManager in 'Src\EditorExperts\GX_EditorExpertManager.pas',
  GX_KbdShortCutBroker in 'Src\GX_KbdShortCutBroker.pas',
  GX_GenericClasses in 'Src\Utils\GX_GenericClasses.pas',
  GX_IdeUtils in 'Src\Utils\GX_IdeUtils.pas',
  GX_ToolBarDropDown in 'Src\EditorToolbar\GX_ToolBarDropDown.pas',
  GX_ActionBroker in 'Src\GX_ActionBroker.pas',
  GX_EditorFormServices in 'Src\GX_EditorFormServices.pas',
  GX_KibitzComp in 'Src\GX_KibitzComp.pas',
  GX_MenuActions in 'Src\GX_MenuActions.pas',
  GX_ClassHacks in 'Src\GX_ClassHacks.pas',
  GX_EditorChangeServices in 'Src\GX_EditorChangeServices.pas',
  GX_ToolbarConfig in 'Src\EditorToolbar\GX_ToolbarConfig.pas' {fmToolbarConfig},
  GX_IconMessageBox in 'Src\GX_IconMessageBox.pas',
  GX_GxUtils in 'Src\Utils\GX_GxUtils.pas',
  GX_FavFolderProp in 'Src\FavFiles\GX_FavFolderProp.pas' {fmFavFolderProperties},
  GX_GetIdeVersion in 'Src\GX_GetIdeVersion.pas',
  GX_DbugIntf in 'Src\GX_DbugIntf.pas',
  GX_ClassMgr in 'Src\GX_ClassMgr.pas',
  GX_Consts in 'Src\GX_Consts.pas',
  GX_Actions in 'Src\GX_Actions.pas',
  GX_GrepExpert in 'Src\Grep\GX_GrepExpert.pas',
  GX_GrepBackend in 'Src\Grep\GX_GrepBackend.pas',
  GX_GrepPrinting in 'Src\Grep\GX_GrepPrinting.pas',
  GX_UsesManager in 'Src\GX_UsesManager.pas',
  GX_ePrevNextIdentifier in 'Src\EditorExperts\GX_ePrevNextIdentifier.pas',
  GX_SourceExportOptions in 'Src\GX_SourceExportOptions.pas' {fmSourceExportOptions},
  GX_FeedbackWizard in 'Src\GX_FeedbackWizard.pas' {fmFeedbackWizard},
  GX_MacroTemplatesExpert in 'Src\MacroTemplates\GX_MacroTemplatesExpert.pas',
  GX_MacroTemplateEdit in 'Src\MacroTemplates\GX_MacroTemplateEdit.pas' {fmMacroTemplateEdit},
  GX_MacroFile in 'Src\MacroTemplates\GX_MacroFile.pas',
  GX_MacroTemplates in 'Src\MacroTemplates\GX_MacroTemplates.pas' {fmMacroTemplates},
  GX_MacroSelect in 'Src\MacroTemplates\GX_MacroSelect.pas' {fmMacroSelect},
  GX_MacroExpandNotifier in 'Src\MacroTemplates\GX_MacroExpandNotifier.pas',
  GX_XmlUtils in 'Src\Utils\GX_XmlUtils.pas',
  GX_SharedImages in 'Src\GX_SharedImages.pas' {dmSharedImages: TDataModule},
  GX_eSelectionEditorExpert in 'Src\EditorExperts\GX_eSelectionEditorExpert.pas',
  GX_eReverseStatement in 'Src\EditorExperts\GX_eReverseStatement.pas',
  GX_CompRename in 'Src\GX_CompRename.pas' {fmCompRename},
  GX_CompRenameConfig in 'Src\GX_CompRenameConfig.pas' {fmCompRenameConfig},
  GX_CompRenameAdvanced in 'Src\GX_CompRenameAdvanced.pas' {fmCompRenameAdvanced},
  GX_DesignerMenu in 'Src\GX_DesignerMenu.pas',
  GX_CopyComponentNames in 'Src\GX_CopyComponentNames.pas',
  GX_GrepResultsOptions in 'Src\Grep\GX_GrepResultsOptions.pas' {fmGrepResultsOptions},
  GX_Replace in 'Src\Grep\GX_Replace.pas',
  GX_GrepReplace in 'Src\Grep\GX_GrepReplace.pas' {fmGrepReplace},
  GX_ProjDependFilter in 'Src\GX_ProjDependFilter.pas' {fmProjDependFilter},
  GX_eChangeCase in 'Src\EditorExperts\GX_eChangeCase.pas' {fmChangeCase},
  GX_eSelectIdentifier in 'Src\EditorExperts\GX_eSelectIdentifier.pas',
  GX_UnitPositions in 'Src\GX_UnitPositions.pas',
  GX_eUsesManager in 'Src\EditorExperts\GX_eUsesManager.pas' {fmUsesManager},
  GX_Zipper in 'Src\GX_Zipper.pas',
  GX_ProofreaderData in 'Src\Proofreader\GX_ProofreaderData.pas',
  GX_ProofreaderAutoCorrectEntry in 'Src\Proofreader\GX_ProofreaderAutoCorrectEntry.pas' {fmProofreaderAutoCorrectEntry},
  GX_MacroParser in 'Src\GX_MacroParser.pas',
  GX_ReplaceCompUtils in 'Src\ReplaceComponents\GX_ReplaceCompUtils.pas',
  GX_ReplaceComp in 'Src\ReplaceComponents\GX_ReplaceComp.pas' {fmReplaceComp},
  GX_ReplaceCompData in 'Src\ReplaceComponents\GX_ReplaceCompData.pas',
  GX_ReplaceCompLog in 'Src\ReplaceComponents\GX_ReplaceCompLog.pas' {fmReplaceCompLog},
  GX_ReplaceCompMapDets in 'Src\ReplaceComponents\GX_ReplaceCompMapDets.pas' {fmReplaceCompMapDets},
  GX_ReplaceCompMapGrpList in 'Src\ReplaceComponents\GX_ReplaceCompMapGrpList.pas' {fmReplaceCompMapGrpList},
  GX_ReplaceCompMapList in 'Src\ReplaceComponents\GX_ReplaceCompMapList.pas' {fmReplaceCompMapList},
  GX_FindComponentRef in 'Src\GX_FindComponentRef.pas',
  GX_SetComponentProps in 'Src\SetComponentProps\GX_SetComponentProps.pas',
  GX_SetComponentPropsStatus in 'Src\SetComponentProps\GX_SetComponentPropsStatus.pas' {fmSetComponentPropsStatus},
  GX_SetComponentPropsConfig in 'Src\SetComponentProps\GX_SetComponentPropsConfig.pas' {fmSetComponentPropsConfig},
  GX_OpenFile in 'Src\OpenFile\GX_OpenFile.pas' {fmOpenFile},
  GX_OpenFileConfig in 'Src\OpenFile\GX_OpenFileConfig.pas' {fmOpenFileConfig},
  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};

{$E dll}

{$R *.res}

begin
end.


--- NEW FILE: GExpertsDelphi2007.dproj ---
(This appears to be a binary file; contents omitted.)

[GExperts-CVS] gexperts/unstable/Src/OpenFile GX_OpenFile.pas, 1.17, 1.18 GX_OpenFileConfig.dfm, 1.7, 1.8 GX_OpenFileConfig.pas, 1.13, 1.14

From: Erik B. <eb...@us...> - 2007-03-19 01:03:29

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

Modified Files:
	GX_OpenFile.pas GX_OpenFileConfig.dfm GX_OpenFileConfig.pas 
Log Message:
Relative path suggestion from Bernd Klaiber
Minor UI tweaks

Index: GX_OpenFileConfig.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFileConfig.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- GX_OpenFileConfig.pas	5 Jul 2006 13:54:32 -0000	1.13
+++ GX_OpenFileConfig.pas	17 Mar 2007 07:46:43 -0000	1.14
@@ -126,6 +126,7 @@
     procedure btnDirectoryReplaceClick(Sender: TObject);
     procedure lbxDirectoryListClick(Sender: TObject);
     procedure btnHelpClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     FCurrentFileType: TFileType;
     FSettings: TOpenFileSettings;
@@ -306,7 +307,7 @@
 
   FileType := TFileType.Create(FileTypes);
   FileType.FileTypeName := 'Delphi Projects';
-  FileType.Extensions := '*.dpr;*.dpk;*.bpg;*.bdsproj';
+  FileType.Extensions := '*.dpr;*.dpk;*.bpg;*.bdsproj;*.dproj';
   FileType.MaxRecentFiles := DefaultMaxMRU;
 
   FileType := TFileType.Create(FileTypes);
@@ -573,6 +574,13 @@
   end;
 end;
 
+procedure TfmOpenFileConfig.FormCreate(Sender: TObject);
+begin
+  SetParentBackgroundValue(gbxCustomDirectory, True);
+  SetParentBackgroundValue(gbxGeneralSettings, True);
+  SetParentBackgroundValue(gbxIDEMenuItems, True);
+end;
+
 procedure TfmOpenFileConfig.SaveSettings(Settings: TOpenFileSettings);
 begin
   Assert(Assigned(Settings));

Index: GX_OpenFileConfig.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFileConfig.dfm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- GX_OpenFileConfig.dfm	6 Apr 2006 00:16:51 -0000	1.7
+++ GX_OpenFileConfig.dfm	17 Mar 2007 07:46:43 -0000	1.8
@@ -15,9 +15,10 @@
   Font.Style = []
   OldCreateOrder = False
   Position = poScreenCenter
+  OnCreate = FormCreate
   DesignSize = (
     613
-    457)
+    459)
   PixelsPerInch = 96
   TextHeight = 13
   object pcConfigPages: TPageControl
@@ -237,7 +238,7 @@
           Width = 160
           Height = 21
           Style = csDropDownList
-          ItemHeight = 13
+          ItemHeight = 0
           TabOrder = 1
         end
         object cbxViewFormType: TComboBox
@@ -246,7 +247,7 @@
           Width = 160
           Height = 21
           Style = csDropDownList
-          ItemHeight = 13
+          ItemHeight = 0
           TabOrder = 3
         end
         object chkOverrideOpenProject: TCheckBox
@@ -263,7 +264,7 @@
           Width = 160
           Height = 21
           Style = csDropDownList
-          ItemHeight = 13
+          ItemHeight = 0
           TabOrder = 5
         end
       end
@@ -287,7 +288,7 @@
           Width = 160
           Height = 21
           Style = csDropDownList
-          ItemHeight = 13
+          ItemHeight = 0
           TabOrder = 1
         end
         object chkMatchAnywhere: TCheckBox

Index: GX_OpenFile.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFile.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- GX_OpenFile.pas	26 Oct 2006 01:18:32 -0000	1.17
+++ GX_OpenFile.pas	17 Mar 2007 07:46:43 -0000	1.18
@@ -471,7 +471,7 @@
     PathUnits.Sorted := True;
     PathUnits.Duplicates := dupIgnore;
     for i := 0 to PathFiles.Count - 1 do
-      PathUnits.Add(PathFiles[i]);
+      PathUnits.Add(ExpandFileName(PathFiles[i]));
 
     AddCurrentProjectFiles(PathUnits);
     FSearchPathFiles.Assign(PathUnits);
@@ -542,7 +542,7 @@
         begin
           FileName := ChangeFileExt(CurrentProjectFiles[i], ExtractFileExt(FileExtensions[ExtensionIndex]));
           if FileExists(FileName) then
-            PathUnits.Add(FileName);
+            PathUnits.Add(ExpandFileName(FileName));
         end;
     finally
       FreeAndNil(CurrentProjectFiles);

[GExperts-CVS] gexperts/unstable GExperts.iss, 1.19, 1.20 GExpertsBDS2006.dpr, 1.2, 1.3 GExpertsD6.dpr, 1.17, 1.18 GExpertsD7.dpr, 1.17, 1.18 GExpertsD8.dpr, 1.18, 1.19 GExpertsD9.dpr, 1.15, 1.16 GExpertsKylix3.dpr, 1.11, 1.12 License.txt, 1.7, 1.8 PreInstall.txt, 1.17, 1.18 Readme.txt, 1.107, 1.108

From: Erik B. <eb...@us...> - 2007-03-19 00:04:28

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

[GExperts-CVS] gexperts/unstable/Src/Utils GX_GenericUtils.pas, 1.152, 1.153 GX_OtaUtils.pas, 1.198, 1.199

From: Erik B. <eb...@us...> - 2007-03-19 00:03:04

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']);

[GExperts-CVS] gexperts/unstable/Src GX_CleanDirectories.pas, 1.40, 1.41 GX_CondDefine.inc, 1.44, 1.45 GX_GetIdeVersion.pas, 1.38, 1.39 GX_VerDepConst.pas, 1.31, 1.32

From: Erik B. <eb...@us...> - 2007-03-18 23:59:02

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}

[GExperts-CVS] gexperts/unstable/Comps FileView.pas,1.14,1.15

From: Erik B. <eb...@us...> - 2007-03-18 22:09:32

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

Modified Files:
	FileView.pas 
Log Message:
Minor Delphi 2007 changes

Index: FileView.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/FileView.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- FileView.pas	23 Jun 2005 21:38:15 -0000	1.14
+++ FileView.pas	17 Mar 2007 07:52:56 -0000	1.15
@@ -165,7 +165,7 @@
         or (Ext = '.HTML') or (Ext = '.HTM') or (Ext = '.DIZ')
         or (Ext = '.C') or (Ext = '.CPP') or (Ext = '.H') or (Ext = '.HPP')
         or (Ext = '.SQL') or (Ext = '.XML') or (Ext = '.RC') or (Ext = '.BDSGROUP')
-        or (Ext = '.BDSPROJ') or (Ext = '.DOF') or (Ext = '.DSK') or (Ext = '.ISS')
+        or (Ext = '.BDSPROJ') or (Ext = '.DPROJ') or (Ext = '.DOF') or (Ext = '.DSK') or (Ext = '.ISS')
         or (Ext = '.BPF') or (Ext = '.KOF') or (Ext = '.DEBUGLOG') or (Ext = '.CFG')
         or (Ext = '.DRC') or (Ext = '.MAP') or (Ext = '.CONF')
         or (Ext = '.LOCAL') or (Ext = '.LOG') or IsForm(FileName)
@@ -204,7 +204,7 @@
         AssignParser(gxpSQL)
       else if (Ext = '.CS') then
         AssignParser(gxpCS)
-      else if (Ext = '.XML') or (Ext = '.BDSPROJ') or (Ext = '.BDSGROUP') or (Ext = '.LOCAL')  or (Ext = '.BPR') then
+      else if (Ext = '.XML') or (Ext = '.BDSPROJ') or (Ext = '.DPROJ') or (Ext = '.BDSGROUP') or (Ext = '.LOCAL')  or (Ext = '.BPR') then
         AssignParser(gxpXML)
     {$ENDIF GX_ENHANCED_EDITOR}
     else

[GExperts-CVS] gexperts/unstable/Src GX_CleanDirectories.pas, 1.40, 1.41 GX_CondDefine.inc, 1.44, 1.45 GX_GetIdeVersion.pas, 1.38, 1.39 GX_VerDepConst.pas, 1.31, 1.32

From: Erik B. <eb...@us...> - 2007-03-18 21:59:46

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}

[GExperts-CVS] gexperts/unstable/Src/Utils GX_GenericUtils.pas, 1.152, 1.153 GX_OtaUtils.pas, 1.198, 1.199

From: Erik B. <eb...@us...> - 2007-03-18 21:56:55

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 21:49:47

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 21:07:59

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

[GExperts-CVS] gexperts/unstable/Src GX_CleanDirectories.pas, 1.40, 1.41 GX_CondDefine.inc, 1.44, 1.45 GX_GetIdeVersion.pas, 1.38, 1.39 GX_VerDepConst.pas, 1.31, 1.32

From: Erik B. <eb...@us...> - 2007-03-18 21: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}

[GExperts-CVS] gexperts/unstable/Src/Utils GX_GenericUtils.pas, 1.152, 1.153 GX_OtaUtils.pas, 1.198, 1.199

From: Erik B. <eb...@us...> - 2007-03-18 21:01: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']);

[GExperts-CVS] gexperts/unstable/Src GX_CleanDirectories.pas, 1.40, 1.41 GX_CondDefine.inc, 1.44, 1.45 GX_GetIdeVersion.pas, 1.38, 1.39 GX_VerDepConst.pas, 1.31, 1.32

From: Erik B. <eb...@us...> - 2007-03-18 20:24:27

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}

[GExperts-CVS] gexperts/unstable/Src/Utils GX_GenericUtils.pas, 1.152, 1.153 GX_OtaUtils.pas, 1.198, 1.199

From: Erik B. <eb...@us...> - 2007-03-18 20:11:17

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 19:54:21

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

[GExperts-CVS] gexperts/unstable/Src GX_CleanDirectories.pas, 1.40, 1.41 GX_CondDefine.inc, 1.44, 1.45 GX_GetIdeVersion.pas, 1.38, 1.39 GX_VerDepConst.pas, 1.31, 1.32

From: Erik B. <eb...@us...> - 2007-03-18 18:53:49

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}

[GExperts-CVS] gexperts/unstable/Src/Utils GX_GenericUtils.pas, 1.152, 1.153 GX_OtaUtils.pas, 1.198, 1.199

From: Erik B. <eb...@us...> - 2007-03-18 18:47:43

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 18:44:19

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

Flat | Threaded

<< < 1 2 3 4 .. 134 > >> (Page 2 of 134)