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-02-26 05:43:07
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv26999/Src Modified Files: GX_EditorChangeServices.pas Log Message: Ensure RemoveSelfNotifier actually does something if TGxModuleNotifier.Destroy is called early Index: GX_EditorChangeServices.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_EditorChangeServices.pas,v retrieving revision 1.47 retrieving revision 1.48 diff -u -d -r1.47 -r1.48 --- GX_EditorChangeServices.pas 17 Apr 2006 06:13:41 -0000 1.47 +++ GX_EditorChangeServices.pas 26 Feb 2007 05:43:05 -0000 1.48 @@ -706,8 +706,6 @@ FreeAndNil(FInstalledEditorNotifiers); - FSelfNotifierIndex := InvalidNotifierIndex; - RemoveSelfNotifier; NoRefCount(FAssociatedModule) := nil; RemoveSelfFromClient; @@ -816,11 +814,10 @@ procedure TGxModuleNotifier.RemoveSelfNotifier; begin - if not Assigned(FAssociatedModule) then - Exit; if FSelfNotifierIndex <> InvalidNotifierIndex then begin - FAssociatedModule.RemoveNotifier(FSelfNotifierIndex); + if Assigned(FAssociatedModule) then + FAssociatedModule.RemoveNotifier(FSelfNotifierIndex); FSelfNotifierIndex := InvalidNotifierIndex; end; end; |
From: Erik B. <eb...@us...> - 2007-01-19 18:02:37
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv5436/Comps Modified Files: GpLists.pas Log Message: Update to official fixed version 1.23a Index: GpLists.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpLists.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- GpLists.pas 19 Jan 2007 07:53:44 -0000 1.4 +++ GpLists.pas 19 Jan 2007 18:02:33 -0000 1.5 @@ -30,10 +30,15 @@ Author : Primoz Gabrijelcic Creation date : 2002-07-04 - Last modification : 2006-09-29 - Version : 1.22a + Last modification : 2007-01-19 + Version : 1.23a </pre>*)(* History: + 1.23a: 2007-01-19 + - Compiles with Delphi 6 again. Big thanks to Tao Lin and + Erik Berry for reporting, diagnosing and fixing the problem. + 1.23: 2006-12-06 + - Added ValuesIdx to the TGpObjectMap class. 1.22a: 2006-09-29 - Fixed nasty bug in TGpIntegerObjectList.AddObject and TGpInt64ObjectList.AddObject. @@ -470,6 +475,7 @@ omList: TGpIntegerObjectList; protected function GetIndexedItem(idxItem: integer): TObject; + function GetIndexedValue(idxValue: integer): TObject; function GetItems(item: TObject): TObject; virtual; procedure SetItems(item: TObject; const value: TObject); virtual; public @@ -481,6 +487,7 @@ procedure Find(value: TObject; compareFunc: TGpObjectMapCompare; var item: TObject); virtual; property Items[idxItem: integer]: TObject read GetIndexedItem; + property ValuesIdx[idxValue: integer]: TObject read GetIndexedValue; property Values[item: TObject]: TObject read GetItems write SetItems; default; end; { TGpObjectMap } @@ -519,8 +526,7 @@ dlloNext : TGpDoublyLinkedListObject; dlloPrevious: TGpDoublyLinkedListObject; protected - procedure LinkAfter(list: TGpDoublyLinkedList; - obj: TGpDoublyLinkedListObject); + procedure LinkAfter(list: TGpDoublyLinkedList; obj: TGpDoublyLinkedListObject); procedure Unlink; public destructor Destroy; override; @@ -1544,7 +1550,7 @@ function TGpIntegerObjectList.Add(item: integer): integer; begin - Result := AddObject(item, nil); + Result := AddObject(item, nil); end; { TGpIntegerObjectList.Add } function TGpIntegerObjectList.AddObject(item: integer; @@ -1555,7 +1561,7 @@ iolObjects.Insert(Result, obj) else Objects[Result] := obj; -end; { TGpIntegerObjectList.AddObject } +end; { TGpIntegerObjectList.AddObject } procedure TGpIntegerObjectList.Clear; begin @@ -2262,6 +2268,11 @@ Result := TObject(omList[idxItem]); end; { TGpObjectMap.GetIndexedItem } +function TGpObjectMap.GetIndexedValue(idxValue: integer): TObject; +begin + Result := omList.Objects[idxValue]; +end; { TGpObjectMap.GetIndexedObject } + function TGpObjectMap.GetItems(item: TObject): TObject; var idxItem: integer; @@ -2432,6 +2443,8 @@ dlloPrevious := nil; end; { TGpDoublyLinkedListObject.Unlink } +{ TGpDoublyLinkedList } + constructor TGpDoublyLinkedList.Create(multithreaded: boolean); begin inherited Create; @@ -2451,8 +2464,6 @@ inherited; end; { TGpDoublyLinkedList.Destroy } -{ TGpDoublyLinkedList } - {:Returns number of items in the list. @since 2003-10-28 } @@ -2607,4 +2618,3 @@ end. - |
From: Erik B. <eb...@us...> - 2007-01-19 07:53:48
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv14158/Comps Modified Files: GpLists.pas Log Message: Fix Delphi 6 compiler error using IFDEF Index: GpLists.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpLists.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- GpLists.pas 19 Jan 2007 05:11:24 -0000 1.3 +++ GpLists.pas 19 Jan 2007 07:53:44 -0000 1.4 @@ -104,6 +104,12 @@ interface +{$IFDEF CONDITIONALEXPRESSIONS} + {$IF (RTLVersion >= 15)} // Delphi 7.0 or newer + {$DEFINE D7PLUS} + {$IFEND} +{$ENDIF} + uses Classes, Contnrs, @@ -222,7 +228,6 @@ property Text: string read GetText write SetText; end; { TGpIntegerList } -(* TGpInt64List = class; {:TGpInt64List enumerator. @@ -303,7 +308,6 @@ property Sorted: boolean read ilSorted write SetSorted; property Text: string read GetText write SetText; end; { TGpInt64List } -*) {:Integer list where each integer is accompanied with an object. @since 2003-06-09 @@ -334,7 +338,6 @@ property Objects[idxObject: integer]: TObject read GetObject write SetObject; end; { TGpIntegerObjectList } -(* {:Int64 list where each integer is accompanied with an object. @since 2006-09-20 } @@ -363,7 +366,6 @@ procedure SaveToStream(stream: TStream); override; property Objects[idxObject: integer]: TObject read GetObject write SetObject; end; { TGpInt64ObjectList } -*) {:String list where each item has associated counter (stored in the Objects) property. @@ -622,12 +624,10 @@ Result := IntegerCompare(List[idx1], List[idx2]); end; { IntegerListCompare } -(* function Int64ListCompare(List: TGpInt64List; idx1, idx2: integer): integer; begin Result := Int64Compare(List[idx1], List[idx2]); end; { Int64ListCompare } -*) { TGpInt64 } @@ -1062,7 +1062,6 @@ QuickSort(0, Count - 1, IntegerListCompare); end; { TGpIntegerList.Sort } -(* { TGpInt64ListEnumerator } constructor TGpInt64ListEnumerator.Create(aList: TGpInt64List); @@ -1445,12 +1444,16 @@ {:Restores the list dumped by the Dump method. @returns Pointer to the byte immediately after the end of dumped data. @since 2006-09-20 -} +} + +type + PInteger64 = ^Int64; // Workaround for Delphi 6 "Internal error: URW699" below + function TGpInt64List.Restore(baseAddr: pointer): pointer; var iList : integer; numItems: integer; - pList : PLargeInteger; + pList : {$IFNDEF D7PLUS} PInteger64 {$ELSE} PLargeInteger {$ENDIF}; begin pList := baseAddr; numItems := integer(pList^); @@ -1524,7 +1527,6 @@ if not Sorted and (Count > 1) then QuickSort(0, Count - 1, Int64ListCompare); end; { TGpInt64List.Sort } -*) constructor TGpIntegerObjectList.Create(ownsObjects: boolean); begin @@ -1695,7 +1697,6 @@ iolObjects[idxObject] := value; end; { TGpIntegerObjectList.SetObject } -(* { TGpInt64ObjectList } constructor TGpInt64ObjectList.Create(ownsObjects: boolean); @@ -1867,7 +1868,6 @@ begin iolObjects[idxObject] := value; end; { TGpInt64ObjectList.SetObject } -*) { TGpCountedStringList } @@ -2607,3 +2607,4 @@ end. + |
From: Erik B. <eb...@us...> - 2007-01-19 05:11:25
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv17765/Comps Modified Files: GpLists.pas Log Message: Revert some new classes for D6 support Index: GpLists.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpLists.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GpLists.pas 22 Nov 2006 20:52:21 -0000 1.2 +++ GpLists.pas 19 Jan 2007 05:11:24 -0000 1.3 @@ -222,6 +222,7 @@ property Text: string read GetText write SetText; end; { TGpIntegerList } +(* TGpInt64List = class; {:TGpInt64List enumerator. @@ -302,6 +303,7 @@ property Sorted: boolean read ilSorted write SetSorted; property Text: string read GetText write SetText; end; { TGpInt64List } +*) {:Integer list where each integer is accompanied with an object. @since 2003-06-09 @@ -332,6 +334,7 @@ property Objects[idxObject: integer]: TObject read GetObject write SetObject; end; { TGpIntegerObjectList } +(* {:Int64 list where each integer is accompanied with an object. @since 2006-09-20 } @@ -360,6 +363,7 @@ procedure SaveToStream(stream: TStream); override; property Objects[idxObject: integer]: TObject read GetObject write SetObject; end; { TGpInt64ObjectList } +*) {:String list where each item has associated counter (stored in the Objects) property. @@ -618,10 +622,12 @@ Result := IntegerCompare(List[idx1], List[idx2]); end; { IntegerListCompare } +(* function Int64ListCompare(List: TGpInt64List; idx1, idx2: integer): integer; begin Result := Int64Compare(List[idx1], List[idx2]); end; { Int64ListCompare } +*) { TGpInt64 } @@ -1056,6 +1062,7 @@ QuickSort(0, Count - 1, IntegerListCompare); end; { TGpIntegerList.Sort } +(* { TGpInt64ListEnumerator } constructor TGpInt64ListEnumerator.Create(aList: TGpInt64List); @@ -1517,6 +1524,7 @@ if not Sorted and (Count > 1) then QuickSort(0, Count - 1, Int64ListCompare); end; { TGpInt64List.Sort } +*) constructor TGpIntegerObjectList.Create(ownsObjects: boolean); begin @@ -1534,7 +1542,7 @@ function TGpIntegerObjectList.Add(item: integer): integer; begin - Result := AddObject(item, nil); + Result := AddObject(item, nil); end; { TGpIntegerObjectList.Add } function TGpIntegerObjectList.AddObject(item: integer; @@ -1545,7 +1553,7 @@ iolObjects.Insert(Result, obj) else Objects[Result] := obj; -end; { TGpIntegerObjectList.AddObject } +end; { TGpIntegerObjectList.AddObject } procedure TGpIntegerObjectList.Clear; begin @@ -1687,6 +1695,7 @@ iolObjects[idxObject] := value; end; { TGpIntegerObjectList.SetObject } +(* { TGpInt64ObjectList } constructor TGpInt64ObjectList.Create(ownsObjects: boolean); @@ -1858,6 +1867,7 @@ begin iolObjects[idxObject] := value; end; { TGpInt64ObjectList.SetObject } +*) { TGpCountedStringList } |
From: Erik B. <eb...@us...> - 2007-01-19 04:46:07
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv7860/Comps Modified Files: GpStreamWrapper.pas Log Message: Revers to a working version 1.02 for Delphi 6 support Index: GpStreamWrapper.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpStreamWrapper.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- GpStreamWrapper.pas 22 Nov 2006 19:44:25 -0000 1.10 +++ GpStreamWrapper.pas 19 Jan 2007 04:46:05 -0000 1.11 @@ -1,24 +1,19 @@ {$B-,H+,J+,Q-,T-,X+} -(*:Some useful stream wrappers. +(*:Base stream wrapper class implementing the delayed Seek to cope with the + TStream's GetSize trick. @author Primoz Gabrijelcic @desc <pre> - (c) 2006 Primoz Gabrijelcic + (c) 2001 Primoz Gabrijelcic Free for personal and commercial use. No rights reserved. Author : Primoz Gabrijelcic Creation date : 2001-07-17 - Last modification: 2006-09-21 - Version : 1.04 + Last modification: 2003-05-16 + Version : 1.01 </pre> *)(* History: - 1.04: 2006-09-21 - - TGpStreamWindow class moved to the GpStreams unit. - 1.03: 2006-08-31 - - Enable int64-based interface for Delphi 6. - 1.02: 2006-04-14 - - Added TGpStreamWindow class. 1.01: 2003-05-16 - Made Delphi 7 compatible. 1.0: 2001-07-17 @@ -28,8 +23,8 @@ unit GpStreamWrapper; {$IFDEF CONDITIONALEXPRESSIONS} - {$IF (RTLVersion >= 14)} // Delphi 6.0 or newer - {$DEFINE D6PLUS} + {$IF (RTLVersion >= 15)} // Delphi 7.0 or newer + {$DEFINE D7PLUS} {$IFEND} {$ENDIF} @@ -49,18 +44,18 @@ swStoredPosition: longint; swStream : TStream; protected - function GetPosition: {$IFDEF D6PLUS}int64;{$ELSE}longint;{$ENDIF D6PLUS} virtual; - function GetSize: {$IFDEF D6PLUS}int64; override;{$ELSE}longint; virtual;{$ENDIF D6PLUS} - procedure SetPosition(newPosition: {$IFDEF D6PLUS}int64{$ELSE}longint{$ENDIF D6PLUS}); virtual; - procedure SetSize({$IFDEF D6PLUS}const{$ENDIF D6PLUS}newSize: {$IFDEF D6PLUS}int64{$ELSE}longint{$ENDIF D6PLUS}); override; - function WrappedSeek(offset: integer; mode: word): longint; {$IFDEF D6PLUS}overload;{$ENDIF D6PLUS}virtual; - {$IFDEF D6PLUS} + function GetPosition: {$IFDEF D7PLUS}int64;{$ELSE}longint;{$ENDIF D7PLUS} virtual; + function GetSize: {$IFDEF D7PLUS}int64; override;{$ELSE}longint; virtual;{$ENDIF D7PLUS} + procedure SetPosition(newPosition: {$IFDEF D7PLUS}int64{$ELSE}longint{$ENDIF D7PLUS}); virtual; + procedure SetSize({$IFDEF D7PLUS}const{$ENDIF D7PLUS}newSize: {$IFDEF D7PLUS}int64{$ELSE}longint{$ENDIF D7PLUS}); override; + function WrappedSeek(offset: integer; mode: word): longint; {$IFDEF D7Plus}overload;{$ENDIF D7PLUS}virtual; + {$IFDEF D7PLUS} function WrappedSeek(offset: int64; origin: TSeekOrigin): int64; overload; virtual; - {$ENDIF D6PLUS} + {$ENDIF D7PLUS} public constructor Create(wrappedStream: TStream); procedure DelayedSeek; virtual; - function Seek(offset: integer; mode: word): longint; {$IFDEF D6PLUS}overload;{$ENDIF D6PLUS} override; + function Seek(offset: integer; mode: word): longint; {$IFDEF D7PLUS}overload;{$ENDIF D7PLUS} override; {:Wrapped (underlying) stream.} property WrappedStream: TStream read swStream; end; { TGpStreamWrapper } @@ -92,7 +87,7 @@ If descendant overrides this method, it must never call TGpStreamWrapper.Seek (directly or indirectly). } -function TGpStreamWrapper.GetPosition: {$IFDEF D6PLUS}int64;{$ELSE}longint;{$ENDIF D6PLUS} +function TGpStreamWrapper.GetPosition: {$IFDEF D7PLUS}int64;{$ELSE}longint;{$ENDIF D7PLUS} begin Result := WrappedStream.Position; end; { TGpStreamWrapper.GetPosition } @@ -102,7 +97,7 @@ If descendant overrides this method, it must never call TGpStreamWrapper.Seek (directly or indirectly). } -function TGpStreamWrapper.GetSize: {$IFDEF D6PLUS}int64;{$ELSE}longint;{$ENDIF D6PLUS} +function TGpStreamWrapper.GetSize: {$IFDEF D7PLUS}int64;{$ELSE}longint;{$ENDIF D7PLUS} begin Result := WrappedStream.Size; end; { TGpStreamWrapper.GetSize } @@ -166,7 +161,7 @@ If descendant overrides this method, it must never call TGpStreamWrapper.Seek (directly or indirectly). } -procedure TGpStreamWrapper.SetPosition(newPosition: {$IFDEF D6PLUS}int64{$ELSE}longint{$ENDIF D6PLUS}); +procedure TGpStreamWrapper.SetPosition(newPosition: {$IFDEF D7PLUS}int64{$ELSE}longint{$ENDIF D7PLUS}); begin WrappedStream.Position := newPosition; end; { TGpStreamWrapper.SetPosition } @@ -176,7 +171,7 @@ If descendant overrides this method, it must never call TGpStreamWrapper.Seek (directly or indirectly). } -procedure TGpStreamWrapper.SetSize({$IFDEF D6PLUS}const{$ENDIF D6PLUS}newSize: {$IFDEF D6PLUS}int64{$ELSE}longint{$ENDIF D6PLUS}); +procedure TGpStreamWrapper.SetSize({$IFDEF D7PLUS}const{$ENDIF D7PLUS}newSize: {$IFDEF D7PLUS}int64{$ELSE}longint{$ENDIF D7PLUS}); begin WrappedStream.Size := newSize; end; { TGpStreamWrapper.SetSize } @@ -192,11 +187,11 @@ Result := WrappedStream.Seek(offset, mode); end; { TGpStreamWrapper.WrappedSeek } -{$IFDEF D6PLUS} +{$IFDEF D7PLUS} function TGpStreamWrapper.WrappedSeek(offset: int64; origin: TSeekOrigin): int64; begin Result := WrappedStream.Seek(offset, origin); end; -{$ENDIF D6PLUS} +{$ENDIF D7PLUS} end. |
From: Erik B. <eb...@us...> - 2007-01-19 02:52:12
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv28574/Src Modified Files: GX_Configure.pas GX_GExperts.pas GX_KbdShortCutBroker.pas Log Message: Safer access to GExpertsInst to prevent shutdown problems (idea from Ben Taylor) Index: GX_KbdShortCutBroker.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_KbdShortCutBroker.pas,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- GX_KbdShortCutBroker.pas 14 Jul 2006 01:32:42 -0000 1.33 +++ GX_KbdShortCutBroker.pas 19 Jan 2007 02:52:08 -0000 1.34 @@ -434,8 +434,9 @@ begin if RunningDelphi8OrGreater then begin - if not GExpertsInst.StartingUp then - DoUpdateKeyBindings; + if Assigned(GExpertsInst(False)) then + if not GExpertsInst.StartingUp then + DoUpdateKeyBindings; end else DoUpdateKeyBindings; Index: GX_Configure.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.pas,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- GX_Configure.pas 30 Jun 2006 07:07:11 -0000 1.44 +++ GX_Configure.pas 19 Jan 2007 02:52:07 -0000 1.45 @@ -416,7 +416,6 @@ Exit; end; - Assert(Assigned(GExpertsInst)); Assert(Assigned(GExpertsInst.EditorExpertManager)); EditorExpert := GExpertsInst.EditorExpertManager.EditorExpertList[lvEditorExperts.Selected.Index]; @@ -439,7 +438,6 @@ if lvEditorExperts.Selected = nil then Exit; - Assert(Assigned(GExpertsInst)); Assert(Assigned(GExpertsInst.EditorExpertManager)); EditorExpert := GExpertsInst.EditorExpertManager.EditorExpertList[lvEditorExperts.Selected.Index]; @@ -452,7 +450,6 @@ if lvEditorExperts.Selected = nil then Exit; - Assert(Assigned(GExpertsInst)); Assert(Assigned(GExpertsInst.EditorExpertManager)); ConfigureEditorExpertShortCut(GExpertsInst.EditorExpertManager.EditorExpertList[lvEditorExperts.Selected.Index]) @@ -470,8 +467,6 @@ ListItem: TListItem; GxEditorExpertManager: TGxEditorExpertManager; begin - Assert(Assigned(GExpertsInst)); - lvEditorExperts.Items.Clear; if not Assigned(GExpertsInst.EditorExpertManager) then Exit; @@ -875,7 +870,6 @@ if lvEditorExperts.Selected = nil then Exit; - Assert(Assigned(GExpertsInst)); Assert(Assigned(GExpertsInst.EditorExpertManager)); EditorExpert := GExpertsInst.EditorExpertManager.EditorExpertList[lvEditorExperts.Selected.Index]; Index: GX_GExperts.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GExperts.pas,v retrieving revision 1.54 retrieving revision 1.55 diff -u -d -r1.54 -r1.55 --- GX_GExperts.pas 12 May 2006 17:41:20 -0000 1.54 +++ GX_GExperts.pas 19 Jan 2007 02:52:07 -0000 1.55 @@ -42,9 +42,7 @@ function GetSharedImages: TImageList; end; -var - GExpertsInst: TGExperts = nil; - +function GExpertsInst(ForceValid: Boolean = False): TGExperts; procedure ShowGXAboutForm; procedure ShowGXConfigurationForm; procedure InitSharedResources; @@ -59,6 +57,9 @@ GX_ConfigurationInfo, GX_Configure, GX_KbdShortCutBroker, GX_SharedImages, GX_IdeUtils; +var + FPrivateGExpertsInst: TGExperts = nil; + type TInitHelper = class(TObject) private @@ -80,6 +81,13 @@ function ShouldShow: Boolean; override; end; +function GExpertsInst(ForceValid: Boolean): TGExperts; +begin + if ForceValid and (not Assigned(FPrivateGExpertsInst)) then + raise Exception.Create('GExpertsInst is not a valid reference'); + Result := FPrivateGExpertsInst; +end; + procedure ShowGXAboutForm; begin with TfmAbout.Create(nil) do @@ -135,7 +143,7 @@ begin FExpertList := TList.Create; - GExpertsInst := Self; + FPrivateGExpertsInst := Self; InitSharedResources; // Create the action manager. @@ -204,6 +212,7 @@ GxKeyboardShortCutBroker.EndUpdate; end; + FPrivateGExpertsInst := nil; inherited Destroy; except on E: Exception do |
From: Erik B. <eb...@us...> - 2006-11-22 20:52:25
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv10567/Comps Modified Files: GpLists.pas Log Message: 1.22a: 2006-09-29 - Fixed nasty bug in TGpIntegerObjectList.AddObject and TGpInt64ObjectList.AddObject. - Fixed range errors in TGpInt64[Object]List. 1.22: 2006-09-20 - Implemented TGpInt64List and TGpInt64ObjectList. 1.21: 2006-05-15 - Implemented list of TMethod records - TGpTMethodList. 1.20: 2006-04-24 - Added method TGpIntegerObjectList.ExtractObject. 1.19: 2005-11-18 - Added D2005-style TGpIntegerList enumerator. 1.18: 2005-10-27 - Added TGpString class. 1.17: 2005-06-02 - Added methods FreeAll and UnlinkAll to the TGpDoublyLinkedList class. 1.16: 2004-11-22 - Added Dump/Restore mechanism to the TGpInteger[Object]List classes. 1.15: 2004-09-09 - Added method Remove to the TGpIntegerList class. Index: GpLists.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpLists.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- GpLists.pas 5 Mar 2004 22:39:14 -0000 1.1 +++ GpLists.pas 22 Nov 2006 20:52:21 -0000 1.2 @@ -4,7 +4,7 @@ This software is distributed under the BSD license. -Copyright (c) 2003, Primoz Gabrijelcic +Copyright (c) 2006, Primoz Gabrijelcic All rights reserved. Redistribution and use in source and binary forms, with or without modification, @@ -30,10 +30,30 @@ Author : Primoz Gabrijelcic [...1911 lines suppressed...] Lock; @@ -1408,6 +2569,18 @@ obj.Unlink; end; { TGpDoublyLinkedList.Unlink } +{:Remove all elements from the list without destroying them. + @since 2005-06-02 +} +procedure TGpDoublyLinkedList.UnlinkAll; +begin + Lock; + try + while Tail <> nil do + RemoveFromTail; + finally Unlock; end; +end; { TGpDoublyLinkedList.UnlinkAll } + {:Called from the linked object when it is being unliniked from the list. @since 2003-10-28 } |
From: Erik B. <eb...@us...> - 2006-11-22 19:44:59
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv16637/Comps Modified Files: GpMemStr.pas Log Message: Year comment update only Index: GpMemStr.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpMemStr.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- GpMemStr.pas 10 Mar 2004 18:52:16 -0000 1.2 +++ GpMemStr.pas 22 Nov 2006 19:44:57 -0000 1.3 @@ -2,7 +2,7 @@ buffer. @author Primoz Gabrijelcic @desc <pre> - (c) 2001 Primoz Gabrijelcic + (c) 2002 Primoz Gabrijelcic Free for personal and commercial use. No rights reserved. Author : Primoz Gabrijelcic |
From: Erik B. <eb...@us...> - 2006-11-22 19:44:30
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv16616/Comps Modified Files: GpStreamWrapper.pas Log Message: 1.04: 2006-09-21 - TGpStreamWindow class moved to the GpStreams unit. 1.03: 2006-08-31 - Enable int64-based interface for Delphi 6. 1.02: 2006-04-14 - Added TGpStreamWindow class. Index: GpStreamWrapper.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpStreamWrapper.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- GpStreamWrapper.pas 2 Dec 2005 21:19:30 -0000 1.9 +++ GpStreamWrapper.pas 22 Nov 2006 19:44:25 -0000 1.10 @@ -1,19 +1,24 @@ {$B-,H+,J+,Q-,T-,X+} -(*:Base stream wrapper class implementing the delayed Seek to cope with the - TStream's GetSize trick. +(*:Some useful stream wrappers. @author Primoz Gabrijelcic @desc <pre> - (c) 2001 Primoz Gabrijelcic + (c) 2006 Primoz Gabrijelcic Free for personal and commercial use. No rights reserved. Author : Primoz Gabrijelcic Creation date : 2001-07-17 - Last modification: 2003-05-16 - Version : 1.01 + Last modification: 2006-09-21 + Version : 1.04 </pre> *)(* History: + 1.04: 2006-09-21 + - TGpStreamWindow class moved to the GpStreams unit. + 1.03: 2006-08-31 + - Enable int64-based interface for Delphi 6. + 1.02: 2006-04-14 + - Added TGpStreamWindow class. 1.01: 2003-05-16 - Made Delphi 7 compatible. 1.0: 2001-07-17 @@ -23,8 +28,8 @@ unit GpStreamWrapper; {$IFDEF CONDITIONALEXPRESSIONS} - {$IF (RTLVersion >= 15)} // Delphi 7.0 or newer - {$DEFINE D7PLUS} + {$IF (RTLVersion >= 14)} // Delphi 6.0 or newer + {$DEFINE D6PLUS} {$IFEND} {$ENDIF} @@ -44,18 +49,18 @@ swStoredPosition: longint; swStream : TStream; protected - function GetPosition: {$IFDEF D7PLUS}int64;{$ELSE}longint;{$ENDIF D7PLUS} virtual; - function GetSize: {$IFDEF D7PLUS}int64; override;{$ELSE}longint; virtual;{$ENDIF D7PLUS} - procedure SetPosition(newPosition: {$IFDEF D7PLUS}int64{$ELSE}longint{$ENDIF D7PLUS}); virtual; - procedure SetSize({$IFDEF D7PLUS}const{$ENDIF D7PLUS}newSize: {$IFDEF D7PLUS}int64{$ELSE}longint{$ENDIF D7PLUS}); override; - function WrappedSeek(offset: integer; mode: word): longint; {$IFDEF D7Plus}overload;{$ENDIF D7PLUS}virtual; - {$IFDEF D7PLUS} + function GetPosition: {$IFDEF D6PLUS}int64;{$ELSE}longint;{$ENDIF D6PLUS} virtual; + function GetSize: {$IFDEF D6PLUS}int64; override;{$ELSE}longint; virtual;{$ENDIF D6PLUS} + procedure SetPosition(newPosition: {$IFDEF D6PLUS}int64{$ELSE}longint{$ENDIF D6PLUS}); virtual; + procedure SetSize({$IFDEF D6PLUS}const{$ENDIF D6PLUS}newSize: {$IFDEF D6PLUS}int64{$ELSE}longint{$ENDIF D6PLUS}); override; + function WrappedSeek(offset: integer; mode: word): longint; {$IFDEF D6PLUS}overload;{$ENDIF D6PLUS}virtual; + {$IFDEF D6PLUS} function WrappedSeek(offset: int64; origin: TSeekOrigin): int64; overload; virtual; - {$ENDIF D7PLUS} + {$ENDIF D6PLUS} public constructor Create(wrappedStream: TStream); procedure DelayedSeek; virtual; - function Seek(offset: integer; mode: word): longint; {$IFDEF D7PLUS}overload;{$ENDIF D7PLUS} override; + function Seek(offset: integer; mode: word): longint; {$IFDEF D6PLUS}overload;{$ENDIF D6PLUS} override; {:Wrapped (underlying) stream.} property WrappedStream: TStream read swStream; end; { TGpStreamWrapper } @@ -87,7 +92,7 @@ If descendant overrides this method, it must never call TGpStreamWrapper.Seek (directly or indirectly). } -function TGpStreamWrapper.GetPosition: {$IFDEF D7PLUS}int64;{$ELSE}longint;{$ENDIF D7PLUS} +function TGpStreamWrapper.GetPosition: {$IFDEF D6PLUS}int64;{$ELSE}longint;{$ENDIF D6PLUS} begin Result := WrappedStream.Position; end; { TGpStreamWrapper.GetPosition } @@ -97,9 +102,9 @@ If descendant overrides this method, it must never call TGpStreamWrapper.Seek (directly or indirectly). } -function TGpStreamWrapper.GetSize: {$IFDEF D7PLUS}int64;{$ELSE}longint;{$ENDIF D7PLUS} +function TGpStreamWrapper.GetSize: {$IFDEF D6PLUS}int64;{$ELSE}longint;{$ENDIF D6PLUS} begin - Result := WrappedStream.Size + Result := WrappedStream.Size; end; { TGpStreamWrapper.GetSize } {:Repositions stream pointer. Actually only stores this information for later @@ -161,7 +166,7 @@ If descendant overrides this method, it must never call TGpStreamWrapper.Seek (directly or indirectly). } -procedure TGpStreamWrapper.SetPosition(newPosition: {$IFDEF D7PLUS}int64{$ELSE}longint{$ENDIF D7PLUS}); +procedure TGpStreamWrapper.SetPosition(newPosition: {$IFDEF D6PLUS}int64{$ELSE}longint{$ENDIF D6PLUS}); begin WrappedStream.Position := newPosition; end; { TGpStreamWrapper.SetPosition } @@ -171,16 +176,15 @@ If descendant overrides this method, it must never call TGpStreamWrapper.Seek (directly or indirectly). } -procedure TGpStreamWrapper.SetSize({$IFDEF D7PLUS}const{$ENDIF D7PLUS}newSize: {$IFDEF D7PLUS}int64{$ELSE}longint{$ENDIF D7PLUS}); +procedure TGpStreamWrapper.SetSize({$IFDEF D6PLUS}const{$ENDIF D6PLUS}newSize: {$IFDEF D6PLUS}int64{$ELSE}longint{$ENDIF D6PLUS}); begin WrappedStream.Size := newSize; end; { TGpStreamWrapper.SetSize } {:Implementation of the 'true' Seek. Called only when Seek is really needed. - Trivial implementation from this class calls Seek on the wrapped (underlying) - stream. - WrappedSeek must never call TGpStreamWrapper.Seek (directly or indirectly) but - use directly WrappedStream.Seek. + Trivial implementation from this class calls Seek on the wrapped (underlying) stream. + WrappedSeek must never call TGpStreamWrapper.Seek (directly or indirectly) but use + directly WrappedStream.Seek. } function TGpStreamWrapper.WrappedSeek(offset: integer; mode: word): longint; @@ -188,11 +192,11 @@ Result := WrappedStream.Seek(offset, mode); end; { TGpStreamWrapper.WrappedSeek } -{$IFDEF D7PLUS} +{$IFDEF D6PLUS} function TGpStreamWrapper.WrappedSeek(offset: int64; origin: TSeekOrigin): int64; begin - result := WrappedStream.Seek(offset, origin); + Result := WrappedStream.Seek(offset, origin); end; -{$ENDIF D7PLUS} +{$ENDIF D6PLUS} end. |
From: Erik B. <eb...@us...> - 2006-11-22 19:41:58
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv15508/Comps Modified Files: GpTextStream.pas Log Message: 1.04a: 2006-08-30 - Bug fixed: When cfUseLF was set, /CR/ was used as line delimiter in Writeln (/LF/ should be used). 1.04: 2006-02-06 - Added support for UCS-4 encoding in a very primitive form - all high-word values are stripped away on read and set to 0 on write. - Added CP_UNICODE32 UCS-4 pseudo-codepage constant. Index: GpTextStream.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpTextStream.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- GpTextStream.pas 2 Dec 2005 21:19:30 -0000 1.9 +++ GpTextStream.pas 22 Nov 2006 19:41:56 -0000 1.10 @@ -24,7 +24,7 @@ This software is distributed under the BSD license. -Copyright (c) 2003, Primoz Gabrijelcic +Copyright (c) 2006, Primoz Gabrijelcic All rights reserved. Redistribution and use in source and binary forms, with or without modification, @@ -50,28 +50,30 @@ Author : Primoz Gabrijelcic Creation date : 2001-07-17 - Last modification: 2003-05-16 - Version : 1.02 + Last modification: 2006-08-30 + Version : 1.04a </pre> *)(* History: + 1.04a: 2006-08-30 + - Bug fixed: When cfUseLF was set, /CR/ was used as line delimiter in Writeln (/LF/ + should be used). + 1.04: 2006-02-06 + - Added support for UCS-4 encoding in a very primitive form - all high-word values + are stripped away on read and set to 0 on write. + - Added CP_UNICODE32 UCS-4 pseudo-codepage constant. 1.03: 2004-05-12 - Added Turkish codepage ISO_8859_9. - 1.02: 2003-05-16 - Compatible with Delphi 7. - 1.01: 2002-04-24 - Added TGpTSCreateFlag flag tscfCompressed to keep this enum in sync with GpTextFile.TCreateFlag. - 1.0b: 2001-12-15 - Updated to compile with Delphi 6 (thanks to Artem Khassanov). - 1.0a: 2001-10-06 - Fixed error in GpTextStream.Read that could cause exception to be raised unnecessary. - 1.0: 2001-07-17 - Created from GpTextFile 3.0b (thanks to Miha Remec). - Fix UTF 8 decoding error in TGpTextStream.Read. @@ -103,7 +105,8 @@ CP_UTF8 = 65001; // UTF-8 pseudo-codepage, defined in Windows.pas in Delphi 3 and newer. {$ENDIF} - CP_UNICODE = 1200; // Unicode pseudo-codepage, + CP_UNICODE = 1200; // Unicode UCS-2 Little-Endian pseudo-codepage + CP_UNICODE32 = 12000; // Unicode UCS-4 Little-Endian pseudo-codepage ISO_8859_1 = 28591; // Western Alphabet (ISO) ISO_8859_2 = 28592; // Central European Alphabet (ISO) ISO_8859_3 = 28593; // Latin 3 Alphabet (ISO) @@ -115,6 +118,10 @@ ISO_8859_9 = 28599; // Turkish Alphabet (ISO) type +{$IFNDEF D6PLUS} + UCS4Char = type LongWord; +{$ENDIF} + {:Base exception class for exceptions created in TGpTextStream. } EGpTextStream = class(Exception); @@ -184,6 +191,7 @@ function AllocBuffer(size: integer): pointer; virtual; procedure FreeBuffer(var buffer: pointer); virtual; function GetWindowsError: DWORD; virtual; + function IsUnicodeCodepage(codepage: word): boolean; procedure PrepareStream; virtual; procedure SetCodepage(cp: word); virtual; function StreamName(param: string = ''): string; virtual; @@ -196,6 +204,7 @@ ); destructor Destroy; override; function Is16bit: boolean; + function Is32bit: boolean; function IsUnicode: boolean; function Read(var buffer; count: longint): longint; override; function Readln: WideString; @@ -226,11 +235,19 @@ SysConst; const - {:Header for 'normal' Unicode stream (Intel format). + {:Header for 'normal' Unicode UCS-4 stream (Intel format). + } + CUnicode32Normal: UCS4Char = UCS4Char($0000FEFF); + + {:Header for 'reversed' Unicode UCS-4 stream (Motorola format). + } + CUnicode32Reversed: UCS4Char = UCS4Char($0000FFFE); + + {:Header for big-endian (Motorola) Unicode stream. } CUnicodeNormal: WideChar = WideChar($FEFF); - {:Header for 'reversed' Unicode stream (Motorola format). + {:Header for little-endian (Intel) Unicode stream. } CUnicodeReversed: WideChar = WideChar($FFFE); @@ -455,7 +472,7 @@ access: TGpTSAccess; createFlags: TGpTSCreateFlags; codePage: word); begin inherited Create(dataStream); - if (tscfUnicode in createFlags) and (codePage <> CP_UTF8) then + if (tscfUnicode in createFlags) and (codePage <> CP_UTF8) and (codePage <> CP_UNICODE32) then codePage := CP_UNICODE; tsAccess := access; tsCreateFlags := createFlags; @@ -499,14 +516,20 @@ end; { TGpTextStream.GetWindowsError } {:Checks if stream contains 16-bit characters. - @returns True if stream contains 16-bit characters. } function TGpTextStream.Is16bit: boolean; begin - Result := IsUnicode and (Codepage <> CP_UTF8); + Result := IsUnicode and (Codepage = CP_UNICODE); end; { TGpTextStream.Is16bit } -{:Checks if stream is Unicode (UCS-2 or UTF-8 encoding). +{:Checks if stream contains 32-bit characters. +} +function TGpTextStream.Is32bit: boolean; +begin + Result := IsUnicode and (Codepage = CP_UNICODE32); +end; { TGpTextStream.Is32bit } + +{:Checks if stream is Unicode (UTF-8 or UCS-2 or UCS-4 encoding). @returns True if stream is Unicode. } function TGpTextStream.IsUnicode: boolean; @@ -514,6 +537,14 @@ Result := (tscfUnicode in tsCreateFlags); end; { TGpTextStream.IsUnicode } +{:Checks is codepage is one of the supported Unicode codepages. + @since 2006-02-06 +} +function TGpTextStream.IsUnicodeCodepage(codepage: word): boolean; +begin + Result := (codepage = CP_UTF8) or (codepage = CP_UNICODE) or (codepage = CP_UNICODE32); +end; { TGpTextStream.IsUnicodeCodepage } + {:Prepares stream for read or write operation. @raises EGpTextStream if caller tries to rewrite or append 'reverse' Unicode stream. @@ -522,43 +553,59 @@ var marker : WideChar; marker3: Char; + marker4: UCS4Char; begin case tsAccess of tsaccRead: begin tsCreateFlags := []; - if WrappedStream.Size >= SizeOf(WideChar) then begin - WrappedStream.Read(marker,SizeOf(WideChar)); + if WrappedStream.Size >= SizeOf(UCS4Char) then begin + WrappedStream.Position := 0; + WrappedStream.Read(marker4, SizeOf(UCS4Char)); + if marker4 = CUnicode32Normal then begin + tsCreateFlags := tsCreateFlags + [tscfUnicode]; + Codepage := CP_UNICODE32; + end + else if marker4 = CUnicode32Reversed then begin + tsCreateFlags := tsCreateFlags + [tscfUnicode, tscfReverseByteOrder]; + Codepage := CP_UNICODE32; + end; + end; + if (WrappedStream.Size >= SizeOf(WideChar)) and (Codepage <> CP_UNICODE32) then begin + WrappedStream.Position := 0; + WrappedStream.Read(marker, SizeOf(WideChar)); if marker = CUnicodeNormal then begin tsCreateFlags := tsCreateFlags + [tscfUnicode]; Codepage := CP_UNICODE; end else if marker = CUnicodeReversed then begin - tsCreateFlags := tsCreateFlags + [tscfUnicode,tscfReverseByteOrder]; + tsCreateFlags := tsCreateFlags + [tscfUnicode, tscfReverseByteOrder]; Codepage := CP_UNICODE; end else if (marker = CUTF8BOM12) and (WrappedStream.Size >= 3) then begin - WrappedStream.Read(marker3,SizeOf(Char)); + WrappedStream.Read(marker3, SizeOf(Char)); if marker3 = CUTF8BOM3 then begin tsCreateFlags := tsCreateFlags + [tscfUnicode]; Codepage := CP_UTF8; end; end; - if not IsUnicode then - WrappedStream.Position := 0; end; - if (not IsUnicode) and ((Codepage = CP_UTF8) or (Codepage = CP_UNICODE)) then + if not IsUnicode then + WrappedStream.Position := 0; + if (not IsUnicode) and IsUnicodeCodepage(Codepage) then tsCreateFlags := [tscfUnicode]; end; //tsaccRead tsaccWrite: begin - if ((Codepage = CP_UTF8) or (Codepage = CP_UNICODE)) then + if IsUnicodeCodepage(Codepage) then tsCreateFlags := tsCreateFlags + [tscfUnicode]; - if tsCreateFlags*[tscfUnicode,tscfReverseByteOrder] = [tscfUnicode,tscfReverseByteOrder] then - raise EGpTextStream.CreateFmtHelp(sCannotWriteReversedUnicodeStream,[StreamName],hcTFCannotWriteReversed); + if tsCreateFlags * [tscfUnicode, tscfReverseByteOrder] = [tscfUnicode, tscfReverseByteOrder] then + raise EGpTextStream.CreateFmtHelp(sCannotWriteReversedUnicodeStream, [StreamName], hcTFCannotWriteReversed); WrappedStream.Size := 0; if IsUnicode then begin - if Codepage <> CP_UTF8 then + if Codepage = CP_UNICODE32 then + WrappedStream.Write(CUnicode32Normal,SizeOf(UCS4Char)) + else if Codepage <> CP_UTF8 then WrappedStream.Write(CUnicodeNormal,SizeOf(WideChar)) else if tscfWriteUTF8BOM in tsCreateFlags then begin WrappedStream.Write(CUTF8BOM12,SizeOf(WideChar)); @@ -568,12 +615,14 @@ end; //tsaccWrite tsaccReadWrite: begin - if ((Codepage = CP_UTF8) or (Codepage = CP_UNICODE)) then + if IsUnicodeCodepage(Codepage) then tsCreateFlags := tsCreateFlags + [tscfUnicode]; - if tsCreateFlags*[tscfUnicode,tscfReverseByteOrder] = [tscfUnicode,tscfReverseByteOrder] then - raise EGpTextStream.CreateFmtHelp(sCannotAppendReversedUnicodeStream,[StreamName],hcTFCannotAppendReversed); + if tsCreateFlags * [tscfUnicode, tscfReverseByteOrder] = [tscfUnicode, tscfReverseByteOrder] then + raise EGpTextStream.CreateFmtHelp(sCannotAppendReversedUnicodeStream, [StreamName], hcTFCannotAppendReversed); if (WrappedStream.Size = 0) and IsUnicode then begin - if Codepage <> CP_UTF8 then + if Codepage = CP_UNICODE32 then + WrappedStream.Write(CUnicode32Normal,SizeOf(UCS4Char)) + else if Codepage <> CP_UTF8 then WrappedStream.Write(CUnicodeNormal,SizeOf(WideChar)) else if tscfWriteUTF8BOM in tsCreateFlags then begin WrappedStream.Write(CUTF8BOM12,SizeOf(WideChar)); @@ -584,7 +633,19 @@ tsaccAppend: begin tsCreateFlags := []; - if WrappedStream.Size >= SizeOf(WideChar) then begin + if WrappedStream.Size >= SizeOf(UCS4Char) then begin + WrappedStream.Position := 0; + WrappedStream.Read(marker4, SizeOf(UCS4Char)); + if marker4 = CUnicode32Normal then begin + tsCreateFlags := tsCreateFlags + [tscfUnicode]; + Codepage := CP_UNICODE32; + end + else if marker4 = CUnicode32Reversed then begin + tsCreateFlags := tsCreateFlags + [tscfUnicode, tscfReverseByteOrder]; + Codepage := CP_UNICODE32; + end; + end; + if (WrappedStream.Size >= SizeOf(WideChar)) and (Codepage <> CP_UNICODE32) then begin WrappedStream.Position := 0; WrappedStream.Read(marker,SizeOf(WideChar)); if marker = CUnicodeNormal then begin @@ -602,7 +663,6 @@ Codepage := CP_UTF8; end; end; - WrappedStream.Position := WrappedStream.Size; end else if (WrappedStream.Size = 0) and IsUnicode then begin if Codepage <> CP_UTF8 then @@ -612,18 +672,20 @@ WrappedStream.Write(CUTF8BOM3,SizeOf(Char)); end; end; - if (not IsUnicode) and ((Codepage = CP_UTF8) or (Codepage = CP_UNICODE)) then + WrappedStream.Position := WrappedStream.Size; + if (not IsUnicode) and IsUnicodeCodepage(Codepage) then tsCreateFlags := tsCreateFlags + [tscfUnicode]; - if tsCreateFlags*[tscfUnicode,tscfReverseByteOrder] = [tscfUnicode,tscfReverseByteOrder] then + if tsCreateFlags * [tscfUnicode, tscfReverseByteOrder] = [tscfUnicode, tscfReverseByteOrder] then raise EGpTextStream.CreateFmtHelp(sCannotAppendReversedUnicodeStream,[StreamName],hcTFCannotAppendReversed); end; //tsaccAppend end; //case end; { TGpTextStream.PrepareStream } {:Reads 'count' number of bytes from stream. 'Count' must be an even number as - data is always returned in Unicode format (two bytes per character). If stream - is 8-bit, data is converted to Unicode according to code page specified in + data is always returned in Unicode format (two bytes per character). + If stream is 8-bit, data is converted to Unicode according to code page specified in constructor. + If stream is 32-bit, high-order word of every UCS-4 char is stripped away. @param buffer Buffer for read data. @param count Number of bytes to be read. @returns Number of bytes actually read. @@ -632,12 +694,13 @@ } function TGpTextStream.Read(var buffer; count: longint): longint; var - bufPtr : pointer; + bufPtr : PByte; bytesConv: integer; bytesLeft: integer; bytesRead: integer; numChar : integer; tmpBuf : pointer; + tmpPtr : PByte; begin DelayedSeek; if IsUnicode then begin @@ -650,24 +713,38 @@ bytesLeft := 0; repeat // at least numChar UTF-8 bytes are needed for numChar WideChars - bytesRead := WrappedStream.Read(pointer(integer(tmpBuf)+bytesLeft)^,numChar); - bytesConv := UTF8BufToWideCharBuf(tmpBuf^,bytesRead+bytesLeft,bufPtr^,bytesLeft); + bytesRead := WrappedStream.Read(pointer(integer(tmpBuf)+bytesLeft)^, numChar); + bytesConv := UTF8BufToWideCharBuf(tmpBuf^, bytesRead+bytesLeft, bufPtr^, bytesLeft); Result := Result + bytesConv; if bytesRead <> numChar then // end of stream break; numChar := numChar - (bytesConv div SizeOf(WideChar)); - bufPtr := pointer(integer(bufPtr) + bytesConv); + Inc(bufPtr, bytesConv); if (bytesLeft > 0) and (bytesLeft < bytesRead) then - Move(pointer(integer(tmpBuf)+bytesRead-bytesLeft)^,tmpBuf^,bytesLeft); + Move(pointer(integer(tmpBuf)+bytesRead-bytesLeft)^, tmpBuf^, bytesLeft); until numChar = 0; finally FreeBuffer(tmpBuf); end; end + else if Codepage = CP_UNICODE32 then begin + tmpBuf := AllocBuffer(count*2); + try + Result := WrappedStream.Read(tmpBuf^, count*2) div 2; + bufPtr := @buffer; + tmpPtr := tmpBuf; + for bytesRead := 1 to Result div 2 do begin + PWord(bufPtr)^ := PWord(tmpPtr)^; + Inc(tmpPtr, SizeOf(WideChar)*2); + Inc(bufPtr, SizeOf(WideChar)); + end; + finally FreeBuffer(tmpBuf); end; + end else Result := WrappedStream.Read(buffer, count); end else begin if Odd(count) then - raise EGpTextStream.CreateFmtHelp(sCannotConvertOddNumberOfBytes,[StreamName,count],hcTFCannotConvertOdd) + raise EGpTextStream.CreateFmtHelp(sCannotConvertOddNumberOfBytes, + [StreamName, count], hcTFCannotConvertOdd) else begin numChar := count div SizeOf(WideChar); tmpBuf := AllocBuffer(numChar); @@ -766,7 +843,7 @@ } procedure TGpTextStream.SetCodepage(cp: word); begin - if (cp = CP_UTF8) or (cp = CP_UNICODE) then begin + if (cp = CP_UTF8) or (cp = CP_UNICODE) or (cp = CP_UNICODE32) then begin tsCodePage := cp; tsCreateFlags := tsCreateFlags + [tscfUnicode]; end @@ -775,7 +852,7 @@ tsCodePage := GetDefaultAnsiCodepage(GetKeyboardLayout(GetCurrentThreadId) and $FFFF, 1252) else tsCodePage := cp; - if not ((tsCodePage = 0) or (tsCodePage = CP_UNICODE)) then + if not ((tsCodePage = 0) or IsUnicodeCodepage(tsCodePage)) then tsCreateFlags := tsCreateFlags - [tscfUnicode]; end; end; { TGpTextStream.SetCodepage } @@ -818,9 +895,10 @@ end; { TGpTextStream.Win32Check } {:Writes 'count' number of bytes to stream. 'Count' must be an even number as - data is always expected in Unicode format (two bytes per character). If stream - is 8-bit, data is converted from Unicode according to code page specified in + data is always expected in Unicode format (two bytes per character). + If stream is 8-bit, data is converted from Unicode according to code page specified in constructor. + If stream is 32-bit, high-order word of every UCS-4 char is set to 0. @param buffer Data to be written. @param count Number of bytes to be written. @returns Number of bytes actually written. @@ -829,10 +907,12 @@ } function TGpTextStream.Write(const buffer; count: longint): longint; var + bufPtr : PByte; leftUTF8 : integer; numBytes : integer; numChar : integer; tmpBuf : pointer; + tmpPtr : PByte; uniBuf : pointer; utfWritten: integer; begin @@ -857,8 +937,23 @@ Result := count; finally FreeBuffer(tmpBuf); end; end + else if Codepage = CP_UNICODE32 then begin + tmpBuf := AllocBuffer(count*2); + try + bufPtr := @buffer; + tmpPtr := tmpBuf; + for utfWritten := 1 to count div SizeOf(WideChar) do begin + PWideChar(tmpPtr)^ := PWideChar(bufPtr)^; + Inc(tmpPtr, SizeOf(WideChar)); + Inc(bufPtr, SizeOf(WideChar)); + PWord(tmpPtr)^ := 0; + Inc(tmpPtr, SizeOf(WideChar)); + end; + Result := WrappedStream.Write(tmpBuf^, count*2) div 2; + finally FreeBuffer(tmpBuf); end; + end else - Result := WrappedStream.Write(buffer,count); + Result := WrappedStream.Write(buffer, count); end else begin if Odd(count) then @@ -911,7 +1006,7 @@ end else begin if tscfUseLF in tsCreateFlags then begin - ch := Char($0D); + ch := Char($0A); Result := (WrappedStream.Write(ch,SizeOf(Char)) = SizeOf(Char)); end else begin |
From: Erik B. <eb...@us...> - 2006-11-22 19:37:18
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv13907/Src Modified Files: GX_ComponentGrid.dfm GX_ComponentGrid.pas Log Message: Better default skip by and preparations to allow larger help context numbers Index: GX_ComponentGrid.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ComponentGrid.pas,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- GX_ComponentGrid.pas 8 Dec 2005 05:39:42 -0000 1.29 +++ GX_ComponentGrid.pas 22 Nov 2006 19:37:16 -0000 1.30 @@ -407,8 +407,8 @@ procedure TfmComponentGrid.actFileRenumberExecute(Sender: TObject); var i: Integer; - StartAt: Integer; - SkipBy: Integer; + StartAt: Longint; + SkipBy: Longint; begin StartAt := udStart.Position; SkipBy := udSkipBy.Position; Index: GX_ComponentGrid.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ComponentGrid.dfm,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- GX_ComponentGrid.dfm 13 Nov 2005 22:49:24 -0000 1.14 +++ GX_ComponentGrid.dfm 22 Nov 2006 19:37:16 -0000 1.15 @@ -115,7 +115,7 @@ Width = 50 Height = 22 TabOrder = 2 - Text = '0' + Text = '1' end object udSkipBy: TUpDown Left = 428 |
From: Erik B. <eb...@us...> - 2006-11-22 19:35:58
|
Update of /cvsroot/gexperts/gexperts/unstable/Comps In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv13165/Comps Modified Files: MenuBar.pas Log Message: Visibility tweak Index: MenuBar.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/MenuBar.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- MenuBar.pas 8 Dec 2005 05:39:45 -0000 1.9 +++ MenuBar.pas 22 Nov 2006 19:35:54 -0000 1.10 @@ -22,9 +22,8 @@ FMenu: TMainMenu; procedure SetMenu(const Value: TMainMenu); procedure CMDialogChar(var Message: TCMDialogChar); message CM_DIALOGCHAR; - protected - procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; public + procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; constructor Create(AOwner: TComponent); override; published property EdgeBorders default []; |
From: Thomas M. <tw...@us...> - 2006-11-05 15:33:17
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter/engine In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv19157 Modified Files: GX_CodeFormatterSettings.pas Log Message: * bugfix in capitalization editor: if the change edit was empty, an exception occurred * The capitalization list can now be stored either in the registry or hin a file. Index: GX_CodeFormatterSettings.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/engine/GX_CodeFormatterSettings.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- GX_CodeFormatterSettings.pas 1 May 2006 12:12:41 -0000 1.9 +++ GX_CodeFormatterSettings.pas 5 Nov 2006 15:33:15 -0000 1.10 @@ -60,7 +60,7 @@ RemoveDoubleBlank: Boolean; {: remove double blank lines } SpacePerIndent: Integer; {: number of spaces per indent } FeedRoundBegin: TFeedBegin; {: how to handle linefeeds around begin } - FeedRoundTry: TFeedBegin; {: how to handle linefeeds around try } + FeedRoundTry: TFeedBegin; {: how to handle linefeeds around try } FeedBeforeEnd: Boolean; FeedAfterThen: Boolean; ExceptSingle: Boolean; @@ -87,7 +87,9 @@ private FSettings: TCodeFormatterEngineSettings; FCapNames: TStringList; - FShowDoneDialog: boolean; + FCapFile: string; + FUseCapFile: Boolean; + FShowDoneDialog: Boolean; public constructor Create; destructor Destroy; override; @@ -147,11 +149,13 @@ property AlignVarPos: Byte read FSettings.AlignVarPos; property AlignVar: Boolean read FSettings.AlignVar; // settings for the wizard - property ShowDoneDialog: boolean read FShowDoneDialog write FShowDoneDialog; + property ShowDoneDialog: Boolean read FShowDoneDialog write FShowDoneDialog; + property CapitalizationFile: string read FCapFile write FCapFile; + property UseCapitalizationFile: Boolean read FUseCapFile write FUseCapFile; end; -function IntToCapfileMode(AValue: integer): TCapfileModeSet; -function CapfileModeToInt(AMode: TCapfileModeSet): integer; +function IntToCapfileMode(AValue: Integer): TCapfileModeSet; +function CapfileModeToInt(AMode: TCapfileModeSet): Integer; implementation @@ -213,7 +217,7 @@ end; end; -function IntToCapfileMode(AValue: integer): TCapfileModeSet; +function IntToCapfileMode(AValue: Integer): TCapfileModeSet; begin case AValue of 1: Result := [cmAddNew]; @@ -226,7 +230,7 @@ end; end; -function CapfileModeToInt(AMode: TCapfileModeSet): integer; +function CapfileModeToInt(AMode: TCapfileModeSet): Integer; begin if AMode = [cmAddNew] then Result := 1 |
From: Thomas M. <tw...@us...> - 2006-11-05 15:33:03
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv18826 Modified Files: GX_CodeFormatterConfig.dfm GX_CodeFormatterConfig.pas GX_CodeFormatterConfigHandler.pas GX_CodeFormatterEditCapitalization.dfm GX_CodeFormatterEditCapitalization.pas Log Message: * bugfix in capitalization editor: if the change edit was empty, an exception occurred * The capitalization list can now be stored either in the registry or hin a file. Index: GX_CodeFormatterEditCapitalization.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/GX_CodeFormatterEditCapitalization.dfm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- GX_CodeFormatterEditCapitalization.dfm 19 Dec 2005 16:51:43 -0000 1.3 +++ GX_CodeFormatterEditCapitalization.dfm 5 Nov 2006 15:32:54 -0000 1.4 @@ -33,31 +33,49 @@ object b_Help: TButton Left = 8 Top = 8 - Width = 93 + Width = 75 Height = 25 Caption = '&Help' - TabOrder = 0 + TabOrder = 2 OnClick = b_HelpClick end object b_Ok: TButton - Left = 240 + Left = 288 Top = 8 - Width = 93 + Width = 75 Height = 25 Caption = 'OK' Default = True ModalResult = 1 - TabOrder = 1 + TabOrder = 0 end object b_Cancel: TButton - Left = 344 + Left = 369 Top = 8 - Width = 93 + Width = 75 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 - TabOrder = 2 + TabOrder = 1 + end + object b_Import: TButton + Left = 104 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Import ...' + TabOrder = 3 + OnClick = b_ImportClick + end + object b_Export: TButton + Left = 185 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Export ...' + TabOrder = 4 + OnClick = b_ExportClick end end object p_Upper: TPanel @@ -68,9 +86,6 @@ Align = alClient BevelOuter = bvNone TabOrder = 1 - DesignSize = ( - 452 - 308) object l_Select: TLabel Left = 8 Top = 8 @@ -114,67 +129,82 @@ OnChange = ed_ChangeChange end object b_UpperCase: TButton - Left = 240 + Left = 252 Top = 64 - Width = 93 + Width = 89 Height = 25 Caption = 'UpperCase' TabOrder = 3 OnClick = b_UpperCaseClick end object b_LowerCase: TButton - Left = 344 + Left = 347 Top = 64 - Width = 93 + Width = 89 Height = 25 Caption = 'LowerCase' TabOrder = 4 OnClick = b_LowerCaseClick end object b_FirstCharUp: TButton - Left = 240 + Left = 252 Top = 96 - Width = 93 + Width = 89 Height = 25 Caption = 'First Char Up' TabOrder = 5 OnClick = b_FirstCharUpClick end object b_FirstCharLow: TButton - Left = 344 - Top = 96 - Width = 93 + Left = 347 + Top = 95 + Width = 89 Height = 25 Caption = 'First Char Low' TabOrder = 6 OnClick = b_FirstCharLowClick end object b_AddIdentifier: TButton - Left = 240 + Left = 252 Top = 144 - Width = 93 + Width = 89 Height = 26 Caption = 'Add Identifier' TabOrder = 7 OnClick = b_AddIdentifierClick end object b_Delete: TButton - Left = 240 + Left = 252 Top = 176 - Width = 93 + Width = 89 Height = 25 Caption = 'Delete' TabOrder = 8 OnClick = b_DeleteClick end object b_ToggleComment: TButton - Left = 240 + Left = 252 Top = 208 - Width = 93 + Width = 89 Height = 25 Caption = 'Toggle comment' TabOrder = 9 OnClick = b_ToggleCommentClick end end + object od_Import: TOpenDialog + DefaultExt = 'txt' + Filter = 'text files (*.txt)|*.txt|all files (*.*)|*.*' + FilterIndex = 0 + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 248 + Top = 256 + end + object sd_Export: TSaveDialog + DefaultExt = 'txt' + Filter = 'text files (*.txt)|*.txt|all files (*.*)|*.*' + Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing] + Left = 328 + Top = 256 + end end Index: GX_CodeFormatterConfigHandler.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/GX_CodeFormatterConfigHandler.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- GX_CodeFormatterConfigHandler.pas 19 Feb 2006 21:26:49 -0000 1.12 +++ GX_CodeFormatterConfigHandler.pas 5 Nov 2006 15:32:54 -0000 1.13 @@ -141,8 +141,13 @@ ES: TCodeFormatterEngineSettings; begin ASettings.ShowDoneDialog := AReader.ReadBool('ShowDoneDialog', True); + ASettings.UseCapitalizationFile := AReader.ReadBool('UseCapitalizationFile', False); + ASettings.CapitalizationFile := AReader.ReadString('CapitalizationFile', ''); ASettings.CapNames.Clear; - AReader.ReadStrings('Capitalization', ASettings.CapNames); + if ASettings.UseCapitalizationFile and (ASettings.CapitalizationFile <> '') and FileExists(ASettings.CapitalizationFile) then + ASettings.CapNames.LoadFromFile(ASettings.CapitalizationFile) + else + AReader.ReadStrings('Capitalization', ASettings.CapNames); ES := ASettings.Settings; ES.SpaceOperators := ReadSpaceSet('SpaceOperators', ES.SpaceOperators); @@ -236,7 +241,7 @@ AWriter.WriteBool('FeedEachUnit', ASettings.FeedEachUnit); //: Boolean; AWriter.WriteBool('NoFeedBeforeThen', ASettings.NoFeedBeforeThen); //: Boolean; AWriter.WriteBool('FeedElseIf', ASettings.FeedElseIf); //: Boolean; - AWriter.WriteInteger('FillNewWords', CapfileModeToInt(ASettings.FillNewWords)); + AWriter.WriteInteger('FillNewWords', CapfileModeToInt(ASettings.FillNewWords)); AWriter.WriteBool('FeedAfterSemiColon', ASettings.FeedAfterSemiColon); //: Boolean; AWriter.WriteString('StartCommentOut', ASettings.StartCommentOut); //: TCommentArray; AWriter.WriteString('EndCommentOut', ASettings.EndCommentOut); //: TCommentArray; @@ -250,7 +255,17 @@ AWriter.WriteBool('AlignVar', ASettings.AlignVar); //: Boolean; AWriter.WriteBool('ShowDoneDialog', ASettings.ShowDoneDialog); - AWriter.WriteStrings('Capitalization', ASettings.CapNames); + AWriter.WriteBool('UseCapitalizationFile', ASettings.UseCapitalizationFile); + AWriter.WriteString('CapitalizationFile', ASettings.CapitalizationFile); + + if ASettings.UseCapitalizationFile and (ASettings.CapitalizationFile <> '') then begin + try + ASettings.CapNames.SaveToFile(ASettings.CapitalizationFile); + except + // ignore, file might be readonly + end; + end else + AWriter.WriteStrings('Capitalization', ASettings.CapNames); end; class procedure TCodeFormatterConfigHandler.ExportToFile(const AFilename: string; ASettings: TCodeFormatterSettings); Index: GX_CodeFormatterEditCapitalization.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/GX_CodeFormatterEditCapitalization.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- GX_CodeFormatterEditCapitalization.pas 19 Feb 2006 21:26:49 -0000 1.3 +++ GX_CodeFormatterEditCapitalization.pas 5 Nov 2006 15:32:54 -0000 1.4 @@ -42,6 +42,10 @@ b_Help: TButton; b_Ok: TButton; b_Cancel: TButton; + b_Import: TButton; + b_Export: TButton; + od_Import: TOpenDialog; + sd_Export: TSaveDialog; procedure FormShow(Sender: TObject); procedure lb_ItemsClick(Sender: TObject); procedure ed_ChangeChange(Sender: TObject); @@ -56,6 +60,8 @@ procedure b_ToggleCommentClick(Sender: TObject); procedure b_DeleteClick(Sender: TObject); procedure b_HelpClick(Sender: TObject); + procedure b_ImportClick(Sender: TObject); + procedure b_ExportClick(Sender: TObject); private FisChanged: Boolean; procedure ChangeSelected(AnAction: TCapitalizationAction); @@ -79,8 +85,8 @@ procedure TfmCodeFormatterEditCapitalization.ListToForm(AWordList: TStrings); var - S: string; - i: integer; + s: string; + i: Integer; begin // l_FileName.Caption := AFileName; ed_Search.Text := ''; @@ -89,8 +95,8 @@ lb_Items.Sorted := False; for i := 0 to AWordList.Count - 1 do begin s := AWordList[i]; - if S <> '' then - lb_Items.Items.Add(S); + if s <> '' then + lb_Items.Items.Add(s); end; lb_Items.Sorted := True; end; @@ -124,7 +130,7 @@ procedure TfmCodeFormatterEditCapitalization.ed_ChangeChange(Sender: TObject); var - Idx: integer; + Idx: Integer; begin Idx := lb_Items.ItemIndex; if Idx < 0 then begin @@ -143,46 +149,49 @@ procedure TfmCodeFormatterEditCapitalization.ChangeSelected(AnAction: TCapitalizationAction); var - I: Integer; + i: Integer; - function Change(S: string): string; + function Change(s: string): string; var Ch: Char; begin - case AnAction of - acUpperCase: Result := UpperCase(S); - acLowerCase: Result := LowerCase(S); - acFirstUp: begin - Result := S; - Result[1] := UpCase(Result[1]); - end; - acFirstLow: begin - Result := S; - Ch := Result[1]; - if (Ch >= 'A') and (Ch <= 'Z') then - Inc(Result[1], 32); - end; - acCommentOut: - if S[1] = '*' then - Result := Copy(S, 2, Length(S)) - else - Result := '*' + S; + Result := s; + if s <> '' then begin + case AnAction of + acUpperCase: Result := UpperCase(s); + acLowerCase: Result := LowerCase(s); + acFirstUp: begin + Result := s; + Result[1] := UpCase(Result[1]); + end; + acFirstLow: begin + Result := s; + Ch := Result[1]; + if (Ch >= 'A') and (Ch <= 'Z') then + Inc(Result[1], 32); + end; + acCommentOut: + if s[1] = '*' then + Result := Copy(s, 2, Length(s)) + else + Result := '*' + s; + end; end; - IsChanged := IsChanged or (S <> Result); + IsChanged := IsChanged or (s <> Result); end; begin - IsChanged := true; + IsChanged := True; if ed_Change.Enabled then begin if ed_Change.SelLength = 0 then ed_Change.Text := Change(ed_Change.Text) else ed_Change.SelText := Change(ed_Change.SelText); end else begin - for I := 0 to lb_Items.Count - 1 do begin - if lb_Items.Selected[I] then begin - lb_Items.Items[I] := Change(lb_Items.Items[I]); - lb_Items.Selected[I] := True; + for i := 0 to lb_Items.Count - 1 do begin + if lb_Items.Selected[i] then begin + lb_Items.Items[i] := Change(lb_Items.Items[i]); + lb_Items.Selected[i] := True; end; end; if (AnAction = acCommentOut) then begin @@ -210,17 +219,17 @@ procedure TfmCodeFormatterEditCapitalization.ed_SearchChange(Sender: TObject); var SearchEditText: string; - I, J, Lasti: Integer; + i, J, Lasti: Integer; begin SearchEditText := ed_Search.Text; J := 1; Lasti := 0; - for I := 0 to lb_Items.Count - 1 do begin - if (StrLIComp(PChar(SearchEditText), PChar(lb_Items.Items[I]), J) = 0) then begin + for i := 0 to lb_Items.Count - 1 do begin + if (StrLIComp(PChar(SearchEditText), PChar(lb_Items.Items[i]), J) = 0) then begin Inc(J); - Lasti := I; + Lasti := i; end; - lb_Items.Selected[I] := False; + lb_Items.Selected[i] := False; end; lb_Items.OnClick := nil; lb_Items.Selected[Lasti] := True; @@ -246,7 +255,7 @@ procedure TfmCodeFormatterEditCapitalization.ed_SearchKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); - procedure HandleUpDown(ADirection: integer); + procedure HandleUpDown(ADirection: Integer); begin lb_Items.Selected[lb_Items.ItemIndex] := False; lb_Items.ItemIndex := lb_Items.ItemIndex + ADirection; @@ -265,13 +274,13 @@ procedure TfmCodeFormatterEditCapitalization.b_AddIdentifierClick(Sender: TObject); var - I: Integer; + i: Integer; begin IsChanged := True; lb_Items.Items.Add('<New Identifier>'); lb_Items.ItemIndex := lb_Items.Items.IndexOf('<New Identifier>'); - for I := 0 to lb_Items.Count - 1 do - lb_Items.Selected[I] := False; + for i := 0 to lb_Items.Count - 1 do + lb_Items.Selected[i] := False; lb_Items.Selected[lb_Items.ItemIndex] := True; lb_ItemsClick(nil); end; @@ -283,15 +292,22 @@ procedure TfmCodeFormatterEditCapitalization.b_DeleteClick(Sender: TObject); var - I: Integer; + i: Integer; begin - for I := lb_Items.Count - 1 downto 0 do - if lb_Items.Selected[I] then begin - lb_Items.Items.Delete(I); - IsChanged := true; + for i := lb_Items.Count - 1 downto 0 do + if lb_Items.Selected[i] then begin + lb_Items.Items.Delete(i); + IsChanged := True; end; end; +procedure TfmCodeFormatterEditCapitalization.b_ExportClick(Sender: TObject); +begin + if not sd_Export.Execute then + Exit; + lb_Items.Items.SaveToFile(sd_Export.FileName); +end; + procedure TfmCodeFormatterEditCapitalization.b_HelpClick(Sender: TObject); //var // S: string; @@ -305,5 +321,12 @@ // end; end; +procedure TfmCodeFormatterEditCapitalization.b_ImportClick(Sender: TObject); +begin + if not od_Import.Execute then + Exit; + lb_Items.Items.LoadFromFile(od_Import.FileName); +end; + end. Index: GX_CodeFormatterConfig.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/GX_CodeFormatterConfig.dfm,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- GX_CodeFormatterConfig.dfm 16 Oct 2006 18:39:10 -0000 1.8 +++ GX_CodeFormatterConfig.dfm 5 Nov 2006 15:32:54 -0000 1.9 @@ -120,9 +120,6 @@ end object ts_Spacing: TTabSheet Caption = 'Spacing' - DesignSize = ( - 470 - 357) object grid_Spacing: TStringGrid Left = 8 Top = 8 @@ -334,13 +331,6 @@ Height = 13 Caption = 'Capitalize' end - object Label11: TLabel - Left = 8 - Top = 136 - Width = 124 - Height = 13 - Caption = 'User defined capitalization' - end object Label14: TLabel Left = 8 Top = 18 @@ -399,30 +389,71 @@ 'Only first up' 'Unchanged') end - object FillNewWordsCombo: TComboBox - Left = 8 - Top = 152 - Width = 265 + object EditButton: TButton + Left = 392 + Top = 276 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Edit ...' + TabOrder = 4 + OnClick = EditButtonClick + end + object rb_CapitalizationInRegistry: TRadioButton + Left = 16 + Top = 280 + Width = 238 + Height = 17 + Caption = 'Stored in Registry' + Checked = True + TabOrder = 6 + TabStop = True + OnClick = rb_CapitalizationInRegistryClick + end + object rb_CapitalizationInFile: TRadioButton + Left = 16 + Top = 303 + Width = 238 + Height = 17 + Caption = 'Stored in File' + TabOrder = 7 + OnClick = rb_CapitalizationInFileClick + end + object ed_CapitalizationFile: TEdit + Left = 32 + Top = 326 + Width = 354 Height = 21 - Style = csDropDownList - ItemHeight = 13 - TabOrder = 5 + Anchors = [akLeft, akTop, akRight] + Enabled = False + TabOrder = 8 + end + object b_CapitalizationSelect: TButton + Left = 392 + Top = 324 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Select ...' + Enabled = False + TabOrder = 9 + OnClick = b_CapitalizationSelectClick + end + object rg_Capitalization: TRadioGroup + Left = 8 + Top = 121 + Width = 246 + Height = 134 + Caption = 'User defined capitalization' Items.Strings = ( - 'Do not use file' + 'Do not use list' 'Add new words only' - 'Use file' - 'Use file (except standard directives)' + 'Use list' + 'Use list (except standard directives)' 'Add and use' 'Add and use (except standard directives)') - end - object EditButton: TButton - Left = 280 - Top = 152 - Width = 53 - Height = 21 - Caption = 'Edit' - TabOrder = 4 - OnClick = EditButtonClick + TabOrder = 5 + TabStop = True end end object ts_Align: TTabSheet @@ -430,14 +461,14 @@ object Label16: TLabel Left = 12 Top = 35 - Width = 49 + Width = 51 Height = 13 Caption = 'At position' end object Label17: TLabel Left = 12 Top = 115 - Width = 49 + Width = 51 Height = 13 Caption = 'At position' end @@ -549,9 +580,6 @@ ImageIndex = 6 OnResize = ts_PreviewResize OnShow = ts_PreviewShow - DesignSize = ( - 470 - 357) object l_Before: TLabel Left = 6 Top = 0 @@ -620,9 +648,6 @@ Height = 41 Align = alBottom TabOrder = 1 - DesignSize = ( - 478 - 41) object b_Help: TButton Left = 8 Top = 8 @@ -675,8 +700,8 @@ Top = 7 end object pm_Extra: TPopupMenu - Left = 284 - Top = 264 + Left = 400 + Top = 64 object mi_ResetTo: TMenuItem Caption = 'Reset to' object mi_ResetToDefault: TMenuItem @@ -696,13 +721,21 @@ object od_Import: TOpenDialog Filter = 'INI-Files (*.ini)|*.ini|all files (*.*)|*.*' Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing, ofDontAddToRecent] - Left = 168 - Top = 294 + Left = 400 + Top = 176 end object sd_Export: TSaveDialog Filter = 'INI-Files (*.ini)|*.ini|all files (*.*)|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofDontAddToRecent] - Left = 220 - Top = 295 + Left = 400 + Top = 120 + end + object od_CapitalizationFile: TOpenDialog + DefaultExt = 'txt' + Filter = 'text files (*.txt)|*.txt|all files (*.*)|*.*' + FilterIndex = 0 + Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing] + Left = 288 + Top = 344 end end Index: GX_CodeFormatterConfig.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/GX_CodeFormatterConfig.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- GX_CodeFormatterConfig.pas 22 Oct 2006 14:01:44 -0000 1.16 +++ GX_CodeFormatterConfig.pas 5 Nov 2006 15:32:54 -0000 1.17 @@ -32,8 +32,8 @@ protected function GetEditStyle(ACol: Integer; ARow: Integer): TEditStyle; override; function CreateEditor: TInplaceEdit; override; - function CanEditModify: boolean; override; - function CanEditShow: boolean; override; + function CanEditModify: Boolean; override; + function CanEditShow: Boolean; override; procedure OnGetSpacingOptions(ACol, ARow: Integer; Items: TStrings); public constructor Create(AOwner: TComponent); override; @@ -69,7 +69,6 @@ Label10: TLabel; StartCommentOutEdit: TEdit; EndCommentOutEdit: TEdit; - Label11: TLabel; OpenDialog: TOpenDialog; WrapLinesCheck: TCheckBox; Label13: TLabel; @@ -91,7 +90,6 @@ Label17: TLabel; AlignVarPosEdit: TEdit; AlignVarPosUpDown: TUpDown; - FillNewWordsCombo: TComboBox; FeedElseIfCheck: TCheckBox; NoFeedBeforeThenCheck: TCheckBox; NoIndentElseIfCheck: TCheckBox; @@ -124,6 +122,12 @@ GroupBox3: TGroupBox; Label2: TLabel; FeedRoundTryCombo: TComboBox; + rb_CapitalizationInRegistry: TRadioButton; + rb_CapitalizationInFile: TRadioButton; + ed_CapitalizationFile: TEdit; + b_CapitalizationSelect: TButton; + rg_Capitalization: TRadioGroup; + od_CapitalizationFile: TOpenDialog; procedure b_HelpClick(Sender: TObject); procedure EditButtonClick(Sender: TObject); procedure ts_PreviewShow(Sender: TObject); @@ -140,6 +144,9 @@ procedure mi_ResetToDefaultClick(Sender: TObject); procedure mi_ImportClick(Sender: TObject); procedure mi_ExportClick(Sender: TObject); + procedure rb_CapitalizationInRegistryClick(Sender: TObject); + procedure rb_CapitalizationInFileClick(Sender: TObject); + procedure b_CapitalizationSelectClick(Sender: TObject); private FCapitalization: TStringList; procedure EngineSettingsToForm(const AEngineSettings: TCodeFormatterEngineSettings); @@ -149,7 +156,7 @@ procedure FillPreview; procedure AddSpaceRow(RowNo: Integer; StrCol1, StrCol2: string; Space: TSpaceSet); - function GetSpaceItem(I: Integer): TSpaceSet; + function GetSpaceItem(i: Integer): TSpaceSet; procedure SetDefault(AWhich: string); public constructor Create(AOwner: TComponent); override; @@ -177,7 +184,7 @@ constructor TfmCodeFormatterConfig.Create(AOwner: TComponent); var st: TStringList; - i: integer; + i: Integer; mi: TMenuItem; begin inherited; @@ -204,26 +211,26 @@ inherited; end; -function TfmCodeFormatterConfig.GetSpaceItem(I: Integer): TSpaceSet; +function TfmCodeFormatterConfig.GetSpaceItem(i: Integer): TSpaceSet; var - S: string; + s: string; begin - S := grid_Spacing.Cells[2, I]; + s := grid_Spacing.Cells[2, i]; Result := spNone; - if S = str_Before then + if s = str_Before then Result := [spBefore] - else if S = str_after then + else if s = str_after then Result := [spAfter] - else if S = str_BeforeAfter then + else if s = str_BeforeAfter then Result := spBoth; end; procedure TfmCodeFormatterConfig.AddSpaceRow(RowNo: Integer; StrCol1, StrCol2: string; Space: TSpaceSet); - procedure SetColText(_Col: integer; const _s: string; _Offset: integer = 4); + procedure SetColText(_Col: Integer; const _s: string; _Offset: Integer = 4); var - w: integer; + w: Integer; begin grid_Spacing.Cells[_Col, RowNo] := _s; w := grid_Spacing.Canvas.TextWidth(_s) + _Offset; @@ -232,7 +239,7 @@ end; begin - SetColText(0, Strcol1); + SetColText(0, StrCol1); SetColText(1, StrCol2); if Space = spNone then @@ -303,7 +310,7 @@ ASettings.NoIndentElseIf := NoIndentElseIfCheck.Checked; ASettings.FeedBeforeEnd := FeedBeforeEndCheck.Checked; ASettings.FeedAfterSemiColon := FeedAfterSemiColonCheck.Checked; - ASettings.FillNewWords := IntToCapfileMode(FillNewWordsCombo.ItemIndex); + ASettings.FillNewWords := IntToCapfileMode(rg_Capitalization.ItemIndex); ASettings.StartCommentOut := Trim(StartCommentOutEdit.Text); ASettings.EndCommentOut := Trim(EndCommentOutEdit.Text); ASettings.FeedRoundBegin := TFeedBegin(FeedRoundBeginCombo.ItemIndex); @@ -316,6 +323,8 @@ begin ASettings.CapNames.Assign(FCapitalization); ASettings.ShowDoneDialog := chk_ShowDone.Checked; + ASettings.UseCapitalizationFile := rb_CapitalizationInFile.Checked; + ASettings.CapitalizationFile := ed_CapitalizationFile.Text; FormToEngineSettings(Settings); ASettings.Settings := Settings; @@ -360,7 +369,7 @@ AddSpaceRow(2, str_MathOperators, str_MathOperatorsExample, AEngineSettings.SpaceOperators); AddSpaceRow(3, str_Colon, ':', AEngineSettings.SpaceColon); - AddSpaceRow(4, str_Semicolon, ';', AEngineSettings.SpaceSemiColon); + AddSpaceRow(4, str_SemiColon, ';', AEngineSettings.SpaceSemiColon); AddSpaceRow(5, str_Comma, ',', AEngineSettings.SpaceComma); AddSpaceRow(6, str_LeftParenthesis, '(', AEngineSettings.SpaceLeftBr); AddSpaceRow(7, str_RightParenthesis, ')', AEngineSettings.SpaceRightBr); @@ -382,7 +391,7 @@ AlignCommentPosUpDown.Position := AEngineSettings.AlignCommentPos; AlignVarCheck.Checked := AEngineSettings.AlignVar; AlignVarPosUpDown.Position := AEngineSettings.AlignVarPos; - FillNewWordsCombo.ItemIndex := CapfileModeToInt(AEngineSettings.FillNewWords); + rg_Capitalization.ItemIndex := CapfileModeToInt(AEngineSettings.FillNewWords); StartCommentOutEdit.Text := string(AEngineSettings.StartCommentOut); EndCommentOutEdit.Text := string(AEngineSettings.EndCommentOut); FeedRoundBeginCombo.ItemIndex := Integer(AEngineSettings.FeedRoundBegin); @@ -397,6 +406,8 @@ procedure TfmCodeFormatterConfig.SettingsToForm(const ASettings: TCodeFormatterSettings); begin chk_ShowDone.Checked := ASettings.ShowDoneDialog; + rb_CapitalizationInFile.Checked := ASettings.UseCapitalizationFile; + ed_CapitalizationFile.Text := ASettings.CapitalizationFile; FCapitalization.Assign(ASettings.CapNames); EngineSettingsToForm(ASettings.Settings); @@ -426,6 +437,33 @@ ts_PreviewShow(nil); end; +procedure TfmCodeFormatterConfig.b_CapitalizationSelectClick(Sender: TObject); +var + s: string; +begin + od_CapitalizationFile.FileName := ed_CapitalizationFile.Text; + if not od_CapitalizationFile.Execute then + Exit; + + s := od_CapitalizationFile.FileName; + if FileExists(s) then begin + if FCapitalization.Count > 0 then begin + if mrYes <> MessageDlg( + 'Your current capitalization list is not empty and the file already exists.'#13#10 + + 'If you continue, your list will be discarded and the selected file loaded instead.'#13#10 + + 'Continue?', mtWarning, [mbYes, mbNo], 0) then + Exit; + end; + FCapitalization.LoadFromFile(s); + end else begin + if FCapitalization.Count > 0 then begin + FCapitalization.SaveToFile(s); + end; + end; + + ed_CapitalizationFile.Text := s; +end; + procedure TfmCodeFormatterConfig.b_HelpClick(Sender: TObject); var HlpFile: string; @@ -507,6 +545,18 @@ m_PreviewBeforeClick(nil); end; +procedure TfmCodeFormatterConfig.rb_CapitalizationInFileClick(Sender: TObject); +begin + ed_CapitalizationFile.Enabled := True; + b_CapitalizationSelect.Enabled := True; +end; + +procedure TfmCodeFormatterConfig.rb_CapitalizationInRegistryClick(Sender: TObject); +begin + ed_CapitalizationFile.Enabled := False; + b_CapitalizationSelect.Enabled := False; +end; + procedure TfmCodeFormatterConfig.FormShow(Sender: TObject); begin FillPreview; @@ -537,7 +587,7 @@ var Point: TPoint; begin - Point.x := b_Tools.Width; + Point.X := b_Tools.Width; Point.Y := 0; Point := b_Tools.ClientToScreen(Point); pm_Extra.Popup(Point.X, Point.Y); @@ -641,12 +691,12 @@ inherited; end; -function TStringGrid.CanEditModify: boolean; +function TStringGrid.CanEditModify: Boolean; begin Result := False; end; -function TStringGrid.CanEditShow: boolean; +function TStringGrid.CanEditShow: Boolean; begin Result := (Col = 2); end; |
From: Erik B. <eb...@us...> - 2006-10-26 01:21:05
|
Update of /cvsroot/gexperts/gexperts/unstable In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv24023 Modified Files: Readme.txt Log Message: Version 1.30 Fix release date Index: Readme.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Readme.txt,v retrieving revision 1.106 retrieving revision 1.107 diff -u -d -r1.106 -r1.107 --- Readme.txt 9 Aug 2006 06:31:38 -0000 1.106 +++ Readme.txt 26 Oct 2006 01:21:02 -0000 1.107 @@ -105,7 +105,7 @@ CHANGE LOG ---------------------- -VERSION 1.30 (August 2006) +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 several forms. |
From: Erik B. <eb...@us...> - 2006-10-26 01:18:34
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/OpenFile In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv23046/Src/OpenFile Modified Files: GX_OpenFile.pas Log Message: Add to do comment Index: GX_OpenFile.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFile.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- GX_OpenFile.pas 21 Jan 2006 21:03:42 -0000 1.16 +++ GX_OpenFile.pas 26 Oct 2006 01:18:32 -0000 1.17 @@ -752,6 +752,9 @@ begin FileName := MakeFileName(Src.Items[i]); DoOpenFile(FileName); + // TODO: Add support for focusing the editor to the last file + //if i = Src.Items.Count - 1 then + // Focus last editor/form end; end; |
From: Erik B. <eb...@us...> - 2006-10-26 01:17:15
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv22184/Src/Utils Modified Files: GX_OtaUtils.pas Log Message: Add tkChar and tkWChar support for setting properties Index: GX_OtaUtils.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v retrieving revision 1.196 retrieving revision 1.197 diff -u -d -r1.196 -r1.197 --- GX_OtaUtils.pas 16 Oct 2006 06:54:09 -0000 1.196 +++ GX_OtaUtils.pas 26 Oct 2006 01:17:10 -0000 1.197 @@ -1726,7 +1726,6 @@ else Result := True; - if Result then begin {$IFDEF VER160} @@ -2595,6 +2594,8 @@ VString : string; VShortString : string; VFloat : Extended; + VChar : Char; + VWChar : WChar; function PropertyDescription: string; begin @@ -2644,6 +2645,20 @@ Result := AComponent.SetPropByName(PropertyName, VFloat); end; + tkChar: begin + if Length(Value) > 0 then begin + VChar := Char(Value[1]); + Result := AComponent.SetPropByName(PropertyName, VChar); + end; + end; + + tkWChar: begin + if Length(Value) > 0 then begin + VWChar := Value[1]; + Result := AComponent.SetPropByName(PropertyName, VWChar); + end; + end; + // Note: Booleans are of type tkEnumeration tkEnumeration: begin VInteger := GetEnumValueFromStr(NativeObject, PropertyName, Value); |
From: Thomas M. <tw...@us...> - 2006-10-22 15:55:32
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter/ExperimentalProjects In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv650 Added Files: GExpertsBDS2006_Formatter_EditorExpert.bdsproj GExpertsBDS2006_Formatter_EditorExpert.dpr GExpertsBDS2006_Formatter_RegularExpert.bdsproj GExpertsBDS2006_Formatter_RegularExpert.dpr Log Message: experimental projects for Delphi 2006, to use, copy to ..\..\..\ --- NEW FILE: GExpertsBDS2006_Formatter_EditorExpert.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: GExpertsBDS2006_Formatter_RegularExpert.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: GExpertsBDS2006_Formatter_EditorExpert.dpr --- library GExpertsBDS2006_Formatter_EditorExpert; { 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. 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_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}, GX_CodeFormatterTypes in 'Src\Formatter\common\GX_CodeFormatterTypes.pas', GX_CollectionLikeLists in 'Src\Formatter\common\GX_CollectionLikeLists.pas', GX_CodeFormatterEngine in 'Src\Formatter\engine\GX_CodeFormatterEngine.pas', GX_CodeFormatterTokens in 'Src\Formatter\engine\GX_CodeFormatterTokens.pas', GX_CodeFormatterFormatter in 'Src\Formatter\engine\GX_CodeFormatterFormatter.pas', GX_CodeFormatterParser in 'Src\Formatter\engine\GX_CodeFormatterParser.pas', GX_CodeFormatterSettings in 'Src\Formatter\engine\GX_CodeFormatterSettings.pas', GX_CodeFormatterStack in 'Src\Formatter\engine\GX_CodeFormatterStack.pas', GX_DisplayControlTree in 'Src\Utils\GX_DisplayControlTree.pas', GX_EditorExpert in 'Src\EditorExperts\GX_EditorExpert.pas', GX_Formatter in 'Src\Formatter\GX_Formatter.pas', GX_CodeFormatterBookmarks in 'Src\Formatter\GX_CodeFormatterBookmarks.pas', GX_CodeFormatterBreakpoints in 'Src\Formatter\GX_CodeFormatterBreakpoints.pas', GX_CodeFormatterConfig in 'Src\Formatter\GX_CodeFormatterConfig.pas' {fmCodeFormatterConfig}, GX_CodeFormatterConfigHandler in 'Src\Formatter\GX_CodeFormatterConfigHandler.pas', GX_CodeFormatterDefaultSettings in 'Src\Formatter\GX_CodeFormatterDefaultSettings.pas', GX_CodeFormatterDone in 'Src\Formatter\GX_CodeFormatterDone.pas' {fmCodeFormatterDone}, GX_CodeFormatterEditCapitalization in 'Src\Formatter\GX_CodeFormatterEditCapitalization.pas' {fmCodeFormatterEditCapitalization}, GX_CodeFormatterExpert in 'Src\Formatter\GX_CodeFormatterExpert.pas', GX_CodeFormatterGXConfigWrapper in 'Src\Formatter\GX_CodeFormatterGXConfigWrapper.pas', GX_eCodeFormatter in 'Src\Formatter\GX_eCodeFormatter.pas'; {$E dll} {$R *.res} begin end. --- NEW FILE: GExpertsBDS2006_Formatter_RegularExpert.dpr --- library GExpertsBDS2006_Formatter_RegularExpert; { 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. 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_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}, GX_CodeFormatterTypes in 'Src\Formatter\common\GX_CodeFormatterTypes.pas', GX_CollectionLikeLists in 'Src\Formatter\common\GX_CollectionLikeLists.pas', GX_CodeFormatterEngine in 'Src\Formatter\engine\GX_CodeFormatterEngine.pas', GX_CodeFormatterTokens in 'Src\Formatter\engine\GX_CodeFormatterTokens.pas', GX_CodeFormatterFormatter in 'Src\Formatter\engine\GX_CodeFormatterFormatter.pas', GX_CodeFormatterParser in 'Src\Formatter\engine\GX_CodeFormatterParser.pas', GX_CodeFormatterSettings in 'Src\Formatter\engine\GX_CodeFormatterSettings.pas', GX_CodeFormatterStack in 'Src\Formatter\engine\GX_CodeFormatterStack.pas', GX_DisplayControlTree in 'Src\Utils\GX_DisplayControlTree.pas', GX_EditorExpert in 'Src\EditorExperts\GX_EditorExpert.pas', GX_Formatter in 'Src\Formatter\GX_Formatter.pas', GX_CodeFormatterBookmarks in 'Src\Formatter\GX_CodeFormatterBookmarks.pas', GX_CodeFormatterBreakpoints in 'Src\Formatter\GX_CodeFormatterBreakpoints.pas', GX_CodeFormatterConfig in 'Src\Formatter\GX_CodeFormatterConfig.pas' {fmCodeFormatterConfig}, GX_CodeFormatterConfigHandler in 'Src\Formatter\GX_CodeFormatterConfigHandler.pas', GX_CodeFormatterDefaultSettings in 'Src\Formatter\GX_CodeFormatterDefaultSettings.pas', GX_CodeFormatterDone in 'Src\Formatter\GX_CodeFormatterDone.pas' {fmCodeFormatterDone}, GX_CodeFormatterEditCapitalization in 'Src\Formatter\GX_CodeFormatterEditCapitalization.pas' {fmCodeFormatterEditCapitalization}, GX_CodeFormatterExpert in 'Src\Formatter\GX_CodeFormatterExpert.pas', GX_CodeFormatterGXConfigWrapper in 'Src\Formatter\GX_CodeFormatterGXConfigWrapper.pas', GX_eCodeFormatter in 'Src\Formatter\GX_eCodeFormatter.pas'; {$E dll} {$R *.res} begin end. |
From: Thomas M. <tw...@us...> - 2006-10-22 15:03:04
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter/ExperimentalProjects In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv13271/unstable/Src/Formatter/ExperimentalProjects Modified Files: GExpertsD9_Formatter_EditorExpert.bdsproj GExpertsD9_Formatter_RegularExpert.bdsproj Log Message: projects for Delphi 9, copy to ..\..\.. to use Index: GExpertsD9_Formatter_RegularExpert.bdsproj =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/ExperimentalProjects/GExpertsD9_Formatter_RegularExpert.bdsproj,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- GExpertsD9_Formatter_RegularExpert.bdsproj 22 Oct 2006 12:45:48 -0000 1.1 +++ GExpertsD9_Formatter_RegularExpert.bdsproj 22 Oct 2006 15:03:02 -0000 1.2 @@ -19,7 +19,7 @@ <Compiler Name="A" Type="Integer">8</Compiler> <Compiler Name="B" Type="Integer">0</Compiler> <Compiler Name="C" Type="Integer">1</Compiler> - <Compiler Name="D" Type="Integer">1</Compiler> + <Compiler Name="D" Type="Integer">0</Compiler> <Compiler Name="E" Type="Integer">0</Compiler> <Compiler Name="F" Type="Integer">0</Compiler> <Compiler Name="G" Type="Integer">1</Compiler> @@ -27,10 +27,10 @@ <Compiler Name="I" Type="Integer">1</Compiler> <Compiler Name="J" Type="Integer">0</Compiler> <Compiler Name="K" Type="Integer">0</Compiler> - <Compiler Name="L" Type="Integer">1</Compiler> + <Compiler Name="L" Type="Integer">0</Compiler> <Compiler Name="M" Type="Integer">0</Compiler> <Compiler Name="N" Type="Integer">1</Compiler> - <Compiler Name="O" Type="Integer">0</Compiler> + <Compiler Name="O" Type="Integer">1</Compiler> <Compiler Name="P" Type="Integer">1</Compiler> <Compiler Name="Q" Type="Integer">1</Compiler> <Compiler Name="R" Type="Integer">1</Compiler> @@ -38,9 +38,9 @@ <Compiler Name="T" Type="Integer">0</Compiler> <Compiler Name="U" Type="Integer">0</Compiler> <Compiler Name="V" Type="Integer">1</Compiler> - <Compiler Name="W" Type="Integer">1</Compiler> + <Compiler Name="W" Type="Integer">0</Compiler> <Compiler Name="X" Type="Integer">1</Compiler> - <Compiler Name="Y" Type="Integer">2</Compiler> + <Compiler Name="Y" Type="Integer">0</Compiler> <Compiler Name="Z" Type="Integer">1</Compiler> <Compiler Name="ShowHints" Type="Boolean">True</Compiler> <Compiler Name="ShowWarnings" Type="Boolean">True</Compiler> @@ -106,7 +106,7 @@ <Linker Name="MapFile" Type="Integer">0</Linker> <Linker Name="OutputObjs" Type="Integer">0</Linker> <Linker Name="ConsoleApp" Type="Integer">1</Linker> - <Linker Name="DebugInfo" Type="Boolean">True</Linker> + <Linker Name="DebugInfo" Type="Boolean">False</Linker> <Linker Name="RemoteSymbols" Type="Boolean">False</Linker> <Linker Name="GenerateDRC" Type="Boolean">False</Linker> <Linker Name="MinStackSize" Type="Integer">16384</Linker> Index: GExpertsD9_Formatter_EditorExpert.bdsproj =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/ExperimentalProjects/GExpertsD9_Formatter_EditorExpert.bdsproj,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- GExpertsD9_Formatter_EditorExpert.bdsproj 22 Oct 2006 12:45:48 -0000 1.1 +++ GExpertsD9_Formatter_EditorExpert.bdsproj 22 Oct 2006 15:03:02 -0000 1.2 @@ -19,7 +19,7 @@ <Compiler Name="A" Type="Integer">8</Compiler> <Compiler Name="B" Type="Integer">0</Compiler> <Compiler Name="C" Type="Integer">1</Compiler> - <Compiler Name="D" Type="Integer">1</Compiler> + <Compiler Name="D" Type="Integer">0</Compiler> <Compiler Name="E" Type="Integer">0</Compiler> <Compiler Name="F" Type="Integer">0</Compiler> <Compiler Name="G" Type="Integer">1</Compiler> @@ -27,10 +27,10 @@ <Compiler Name="I" Type="Integer">1</Compiler> <Compiler Name="J" Type="Integer">0</Compiler> <Compiler Name="K" Type="Integer">0</Compiler> - <Compiler Name="L" Type="Integer">1</Compiler> + <Compiler Name="L" Type="Integer">0</Compiler> <Compiler Name="M" Type="Integer">0</Compiler> <Compiler Name="N" Type="Integer">1</Compiler> - <Compiler Name="O" Type="Integer">0</Compiler> + <Compiler Name="O" Type="Integer">1</Compiler> <Compiler Name="P" Type="Integer">1</Compiler> <Compiler Name="Q" Type="Integer">1</Compiler> <Compiler Name="R" Type="Integer">1</Compiler> @@ -38,9 +38,9 @@ <Compiler Name="T" Type="Integer">0</Compiler> <Compiler Name="U" Type="Integer">0</Compiler> <Compiler Name="V" Type="Integer">1</Compiler> - <Compiler Name="W" Type="Integer">1</Compiler> + <Compiler Name="W" Type="Integer">0</Compiler> <Compiler Name="X" Type="Integer">1</Compiler> - <Compiler Name="Y" Type="Integer">2</Compiler> + <Compiler Name="Y" Type="Integer">0</Compiler> <Compiler Name="Z" Type="Integer">1</Compiler> <Compiler Name="ShowHints" Type="Boolean">True</Compiler> <Compiler Name="ShowWarnings" Type="Boolean">True</Compiler> @@ -106,7 +106,7 @@ <Linker Name="MapFile" Type="Integer">0</Linker> <Linker Name="OutputObjs" Type="Integer">0</Linker> <Linker Name="ConsoleApp" Type="Integer">1</Linker> - <Linker Name="DebugInfo" Type="Boolean">True</Linker> + <Linker Name="DebugInfo" Type="Boolean">False</Linker> <Linker Name="RemoteSymbols" Type="Boolean">False</Linker> <Linker Name="GenerateDRC" Type="Boolean">False</Linker> <Linker Name="MinStackSize" Type="Integer">16384</Linker> |
From: Thomas M. <tw...@us...> - 2006-10-22 14:48:22
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter/ExperimentalProjects In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv7325/unstable/Src/Formatter/ExperimentalProjects Added Files: GExpertsD7_Formatter_EditorExpert.dof GExpertsD7_Formatter_EditorExpert.dpr GExpertsD7_Formatter_RegularExpert.dof GExpertsD7_Formatter_RegularExpert.dpr Log Message: experimental projects for delphi 7 (copy to ..\..\.. to use) --- NEW FILE: GExpertsD7_Formatter_RegularExpert.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=0 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=0 M=0 N=1 O=1 P=1 Q=1 R=1 S=0 T=1 U=0 V=1 W=0 X=1 Y=0 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=0 UnitLibrary=1 UnitPlatform=0 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=5242880 ExeDescription= [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=Src;Comps;Comps\Abbrevia Packages=rtl;vcl;vclx;vclsmp;designide Conditionals= DebugSourceDirs= UsePackages=1 [Parameters] RunParams=-ns -np HostApplication=D:\Borland\Delphi7\Bin\delphi32.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=3 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=1 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=GExperts, Inc. and Erik Berry FileDescription=GExperts for Delphi 7 FileVersion=1.3.0.0 InternalName=GExperts for Delphi 7 LegalCopyright= LegalTrademarks= OriginalFilename=GExpertsD7.dll ProductName=GExperts for Delphi 7 ProductVersion=1.30 experimental Comments=Open Source [Excluded Packages] q:\bpl\UnicodeConvDelphi7.bpl=Unicode Converter Library (UCL) Q:\bpl\AutoSave6.bpl=Auto Save Wizard Q:\bpl\Xdom_3_1Delphi7.bpl=Extended Document Object Model (XDOM 3.1) Q:\bpl\CompBAR7.bpl=Component Bar Expert 1.0.4 Q:\bpl\keyboardmakro7.bpl=Keyboard Makro Manager for Delphi 7 Q:\bpl\dclusr70.bpl=Borland User Components Q:\bpl\HkIdeExpert7.bpl=Headwork IDE Expert D:\out\bpl\dclrx70.bpl=RX Library Controls and Tools D:\out\bpl\dclrxdb70.bpl=RX Library Database Components D:\out\bpl\dclrxbd70.bpl=RX Library BDE Database Components Q:\bpl\dclRBC77.bpl=ReportBuilder TeeChart 4.04 Components Q:\bpl\dclRB77.bpl=ReportBuilder Standard Q:\bpl\JclDebugIde70.bpl=JCL Debug IDE extension for Delphi 7 [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=Src;Comps;Comps\Abbrevia --- NEW FILE: GExpertsD7_Formatter_RegularExpert.dpr --- library GExpertsD7_Formatter_RegularExpert; { 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. 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}, GX_Formatter in 'Src\Formatter\GX_Formatter.pas', GX_CodeFormatterBreakpoints in 'Src\Formatter\GX_CodeFormatterBreakpoints.pas', GX_CodeFormatterConfig in 'Src\Formatter\GX_CodeFormatterConfig.pas' {fmCodeFormatterConfig}, GX_CodeFormatterConfigHandler in 'Src\Formatter\GX_CodeFormatterConfigHandler.pas', GX_CodeFormatterDefaultSettings in 'Src\Formatter\GX_CodeFormatterDefaultSettings.pas', GX_CodeFormatterDone in 'Src\Formatter\GX_CodeFormatterDone.pas' {fmCodeFormatterDone}, GX_CodeFormatterEditCapitalization in 'Src\Formatter\GX_CodeFormatterEditCapitalization.pas' {fmCodeFormatterEditCapitalization}, GX_CodeFormatterExpert in 'Src\Formatter\GX_CodeFormatterExpert.pas', GX_CodeFormatterGXConfigWrapper in 'Src\Formatter\GX_CodeFormatterGXConfigWrapper.pas', GX_eCodeFormatter in 'Src\Formatter\GX_eCodeFormatter.pas', GX_CodeFormatterBookmarks in 'Src\Formatter\GX_CodeFormatterBookmarks.pas', GX_CodeFormatterTypes in 'Src\Formatter\common\GX_CodeFormatterTypes.pas', GX_CollectionLikeLists in 'Src\Formatter\common\GX_CollectionLikeLists.pas', GX_CodeFormatterEngine in 'Src\Formatter\engine\GX_CodeFormatterEngine.pas', GX_CodeFormatterTokens in 'Src\Formatter\engine\GX_CodeFormatterTokens.pas', GX_CodeFormatterFormatter in 'Src\Formatter\engine\GX_CodeFormatterFormatter.pas', GX_CodeFormatterParser in 'Src\Formatter\engine\GX_CodeFormatterParser.pas', GX_CodeFormatterSettings in 'Src\Formatter\engine\GX_CodeFormatterSettings.pas', GX_CodeFormatterStack in 'Src\Formatter\engine\GX_CodeFormatterStack.pas'; {$E dll} {$R *.res} end. --- NEW FILE: GExpertsD7_Formatter_EditorExpert.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=0 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=0 M=0 N=1 O=1 P=1 Q=1 R=1 S=0 T=1 U=0 V=1 W=0 X=1 Y=0 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=0 UnitLibrary=1 UnitPlatform=0 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=5242880 ExeDescription= [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=Src;Comps;Comps\Abbrevia Packages=rtl;vcl;vclx;vclsmp;designide Conditionals=GX_FORMATTER_IS_EDITOR_EXPERT DebugSourceDirs= UsePackages=1 [Parameters] RunParams=-ns -np HostApplication=D:\Borland\Delphi7\Bin\delphi32.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=3 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=1 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=GExperts, Inc. and Erik Berry FileDescription=GExperts for Delphi 7 FileVersion=1.3.0.0 InternalName=GExperts for Delphi 7 LegalCopyright= LegalTrademarks= OriginalFilename=GExpertsD7.dll ProductName=GExperts for Delphi 7 ProductVersion=1.30 experimental Comments=Open Source [Excluded Packages] q:\bpl\UnicodeConvDelphi7.bpl=Unicode Converter Library (UCL) Q:\bpl\AutoSave6.bpl=Auto Save Wizard Q:\bpl\Xdom_3_1Delphi7.bpl=Extended Document Object Model (XDOM 3.1) Q:\bpl\CompBAR7.bpl=Component Bar Expert 1.0.4 Q:\bpl\keyboardmakro7.bpl=Keyboard Makro Manager for Delphi 7 Q:\bpl\dclusr70.bpl=Borland User Components Q:\bpl\HkIdeExpert7.bpl=Headwork IDE Expert D:\out\bpl\dclrx70.bpl=RX Library Controls and Tools D:\out\bpl\dclrxdb70.bpl=RX Library Database Components D:\out\bpl\dclrxbd70.bpl=RX Library BDE Database Components Q:\bpl\dclRBC77.bpl=ReportBuilder TeeChart 4.04 Components Q:\bpl\dclRB77.bpl=ReportBuilder Standard Q:\bpl\JclDebugIde70.bpl=JCL Debug IDE extension for Delphi 7 [HistoryLists\hlConditionals] Count=1 Item0=GX_FORMATTER_IS_EDITOR_EXPERT [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=Src;Comps;Comps\Abbrevia --- NEW FILE: GExpertsD7_Formatter_EditorExpert.dpr --- library GExpertsD7_Formatter_EditorExpert; { 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. 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}, GX_Formatter in 'Src\Formatter\GX_Formatter.pas', GX_CodeFormatterBreakpoints in 'Src\Formatter\GX_CodeFormatterBreakpoints.pas', GX_CodeFormatterConfig in 'Src\Formatter\GX_CodeFormatterConfig.pas' {fmCodeFormatterConfig}, GX_CodeFormatterConfigHandler in 'Src\Formatter\GX_CodeFormatterConfigHandler.pas', GX_CodeFormatterDefaultSettings in 'Src\Formatter\GX_CodeFormatterDefaultSettings.pas', GX_CodeFormatterDone in 'Src\Formatter\GX_CodeFormatterDone.pas' {fmCodeFormatterDone}, GX_CodeFormatterEditCapitalization in 'Src\Formatter\GX_CodeFormatterEditCapitalization.pas' {fmCodeFormatterEditCapitalization}, GX_CodeFormatterExpert in 'Src\Formatter\GX_CodeFormatterExpert.pas', GX_CodeFormatterGXConfigWrapper in 'Src\Formatter\GX_CodeFormatterGXConfigWrapper.pas', GX_eCodeFormatter in 'Src\Formatter\GX_eCodeFormatter.pas', GX_CodeFormatterBookmarks in 'Src\Formatter\GX_CodeFormatterBookmarks.pas', GX_CodeFormatterTypes in 'Src\Formatter\common\GX_CodeFormatterTypes.pas', GX_CollectionLikeLists in 'Src\Formatter\common\GX_CollectionLikeLists.pas', GX_CodeFormatterEngine in 'Src\Formatter\engine\GX_CodeFormatterEngine.pas', GX_CodeFormatterTokens in 'Src\Formatter\engine\GX_CodeFormatterTokens.pas', GX_CodeFormatterFormatter in 'Src\Formatter\engine\GX_CodeFormatterFormatter.pas', GX_CodeFormatterParser in 'Src\Formatter\engine\GX_CodeFormatterParser.pas', GX_CodeFormatterSettings in 'Src\Formatter\engine\GX_CodeFormatterSettings.pas', GX_CodeFormatterStack in 'Src\Formatter\engine\GX_CodeFormatterStack.pas'; {$E dll} {$R *.res} end. |
From: Thomas M. <tw...@us...> - 2006-10-22 14:01:53
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21569/unstable/Src/Formatter Modified Files: GX_CodeFormatterConfig.pas Log Message: Bugfix: Preview read m_After, must be m_Before Index: GX_CodeFormatterConfig.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/GX_CodeFormatterConfig.pas,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- GX_CodeFormatterConfig.pas 27 May 2006 17:54:50 -0000 1.15 +++ GX_CodeFormatterConfig.pas 22 Oct 2006 14:01:44 -0000 1.16 @@ -466,7 +466,7 @@ try // this temporary string list is necessary to prevent an infinite loop (whose reason I don't really understand :-( ) st := TStringList.Create; - st.Assign(m_PreviewAfter.Lines); + st.Assign(m_PreviewBefore.Lines); FormToSettings(Formatter.Settings); if Formatter.Execute(st) then begin m_PreviewAfter.Lines.BeginUpdate; |
From: Thomas M. <tw...@us...> - 2006-10-22 13:32:38
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter/ExperimentalProjects In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv10157/unstable/Src/Formatter/ExperimentalProjects Added Files: GExpertsD6_Formatter_EditorExpert.dof GExpertsD6_Formatter_EditorExpert.dpr GExpertsD6_Formatter_RegularExpert.dof GExpertsD6_Formatter_RegularExpert.dpr Removed Files: GExpertsD9_Formatter.bdsgroup Log Message: experimental projects for Delphi 6 (copy to ..\..\..\ to use) --- NEW FILE: GExpertsD6_Formatter_RegularExpert.dpr --- library GExpertsD6_Formatter_RegularExpert; { 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. 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}, GX_Formatter in 'Src\Formatter\GX_Formatter.pas', GX_CodeFormatterBreakpoints in 'Src\Formatter\GX_CodeFormatterBreakpoints.pas', GX_CodeFormatterConfig in 'Src\Formatter\GX_CodeFormatterConfig.pas' {fmCodeFormatterConfig}, GX_CodeFormatterConfigHandler in 'Src\Formatter\GX_CodeFormatterConfigHandler.pas', GX_CodeFormatterDefaultSettings in 'Src\Formatter\GX_CodeFormatterDefaultSettings.pas', GX_CodeFormatterDone in 'Src\Formatter\GX_CodeFormatterDone.pas' {fmCodeFormatterDone}, GX_CodeFormatterEditCapitalization in 'Src\Formatter\GX_CodeFormatterEditCapitalization.pas' {fmCodeFormatterEditCapitalization}, GX_CodeFormatterExpert in 'Src\Formatter\GX_CodeFormatterExpert.pas', GX_CodeFormatterGXConfigWrapper in 'Src\Formatter\GX_CodeFormatterGXConfigWrapper.pas', GX_eCodeFormatter in 'Src\Formatter\GX_eCodeFormatter.pas', GX_CodeFormatterBookmarks in 'Src\Formatter\GX_CodeFormatterBookmarks.pas', GX_CodeFormatterTypes in 'Src\Formatter\common\GX_CodeFormatterTypes.pas', GX_CollectionLikeLists in 'Src\Formatter\common\GX_CollectionLikeLists.pas', GX_CodeFormatterTokens in 'Src\Formatter\engine\GX_CodeFormatterTokens.pas', GX_CodeFormatterFormatter in 'Src\Formatter\engine\GX_CodeFormatterFormatter.pas', GX_CodeFormatterParser in 'Src\Formatter\engine\GX_CodeFormatterParser.pas', GX_CodeFormatterSettings in 'Src\Formatter\engine\GX_CodeFormatterSettings.pas', GX_CodeFormatterStack in 'Src\Formatter\engine\GX_CodeFormatterStack.pas', GX_CodeFormatterEngine in 'Src\Formatter\engine\GX_CodeFormatterEngine.pas'; {$E dll} {$R *.res} end. --- GExpertsD9_Formatter.bdsgroup DELETED --- --- NEW FILE: GExpertsD6_Formatter_EditorExpert.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=1 D=0 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=0 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=1 U=0 V=1 W=0 X=1 Y=0 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=5242880 ExeDescription= [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=Src;Comps;Comps\Abbrevia Packages=rtl;vcl;vclx;vclsmp;designide Conditionals=GX_FORMATTER_IS_EDITOR_EXPERT DebugSourceDirs= UsePackages=1 [Parameters] RunParams=-ns HostApplication=D:\Borland\Delphi6\Bin\delphi32.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=3 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=1 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=GExperts, Inc. and Erik Berry FileDescription=GExperts for Delphi 6 FileVersion=1.3.0.0 InternalName=GExperts for Delphi 6 LegalCopyright= LegalTrademarks= OriginalFilename=GExpertsD6.dll ProductName=GExperts for Delphi 6 ProductVersion=1.30 Comments=Open Source Compile Date=Tuesday, June 07, 2005 3:28 AM [HistoryLists\hlConditionals] Count=1 Item0=GX_FORMATTER_IS_EDITOR_EXPERT [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=Src;Comps;Comps\Abbrevia --- NEW FILE: GExpertsD6_Formatter_EditorExpert.dpr --- library GExpertsD6_Formatter_EditorExpert; { 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. 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}, GX_Formatter in 'Src\Formatter\GX_Formatter.pas', GX_CodeFormatterBreakpoints in 'Src\Formatter\GX_CodeFormatterBreakpoints.pas', GX_CodeFormatterConfig in 'Src\Formatter\GX_CodeFormatterConfig.pas' {fmCodeFormatterConfig}, GX_CodeFormatterConfigHandler in 'Src\Formatter\GX_CodeFormatterConfigHandler.pas', GX_CodeFormatterDefaultSettings in 'Src\Formatter\GX_CodeFormatterDefaultSettings.pas', GX_CodeFormatterDone in 'Src\Formatter\GX_CodeFormatterDone.pas' {fmCodeFormatterDone}, GX_CodeFormatterEditCapitalization in 'Src\Formatter\GX_CodeFormatterEditCapitalization.pas' {fmCodeFormatterEditCapitalization}, GX_CodeFormatterExpert in 'Src\Formatter\GX_CodeFormatterExpert.pas', GX_CodeFormatterGXConfigWrapper in 'Src\Formatter\GX_CodeFormatterGXConfigWrapper.pas', GX_eCodeFormatter in 'Src\Formatter\GX_eCodeFormatter.pas', GX_CodeFormatterBookmarks in 'Src\Formatter\GX_CodeFormatterBookmarks.pas', GX_CollectionLikeLists in 'Src\Formatter\common\GX_CollectionLikeLists.pas', GX_CodeFormatterTypes in 'Src\Formatter\common\GX_CodeFormatterTypes.pas', GX_CodeFormatterTokens in 'Src\Formatter\engine\GX_CodeFormatterTokens.pas', GX_CodeFormatterFormatter in 'Src\Formatter\engine\GX_CodeFormatterFormatter.pas', GX_CodeFormatterParser in 'Src\Formatter\engine\GX_CodeFormatterParser.pas', GX_CodeFormatterSettings in 'Src\Formatter\engine\GX_CodeFormatterSettings.pas', GX_CodeFormatterStack in 'Src\Formatter\engine\GX_CodeFormatterStack.pas', GX_CodeFormatterEngine in 'Src\Formatter\engine\GX_CodeFormatterEngine.pas'; {$E dll} {$R *.res} end. --- NEW FILE: GExpertsD6_Formatter_RegularExpert.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=1 D=0 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=0 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=1 U=0 V=1 W=0 X=1 Y=0 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=5242880 ExeDescription= [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=Src;Comps;Comps\Abbrevia Packages=rtl;vcl;vclx;vclsmp;designide Conditionals= DebugSourceDirs= UsePackages=1 [Parameters] RunParams=-ns HostApplication=D:\Borland\Delphi6\Bin\delphi32.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=3 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=1 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=GExperts, Inc. and Erik Berry FileDescription=GExperts for Delphi 6 FileVersion=1.3.0.0 InternalName=GExperts for Delphi 6 LegalCopyright= LegalTrademarks= OriginalFilename=GExpertsD6.dll ProductName=GExperts for Delphi 6 ProductVersion=1.30 Comments=Open Source Compile Date=Tuesday, June 07, 2005 3:28 AM [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
From: Thomas M. <tw...@us...> - 2006-10-22 12:50:52
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv27085/unstable/Src/Formatter Modified Files: Readme-CodeFormatter.txt Log Message: updated the readme Index: Readme-CodeFormatter.txt =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/Readme-CodeFormatter.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- Readme-CodeFormatter.txt 21 Jun 2006 11:16:15 -0000 1.1 +++ Readme-CodeFormatter.txt 22 Oct 2006 12:50:48 -0000 1.2 @@ -1,9 +1,10 @@ -To enable the code formatter in GExperts: +How to enable the code formatter in GExperts: -* Add all files from this directory and the subdirectories "common" and "engine" to the GExperts project -* If you want it to be a regular expert, remove GX_eCodeFormatter from the project -* if you want it to be an editor expert, remove GX_Formatter from the project -(only one of these units should be included) -* recompile and replace your gexperts*.dll with the newly compiled one. -* If you included GX_eCodeFormatter, you will find the expert listed on the "Editor Experts" tab. There you can call the configuration dialog and set the keyboard shortcut -* if you included GX_Formatter, you will find the expert listed as a regular expert. +* The subdirectory ExperimentalProjects contains project files for all supported Delphi versions for + * GExperts with code formatter as a regular wizard + * GExperts with code formatter as an editor wizard +* Copy the one you want to use to the ..\..\ (unstable) directory. +* Load and build the project +* Replace your gexperts*.dll with the newly compiled one, changing the name appropriately +* If you used the one with the editor expert, you will find the code formatter on the "Editor Experts" tab. There you can call the configuration dialog and set the keyboard shortcut +* if you used the one with the regular expert, you will find the expert listed as a regular expert. |
From: Thomas M. <tw...@us...> - 2006-10-22 12:45:55
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv25091/unstable/Src/Formatter Modified Files: GX_Formatter.pas GX_eCodeFormatter.pas Log Message: added projects for Delphi 2005 (must be copied to ..\..\.. to work Index: GX_Formatter.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/GX_Formatter.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- GX_Formatter.pas 22 Oct 2006 11:51:56 -0000 1.28 +++ GX_Formatter.pas 22 Oct 2006 12:45:48 -0000 1.29 @@ -1,5 +1,5 @@ // the code formatter expert as a regular expert -// (only use one of GX_Formatter or GX_eCodeFormatter) +// (Used if you don't define GX_FORMATTER_IS_EDITOR_EXPERT.) // Original Author: Thomas Mueller (http://www.dummzeuch.de) unit GX_Formatter; Index: GX_eCodeFormatter.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Formatter/GX_eCodeFormatter.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- GX_eCodeFormatter.pas 22 Oct 2006 11:51:56 -0000 1.4 +++ GX_eCodeFormatter.pas 22 Oct 2006 12:45:48 -0000 1.5 @@ -1,5 +1,5 @@ // the code formatter expert as an editor expert -// (only use one of GX_Formatter or GX_eCodeFormatter) +// (Used if you define GX_FORMATTER_IS_EDITOR_EXPERT.) // Original Author: Thomas Mueller (http://www.dummzeuch.de) unit GX_eCodeFormatter; |
From: Thomas M. <tw...@us...> - 2006-10-22 12:45:53
|
Update of /cvsroot/gexperts/gexperts/unstable/Src/Formatter/ExperimentalProjects In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv25091/unstable/Src/Formatter/ExperimentalProjects Added Files: GExpertsD9_Formatter.bdsgroup GExpertsD9_Formatter_EditorExpert.bdsproj GExpertsD9_Formatter_EditorExpert.dpr GExpertsD9_Formatter_RegularExpert.bdsproj GExpertsD9_Formatter_RegularExpert.dpr Log Message: added projects for Delphi 2005 (must be copied to ..\..\.. to work --- NEW FILE: GExpertsD9_Formatter_EditorExpert.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: GExpertsD9_Formatter_RegularExpert.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: GExpertsD9_Formatter.bdsgroup --- (This appears to be a binary file; contents omitted.) --- NEW FILE: GExpertsD9_Formatter_RegularExpert.dpr --- library GExpertsD9_Formatter_RegularExpert; { 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. 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}, GX_Formatter in 'Src\Formatter\GX_Formatter.pas', GX_CodeFormatterBreakpoints in 'Src\Formatter\GX_CodeFormatterBreakpoints.pas', GX_CodeFormatterConfig in 'Src\Formatter\GX_CodeFormatterConfig.pas' {fmCodeFormatterConfig}, GX_CodeFormatterConfigHandler in 'Src\Formatter\GX_CodeFormatterConfigHandler.pas', GX_CodeFormatterDefaultSettings in 'Src\Formatter\GX_CodeFormatterDefaultSettings.pas', GX_CodeFormatterDone in 'Src\Formatter\GX_CodeFormatterDone.pas' {fmCodeFormatterDone}, GX_CodeFormatterEditCapitalization in 'Src\Formatter\GX_CodeFormatterEditCapitalization.pas' {fmCodeFormatterEditCapitalization}, GX_CodeFormatterExpert in 'Src\Formatter\GX_CodeFormatterExpert.pas', GX_CodeFormatterGXConfigWrapper in 'Src\Formatter\GX_CodeFormatterGXConfigWrapper.pas', GX_eCodeFormatter in 'Src\Formatter\GX_eCodeFormatter.pas', GX_CodeFormatterBookmarks in 'Src\Formatter\GX_CodeFormatterBookmarks.pas', GX_CollectionLikeLists in 'Src\Formatter\common\GX_CollectionLikeLists.pas', GX_CodeFormatterTypes in 'Src\Formatter\common\GX_CodeFormatterTypes.pas', GX_CodeFormatterTokens in 'Src\Formatter\engine\GX_CodeFormatterTokens.pas', GX_CodeFormatterEngine in 'Src\Formatter\engine\GX_CodeFormatterEngine.pas', GX_CodeFormatterFormatter in 'Src\Formatter\engine\GX_CodeFormatterFormatter.pas', GX_CodeFormatterParser in 'Src\Formatter\engine\GX_CodeFormatterParser.pas', GX_CodeFormatterSettings in 'Src\Formatter\engine\GX_CodeFormatterSettings.pas', GX_CodeFormatterStack in 'Src\Formatter\engine\GX_CodeFormatterStack.pas'; {$E dll} {$R *.res} begin end. --- NEW FILE: GExpertsD9_Formatter_EditorExpert.dpr --- library GExpertsD9_Formatter_EditorExpert; { 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. 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}, GX_Formatter in 'Src\Formatter\GX_Formatter.pas', GX_CodeFormatterBreakpoints in 'Src\Formatter\GX_CodeFormatterBreakpoints.pas', GX_CodeFormatterConfig in 'Src\Formatter\GX_CodeFormatterConfig.pas' {fmCodeFormatterConfig}, GX_CodeFormatterConfigHandler in 'Src\Formatter\GX_CodeFormatterConfigHandler.pas', GX_CodeFormatterDefaultSettings in 'Src\Formatter\GX_CodeFormatterDefaultSettings.pas', GX_CodeFormatterDone in 'Src\Formatter\GX_CodeFormatterDone.pas' {fmCodeFormatterDone}, GX_CodeFormatterEditCapitalization in 'Src\Formatter\GX_CodeFormatterEditCapitalization.pas' {fmCodeFormatterEditCapitalization}, GX_CodeFormatterExpert in 'Src\Formatter\GX_CodeFormatterExpert.pas', GX_CodeFormatterGXConfigWrapper in 'Src\Formatter\GX_CodeFormatterGXConfigWrapper.pas', GX_eCodeFormatter in 'Src\Formatter\GX_eCodeFormatter.pas', GX_CodeFormatterBookmarks in 'Src\Formatter\GX_CodeFormatterBookmarks.pas', GX_CollectionLikeLists in 'Src\Formatter\common\GX_CollectionLikeLists.pas', GX_CodeFormatterTypes in 'Src\Formatter\common\GX_CodeFormatterTypes.pas', GX_CodeFormatterTokens in 'Src\Formatter\engine\GX_CodeFormatterTokens.pas', GX_CodeFormatterEngine in 'Src\Formatter\engine\GX_CodeFormatterEngine.pas', GX_CodeFormatterFormatter in 'Src\Formatter\engine\GX_CodeFormatterFormatter.pas', GX_CodeFormatterParser in 'Src\Formatter\engine\GX_CodeFormatterParser.pas', GX_CodeFormatterSettings in 'Src\Formatter\engine\GX_CodeFormatterSettings.pas', GX_CodeFormatterStack in 'Src\Formatter\engine\GX_CodeFormatterStack.pas'; {$E dll} {$R *.res} begin end. |