Changeset 82


Ignore:
Timestamp:
Oct 30, 2010, 9:21:38 PM (14 years ago)
Author:
george
Message:
  • Modified: TObjectList replaced by specialized generic TListObject.
Location:
branches/Transpascal
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • branches/Transpascal/Common/ULastOpenedList.pas

    r66 r82  
    66
    77uses
    8   Classes, SysUtils, Windows, URegistry, Menus;
     8  Classes, SysUtils, Registry, URegistry, Menus;
    99
    1010type

  • branches/Transpascal/Compiler/TranspascalCompiler.lpk

    r77 r82  
    6262    </Files>
    6363    <Type Value="RunAndDesignTime"/>
    64     <RequiredPkgs Count="2">
     64    <RequiredPkgs Count="3">
    6565      <Item1>
    66         <PackageName Value="LCL"/>
     66        <PackageName Value="TemplateGenerics"/>
    6767      </Item1>
    6868      <Item2>
     69        <PackageName Value="LCL"/>
     70      </Item2>
     71      <Item3>
    6972        <PackageName Value="FCL"/>
    7073        <MinVersion Major="1" Valid="True"/>
    71       </Item2>
     74      </Item3>
    7275    </RequiredPkgs>
    7376    <UsageOptions>

  • branches/Transpascal/Compiler/USourceCode.pas

    r81 r82  
    66
    77uses
    8   SysUtils, Variants, Classes,
    9   Dialogs, Contnrs;
     8  SysUtils, Variants, Classes, Dialogs, ListObject;
    109
    1110type
    … …  
    6059  TFunctionCall = class(TCommand)
    6160    FunctionRef: TFunction;
    62     ParameterExpression: TObjectList; // TObjectList<TExpression>
     61    ParameterExpression: TListObject; // TListObject<TExpression>
    6362    constructor Create;
    6463    destructor Destroy; override;
    … …  
    118117  TCaseOfEnd = class(TCommand)
    119118    Expression: TExpression;
    120     Branches: TObjectList; // TObjectList<TCaseOfEndBranche>
     119    Branches: TListObject; // TListObject<TCaseOfEndBranche>
    121120    ElseCommand: TCommand;
    122121    constructor Create;
    … …  
    134133  end;
    135134
    136   TCommandList = class(TObjectList)
     135  TCommandList = class(TListObject)
    137136
    138137  end;
    … …  
    190189
    191190  TTypeEnumeration = class(TType)
    192     Items: TObjectList; // TObjectList<TEnumItem>
     191    Items: TListObject; // TListObject<TEnumItem>
    193192    constructor Create;
    194193    destructor Destroy; override;
    … …  
    198197
    199198  TTypeClass = class(TType)
    200     Items: TObjectList; // TObjectList<TType>
    201     constructor Create;
    202     destructor Destroy; override;
    203   end;
    204 
    205   TTypeList = class(TObjectList)
     199    Items: TListObject; // TListObject<TType>
     200    constructor Create;
     201    destructor Destroy; override;
     202  end;
     203
     204  TTypeList = class(TListObject)
    206205    Parent: TCommonBlock;
    207206    function Search(Name: string; Exported: Boolean = False): TType;
    … …  
    217216  end;
    218217
    219   TConstantList = class(TObjectList)
     218  TConstantList = class(TListObject)
    220219    Parent: TCommonBlock;
    221220    function Search(Name: string): TConstant;
    … …  
    230229  end;
    231230
    232   TVariableList = class(TObjectList)
     231  TVariableList = class(TListObject)
    233232    Parent: TCommonBlock;
    234233    function Search(Name: string; Exported: Boolean = False): TVariable;
    … …  
    239238  end;
    240239
    241   TParameterList = class(TObjectList)
     240  TParameterList = class(TListObject)
    242241    Parent: TFunction;
    243242    function Search(Name: string): TParameter;
    … …  
    262261  end;
    263262
    264   TExpressionList = class(TObjectList)
     263  TExpressionList = class(TListObject)
    265264    destructor Destroy; override;
    266265  end;
    … …  
    279278  end;
    280279
    281   TFunctionList = class(TObjectList)
     280  TFunctionList = class(TListObject)
    282281    Parent: TCommonBlock;
    283282    function Search(Name: string; Exported: Boolean = False): TFunction;
    … …  
    292291  end;
    293292
    294   TUsedModuleList = class(TObjectList)
     293  TUsedModuleList = class(TListObject)
    295294    ParentModule: TModule;
    296295  end;
    … …  
    335334  { TModuleList }
    336335
    337   TModuleList = class(TObjectList)
     336  TModuleList = class(TListObject)
    338337    function Search(Name: string): TModule;
    339338  end;
    … …  
    669668begin
    670669  inherited;
    671   Branches := TObjectList.Create
     670  Branches := TListObject.Create
    672671end;
    673672
    … …  
    696695begin
    697696  inherited;
    698   ParameterExpression := TObjectList.Create;
     697  ParameterExpression := TListObject.Create;
    699698end;
    700699
    … …  
    830829begin
    831830  inherited;
    832   Items := TObjectList.Create;
     831  Items := TListObject.Create;
    833832end;
    834833
    … …  
    843842constructor TTypeClass.Create;
    844843begin
    845   Items := TObjectList.Create;
     844  Items := TListObject.Create;
    846845end;
    847846

  • branches/Transpascal/Forms/UMainForm.pas

    r81 r82  
    99  Dialogs, StdCtrls, UCompiler, UProducerAsm8051, Registry,
    1010  UProducerDynamicC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
    11   UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking,
     11  UProducerPascal, ListObject, UProject, FileUtil, Menus, ActnList, UCoolDocking,
    1212  UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
    1313  UDebugLog;
    … …  
    150150  CompiledForm.Show;
    151151
    152   TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs;
     152  //TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs;
    153153
    154154  ProjectManager.Parent.Parent.Width := 200;

  • branches/Transpascal/Transpascal.lpi

    r81 r82  
    3232      <local>
    3333        <FormatVersion Value="1"/>
     34        <LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
    3435      </local>
    3536    </RunParams>
    36     <RequiredPackages Count="4">
     37    <RequiredPackages Count="5">
    3738      <Item1>
    38         <PackageName Value="TranspascalCompiler"/>
     39        <PackageName Value="TemplateGenerics"/>
    3940      </Item1>
    4041      <Item2>
    41         <PackageName Value="CoolDocking"/>
     42        <PackageName Value="TranspascalCompiler"/>
    4243      </Item2>
    4344      <Item3>
     45        <PackageName Value="CoolDocking"/>
     46      </Item3>
     47      <Item4>
    4448        <PackageName Value="SynEdit"/>
    4549        <MinVersion Major="1" Valid="True"/>
    46       </Item3>
    47       <Item4>
     50      </Item4>
     51      <Item5>
    4852        <PackageName Value="LCL"/>
    49       </Item4>
     53      </Item5>
    5054    </RequiredPackages>
    51     <Units Count="48">
     55    <Units Count="57">
    5256      <Unit0>
    5357        <Filename Value="Transpascal.lpr"/>
    5458        <IsPartOfProject Value="True"/>
    5559        <UnitName Value="Transpascal"/>
    56         <EditorIndex Value="7"/>
    5760        <WindowIndex Value="0"/>
    5861        <TopLine Value="1"/>
    5962        <CursorPos X="31" Y="4"/>
    6063        <UsageCount Value="215"/>
    61         <Loaded Value="True"/>
    6264        <DefaultSyntaxHighlighter Value="Delphi"/>
    6365      </Unit0>
    … …  
    7072        <UnitName Value="UMainForm"/>
    7173        <IsVisibleTab Value="True"/>
    72         <EditorIndex Value="6"/>
    73         <WindowIndex Value="0"/>
    74         <TopLine Value="205"/>
    75         <CursorPos X="1" Y="223"/>
     74        <EditorIndex Value="8"/>
     75        <WindowIndex Value="0"/>
     76        <TopLine Value="123"/>
     77        <CursorPos X="5" Y="152"/>
    7678        <UsageCount Value="215"/>
    7779        <Loaded Value="True"/>
    78         <LoadedDesigner Value="True"/>
    7980        <DefaultSyntaxHighlighter Value="Delphi"/>
    8081      </Unit1>
    … …  
    8384        <IsPartOfProject Value="True"/>
    8485        <UnitName Value="UTextSource"/>
     86        <EditorIndex Value="3"/>
    8587        <WindowIndex Value="0"/>
    8688        <TopLine Value="1"/>
    8789        <CursorPos X="1" Y="6"/>
    8890        <UsageCount Value="215"/>
     91        <Loaded Value="True"/>
    8992        <DefaultSyntaxHighlighter Value="Delphi"/>
    9093      </Unit2>
    … …  
    9598        <TopLine Value="745"/>
    9699        <CursorPos X="46" Y="759"/>
    97         <UsageCount Value="145"/>
     100        <UsageCount Value="140"/>
    98101        <DefaultSyntaxHighlighter Value="Delphi"/>
    99102      </Unit3>
    … …  
    104107        <TopLine Value="1"/>
    105108        <CursorPos X="40" Y="11"/>
    106         <UsageCount Value="145"/>
     109        <UsageCount Value="140"/>
    107110        <DefaultSyntaxHighlighter Value="Delphi"/>
    108111      </Unit4>
    … …  
    113116        <TopLine Value="187"/>
    114117        <CursorPos X="34" Y="201"/>
    115         <UsageCount Value="145"/>
     118        <UsageCount Value="140"/>
    116119      </Unit5>
    117120      <Unit6>
    … …  
    121124        <TopLine Value="1"/>
    122125        <CursorPos X="1" Y="14"/>
    123         <UsageCount Value="145"/>
     126        <UsageCount Value="140"/>
    124127      </Unit6>
    125128      <Unit7>
    … …  
    129132        <TopLine Value="124"/>
    130133        <CursorPos X="42" Y="136"/>
    131         <UsageCount Value="145"/>
     134        <UsageCount Value="140"/>
    132135      </Unit7>
    133136      <Unit8>
    … …  
    137140        <TopLine Value="442"/>
    138141        <CursorPos X="47" Y="455"/>
    139         <UsageCount Value="145"/>
     142        <UsageCount Value="140"/>
    140143      </Unit8>
    141144      <Unit9>
    … …  
    145148        <TopLine Value="78"/>
    146149        <CursorPos X="27" Y="86"/>
    147         <UsageCount Value="37"/>
     150        <UsageCount Value="32"/>
     151        <DefaultSyntaxHighlighter Value="Delphi"/>
    148152      </Unit9>
    149153      <Unit10>
    … …  
    152156        <TopLine Value="61"/>
    153157        <CursorPos X="7" Y="68"/>
    154         <UsageCount Value="47"/>
     158        <UsageCount Value="42"/>
     159        <DefaultSyntaxHighlighter Value="Delphi"/>
    155160      </Unit10>
    156161      <Unit11>
    … …  
    159164        <TopLine Value="139"/>
    160165        <CursorPos X="16" Y="146"/>
    161         <UsageCount Value="47"/>
     166        <UsageCount Value="42"/>
     167        <DefaultSyntaxHighlighter Value="Delphi"/>
    162168      </Unit11>
    163169      <Unit12>
    … …  
    167173        <TopLine Value="69"/>
    168174        <CursorPos X="1" Y="82"/>
    169         <UsageCount Value="107"/>
     175        <UsageCount Value="102"/>
    170176      </Unit12>
    171177      <Unit13>
    … …  
    174180        <TopLine Value="591"/>
    175181        <CursorPos X="3" Y="604"/>
    176         <UsageCount Value="9"/>
     182        <UsageCount Value="4"/>
     183        <DefaultSyntaxHighlighter Value="Delphi"/>
    177184      </Unit13>
    178185      <Unit14>
    … …  
    182189        <TopLine Value="320"/>
    183190        <CursorPos X="1" Y="327"/>
    184         <UsageCount Value="61"/>
     191        <UsageCount Value="56"/>
    185192      </Unit14>
    186193      <Unit15>
    … …  
    188195        <IsPartOfProject Value="True"/>
    189196        <UnitName Value="UProject"/>
    190         <WindowIndex Value="0"/>
    191         <TopLine Value="3"/>
    192         <CursorPos X="50" Y="10"/>
     197        <EditorIndex Value="4"/>
     198        <WindowIndex Value="0"/>
     199        <TopLine Value="51"/>
     200        <CursorPos X="58" Y="62"/>
    193201        <UsageCount Value="223"/>
     202        <Loaded Value="True"/>
    194203        <DefaultSyntaxHighlighter Value="Delphi"/>
    195204      </Unit15>
    … …  
    199208        <TopLine Value="17"/>
    200209        <CursorPos X="11" Y="30"/>
    201         <UsageCount Value="0"/>
     210        <UsageCount Value="5"/>
     211        <DefaultSyntaxHighlighter Value="Delphi"/>
    202212      </Unit16>
    203213      <Unit17>
    … …  
    207217        <TopLine Value="1"/>
    208218        <CursorPos X="33" Y="1"/>
    209         <UsageCount Value="25"/>
     219        <UsageCount Value="20"/>
    210220      </Unit17>
    211221      <Unit18>
    212222        <Filename Value="Compiler\UCompiler.pas"/>
    213223        <UnitName Value="UCompiler"/>
    214         <EditorIndex Value="3"/>
     224        <EditorIndex Value="19"/>
    215225        <WindowIndex Value="0"/>
    216226        <TopLine Value="55"/>
    … …  
    222232        <Filename Value="Compiler\USourceCode.pas"/>
    223233        <UnitName Value="USourceCode"/>
    224         <EditorIndex Value="8"/>
    225         <WindowIndex Value="0"/>
    226         <TopLine Value="141"/>
    227         <CursorPos X="30" Y="155"/>
    228         <UsageCount Value="100"/>
     234        <EditorIndex Value="1"/>
     235        <WindowIndex Value="0"/>
     236        <TopLine Value="246"/>
     237        <CursorPos X="31" Y="263"/>
     238        <UsageCount Value="96"/>
    229239        <Loaded Value="True"/>
    230240      </Unit19>
    … …  
    232242        <Filename Value="Compiler\Analyze\UParser.pas"/>
    233243        <UnitName Value="UParser"/>
    234         <EditorIndex Value="4"/>
     244        <EditorIndex Value="20"/>
    235245        <WindowIndex Value="0"/>
    236246        <TopLine Value="24"/>
    … …  
    245255        <ResourceBaseClass Value="Form"/>
    246256        <UnitName Value="UProjectManager"/>
    247         <WindowIndex Value="0"/>
    248         <TopLine Value="33"/>
     257        <EditorIndex Value="6"/>
     258        <WindowIndex Value="0"/>
     259        <TopLine Value="1"/>
    249260        <CursorPos X="29" Y="44"/>
    250261        <UsageCount Value="207"/>
     262        <Loaded Value="True"/>
    251263        <DefaultSyntaxHighlighter Value="Delphi"/>
    252264      </Unit21>
    … …  
    269281        <ResourceBaseClass Value="Form"/>
    270282        <UnitName Value="UMessagesForm"/>
    271         <WindowIndex Value="0"/>
    272         <TopLine Value="11"/>
     283        <EditorIndex Value="7"/>
     284        <WindowIndex Value="0"/>
     285        <TopLine Value="1"/>
    273286        <CursorPos X="38" Y="76"/>
    274287        <UsageCount Value="207"/>
     288        <Loaded Value="True"/>
    275289        <DefaultSyntaxHighlighter Value="Delphi"/>
    276290      </Unit23>
    … …  
    282296        <ResourceBaseClass Value="Form"/>
    283297        <UnitName Value="UCompiledForm"/>
    284         <WindowIndex Value="0"/>
    285         <TopLine Value="5"/>
     298        <EditorIndex Value="12"/>
     299        <WindowIndex Value="0"/>
     300        <TopLine Value="2"/>
    286301        <CursorPos X="28" Y="21"/>
    287302        <UsageCount Value="206"/>
     303        <Loaded Value="True"/>
    288304        <DefaultSyntaxHighlighter Value="Delphi"/>
    289305      </Unit24>
    … …  
    306322        <TopLine Value="141"/>
    307323        <CursorPos X="81" Y="154"/>
    308         <UsageCount Value="24"/>
     324        <UsageCount Value="19"/>
    309325      </Unit26>
    310326      <Unit27>
    … …  
    314330        <TopLine Value="316"/>
    315331        <CursorPos X="14" Y="329"/>
    316         <UsageCount Value="23"/>
     332        <UsageCount Value="18"/>
     333        <DefaultSyntaxHighlighter Value="Delphi"/>
    317334      </Unit27>
    318335      <Unit28>
    … …  
    321338        <TopLine Value="1762"/>
    322339        <CursorPos X="1" Y="1769"/>
    323         <UsageCount Value="23"/>
     340        <UsageCount Value="18"/>
     341        <DefaultSyntaxHighlighter Value="Delphi"/>
    324342      </Unit28>
    325343      <Unit29>
    … …  
    327345        <IsPartOfProject Value="True"/>
    328346        <UnitName Value="URegistry"/>
     347        <EditorIndex Value="14"/>
     348        <WindowIndex Value="0"/>
     349        <TopLine Value="1"/>
     350        <CursorPos X="23" Y="22"/>
    329351        <UsageCount Value="200"/>
     352        <Loaded Value="True"/>
    330353        <DefaultSyntaxHighlighter Value="Delphi"/>
    331354      </Unit29>
    … …  
    334357        <IsPartOfProject Value="True"/>
    335358        <UnitName Value="ULastOpenedList"/>
     359        <WindowIndex Value="0"/>
     360        <TopLine Value="1"/>
     361        <CursorPos X="68" Y="11"/>
    336362        <UsageCount Value="200"/>
    337363        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    341367        <IsPartOfProject Value="True"/>
    342368        <UnitName Value="UApplicationInfo"/>
    343         <WindowIndex Value="0"/>
    344         <TopLine Value="44"/>
     369        <EditorIndex Value="5"/>
     370        <WindowIndex Value="0"/>
     371        <TopLine Value="35"/>
    345372        <CursorPos X="19" Y="58"/>
    346373        <UsageCount Value="200"/>
     374        <Loaded Value="True"/>
    347375        <DefaultSyntaxHighlighter Value="Delphi"/>
    348376      </Unit31>
    … …  
    350378        <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    351379        <UnitName Value="UProducerDynamicC"/>
    352         <EditorIndex Value="1"/>
     380        <EditorIndex Value="17"/>
    353381        <WindowIndex Value="0"/>
    354382        <TopLine Value="270"/>
    … …  
    363391        <TopLine Value="144"/>
    364392        <CursorPos X="56" Y="157"/>
    365         <UsageCount Value="20"/>
     393        <UsageCount Value="15"/>
    366394      </Unit33>
    367395      <Unit34>
    368396        <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
    369397        <UnitName Value="UProducerPascal"/>
    370         <EditorIndex Value="2"/>
     398        <EditorIndex Value="18"/>
    371399        <WindowIndex Value="0"/>
    372400        <TopLine Value="301"/>
    373401        <CursorPos X="50" Y="314"/>
    374         <UsageCount Value="18"/>
     402        <UsageCount Value="46"/>
    375403        <Loaded Value="True"/>
    376404      </Unit34>
    … …  
    380408        <EditorIndex Value="0"/>
    381409        <WindowIndex Value="0"/>
    382         <TopLine Value="25"/>
    383         <CursorPos X="66" Y="47"/>
    384         <UsageCount Value="85"/>
     410        <TopLine Value="1"/>
     411        <CursorPos X="48" Y="41"/>
     412        <UsageCount Value="111"/>
    385413        <Loaded Value="True"/>
    386414      </Unit35>
    … …  
    391419        <TopLine Value="15"/>
    392420        <CursorPos X="1" Y="28"/>
    393         <UsageCount Value="50"/>
     421        <UsageCount Value="45"/>
    394422      </Unit36>
    395423      <Unit37>
    … …  
    399427        <TopLine Value="828"/>
    400428        <CursorPos X="27" Y="841"/>
    401         <UsageCount Value="26"/>
     429        <UsageCount Value="21"/>
     430        <DefaultSyntaxHighlighter Value="Delphi"/>
    402431      </Unit37>
    403432      <Unit38>
    … …  
    407436        <TopLine Value="56"/>
    408437        <CursorPos X="3" Y="69"/>
    409         <UsageCount Value="0"/>
     438        <UsageCount Value="5"/>
     439        <DefaultSyntaxHighlighter Value="Delphi"/>
    410440      </Unit38>
    411441      <Unit39>
    … …  
    415445        <TopLine Value="113"/>
    416446        <CursorPos X="3" Y="120"/>
    417         <UsageCount Value="0"/>
     447        <UsageCount Value="5"/>
     448        <DefaultSyntaxHighlighter Value="Delphi"/>
    418449      </Unit39>
    419450      <Unit40>
    … …  
    422453        <TopLine Value="1"/>
    423454        <CursorPos X="24" Y="11"/>
    424         <UsageCount Value="0"/>
     455        <UsageCount Value="5"/>
     456        <DefaultSyntaxHighlighter Value="Delphi"/>
    425457      </Unit40>
    426458      <Unit41>
    … …  
    429461        <TopLine Value="1"/>
    430462        <CursorPos X="17" Y="5"/>
    431         <UsageCount Value="15"/>
     463        <UsageCount Value="10"/>
    432464        <DefaultSyntaxHighlighter Value="None"/>
    433465      </Unit41>
    … …  
    438470        <TopLine Value="1"/>
    439471        <CursorPos X="8" Y="8"/>
    440         <UsageCount Value="15"/>
     472        <UsageCount Value="10"/>
    441473      </Unit42>
    442474      <Unit43>
    … …  
    444476        <IsPartOfProject Value="True"/>
    445477        <UnitName Value="UDebugLog"/>
    446         <WindowIndex Value="0"/>
    447         <TopLine Value="36"/>
    448         <CursorPos X="30" Y="50"/>
    449         <UsageCount Value="76"/>
     478        <EditorIndex Value="13"/>
     479        <WindowIndex Value="0"/>
     480        <TopLine Value="1"/>
     481        <CursorPos X="28" Y="22"/>
     482        <UsageCount Value="133"/>
     483        <Loaded Value="True"/>
    450484        <DefaultSyntaxHighlighter Value="Delphi"/>
    451485      </Unit43>
    … …  
    455489        <TopLine Value="365"/>
    456490        <CursorPos X="5" Y="370"/>
    457         <UsageCount Value="30"/>
     491        <UsageCount Value="25"/>
     492        <DefaultSyntaxHighlighter Value="Delphi"/>
    458493      </Unit44>
    459494      <Unit45>
    … …  
    463498        <TopLine Value="3"/>
    464499        <CursorPos X="6" Y="16"/>
    465         <UsageCount Value="9"/>
     500        <UsageCount Value="4"/>
     501        <DefaultSyntaxHighlighter Value="Delphi"/>
    466502      </Unit45>
    467503      <Unit46>
    468504        <Filename Value="Compiler\Produce\UProducerGCCC.pas"/>
    469505        <UnitName Value="UProducerGCCC"/>
    470         <EditorIndex Value="5"/>
     506        <EditorIndex Value="21"/>
    471507        <WindowIndex Value="0"/>
    472508        <TopLine Value="270"/>
    473509        <CursorPos X="30" Y="278"/>
    474         <UsageCount Value="16"/>
     510        <UsageCount Value="44"/>
    475511        <Loaded Value="True"/>
    476512      </Unit46>
    … …  
    481517        <TopLine Value="66"/>
    482518        <CursorPos X="14" Y="91"/>
     519        <UsageCount Value="5"/>
     520        <DefaultSyntaxHighlighter Value="Delphi"/>
     521      </Unit47>
     522      <Unit48>
     523        <Filename Value="Forms\UMainForm.lfm"/>
     524        <WindowIndex Value="0"/>
     525        <TopLine Value="1"/>
     526        <CursorPos X="1" Y="1"/>
     527        <UsageCount Value="38"/>
     528        <Loaded Value="True"/>
     529        <DefaultSyntaxHighlighter Value="LFM"/>
     530      </Unit48>
     531      <Unit49>
     532        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\packages\fcl-registry\src\registry.pp"/>
     533        <UnitName Value="registry"/>
     534        <EditorIndex Value="15"/>
     535        <WindowIndex Value="0"/>
     536        <TopLine Value="1"/>
     537        <CursorPos X="36" Y="55"/>
     538        <UsageCount Value="38"/>
     539        <Loaded Value="True"/>
     540        <DefaultSyntaxHighlighter Value="Delphi"/>
     541      </Unit49>
     542      <Unit50>
     543        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\packages\fcl-registry\src\regdef.inc"/>
     544        <EditorIndex Value="16"/>
     545        <WindowIndex Value="0"/>
     546        <TopLine Value="1"/>
     547        <CursorPos X="3" Y="21"/>
     548        <UsageCount Value="38"/>
     549        <Loaded Value="True"/>
     550        <DefaultSyntaxHighlighter Value="Delphi"/>
     551      </Unit50>
     552      <Unit51>
     553        <Filename Value="..\..\..\..\lazarus\trunk\lcl\interfaces\gtk2\gtk2widgetset.inc"/>
     554        <EditorIndex Value="10"/>
     555        <WindowIndex Value="0"/>
     556        <TopLine Value="1377"/>
     557        <CursorPos X="32" Y="1396"/>
     558        <UsageCount Value="38"/>
     559        <Loaded Value="True"/>
     560      </Unit51>
     561      <Unit52>
     562        <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\List\GenericListInterface.tpl"/>
     563        <WindowIndex Value="0"/>
     564        <TopLine Value="22"/>
     565        <CursorPos X="7" Y="47"/>
    483566        <UsageCount Value="10"/>
    484       </Unit47>
     567        <DefaultSyntaxHighlighter Value="None"/>
     568      </Unit52>
     569      <Unit53>
     570        <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\List\GenericListImplementation.tpl"/>
     571        <WindowIndex Value="0"/>
     572        <TopLine Value="171"/>
     573        <CursorPos X="7" Y="200"/>
     574        <UsageCount Value="10"/>
     575        <DefaultSyntaxHighlighter Value="None"/>
     576      </Unit53>
     577      <Unit54>
     578        <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Specialized\ListObject.pas"/>
     579        <UnitName Value="ListObject"/>
     580        <EditorIndex Value="2"/>
     581        <WindowIndex Value="0"/>
     582        <TopLine Value="39"/>
     583        <CursorPos X="7" Y="66"/>
     584        <UsageCount Value="11"/>
     585        <Loaded Value="True"/>
     586      </Unit54>
     587      <Unit55>
     588        <Filename Value="..\..\..\..\lazarus\trunk\lcl\include\listitem.inc"/>
     589        <EditorIndex Value="11"/>
     590        <WindowIndex Value="0"/>
     591        <TopLine Value="525"/>
     592        <CursorPos X="24" Y="548"/>
     593        <UsageCount Value="10"/>
     594        <Loaded Value="True"/>
     595      </Unit55>
     596      <Unit56>
     597        <Filename Value="..\..\..\PascalClassLibrary\Docking\CoolDocking\UCoolDocking.pas"/>
     598        <UnitName Value="UCoolDocking"/>
     599        <EditorIndex Value="9"/>
     600        <WindowIndex Value="0"/>
     601        <TopLine Value="814"/>
     602        <CursorPos X="19" Y="828"/>
     603        <UsageCount Value="10"/>
     604        <Loaded Value="True"/>
     605      </Unit56>
    485606    </Units>
    486607    <JumpHistory Count="30" HistoryIndex="29">
    487608      <Position1>
    488         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    489         <Caret Line="14" Column="13" TopLine="1"/>
     609        <Filename Value="Forms\UMainForm.pas"/>
     610        <Caret Line="129" Column="1" TopLine="109"/>
    490611      </Position1>
    491612      <Position2>
    492         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    493         <Caret Line="13" Column="17" TopLine="1"/>
     613        <Filename Value="Forms\UMainForm.pas"/>
     614        <Caret Line="130" Column="1" TopLine="109"/>
    494615      </Position2>
    495616      <Position3>
    496         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    497         <Caret Line="14" Column="1" TopLine="1"/>
     617        <Filename Value="Forms\UMainForm.pas"/>
     618        <Caret Line="131" Column="1" TopLine="109"/>
    498619      </Position3>
    499620      <Position4>
    500         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    501         <Caret Line="13" Column="22" TopLine="1"/>
     621        <Filename Value="Forms\UMainForm.pas"/>
     622        <Caret Line="132" Column="1" TopLine="109"/>
    502623      </Position4>
    503624      <Position5>
    504         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    505         <Caret Line="575" Column="24" TopLine="559"/>
     625        <Filename Value="Forms\UMainForm.pas"/>
     626        <Caret Line="134" Column="1" TopLine="109"/>
    506627      </Position5>
    507628      <Position6>
    508         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    509         <Caret Line="668" Column="6" TopLine="648"/>
     629        <Filename Value="Forms\UMainForm.pas"/>
     630        <Caret Line="135" Column="1" TopLine="109"/>
    510631      </Position6>
    511632      <Position7>
    512         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    513         <Caret Line="446" Column="24" TopLine="439"/>
     633        <Filename Value="Forms\UMainForm.pas"/>
     634        <Caret Line="136" Column="1" TopLine="109"/>
    514635      </Position7>
    515636      <Position8>
    516         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    517         <Caret Line="487" Column="28" TopLine="480"/>
     637        <Filename Value="Forms\UMainForm.pas"/>
     638        <Caret Line="138" Column="1" TopLine="120"/>
    518639      </Position8>
    519640      <Position9>
    520         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    521         <Caret Line="575" Column="27" TopLine="560"/>
     641        <Filename Value="Forms\UMainForm.pas"/>
     642        <Caret Line="139" Column="1" TopLine="120"/>
    522643      </Position9>
    523644      <Position10>
    524         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    525         <Caret Line="624" Column="29" TopLine="615"/>
     645        <Filename Value="Forms\UMainForm.pas"/>
     646        <Caret Line="140" Column="1" TopLine="120"/>
    526647      </Position10>
    527648      <Position11>
    528         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    529         <Caret Line="612" Column="70" TopLine="599"/>
     649        <Filename Value="Forms\UMainForm.pas"/>
     650        <Caret Line="141" Column="1" TopLine="120"/>
    530651      </Position11>
    531652      <Position12>
    532         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    533         <Caret Line="649" Column="38" TopLine="635"/>
     653        <Filename Value="Forms\UMainForm.pas"/>
     654        <Caret Line="143" Column="1" TopLine="120"/>
    534655      </Position12>
    535656      <Position13>
    536         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    537         <Caret Line="627" Column="27" TopLine="623"/>
     657        <Filename Value="Forms\UMainForm.pas"/>
     658        <Caret Line="144" Column="1" TopLine="120"/>
    538659      </Position13>
    539660      <Position14>
    540         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    541         <Caret Line="612" Column="63" TopLine="611"/>
     661        <Filename Value="Forms\UMainForm.pas"/>
     662        <Caret Line="146" Column="1" TopLine="130"/>
    542663      </Position14>
    543664      <Position15>
    544         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    545         <Caret Line="36" Column="87" TopLine="24"/>
     665        <Filename Value="Forms\UMainForm.pas"/>
     666        <Caret Line="147" Column="1" TopLine="130"/>
    546667      </Position15>
    547668      <Position16>
    548         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    549         <Caret Line="575" Column="24" TopLine="562"/>
     669        <Filename Value="Forms\UMainForm.pas"/>
     670        <Caret Line="149" Column="1" TopLine="130"/>
    550671      </Position16>
    551672      <Position17>
    552         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    553         <Caret Line="613" Column="17" TopLine="609"/>
     673        <Filename Value="Forms\UMainForm.pas"/>
     674        <Caret Line="150" Column="1" TopLine="130"/>
    554675      </Position17>
    555676      <Position18>
    556         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    557         <Caret Line="652" Column="41" TopLine="638"/>
     677        <Filename Value="Forms\UMainForm.pas"/>
     678        <Caret Line="152" Column="1" TopLine="130"/>
    558679      </Position18>
    559680      <Position19>
    560         <Filename Value="Compiler\USourceCode.pas"/>
    561         <Caret Line="273" Column="27" TopLine="260"/>
     681        <Filename Value="Forms\UMainForm.pas"/>
     682        <Caret Line="154" Column="1" TopLine="140"/>
    562683      </Position19>
    563684      <Position20>
    564         <Filename Value="Compiler\USourceCode.pas"/>
    565         <Caret Line="242" Column="37" TopLine="227"/>
     685        <Filename Value="Forms\UMainForm.pas"/>
     686        <Caret Line="155" Column="1" TopLine="140"/>
    566687      </Position20>
    567688      <Position21>
    568         <Filename Value="Compiler\USourceCode.pas"/>
    569         <Caret Line="237" Column="26" TopLine="224"/>
     689        <Filename Value="Forms\UMainForm.pas"/>
     690        <Caret Line="156" Column="1" TopLine="140"/>
    570691      </Position21>
    571692      <Position22>
    572         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    573         <Caret Line="652" Column="41" TopLine="638"/>
     693        <Filename Value="Forms\UMainForm.pas"/>
     694        <Caret Line="153" Column="3" TopLine="125"/>
    574695      </Position22>
    575696      <Position23>
    576         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    577         <Caret Line="656" Column="71" TopLine="641"/>
     697        <Filename Value="Forms\UMainForm.pas"/>
     698        <Caret Line="252" Column="1" TopLine="235"/>
    578699      </Position23>
    579700      <Position24>
    580         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    581         <Caret Line="619" Column="1" TopLine="600"/>
     701        <Filename Value="Forms\UMainForm.pas"/>
     702        <Caret Line="143" Column="1" TopLine="123"/>
    582703      </Position24>
    583704      <Position25>
    584         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    585         <Caret Line="471" Column="27" TopLine="463"/>
     705        <Filename Value="Forms\UMainForm.pas"/>
     706        <Caret Line="154" Column="3" TopLine="123"/>
    586707      </Position25>
    587708      <Position26>
    588         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    589         <Caret Line="579" Column="28" TopLine="574"/>
     709        <Filename Value="Forms\UMainForm.pas"/>
     710        <Caret Line="155" Column="5" TopLine="123"/>
    590711      </Position26>
    591712      <Position27>
    592         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    593         <Caret Line="47" Column="66" TopLine="25"/>
     713        <Filename Value="Forms\UMainForm.pas"/>
     714        <Caret Line="152" Column="54" TopLine="123"/>
    594715      </Position27>
    595716      <Position28>
    596         <Filename Value="Forms\UMainForm.pas"/>
    597         <Caret Line="267" Column="29" TopLine="255"/>
     717        <Filename Value="..\..\..\PascalClassLibrary\Docking\CoolDocking\UCoolDocking.pas"/>
     718        <Caret Line="155" Column="67" TopLine="138"/>
    598719      </Position28>
    599720      <Position29>
    600         <Filename Value="Forms\UMainForm.pas"/>
    601         <Caret Line="268" Column="29" TopLine="256"/>
     721        <Filename Value="..\..\..\PascalClassLibrary\Docking\CoolDocking\UCoolDocking.pas"/>
     722        <Caret Line="731" Column="17" TopLine="714"/>
    602723      </Position29>
    603724      <Position30>
    604         <Filename Value="Forms\UMainForm.pas"/>
    605         <Caret Line="269" Column="29" TopLine="257"/>
     725        <Filename Value="..\..\..\PascalClassLibrary\Docking\CoolDocking\UCoolDocking.pas"/>
     726        <Caret Line="828" Column="19" TopLine="814"/>
    606727      </Position30>
    607728    </JumpHistory>

  • branches/Transpascal/Transpascal.lpr

    r76 r82  
    77  cthreads,
    88  {$ENDIF}{$ENDIF}
    9   Forms, CoolDocking, Interfaces, SysUtils,
     9  Forms, CoolDocking, TemplateGenerics, Interfaces, SysUtils,
    1010  UMainForm in 'UMainForm.pas' {MainForm},
    1111  UTextSource in 'UTextSource.pas', UProject, UApplicationInfo, URegistry,

  • branches/Transpascal/UProject.pas

    r69 r82  
    66
    77uses
    8   Classes, SysUtils, Contnrs, Dialogs, DOM, XMLWrite, XMLRead, FileUtil;
     8  Classes, SysUtils, ListObject, Dialogs, DOM, XMLWrite, XMLRead, FileUtil;
    99
    1010type
    … …  
    3737
    3838  TProjectGroup = class(TProjectNode)
    39     Items: TObjectList;
     39    Items: TListObject;
    4040    constructor Create;
    4141    destructor Destroy; override;
    … …  
    6666begin
    6767  inherited;
    68   Items := TObjectList.Create;
     68  Items := TListObject.Create;
    6969end;
    7070
Note: See TracChangeset for help on using the changeset viewer.