Changeset 26 for trunk/IDE/UProject.pas


Ignore:
Timestamp:
Dec 8, 2010, 10:00:30 AM (13 years ago)
Author:
george
Message:
  • Removed: Generic template usage form project code. Replaced by TListObject descendants.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE/UProject.pas

    r24 r26  
    77
    88uses
    9   Classes, SysUtils, Dialogs, DOM, XMLWrite, XMLRead, FileUtil;
     9  Classes, SysUtils, Dialogs, DOM, XMLWrite, XMLRead, FileUtil,
     10  SpecializedObjectList;
    1011
    1112type
    … …  
    3132
    3233  // TListProjectNode = TGObjectList<Integer, TProjectNode>
    33   {$DEFINE TGObjectListIndex := Integer}
    34   {$DEFINE TGObjectListItem := TProjectNode}
    35   {$DEFINE TGObjectListList := TObjectListProjectNode}
    36   {$DEFINE TGObjectList := TListProjectNode}
    37   {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProjectNode}
    38   {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProjectNode}
    39   {$DEFINE INTERFACE}
    40   {$I 'GenericObjectList.inc'}
     34  TListProjectNode = class(TListObject);
    4135
    4236  { TProjectFile }
    … …  
    8074
    8175
    82 {$DEFINE IMPLEMENTATION_USES}
    83 {$INCLUDE 'GenericObjectList.inc'}
    84 
    85 // TListProjectNode = TGObjectList<Integer, TProjectNode>
    86 {$DEFINE TGObjectListIndex := Integer}
    87 {$DEFINE TGObjectListItem := TProjectNode}
    88 {$DEFINE TGObjectListList := TObjectListProjectNode}
    89 {$DEFINE TGObjectList := TListProjectNode}
    90 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProjectNode}
    91 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProjectNode}
    92 {$DEFINE IMPLEMENTATION}
    93 {$INCLUDE 'GenericObjectList.inc'}
    9476
    9577{ TProjectGroup }
Note: See TracChangeset for help on using the changeset viewer.