You can subscribe to this list here.
2001 |
Jan
|
Feb
(32) |
Mar
(98) |
Apr
(26) |
May
(33) |
Jun
(50) |
Jul
(82) |
Aug
(197) |
Sep
(187) |
Oct
(186) |
Nov
(99) |
Dec
(70) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2002 |
Jan
(31) |
Feb
(32) |
Mar
(16) |
Apr
(7) |
May
(10) |
Jun
(6) |
Jul
(11) |
Aug
(39) |
Sep
(24) |
Oct
(54) |
Nov
(13) |
Dec
(135) |
2003 |
Jan
(22) |
Feb
(9) |
Mar
(29) |
Apr
(4) |
May
(40) |
Jun
(52) |
Jul
(8) |
Aug
(33) |
Sep
(111) |
Oct
(25) |
Nov
(40) |
Dec
(47) |
2004 |
Jan
(19) |
Feb
(87) |
Mar
(105) |
Apr
(30) |
May
(40) |
Jun
(11) |
Jul
(88) |
Aug
(23) |
Sep
(16) |
Oct
(16) |
Nov
(13) |
Dec
(13) |
2005 |
Jan
(42) |
Feb
(3) |
Mar
(55) |
Apr
(46) |
May
(74) |
Jun
(23) |
Jul
(10) |
Aug
(69) |
Sep
(15) |
Oct
(49) |
Nov
(148) |
Dec
(168) |
2006 |
Jan
(64) |
Feb
(14) |
Mar
(26) |
Apr
(25) |
May
(26) |
Jun
(9) |
Jul
(21) |
Aug
(5) |
Sep
(11) |
Oct
(25) |
Nov
(8) |
Dec
|
2007 |
Jan
(5) |
Feb
(4) |
Mar
(50) |
Apr
(22) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Erik B. <eb...@us...> - 2007-03-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 |
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] |
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 |
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; |
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. |
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; |
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} |
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.) |
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); |
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 |
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']); |
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} |
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 |
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} |
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 |
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} |
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']); |
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} |
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 |
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} |
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 |