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...> - 2006-08-09 06:31:40
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15922 Modified Files: Readme.txt Log Message: Last 1.30 release changes? Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.105 retrieving revision 1.106 diff -u -d -r1.105 -r1.106 --- Readme.txt 25 Apr 2006 22:41:28 -0000 1.105 +++ Readme.txt 9 Aug 2006 06:31:38 -0000 1.106 @@ -105,9 +105,10 @@ CHANGE LOG ---------------------- -VERSION 1.30 (April 2006) +VERSION 1.30 (August 2006) - General: Added support for Delphi 2006. Better syntax highlighting - support for C#, HTML, and XML (Erik) + support for C#, HTML, and XML (Erik). Better ClearType support in + several forms. - Open File: New tool to quickly search for and open files in the project, search path, recent files, favorite files, etc. The file groups are configurable and the tool can override the IDE's internal open @@ -116,8 +117,8 @@ component classes and map constants to properties for replacement components. Import/export of mapping sets via XML. Interactive and file-based logging of replacement results. Smarter preservation of - properties such as TStrings, TFields, component references, etc. - (Oasis Digital Solutions, Piotr Likus, Erik). + properties such as TStrings, TWideStrings, TFields, component + references, etc. (Oasis Digital Solutions, Piotr Likus, Erik). - Rename Components: Allows interactively renaming components after they are placed on the form (Leonel Togniolli). Added ability to edit a configurable list of component properties (Caption, Text, etc.) in @@ -147,6 +148,7 @@ tab options can not be supported in the newer IDEs. - Procedure List: Option to view the selected procedure's source code (Paul Gardner, Erik). Optionally search in the class name. (Primoz) + Support for scanning Delphi .inc files and upgraded C++ support. - Code Proofreader: Added basic C# support (Erik) - Component Grid: Allow editing the Hint property for components (Erik) - IDE Enhancements: Changing the multiline component tabs setting in |
From: Erik B. <eb...@us...> - 2006-08-09 06:10:21
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Grep In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv7404/Src/Grep Modified Files: GX_GrepExpert.pas GX_GrepOptions.dfm GX_GrepOptions.pas GX_GrepSearch.pas Log Message: Remove strange ability to not save grep settings Index: GX_GrepOptions.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Grep/GX_GrepOptions.dfm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- GX_GrepOptions.dfm 27 May 2003 08:23:17 -0000 1.6 +++ GX_GrepOptions.dfm 9 Aug 2006 06:10:16 -0000 1.7 @@ -3,7 +3,7 @@ Top = 263 BorderStyle = bsDialog Caption = 'Grep Search Options' - ClientHeight = 139 + ClientHeight = 123 ClientWidth = 335 Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -14,43 +14,38 @@ OldCreateOrder = True Position = poScreenCenter Scaled = False + DesignSize = ( + 335 + 123) PixelsPerInch = 96 TextHeight = 13 object gbxOptions: TGroupBox Left = 8 Top = 8 Width = 318 - Height = 89 + Height = 75 Caption = 'Grep Options' TabOrder = 0 - object chkGrepSave: TCheckBox - Left = 12 - Top = 20 - Width = 301 - Height = 17 - Caption = '&Save grep settings between sessions' - TabOrder = 0 - end object chkGrepANSI: TCheckBox Left = 12 - Top = 39 + Top = 21 Width = 301 Height = 17 Caption = '&ANSI compatible grep (slower)' - TabOrder = 1 + TabOrder = 0 end object chkGrepUseCurrentIdent: TCheckBox Left = 12 - Top = 60 + Top = 44 Width = 301 Height = 17 Caption = 'Use ¤t identifier as the default search string' - TabOrder = 2 + TabOrder = 1 end end object btnOK: TButton Left = 168 - Top = 107 + Top = 91 Width = 75 Height = 25 Anchors = [akRight, akBottom] @@ -61,7 +56,7 @@ end object btnCancel: TButton Left = 251 - Top = 107 + Top = 91 Width = 75 Height = 25 Anchors = [akRight, akBottom] Index: GX_GrepOptions.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Grep/GX_GrepOptions.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- GX_GrepOptions.pas 27 May 2003 08:23:17 -0000 1.7 +++ GX_GrepOptions.pas 9 Aug 2006 06:10:16 -0000 1.8 @@ -8,7 +8,6 @@ type TfmGrepOptions = class(TForm) gbxOptions: TGroupBox; - chkGrepSave: TCheckBox; btnOK: TButton; btnCancel: TButton; chkGrepANSI: TCheckBox; Index: GX_GrepSearch.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Grep/GX_GrepSearch.pas,v retrieving revision 1.42 retrieving revision 1.43 diff -u -d -r1.42 -r1.43 --- GX_GrepSearch.pas 16 May 2006 02:06:13 -0000 1.42 +++ GX_GrepSearch.pas 9 Aug 2006 06:10:16 -0000 1.43 @@ -175,12 +175,10 @@ Dialog := TfmGrepOptions.Create(nil); try - Dialog.chkGrepSave.Checked := GrepExpert.GrepSave; Dialog.chkGrepANSI.Checked := GrepExpert.GrepANSICompatible; Dialog.chkGrepUseCurrentIdent.Checked := GrepExpert.GrepUseCurrentIdent; if Dialog.ShowModal = mrOk then begin - GrepExpert.GrepSave := Dialog.chkGrepSave.Checked; GrepExpert.GrepANSICompatible := Dialog.chkGrepANSI.Checked; GrepExpert.GrepUseCurrentIdent := Dialog.chkGrepUseCurrentIdent.Checked; end; @@ -307,32 +305,29 @@ cbDirectory.Items.Assign(FGrepExpert.DirList); cbMasks.Items.Assign(FGrepExpert.MaskList); - if FGrepExpert.GrepSave then - begin - cbNoCase.Checked := FGrepExpert.GrepNoCase; - cbNoComments.Checked := FGrepExpert.GrepNoComments; - cbForms.Checked := FGrepExpert.GrepForms; - cbInclude.Checked := FGrepExpert.GrepSub; - cbWholeWord.Checked := FGrepExpert.GrepWholeWord; - cbRegEx.Checked := FGrepExpert.GrepRegEx; - case FGrepExpert.GrepSearch of - 0: rbCurrentOnly.Checked := True; - 1: rbAllProjFiles.Checked := True; - 2: rbOpenFiles.Checked := True; - 3: rbDirectories.Checked := True; - 4: rbAllProjGroupFiles.Checked := True; - else - rbAllProjFiles.Checked := True; - end; - - if cbText.Items.Count > 0 then - cbText.Text := cbText.Items[0]; - if cbDirectory.Items.Count > 0 then - cbDirectory.Text := cbDirectory.Items[0]; - if cbMasks.Items.Count > 0 then - cbMasks.Text := cbMasks.Items[0]; + cbNoCase.Checked := FGrepExpert.GrepNoCase; + cbNoComments.Checked := FGrepExpert.GrepNoComments; + cbForms.Checked := FGrepExpert.GrepForms; + cbInclude.Checked := FGrepExpert.GrepSub; + cbWholeWord.Checked := FGrepExpert.GrepWholeWord; + cbRegEx.Checked := FGrepExpert.GrepRegEx; + case FGrepExpert.GrepSearch of + 0: rbCurrentOnly.Checked := True; + 1: rbAllProjFiles.Checked := True; + 2: rbOpenFiles.Checked := True; + 3: rbDirectories.Checked := True; + 4: rbAllProjGroupFiles.Checked := True; + else + rbAllProjFiles.Checked := True; end; + if cbText.Items.Count > 0 then + cbText.Text := cbText.Items[0]; + if cbDirectory.Items.Count > 0 then + cbDirectory.Text := cbDirectory.Items[0]; + if cbMasks.Items.Count > 0 then + cbMasks.Text := cbMasks.Items[0]; + if not IsStandAlone then begin SetupPattern; Index: GX_GrepExpert.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Grep/GX_GrepExpert.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- GX_GrepExpert.pas 22 Jan 2006 20:02:42 -0000 1.28 +++ GX_GrepExpert.pas 9 Aug 2006 06:10:16 -0000 1.29 @@ -10,7 +10,6 @@ TGrepExpert = class(TGX_Expert) private FGrepMiddle: Boolean; - FGrepSave: Boolean; FGrepANSICompatible: Boolean; FGrepExpandAll: Boolean; FSearchList: TStrings; @@ -47,7 +46,6 @@ procedure Click(Sender: TObject); override; procedure Configure; override; property GrepMiddle: Boolean read FGrepMiddle write FGrepMiddle; - property GrepSave: Boolean read FGrepSave write FGrepSave; property GrepANSICompatible: Boolean read FGrepANSICompatible write FGrepANSICompatible; property GrepExpandAll: Boolean read FGrepExpandAll write FGrepExpandAll; property GrepNoCase: Boolean read FGrepNoCase write FGrepNoCase; @@ -97,7 +95,6 @@ FContextMatchColor := clHighlight; FNumContextLines := 2; - FGrepSave := True; FGrepANSICompatible := False; FGrepExpandAll := False; FGrepUseCurrentIdent := False; @@ -188,7 +185,6 @@ Settings.WriteBool(ConfigurationKey, 'Forms', GrepForms); Settings.WriteInteger(ConfigurationKey, 'Search', GrepSearch); Settings.WriteBool(ConfigurationKey, 'SubDirectories', GrepSub); - Settings.WriteBool(ConfigurationKey, 'Save', GrepSave); Settings.WriteBool(ConfigurationKey, 'ANSICompatible', GrepANSICompatible); Settings.WriteBool(ConfigurationKey, 'ExpandAll', GrepExpandAll); Settings.WriteBool(ConfigurationKey, 'Whole Word', GrepWholeWord); @@ -249,7 +245,6 @@ FGrepForms := Settings.ReadBool(ConfigurationKey, 'Forms', False); FGrepSearch := Settings.ReadInteger(ConfigurationKey, 'Search', 0); FGrepSub := Settings.ReadBool(ConfigurationKey, 'SubDirectories', True); - FGrepSave := Settings.ReadBool(ConfigurationKey, 'Save', True); FGrepANSICompatible := Settings.ReadBool(ConfigurationKey, 'ANSICompatible', False); FGrepExpandAll := Settings.ReadBool(ConfigurationKey, 'ExpandAll', False); FGrepWholeWord := Settings.ReadBool(ConfigurationKey, 'Whole Word', False); |
From: Erik B. <eb...@us...> - 2006-08-09 06:07:58
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv6394 Modified Files: DbugIntf.pas Log Message: Synchronize the two versions of this file (internal, external) Index: DbugIntf.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/DbugIntf.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- DbugIntf.pas 5 Jul 2004 04:54:11 -0000 1.8 +++ DbugIntf.pas 9 Aug 2006 06:07:55 -0000 1.9 @@ -18,10 +18,14 @@ procedure SendDateTime(const Identifier: string; const Value: TDateTime); procedure SendDebugEx(const Msg: string; MType: TMsgDlgType); procedure SendDebug(const Msg: string); +procedure SendDebugError(const Msg: string); +procedure SendDebugWarning(const Msg: string); procedure SendDebugClear; procedure SendInteger(const Identifier: string; const Value: Integer); procedure SendMethodEnter(const MethodName: string); procedure SendMethodExit(const MethodName: string); +procedure SendIndent; +procedure SendUnIndent; procedure SendSeparator; procedure SendDebugFmt(const Msg: string; const Args: array of const); procedure SendDebugFmtEx(const Msg: string; const Args: array of const; MType: TMsgDlgType); @@ -35,6 +39,9 @@ Messages, SysUtils, Registry, +{$IFDEF GX_DEBUGLOG} + GX_Debug, +{$ENDIF GX_DEBUGLOG} Forms; // We need "Forms" for the Application object threadvar @@ -60,9 +67,9 @@ if PastFailedAttemptToStartDebugWin then Exit; - with TRegIniFile.Create('\Software\GExperts') do + with TRegIniFile.Create('\Software\GExperts') do // Do not localize. try - DebugFileName := ReadString('Debug', 'FilePath', ''); + DebugFileName := ReadString('Debug', 'FilePath', ''); // Do not localize. finally Free; end; @@ -70,7 +77,7 @@ if Trim(DebugFileName) = '' then begin GetModuleFileName(HINSTANCE, Buf, SizeOf(Buf)-1); - DebugFileName := ExtractFilePath(StrPas(Buf))+'GDebug.exe'; + DebugFileName := ExtractFilePath(StrPas(Buf)) + 'GDebug.exe'; // Do not localize. end; if (Trim(DebugFileName) = '') or not FileExists(DebugFileName) then @@ -83,10 +90,8 @@ si.cb := SizeOf(si); si.dwFlags := STARTF_USESHOWWINDOW; si.wShowWindow := SW_SHOW; - if not CreateProcess(PChar(DebugFileName), nil, - nil, nil, - False, 0, nil, nil, - si, pi) then + if not CreateProcess(PChar(DebugFileName), nil, nil, nil, + False, 0, nil, nil, si, pi) then begin PastFailedAttemptToStartDebugWin := True; Exit; @@ -103,15 +108,24 @@ end; procedure SendDebugEx(const Msg: string; MType: TMsgDlgType); +{$IFDEF MSWINDOWS} var CDS: TCopyDataStruct; DebugWin: hWnd; MessageString: string; +{$ENDIF MSWINDOWS} {$IFDEF LINUX} + {$DEFINE NEEDMTYPESTR} +{$ENDIF LINUX} +{$IFDEF GX_DEBUGLOG} + {$DEFINE NEEDMTYPESTR} +{$ENDIF GX_DEBUGLOG} + +{$IFDEF NEEDMTYPESTR} const MTypeStr: array[TMsgDlgType] of string = ('Warning: ', 'Error: ', 'Information: ', 'Confirmation: ', 'Custom: '); -{$ENDIF LINUX} +{$ENDIF NEEDMTYPESTR} begin if SendPaused then Exit; @@ -119,8 +133,10 @@ {$IFDEF LINUX} Writeln('GX: ' + MTypeStr[MType] + Msg); {$ENDIF LINUX} - -{$IFNDEF LINUX} +{$IFDEF GX_DEBUGLOG} + GxAddToDebugLog(MTypeStr[MType] + Msg); +{$ENDIF GX_DEBUGLOG} +{$IFDEF MSWINDOWS} DebugWin := FindWindow('TfmDebug', nil); if DebugWin = 0 then @@ -137,7 +153,7 @@ CDS.lpData := PChar(#1+Char(Ord(MType) + 1)+ MessageString +#0); SendMessage(DebugWin, WM_COPYDATA, WPARAM(Application.Handle), LPARAM(@CDS)); end; -{$ENDIF not LINUX} +{$ENDIF MSWINDOWS} end; procedure SendDebug(const Msg: string); @@ -145,6 +161,16 @@ SendDebugEx(Msg, mtInformation); end; +procedure SendDebugError(const Msg: string); +begin + SendDebugEx(Msg, mtError); +end; + +procedure SendDebugWarning(const Msg: string); +begin + SendDebugEx(Msg, mtWarning); +end; + procedure SendDebugFmt(const Msg: string; const Args: array of const); begin SendDebugEx(Format(Msg, Args), mtInformation); @@ -165,17 +191,26 @@ procedure SendMethodEnter(const MethodName: string); begin - MsgPrefix := MsgPrefix + Indentation; SendDebugEx('Entering ' + MethodName, mtInformation); + SendIndent; end; -procedure SendMethodExit(const MethodName: string); +procedure SendIndent; begin - SendDebugEx('Exiting ' + MethodName, mtInformation); + MsgPrefix := MsgPrefix + Indentation; +end; +procedure SendUnIndent; +begin Delete(MsgPrefix, 1, Length(Indentation)); end; +procedure SendMethodExit(const MethodName: string); +begin + SendUnindent; + SendDebugEx('Exiting ' + MethodName, mtInformation); +end; + procedure SendSeparator; const SeparatorString = '------------------------------'; |
From: Erik B. <eb...@us...> - 2006-08-09 06:07:57
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv6394/Src Modified Files: GX_DbugIntf.pas Log Message: Synchronize the two versions of this file (internal, external) Index: GX_DbugIntf.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_DbugIntf.pas,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GX_DbugIntf.pas 21 Jan 2006 21:05:58 -0000 1.17 +++ GX_DbugIntf.pas 9 Aug 2006 06:07:55 -0000 1.18 @@ -23,18 +23,19 @@ procedure SendDebugFmt(const Msg: string; const Args: array of const); procedure SendDebugFmtEx(const Msg: string; const Args: array of const; MType: TMsgDlgType); function StartDebugWin: hWnd; +procedure SendDebugPause; +procedure SendDebugResume; implementation uses Messages, SysUtils, - Forms, - GX_GenericUtils, + Registry, {$IFDEF GX_DEBUGLOG} GX_Debug, {$ENDIF GX_DEBUGLOG} - GX_ConfigurationInfo; + Forms; // We need "Forms" for the Application object threadvar MsgPrefix: AnsiString; @@ -44,6 +45,7 @@ var PastFailedAttemptToStartDebugWin: Boolean = False; + SendPaused: Boolean = False; function StartDebugWin: hWnd; var @@ -58,7 +60,7 @@ if PastFailedAttemptToStartDebugWin then Exit; - with TGExpertsSettings.Create('\Software\GExperts') do // Do not localize. + with TRegIniFile.Create('\Software\GExperts') do // Do not localize. try DebugFileName := ReadString('Debug', 'FilePath', ''); // Do not localize. finally @@ -68,7 +70,7 @@ if Trim(DebugFileName) = '' then begin GetModuleFileName(HINSTANCE, Buf, SizeOf(Buf)-1); - DebugFileName := AddSlash(ExtractFilePath(StrPas(Buf))) + 'GDebug.exe'; // Do not localize. + DebugFileName := ExtractFilePath(StrPas(Buf)) + 'GDebug.exe'; // Do not localize. end; if (Trim(DebugFileName) = '') or not FileExists(DebugFileName) then @@ -120,6 +122,9 @@ ('Warning: ', 'Error: ', 'Information: ', 'Confirmation: ', 'Custom: '); {$ENDIF NEEDMTYPESTR} begin + if SendPaused then + Exit; + {$IFDEF LINUX} Writeln('GX: ' + MTypeStr[MType] + Msg); {$ENDIF LINUX} @@ -181,8 +186,8 @@ procedure SendMethodEnter(const MethodName: string); begin - SendIndent; SendDebugEx('Entering ' + MethodName, mtInformation); + SendIndent; end; procedure SendIndent; @@ -197,8 +202,8 @@ procedure SendMethodExit(const MethodName: string); begin - SendDebugEx('Exiting ' + MethodName, mtInformation); SendUnindent; + SendDebugEx('Exiting ' + MethodName, mtInformation); end; procedure SendSeparator; @@ -214,9 +219,9 @@ // hard-coded string constants, since these are // technical terminology which should not be localised. if Value then - SendDebugEx(Identifier + '= True', mtInformation) + SendDebugEx(Identifier + ' = True', mtInformation) else - SendDebugEx(Identifier + '= False', mtInformation); + SendDebugEx(Identifier + ' = False', mtInformation); end; procedure SendInteger(const Identifier: string; const Value: Integer); @@ -226,7 +231,17 @@ procedure SendDateTime(const Identifier: string; const Value: TDateTime); begin - SendDebugEx(Identifier + '=' + DateTimeToStr(Value), mtInformation); + SendDebugEx(Identifier + ' = ' + DateTimeToStr(Value), mtInformation); +end; + +procedure SendDebugPause; +begin + SendPaused := True; +end; + +procedure SendDebugResume; +begin + SendPaused := False; end; end. |
From: Erik B. <eb...@us...> - 2006-08-09 06:06:43
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/SetComponentProps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv5976/Src/SetComponentProps Modified Files: GX_SetComponentProps.pas Log Message: Change message view status message Index: GX_SetComponentProps.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/SetComponentProps/GX_SetComponentProps.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- GX_SetComponentProps.pas 31 May 2005 18:46:52 -0000 1.6 +++ GX_SetComponentProps.pas 9 Aug 2006 06:06:37 -0000 1.7 @@ -292,7 +292,7 @@ begin if FOutputMessages.Count > 0 then begin - GxOtaWriteTitleMessage('Properties set before compilation by Set Component Properties:'); + GxOtaWriteTitleMessage('Properties set before compilation by GExperts Set Component Properties:'); if TSetComponentPropsSettings.GetInstance.Simulate then GxOtaWriteTitleMessage('Simulation Mode: No property changes are being made'); end; |
From: Erik B. <eb...@us...> - 2006-07-28 02:57:32
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv16400/Src/ReplaceComponents Modified Files: GX_ReplaceCompMapDets.dfm Log Message: Add default/cancel buttons Index: GX_ReplaceCompMapDets.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents/GX_ReplaceCompMapDets.dfm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- GX_ReplaceCompMapDets.dfm 8 Dec 2005 05:39:41 -0000 1.6 +++ GX_ReplaceCompMapDets.dfm 28 Jul 2006 02:55:37 -0000 1.7 @@ -57,6 +57,7 @@ Width = 75 Height = 25 Anchors = [akRight, akBottom] + Cancel = True Caption = '&Close' TabOrder = 3 OnClick = btnCloseClick @@ -68,6 +69,7 @@ Height = 25 Anchors = [akRight, akBottom] Caption = '&Apply' + Default = True TabOrder = 2 OnClick = btnApplyClick end |
From: Erik B. <eb...@us...> - 2006-07-28 02:56:52
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv16432 Modified Files: GExperts.iss Log Message: Future version support Index: GExperts.iss =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/GExperts.iss,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- GExperts.iss 13 May 2006 22:19:04 -0000 1.17 +++ GExperts.iss 28 Jul 2006 02:56:04 -0000 1.18 @@ -8,7 +8,7 @@ #endif #else ; IDE compiler - #define BDS2006 + #define BDS2007 #define Version "1.30" #endif @@ -55,6 +55,14 @@ #define IDERegName "BDS" #define IDERegVer "4" #endif +#ifdef BDS2007 + #define IDEShortName "BDS" + #define IDELongName "BDS" + #define IDEVer "2007" + #define DLLSuffix "BDS2007" + #define IDERegName "BDS" + #define IDERegVer "5" +#endif #ifdef BCB6 #define BCB #define IDEShortName "BCB" |
From: Erik B. <eb...@us...> - 2006-07-28 02:54:44
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv16012/Src Modified Files: GX_CompRename.dfm GX_CompRename.pas Log Message: Add settings button to rename dialog Index: GX_CompRename.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- GX_CompRename.pas 5 Jul 2006 13:54:30 -0000 1.28 +++ GX_CompRename.pas 28 Jul 2006 02:54:32 -0000 1.29 @@ -28,8 +28,10 @@ btnCancel: TButton; btnOK: TButton; lblReason: TLabel; + btnSettings: TButton; procedure FormCreate(Sender: TObject); procedure edtNewNameChange(Sender: TObject); + procedure btnSettingsClick(Sender: TObject); private FIsValidComponentName: TIsValidComponentName; FProperties: TObjectList; @@ -120,6 +122,9 @@ resourcestring SPropertyNotFound = 'Property not found'; +var + PrivateCompRenameExpert: TCompRenameExpert; + { TfmCompRename } function TfmCompRename.Execute: TModalResult; @@ -391,6 +396,7 @@ constructor TCompRenameExpert.Create; begin inherited Create; + PrivateCompRenameExpert := Self; FComponentNames := TStringList.Create; FFormNames := TStringList.Create; FRenameRuleList := TStringList.Create; @@ -406,6 +412,7 @@ var i: Integer; begin + PrivateCompRenameExpert := nil; RemoveNotifier; FreeAndNil(FTimer); if Assigned(FRenameRuleList) then @@ -825,6 +832,12 @@ SetModalFormPopupMode(Self); end; +procedure TfmCompRename.btnSettingsClick(Sender: TObject); +begin + Assert(Assigned(PrivateCompRenameExpert)); + PrivateCompRenameExpert.Configure; +end; + initialization RegisterGX_Expert(TCompRenameExpert); Index: GX_CompRename.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.dfm,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- GX_CompRename.dfm 5 Jul 2006 13:56:57 -0000 1.9 +++ GX_CompRename.dfm 28 Jul 2006 02:54:32 -0000 1.10 @@ -5,7 +5,7 @@ BorderStyle = bsDialog Caption = 'GExperts Rename Component' ClientHeight = 95 - ClientWidth = 297 + ClientWidth = 334 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -17,7 +17,7 @@ Scaled = False OnCreate = FormCreate DesignSize = ( - 297 + 334 95) PixelsPerInch = 96 TextHeight = 13 @@ -57,7 +57,7 @@ object edtOldName: TEdit Left = 91 Top = 8 - Width = 198 + Width = 235 Height = 21 TabStop = False Anchors = [akLeft, akTop, akRight] @@ -68,7 +68,7 @@ object edtNewName: TEdit Left = 91 Top = 32 - Width = 198 + Width = 235 Height = 21 Anchors = [akLeft, akTop, akRight] AutoSelect = False @@ -76,7 +76,7 @@ OnChange = edtNewNameChange end object btnCancel: TButton - Left = 214 + Left = 171 Top = 63 Width = 75 Height = 25 @@ -87,7 +87,7 @@ TabOrder = 3 end object btnOK: TButton - Left = 134 + Left = 91 Top = 63 Width = 75 Height = 25 @@ -97,4 +97,14 @@ ModalResult = 1 TabOrder = 2 end + object btnSettings: TButton + Left = 251 + Top = 63 + Width = 75 + Height = 25 + Anchors = [akRight, akBottom] + Caption = '&Settings...' + TabOrder = 4 + OnClick = btnSettingsClick + end end |
From: Erik B. <eb...@us...> - 2006-07-28 02:54:34
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15228/Src/Utils Modified Files: GX_OtaUtils.pas Log Message: Make tab ordering consider BiDiMode // Get the BiDiMode property for a VCL form function GxOtaGetFormBiDiMode(Form: IOTAFormEditor): TBiDiMode; Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.192 retrieving revision 1.193 diff -u -d -r1.192 -r1.193 --- GX_OtaUtils.pas 5 Jul 2006 13:54:33 -0000 1.192 +++ GX_OtaUtils.pas 28 Jul 2006 02:52:56 -0000 1.193 @@ -492,6 +492,8 @@ // Returns False if there is more than one component selected // or if the currently selected component is not the root. function GxOtaSelectedComponentIsRoot(const FormEditor: IOTAFormEditor): Boolean; +// Get the BiDiMode property for a VCL form +function GxOtaGetFormBiDiMode(Form: IOTAFormEditor): TBiDiMode; // Returns True if FileName points to a valid expert DLL // (valid wizard / expert entry point). False if not. @@ -2871,6 +2873,24 @@ end end; +function GxOtaGetFormBiDiMode(Form: IOTAFormEditor): TBiDiMode; +var + FormComponent: IOTAComponent; + NativeForm: TComponent; +begin + Result := bdLeftToRight; + if Assigned(Form) then + begin + FormComponent := Form.GetRootComponent; + if Assigned(FormComponent) then + begin + NativeForm := GxOtaGetNativeComponent(FormComponent); + if Assigned(NativeForm) and (NativeForm is TCustomForm) then + Result := (NativeForm as TCustomForm).BiDiMode; + end; + end; +end; + {$UNDEF LoadAndCheckEntryPoint} {$DEFINE LoadAndCheckEntryPoint} |
From: Erik B. <eb...@us...> - 2006-07-28 02:53:25
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15228/Src Modified Files: GX_TabOrder.pas Log Message: Make tab ordering consider BiDiMode // Get the BiDiMode property for a VCL form function GxOtaGetFormBiDiMode(Form: IOTAFormEditor): TBiDiMode; Index: GX_TabOrder.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_TabOrder.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- GX_TabOrder.pas 14 Jul 2004 15:39:26 -0000 1.28 +++ GX_TabOrder.pas 28 Jul 2006 02:52:55 -0000 1.29 @@ -28,6 +28,7 @@ procedure btnResetOrderClick(Sender: TObject); private FormEditor: IOTAFormEditor; + FBiDiMode: TBiDiMode; procedure ChildComponentCallback(Param: Pointer; Component: IOTAComponent; var Result: Boolean); procedure SelectCurrentComponent; procedure FillTreeView(FromComponent: IOTAComponent); @@ -126,27 +127,30 @@ function CustomSortProcByPos(Node1, Node2: TTreeNode; Data: Integer): Integer; stdcall; begin Result := 0; - if Assigned(Node1) and Assigned(Node2) and Assigned(Node1.Data) and Assigned(Node2.Data)then + if Assigned(Node1) and Assigned(Node2) and Assigned(Node1.Data) and Assigned(Node2.Data) then begin Result := TComponentData(Node1.Data).Y - TComponentData(Node2.Data).Y; if Result = 0 then - Result := TComponentData(Node1.Data).X - TComponentData(Node2.Data).X; + begin + if TBiDiMode(Data) in [bdRightToLeft, bdRightToLeftNoAlign, bdRightToLeftReadingOnly] then + Result := TComponentData(Node2.Data).X - TComponentData(Node1.Data).X + else + Result := TComponentData(Node1.Data).X - TComponentData(Node2.Data).X; + end; end; end; function CustomSortProcByTabOrder(Node1, Node2: TTreeNode; Data: Integer): Integer; stdcall; begin Result := 0; - if Assigned(Node1) and Assigned(Node2) and Assigned(Node1.Data) and Assigned(Node2.Data)then - begin + if Assigned(Node1) and Assigned(Node2) and Assigned(Node1.Data) and Assigned(Node2.Data) then Result := TComponentData(Node1.Data).TabOrder - TComponentData(Node2.Data).TabOrder; - end; end; procedure TfmTabOrder.SortTreeViewComponentsByXYPosition; begin {$T-} - tvComps.CustomSort(@CustomSortProcByPos, 0); + tvComps.CustomSort(@CustomSortProcByPos, Ord(FBiDiMode)); {$T+} end; @@ -373,6 +377,7 @@ end else begin + TabOrderForm.FBiDiMode := GxOtaGetFormBiDiMode(FormEditor); TabOrderForm.FillTreeView(AComponent); TabOrderForm.SortTreeViewComponentsByXYPosition; end; |
From: Erik B. <eb...@us...> - 2006-07-20 10:12:55
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv1339/Comps Modified Files: GpStructuredStorage.pas Log Message: Fix folder memory leak, update to latest version Index: GpStructuredStorage.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpStructuredStorage.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- GpStructuredStorage.pas 4 May 2005 04:34:12 -0000 1.6 +++ GpStructuredStorage.pas 20 Jul 2006 10:09:45 -0000 1.7 @@ -6,7 +6,7 @@ This software is distributed under the BSD license. -Copyright (c) 2004, Primoz Gabrijelcic +Copyright (c) 2006, Primoz Gabrijelcic All rights reserved. Redistribution and use in source and binary forms, with or without modification, @@ -32,10 +32,20 @@ Author : Primoz Gabrijelcic Creation date : 2003-11-10 - Last modification : 2005-05-02 - Version : 1.08a + Last modification : 2006-07-20 + Version : 1.10b </pre>*)(* History: + 1.10b: + - Memory leak fixed: Internal objects representing folders were never freed. + 1.10a: 2006-01-30 + - Fixed TGpStructuredStorage.Delete to not unnecessary auto-create parent folders. + - Fixed TGpStructuredStorage.IsFolderEmpty to work when unexistent path is passed + as a parameter. + 1.10: 2006-01-29 + - Added method IGpStructuredStorage.IsFolderEmpty. + 1.09: 2006-01-20 + - Major speedup in Folder flushing. 1.08a: 2005-05-02 - Fixed crash in Compact (signature of GetTempFileName was invalid). 1.08: 2004-12-16 @@ -91,8 +101,10 @@ interface uses + Windows, SysUtils, - Classes; + Classes, + GpLists; type {:Structured storage exception class. @@ -161,10 +173,12 @@ function FileExists(const fileName: string): boolean; //:Checks whether the specified folder exists. function FolderExists(const folderName: string): boolean; - //:Returns list of files in folder 'folderName'. Caller must destroy the result. + //:Returns list of files in folder 'folderName'. procedure FileNames(const folderName: string; {out} files: TStrings); - //:Returns list of folders in folder 'folderName'. Caller must destroy the result. + //:Returns list of folders in folder 'folderName'. procedure FolderNames(const folderName: string; {out} folders: TStrings); + //:Fast way to check if folder is empty. + function IsFolderEmpty(const folderName: string): boolean; //:Compacts the structured storage (by copying it to a temporary file and then back). procedure Compact; //:Returns name of the underlying data file or '' if storage is stream-based. @@ -175,6 +189,10 @@ property FileInfo[const fileName: string]: IGpStructuredFileInfo read GetFileInfo; end; { IGpStructuredStorage } + IGpDebugStructuredStorage = interface ['{8F6AA5E9-24DF-4312-A779-19DD78C5CB96}'] + procedure Dump(const fileName: string); + end; { IGpDebugStructuredStorage } + {:Creates an instance of a structured storage. @since 2004-12-16 } @@ -185,8 +203,6 @@ uses Contnrs, Math, - Windows, - GpLists, GpMemStr; const @@ -339,7 +355,6 @@ attributes: TGpStructuredFileAttributes); destructor Destroy; override; //TStream interface - // TODO 3 -oPrimoz Gabrijelcic: Make this D7-compatible function Read(var buffer; count: longint): longint; override; function Write(const buffer; count: longint): longint; override; function Seek(offset: longint; origin: Word): longint; override; @@ -531,8 +546,8 @@ procedure Rename(parentFolder: TGpStructuredFolder; const oldName, newName: string); procedure Reparent(parentFolder: TGpStructuredFolder; const folderName: string; newParentFolder: TGpStructuredFolder); - property SubFolder[parentFolder: TGpStructuredFolder; subFolder: string]: TGpStructuredFolder - read GetSubFolder write SetSubFolder; default; + property SubFolder[parentFolder: TGpStructuredFolder; subFolder: string]: + TGpStructuredFolder read GetSubFolder write SetSubFolder; default; end; { TGpStructuredFolderCache } {:Structured storage implementation. File names are eight bit, case-preserving and ansi @@ -541,7 +556,7 @@ size is 2 GB. @since 2003-11-10 } - TGpStructuredStorage = class(TInterfacedObject, IGpStructuredStorage) + TGpStructuredStorage = class(TInterfacedObject, IGpStructuredStorage, IGpDebugStructuredStorage) private gssFAT : TGpStructuredFAT; gssFileInfoList: TList; @@ -561,8 +576,8 @@ procedure CreateEmptyStorage; function CreateFileInfo(owner: TGpStructuredStorage; folder: TGpStructuredFolder; const fileName: string): IGpStructuredFileInfo; - function DescendTree(folderName: string; - autoCreate: boolean = true): TGpStructuredFolder; + function DescendTree(folderName: string; autoCreate: boolean = true): + TGpStructuredFolder; function GetDataFile: string; function GetDataSize: integer; function GetFileInfo(const fileName: string): IGpStructuredFileInfo; @@ -598,13 +613,12 @@ procedure FolderNames(const folderName: string; {out} folders: TStrings); procedure Initialize(const storageDataFile: string; mode: word); overload; procedure Initialize(storageDataStream: TStream); overload; + function IsFolderEmpty(const folderName: string): boolean; function IsStructuredStorage(const storageDataFile: string): boolean; overload; function IsStructuredStorage(storageDataStream: TStream): boolean; overload; procedure Move(const objectName, newName: string); function OpenFile(const fileName: string; mode: word): TStream; - {$IFDEF DebugStructuredStorage} procedure Dump(const fileName: string); - {$ENDIF DebugStructuredStorage} property DataFile: string read GetDataFile; property DataSize: integer read GetDataSize; property FileInfo[const fileName: string]: IGpStructuredFileInfo read GetFileInfo; @@ -1370,13 +1384,13 @@ destructor TGpStructuredFolder.Destroy; begin FreeAndNil(sfEntries); - if assigned(Owner) then + if assigned(Owner) and (sfAccessCount > 0) then sfOwner.ReleaseFolder(self); inherited; end; { TGpStructuredFolder.Destroy } -function TGpStructuredFolder.DetachEntry( - const entryName: string): TGpStructuredFolderEntry; +function TGpStructuredFolder.DetachEntry(const entryName: string): + TGpStructuredFolderEntry; var idxEntry: integer; begin @@ -1454,14 +1468,21 @@ procedure TGpStructuredFolder.Flush; var iEntry : integer; + memFolder : TMemoryStream; terminator: word; begin - Position := 0; - for iEntry := 0 to CountEntries-1 do - Entry[iEntry].SaveTo(self); - terminator := 0; - Write(terminator, 2); - Size := Position; + memFolder := TMemoryStream.Create; + try + for iEntry := 0 to CountEntries-1 do + Entry[iEntry].SaveTo(memFolder); + terminator := 0; + memFolder.Write(terminator, 2); + Position := 0; + memFolder.Position := 0; + CopyFrom(memFolder, 0); + if Size <> Position then + Size := Position; + finally FreeAndNil(memFolder); end; end; { TGpStructuredFolder.Flush } function TGpStructuredFolder.FolderExists(const folderName: string): boolean; @@ -1590,8 +1611,8 @@ {:Opens/creates a file information entry. @since 2004-02-15 } -function TGpStructuredFolder.OpenFile(const fileName: string; - mode: word): TGpStructuredFile; +function TGpStructuredFolder.OpenFile(const fileName: string; mode: word): + TGpStructuredFile; var idxEntry: integer; begin @@ -1610,8 +1631,8 @@ {:Opens/creates a folder information entry. @since 2004-02-16 } -function TGpStructuredFolder.OpenFolder(const folderName: string; - mode: word): TGpStructuredFolder; +function TGpStructuredFolder.OpenFolder(const folderName: string; mode: word): + TGpStructuredFolder; var idxEntry: integer; begin @@ -1749,7 +1770,7 @@ Result := sfHeader.FirstEmptyBlock; sfHeader.FirstEmptyBlock := Entry[Result]; Entry[Result] := 0; // return unconnected block - Flush; + Flush; end; { TGpStructuredFAT.AllocateBlock } {:Allocates FAT block that is stored at the end of the storage and manages next @@ -1847,7 +1868,7 @@ var block : cardinal; iBlock: integer; -begin +begin block := 1; for iBlock := 0 to sfBlocks.Count-1 do begin TGpStructuredFATBlock(sfBlocks[iBlock]).Save(block); @@ -2180,7 +2201,7 @@ if assigned(gssFat) and assigned(gssFat.sfBlocks) then gssFAT.Truncate; {$IFDEF DebugStructuredStorage} - Dump('test.dmp'); + //Dump('test.dmp'); {$ENDIF DebugStructuredStorage} UnregisterAllFileInfo; FreeAndNil(gssFileInfoList); @@ -2309,7 +2330,6 @@ gssRootFolder.OnSizeChanged := RootFolderSizeChanged; gssRootFolder.Initialize(0); gssHeader.FirstRootFolderBlock := gssRootFolder.FirstBlock; -// RootFolderSizeChanged(gssRootFolder); gssHeader.StorageAttributeFile := gssFAT.AllocateBlock; gssHeader.StorageAttributeFileSize := 0; end; { TGpStructuredStorage.CreateEmptyStorage } @@ -2347,14 +2367,16 @@ stgFolder: TGpStructuredFolder; begin SplitFileName(objectName, folder, name); - stgFolder := DescendTree(folder); - try - stgFolder.DeleteEntry(name); - if not stgFolder.IsEmpty then - folder := ''; - finally ReleaseFolder(stgFolder); end; - if (folder <> '') and (folder <> CFolderDelim) and (name = '') then - Delete(StripTrailingDelimiter(folder)); // delete folder too; strip last delimiter to prevent recursion + stgFolder := DescendTree(folder, false); + if assigned(stgFolder) then begin + try + stgFolder.DeleteEntry(name); + if not stgFolder.IsEmpty then + folder := ''; + finally ReleaseFolder(stgFolder); end; + if (folder <> '') and (folder <> CFolderDelim) and (name = '') then + Delete(StripTrailingDelimiter(folder)); // delete folder too; strip last delimiter to prevent recursion + end; end; { TGpStructuredStorage.Delete } {:Descends to the folder inside the storage. @@ -2370,7 +2392,7 @@ var parent: TGpStructuredFolder; pDelim: integer; -begin +begin if (folderName = '') or (folderName[1] <> CFolderDelim) then raise Exception.CreateFmt('TGpStructuredStorage: Invalid folder name %s', [folderName]); System.Delete(folderName, 1, 1); @@ -2399,12 +2421,16 @@ FreeAndNil(gssStorage); inherited; end; { TGpStructuredStorage.Destroy } - -{$IFDEF DebugStructuredStorage} + procedure TGpStructuredStorage.Dump(const fileName: string); +{$IFDEF DebugStructuredStorage} var df: textfile; +{$ENDIF DebugStructuredStorage} begin + {$IFNDEF DebugStructuredStorage} + raise Exception.Create('TGpStructuredStorage.Dump: Not supported'); + {$ELSE} AssignFile(df, fileName); Rewrite(df); try @@ -2423,9 +2449,9 @@ Writeln(df, 'Folders:'); gssRootFolder.Dump(df, ''); finally CloseFile(df) end; + {$ENDIF DebugStructuredStorage} end; { TGpStructuredStorage.Dump } -{$ENDIF DebugStructuredStorage} - + {:Checks whether the specified file or folder exists. @since 2004-03-02 } @@ -2566,6 +2592,21 @@ FreeAndNil(gssStorage); end; { TGpStructuredStorage.IsStructuredStorage } +{:Checks if folder is empty. + @since 2006-01-29 +} +function TGpStructuredStorage.IsFolderEmpty(const folderName: string): boolean; +var + stgFolder: TGpStructuredFolder; +begin + stgFolder := DescendTree(NormalizeFileName(folderName, true), false); + if not assigned(stgFolder) then + Result := true + else try + Result := stgFolder.IsEmpty; + finally ReleaseFolder(stgFolder); end; +end; { TGpStructuredStorage.IsFolderEmpty } + {:Checks if a stream contains structured storage. @since 2004-12-16 } @@ -2715,7 +2756,7 @@ gssHeader.StorageAttributeFile, gssHeader.StorageAttributeFileSize, [sfAttrIsAttributeFile]); Result.OnSizeChanged := StorageAttributeFileSizeChanged; -end; { TGpStructuredStorage.ReleaseFolder } +end; { TGpStructuredStorage.OpenStorageAttributeFile } procedure TGpStructuredStorage.PrepareStructures; begin @@ -2735,7 +2776,9 @@ begin if not gssFolderCache.Remove(folder.Folder, folder.FileName) then raise Exception.CreateFmt( - 'TGpStructuredStorage: Folder %s is not stored in the cache.', [folder.FileName]); + 'TGpStructuredStorage: Folder %s is not stored in the cache.', [folder.FileName]) + else + FreeAndNil(folder); end; end; { TGpStructuredStorage.ReleaseFolder } |
From: Erik B. <eb...@us...> - 2006-07-14 01:33:32
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv32216/Src Modified Files: GX_KbdShortCutBroker.pas Log Message: Make sure we mark all pressed GExperts shortcuts as handled, even if we raise an exception Manually call ApplicationShowException Index: GX_KbdShortCutBroker.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_KbdShortCutBroker.pas,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- GX_KbdShortCutBroker.pas 9 Jan 2006 02:25:07 -0000 1.32 +++ GX_KbdShortCutBroker.pas 14 Jul 2006 01:32:42 -0000 1.33 @@ -603,7 +603,16 @@ if Assigned(AShortCutItem) and Assigned(AShortCutItem.Trigger) then begin BindingResult := krHandled; - TriggerKeyboardShortCut(AShortCutItem); + try + TriggerKeyboardShortCut(AShortCutItem); + except + on E: Exception do + begin + // If we don't handle these, the hotkey is passed to the editor (inserts + // a character) or another expert (may show another error, dialog, etc.) + ApplicationShowException(E); + end; + end; end; end; |
From: Erik B. <eb...@us...> - 2006-07-14 01:32:12
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv31779/Src Modified Files: GX_CondDefine.inc GX_GetIdeVersion.pas GX_VerDepConst.pas Log Message: Projected BDS 2007 support, untested Index: GX_GetIdeVersion.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GetIdeVersion.pas,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- GX_GetIdeVersion.pas 17 Apr 2006 06:10:26 -0000 1.37 +++ GX_GetIdeVersion.pas 14 Jul 2006 01:31:14 -0000 1.38 @@ -12,6 +12,7 @@ ideD800, ideD801, ideD802, ideD900, ideD901, ideD902, ideD903, ideBDS2006, + ideBDS2007, ideCSB100, ideBCB600, ideBCB601, ideBCB602, ideBCB604, ideKylix100, @@ -377,6 +378,22 @@ end; end; +function GetBDS2007Version: TBorlandIdeVersion; +const + CoreIde1100: TVersionNumber = + (Minor: 0; Major: 0; Build: 0; Release: 0); +var + CoreIdeFileVersion: TVersionNumber; + VersionNumber: Integer; +begin + Result := ideBDS2007; + CoreIdeFileVersion := GetFileVersionNumber(GetIdeRootDirectory + 'Bin\coreide110.bpl'); + VersionNumber := CompareVersionNumber(CoreIdeFileVersion, CoreIde1100); + if VersionNumber > 0 then begin + //Result := ideD1101; + end; +end; + function GetBorlandIdeVersion: TBorlandIdeVersion; begin // We only actually detect the version once per session. @@ -433,6 +450,11 @@ Assert(Result in [ideBDS2006]); {$ENDIF VER180} + {$IFDEF VER190} // BDS 2007 + Result := GetBDS2007Version; + Assert(Result in [ideBDS2007]); + {$ENDIF VER190} + if Result = ideUnknown then MessageDlg('Unknown IDE major version detected. Please update GX_GetIdeVersion.pas.', mtError, [mbOK], 0); Index: GX_CondDefine.inc =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CondDefine.inc,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- GX_CondDefine.inc 22 Jan 2006 22:54:38 -0000 1.43 +++ GX_CondDefine.inc 14 Jul 2006 01:31:14 -0000 1.44 @@ -52,6 +52,9 @@ {$DEFINE GX_VER170_up} // Delphi 9/2005 {$IF CompilerVersion >= 18} {$DEFINE GX_VER180_up} // BDS 2006 + {$IF CompilerVersion >= 19} + {$DEFINE GX_VER190_up} // BDS 2007 + {$IFEND} {$IFEND} {$IFEND} {$IFEND} Index: GX_VerDepConst.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_VerDepConst.pas,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- GX_VerDepConst.pas 24 Oct 2005 06:20:27 -0000 1.30 +++ GX_VerDepConst.pas 14 Jul 2006 01:31:14 -0000 1.31 @@ -58,6 +58,11 @@ {$DEFINE GExpertsDllNameDefined} {$ENDIF VER180} + {$IFDEF VER190} + GExpertsDll = 'GExpertsBDS2007.dll'; + {$DEFINE GExpertsDllNameDefined} + {$ENDIF VER190} + {$IFNDEF GExpertsDllNameDefined} GExpertsDllNameDefined not defined {$ENDIF GExpertsDllNameDefined} @@ -117,6 +122,11 @@ {$DEFINE TTabDockHostFormClassContainerDefined} {$ENDIF VER180} + {$IFDEF VER190} + TTabDockHostFormClassContainer = 'designide110.bpl'; + {$DEFINE TTabDockHostFormClassContainerDefined} + {$ENDIF VER190} + {$IFNDEF TTabDockHostFormClassContainerDefined} TTabDockHostFormClassContainer not defined {$ENDIF TTabDockHostFormClassContainerDefined} @@ -185,6 +195,11 @@ {$DEFINE MajorVersionNumber} {$ENDIF VER180} + {$IFDEF VER190} + MajorVersionNumberChar = '11'; // BDS 2007 + {$DEFINE MajorVersionNumber} + {$ENDIF VER190} + {$IFNDEF MajorVersionNumber} MajorVersionNumberChar has not been defined {$ENDIF MajorVersionNumber} @@ -247,6 +262,12 @@ {$DEFINE IdeBaseKey} {$ENDIF VER180} + {$IFDEF VER190} + // BDS 2007 + CompilerDefinedProductRegistryKey = 'BDS\5.0'; + {$DEFINE IdeBaseKey} + {$ENDIF VER190} + {$IFNDEF IdeBaseKey} CompilerDefinedProductRegistryKey not defined {$ENDIF IdeBaseKey} @@ -293,6 +314,11 @@ {$DEFINE ClassBrowserStorageDefined} {$ENDIF VER180} + {$IFDEF VER190} + ClassBrowserStorageFolder = 'Classes.BDS2007'; + {$DEFINE ClassBrowserStorageDefined} + {$ENDIF VER190} + {$IFNDEF ClassBrowserStorageDefined} Storage folder for class browser not defined {$ENDIF ClassBrowserStorageDefined} |
From: Erik B. <eb...@us...> - 2006-07-10 21:20:41
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv23874/Src Modified Files: GX_IdeShortCuts.pas Log Message: Reinitialize the shortcuts after startup to make sure slower-loading IDEs like BDS 2006 get updated Index: GX_IdeShortCuts.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeShortCuts.pas,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- GX_IdeShortCuts.pas 21 Jan 2006 21:05:58 -0000 1.40 +++ GX_IdeShortCuts.pas 10 Jul 2006 21:20:37 -0000 1.41 @@ -76,6 +76,7 @@ private FShortCutExpert: TShortCutExpert; FUpdateTimer: TTimer; + FUpdateCount: Integer; procedure OnUpdateTimer(Sender: TObject); public procedure FileNotification(NotifyCode: TOTAFileNotification; @@ -583,7 +584,7 @@ FShortCutExpert := AClient; FUpdateTimer := TTimer.Create(nil); FUpdateTimer.Enabled := False; - FUpdateTimer.Interval := 4000; + FUpdateTimer.Interval := 5000; FUpdateTimer.OnTimer := OnUpdateTimer; end; @@ -607,14 +608,17 @@ // Restart the timer delay before updating the shortcuts. // This prevents us from updating constantly during startup, etc. FUpdateTimer.Enabled := False; + FUpdateCount := 0; FUpdateTimer.Enabled := True; end; end; procedure TPackageLoadingNotifier.OnUpdateTimer(Sender: TObject); begin - {$IFOPT D+} SendDebug('IDE shortcut update timer expired, calling ReadFromRegistryIDE'); {$ENDIF} - FUpdateTimer.Enabled := False; + Inc(FUpdateCount); + {$IFOPT D+} SendDebug('IDE shortcut update timer expired, calling ReadFromRegistryIDE. Update Count: ' + IntToStr(FUpdateCount)); {$ENDIF} + if FUpdateCount >= 3 then + FUpdateTimer.Enabled := False; if Application.Terminated then Exit; FShortCutExpert.ReadFromRegistryIDE; |
From: Erik B. <eb...@us...> - 2006-07-05 13:57:04
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv13269/Src Modified Files: GX_CompRename.dfm Log Message: Realign label component Index: GX_CompRename.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.dfm,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- GX_CompRename.dfm 16 Feb 2006 03:34:15 -0000 1.8 +++ GX_CompRename.dfm 5 Jul 2006 13:56:57 -0000 1.9 @@ -39,7 +39,7 @@ end object lblReason: TLabel Left = 10 - Top = 74 + Top = 68 Width = 73 Height = 13 Anchors = [akLeft, akBottom] |
From: Erik B. <eb...@us...> - 2006-07-05 13:57:03
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/OpenFile In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/OpenFile Modified Files: GX_OpenFileConfig.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_OpenFileConfig.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFileConfig.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- GX_OpenFileConfig.pas 6 Apr 2006 00:16:51 -0000 1.12 +++ GX_OpenFileConfig.pas 5 Jul 2006 13:54:32 -0000 1.13 @@ -3,7 +3,7 @@ interface uses - Classes, Graphics, Controls, Forms, StdCtrls, Buttons, ComCtrls, ExtCtrls, + Classes, Controls, Forms, StdCtrls, Buttons, ComCtrls, ExtCtrls, GX_ConfigurationInfo; type @@ -143,7 +143,7 @@ implementation uses - SysUtils, Dialogs, IniFiles, GX_GenericUtils, GX_GxUtils; + SysUtils, Dialogs, GX_GenericUtils, GX_GxUtils; {$R *.dfm} |
From: Erik B. <eb...@us...> - 2006-07-05 13:56:58
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ToDo In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/ToDo Modified Files: GX_ToDo.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_ToDo.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ToDo/GX_ToDo.pas,v retrieving revision 1.53 retrieving revision 1.54 diff -u -d -r1.53 -r1.54 --- GX_ToDo.pas 21 Jan 2006 20:13:10 -0000 1.53 +++ GX_ToDo.pas 5 Jul 2006 13:54:33 -0000 1.54 @@ -163,7 +163,7 @@ SysUtils, Dialogs, Clipbrd, Graphics, Windows, mPasLex, mwBCBTokenList, GX_GxUtils, GX_GenericUtils, GX_EditReader, - GX_ToDoOptions, GX_SharedImages, GX_IdeUtils; + GX_ToDoOptions, GX_SharedImages; resourcestring SParsingError = 'A parsing error occurred in file %s.' + sLineBreak; |
From: Erik B. <eb...@us...> - 2006-07-05 13:56:54
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/SetComponentProps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/SetComponentProps Modified Files: GX_SetComponentPropsConfig.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_SetComponentPropsConfig.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/SetComponentProps/GX_SetComponentPropsConfig.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- GX_SetComponentPropsConfig.pas 30 Jun 2006 07:02:42 -0000 1.7 +++ GX_SetComponentPropsConfig.pas 5 Jul 2006 13:54:32 -0000 1.8 @@ -8,7 +8,7 @@ interface uses - Classes, Controls, Forms, ActnList, Menus, Grids, StdCtrls, ComCtrls; + Classes, Controls, Forms, ActnList, Menus, StdCtrls, ComCtrls; type TfmSetComponentPropsConfig = class(TForm) |
From: Erik B. <eb...@us...> - 2006-07-05 13:56:21
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/Utils Modified Files: GX_OtaUtils.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.191 retrieving revision 1.192 diff -u -d -r1.191 -r1.192 --- GX_OtaUtils.pas 30 Jun 2006 07:01:57 -0000 1.191 +++ GX_OtaUtils.pas 5 Jul 2006 13:54:33 -0000 1.192 @@ -563,7 +563,7 @@ uses {$IFDEF LINUX} WinUtils, {$ENDIF} {$IFOPT D+} GX_DbugIntf, {$ENDIF} - Variants, Windows, Controls, DesignIntf, TypInfo, + Variants, Windows, DesignIntf, TypInfo, EditorStrings, GX_EditReader, GX_IdeUtils, GX_VerDepConst, SetString; procedure ClearUnitInfoList(const List: TList); |
From: Erik B. <eb...@us...> - 2006-07-05 13:55:30
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Proofreader In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/Proofreader Modified Files: GX_ProofreaderConfig.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_ProofreaderConfig.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Proofreader/GX_ProofreaderConfig.pas,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- GX_ProofreaderConfig.pas 17 Apr 2006 06:06:38 -0000 1.27 +++ GX_ProofreaderConfig.pas 5 Jul 2006 13:54:32 -0000 1.28 @@ -113,7 +113,7 @@ implementation uses - SysUtils, Windows, ToolsAPI, + SysUtils, Windows, GX_ProofreaderAutoCorrectEntry, GX_KibitzComp, GX_GxUtils, GX_GenericUtils, GX_OtaUtils; |
From: Erik B. <eb...@us...> - 2006-07-05 13:55:30
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/ReplaceComponents Modified Files: GX_ReplaceCompMapGrpList.pas GX_ReplaceCompMapList.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_ReplaceCompMapList.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents/GX_ReplaceCompMapList.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- GX_ReplaceCompMapList.pas 21 Jan 2006 21:00:30 -0000 1.6 +++ GX_ReplaceCompMapList.pas 5 Jul 2006 13:54:32 -0000 1.7 @@ -5,7 +5,7 @@ interface uses - Messages, Classes, Graphics, Controls, Forms, ComCtrls, StdCtrls, + Messages, Classes, Controls, Forms, ComCtrls, StdCtrls, ExtCtrls, Contnrs, ToolWin, ImgList, ActnList, GX_ReplaceCompData, GX_SharedImages, GX_ReplaceCompMapDets; Index: GX_ReplaceCompMapGrpList.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ReplaceComponents/GX_ReplaceCompMapGrpList.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- GX_ReplaceCompMapGrpList.pas 21 Jan 2006 21:00:30 -0000 1.4 +++ GX_ReplaceCompMapGrpList.pas 5 Jul 2006 13:54:32 -0000 1.5 @@ -5,7 +5,7 @@ interface uses - Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, + Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, GX_ReplaceCompData; type |
From: Erik B. <eb...@us...> - 2006-07-05 13:55:08
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src Modified Files: GX_CompRename.pas GX_CompRenameAdvanced.pas GX_KibitzComp.pas GX_MacroLibrary.pas GX_MessageBox.pas GX_MessageDialog.pas GX_ProcedureList.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_MacroLibrary.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MacroLibrary.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- GX_MacroLibrary.pas 17 Apr 2006 06:10:26 -0000 1.10 +++ GX_MacroLibrary.pas 5 Jul 2006 13:54:30 -0000 1.11 @@ -5,9 +5,9 @@ interface uses - Windows, Messages, SysUtils, Classes, + Windows, SysUtils, Classes, GX_Experts, GX_ConfigurationInfo, GX_KbdShortCutBroker, - Graphics, Controls, Forms, Dialogs, + Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus, OmniXML, ComCtrls, GX_IdeDock, ActnList, ImgList, ToolWin, ToolsAPI; @@ -180,10 +180,9 @@ {$R *.dfm} uses - {$IFOPT D+} GX_DbugIntf, {$ENDIF} ActiveX, GX_GxUtils, GX_GenericUtils, GX_OtaUtils, - GX_GExperts, IniFiles, GX_SharedImages, GX_XmlUtils; + GX_SharedImages, GX_XmlUtils; const MacroLibraryStorageFileName = 'MacroLibrary.xml'; Index: GX_CompRename.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.pas,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- GX_CompRename.pas 17 Apr 2006 06:13:41 -0000 1.27 +++ GX_CompRename.pas 5 Jul 2006 13:54:30 -0000 1.28 @@ -703,7 +703,7 @@ begin inherited InternalLoadSettings(Settings); Assert(Assigned(FRenameRuleList)); - FShowDialog := Settings.ReadBool(ConfigurationKey, 'ShowDialog', True); + FShowDialog := Settings.ReadBool(ConfigurationKey, 'ShowDialog', False); FAutoAddClasses := Settings.ReadBool(ConfigurationKey, 'AutoAdd', True); Settings.ReadStrings(FRenameRuleList, ConfigurationKey, 'Item'); FRenameRuleList.Sort; Index: GX_KibitzComp.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_KibitzComp.pas,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- GX_KibitzComp.pas 13 Nov 2005 04:08:27 -0000 1.24 +++ GX_KibitzComp.pas 5 Jul 2006 13:54:30 -0000 1.25 @@ -22,7 +22,6 @@ uses {$IFOPT D+} GX_DbugIntf, {$ENDIF} - {$IFNDEF GX_KIBITZ_OTA} GX_VerDepConst, {$ENDIF} Windows, SysUtils, GX_OtaUtils, GX_IdeUtils; type Index: GX_MessageDialog.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MessageDialog.pas,v retrieving revision 1.61 retrieving revision 1.62 diff -u -d -r1.61 -r1.62 --- GX_MessageDialog.pas 6 Jun 2006 17:00:00 -0000 1.61 +++ GX_MessageDialog.pas 5 Jul 2006 13:54:30 -0000 1.62 @@ -5,7 +5,7 @@ interface uses - Classes, Graphics, Controls, Forms, + Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls, ComCtrls; type Index: GX_ProcedureList.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ProcedureList.pas,v retrieving revision 1.69 retrieving revision 1.70 diff -u -d -r1.69 -r1.70 --- GX_ProcedureList.pas 16 May 2006 02:06:13 -0000 1.69 +++ GX_ProcedureList.pas 5 Jul 2006 13:54:30 -0000 1.70 @@ -119,7 +119,7 @@ {$IFOPT D+} GX_DbugIntf, {$ENDIF} Windows, Clipbrd, Menus, GX_GxUtils, GX_GenericUtils, GX_OtaUtils, GX_IdeUtils, - GX_SynMemoUtils, GX_SharedImages, GX_Experts; + GX_SharedImages, GX_Experts; resourcestring SAllString = '<All>'; Index: GX_CompRenameAdvanced.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRenameAdvanced.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- GX_CompRenameAdvanced.pas 11 Aug 2005 18:50:32 -0000 1.1 +++ GX_CompRenameAdvanced.pas 5 Jul 2006 13:54:30 -0000 1.2 @@ -3,7 +3,7 @@ interface uses - Classes, Windows, Controls, StdCtrls, Forms; + Classes, Controls, StdCtrls, Forms; type TfmCompRenameAdvanced = class(TForm) Index: GX_MessageBox.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MessageBox.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- GX_MessageBox.pas 21 Jan 2006 21:05:58 -0000 1.19 +++ GX_MessageBox.pas 5 Jul 2006 13:54:30 -0000 1.20 @@ -53,7 +53,7 @@ uses {$IFOPT D+} GX_DbugIntf, {$ENDIF} SysUtils, Consts, - GX_GenericUtils, GX_ConfigurationInfo; + GX_ConfigurationInfo; const MsgDlgResults: array[TMsgDlgBtn] of Integer = ( |
From: Erik B. <eb...@us...> - 2006-07-05 13:55:06
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/CodeLib In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/CodeLib Modified Files: GX_CodeLib.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_CodeLib.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/CodeLib/GX_CodeLib.pas,v retrieving revision 1.63 retrieving revision 1.64 diff -u -d -r1.63 -r1.64 --- GX_CodeLib.pas 17 Apr 2006 06:06:37 -0000 1.63 +++ GX_CodeLib.pas 5 Jul 2006 13:54:31 -0000 1.64 @@ -7,7 +7,7 @@ interface uses - GX_SynMemoUtils, GX_Experts, GX_EnhancedEditor, + GX_Experts, GX_EnhancedEditor, Forms, Controls, StdActns, Classes, ActnList, Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, GpStructuredStorage, GX_GenericUtils; |
From: Erik B. <eb...@us...> - 2006-07-05 13:55:06
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/ClassBrowser In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/ClassBrowser Modified Files: GX_ClassBrowser.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_ClassBrowser.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ClassBrowser/GX_ClassBrowser.pas,v retrieving revision 1.51 retrieving revision 1.52 diff -u -d -r1.51 -r1.52 --- GX_ClassBrowser.pas 21 Jan 2006 21:03:41 -0000 1.51 +++ GX_ClassBrowser.pas 5 Jul 2006 13:54:31 -0000 1.52 @@ -238,7 +238,7 @@ SysUtils, Windows, Messages, StdCtrls, Printers, GX_VerDepConst, GX_ClassIdentify, GX_ConfigurationInfo, GX_EditReader, GX_ClassProp, GX_ClassOptions, GX_ClassReport, GX_GExperts, - GX_GxUtils, GX_GenericUtils, GX_SynMemoUtils, GX_SharedImages, GX_IdeUtils; + GX_GxUtils, GX_GenericUtils, GX_SharedImages, GX_IdeUtils; function ExpertClassKey: string; begin |
From: Erik B. <eb...@us...> - 2006-07-05 13:54:48
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/MacroTemplates In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12115/Src/MacroTemplates Modified Files: GX_MacroTemplates.pas Log Message: Minor uses clause tweaks Change one default checkbox value Index: GX_MacroTemplates.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/MacroTemplates/GX_MacroTemplates.pas,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- GX_MacroTemplates.pas 21 Jan 2006 21:03:41 -0000 1.32 +++ GX_MacroTemplates.pas 5 Jul 2006 13:54:31 -0000 1.33 @@ -10,8 +10,7 @@ uses Classes, Controls, Forms, ComCtrls, ExtCtrls, StdCtrls, Menus, Dialogs, ActnList, StdActns, - GX_ConfigurationInfo, GX_MacroFile, GX_EnhancedEditor, GX_SynMemoUtils, - GX_GenericUtils; + GX_ConfigurationInfo, GX_MacroFile, GX_EnhancedEditor, GX_GenericUtils; const DefaultMacroFileName = 'MacroTemplates.xml'; |