Changeset 327


Ignore:
Timestamp:
Feb 9, 2012, 8:46:05 AM (13 years ago)
Author:
chronos
Message:
  • Modified: TGTree structure.
Location:
Generics/NativeGenerics
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • Generics/NativeGenerics/Demo/Demo.lpi

    r326 r327  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="71">
     40    <Units Count="60">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    4343        <IsPartOfProject Value="True"/>
    4444        <UnitName Value="Demo"/>
    45         <EditorIndex Value="19"/>
    4645        <WindowIndex Value="0"/>
    4746        <TopLine Value="1"/>
    4847        <CursorPos X="26" Y="8"/>
    4948        <UsageCount Value="233"/>
    50         <Loaded Value="True"/>
    5149        <DefaultSyntaxHighlighter Value="Delphi"/>
    5250      </Unit0>
    … …  
    6058        <EditorIndex Value="0"/>
    6159        <WindowIndex Value="0"/>
    62         <TopLine Value="753"/>
    63         <CursorPos X="3" Y="765"/>
     60        <TopLine Value="760"/>
     61        <CursorPos X="5" Y="766"/>
    6462        <UsageCount Value="233"/>
    6563        <Bookmarks Count="1">
    … …  
    7674        <TopLine Value="47"/>
    7775        <CursorPos X="20" Y="60"/>
    78         <UsageCount Value="4"/>
     76        <UsageCount Value="1"/>
    7977        <DefaultSyntaxHighlighter Value="Delphi"/>
    8078      </Unit2>
    … …  
    8482        <TopLine Value="1"/>
    8583        <CursorPos X="25" Y="13"/>
    86         <UsageCount Value="9"/>
     84        <UsageCount Value="6"/>
    8785        <DefaultSyntaxHighlighter Value="None"/>
    8886      </Unit3>
    8987      <Unit4>
    90         <Filename Value="../Generic/SetInterface.tpl"/>
    91         <WindowIndex Value="0"/>
    92         <TopLine Value="1"/>
    93         <CursorPos X="21" Y="4"/>
    94         <UsageCount Value="0"/>
    95         <DefaultSyntaxHighlighter Value="None"/>
     88        <Filename Value="../Generic/GenericList.inc"/>
     89        <WindowIndex Value="0"/>
     90        <TopLine Value="359"/>
     91        <CursorPos X="62" Y="376"/>
     92        <UsageCount Value="98"/>
     93        <DefaultSyntaxHighlighter Value="Delphi"/>
    9694      </Unit4>
    9795      <Unit5>
    98         <Filename Value="../Specialized/SetChar.pas"/>
    99         <UnitName Value="SetChar"/>
    100         <WindowIndex Value="0"/>
    101         <TopLine Value="1"/>
    102         <CursorPos X="1" Y="25"/>
    103         <UsageCount Value="0"/>
     96        <Filename Value="../Generic/GenericDictionary.inc"/>
     97        <WindowIndex Value="0"/>
     98        <TopLine Value="31"/>
     99        <CursorPos X="44" Y="47"/>
     100        <UsageCount Value="85"/>
    104101        <DefaultSyntaxHighlighter Value="Delphi"/>
    105102      </Unit5>
    106103      <Unit6>
    107         <Filename Value="../Generic/SetImplementation.tpl"/>
    108         <WindowIndex Value="0"/>
    109         <TopLine Value="1"/>
    110         <CursorPos X="1" Y="3"/>
    111         <UsageCount Value="0"/>
    112         <DefaultSyntaxHighlighter Value="None"/>
     104        <Filename Value="../Generic/GenericObjectList.inc"/>
     105        <WindowIndex Value="0"/>
     106        <TopLine Value="1"/>
     107        <CursorPos X="36" Y="48"/>
     108        <UsageCount Value="85"/>
     109        <DefaultSyntaxHighlighter Value="Delphi"/>
    113110      </Unit6>
    114111      <Unit7>
    115         <Filename Value="../Generic/RangeInterface.tpl"/>
    116         <WindowIndex Value="0"/>
    117         <TopLine Value="1"/>
    118         <CursorPos X="7" Y="4"/>
    119         <UsageCount Value="0"/>
    120         <DefaultSyntaxHighlighter Value="None"/>
     112        <Filename Value="../Generic/GenericQueue.inc"/>
     113        <WindowIndex Value="0"/>
     114        <TopLine Value="3"/>
     115        <CursorPos X="1" Y="3"/>
     116        <UsageCount Value="85"/>
     117        <DefaultSyntaxHighlighter Value="Delphi"/>
    121118      </Unit7>
    122119      <Unit8>
    123         <Filename Value="../Specialized/RangeDateTime.pas"/>
    124         <UnitName Value="RangeDateTime"/>
    125         <WindowIndex Value="0"/>
    126         <TopLine Value="1"/>
    127         <CursorPos X="14" Y="15"/>
    128         <UsageCount Value="0"/>
     120        <Filename Value="../Generic/GenericSet.inc"/>
     121        <WindowIndex Value="0"/>
     122        <TopLine Value="11"/>
     123        <CursorPos X="42" Y="11"/>
     124        <UsageCount Value="85"/>
    129125        <DefaultSyntaxHighlighter Value="Delphi"/>
    130126      </Unit8>
    131127      <Unit9>
    132         <Filename Value="../Generic/RangeImplementation.tpl"/>
    133         <WindowIndex Value="0"/>
    134         <TopLine Value="1"/>
    135         <CursorPos X="14" Y="18"/>
    136         <UsageCount Value="0"/>
    137         <DefaultSyntaxHighlighter Value="None"/>
     128        <Filename Value="../Generic/GenericStack.inc"/>
     129        <WindowIndex Value="0"/>
     130        <TopLine Value="3"/>
     131        <CursorPos X="1" Y="3"/>
     132        <UsageCount Value="85"/>
     133        <DefaultSyntaxHighlighter Value="Delphi"/>
    138134      </Unit9>
    139135      <Unit10>
    140         <Filename Value="../Specialized/ListVariant.pas"/>
    141         <UnitName Value="ListVariant"/>
    142         <WindowIndex Value="0"/>
    143         <TopLine Value="2"/>
    144         <CursorPos X="30" Y="8"/>
    145         <UsageCount Value="0"/>
     136        <Filename Value="../Generic/GenericTree.inc"/>
     137        <WindowIndex Value="0"/>
     138        <TopLine Value="1"/>
     139        <CursorPos X="22" Y="30"/>
     140        <UsageCount Value="85"/>
    146141        <DefaultSyntaxHighlighter Value="Delphi"/>
    147142      </Unit10>
    148143      <Unit11>
    149         <Filename Value="ListObject.pas"/>
    150         <UnitName Value="ListObject"/>
    151         <WindowIndex Value="0"/>
    152         <TopLine Value="13"/>
    153         <CursorPos X="15" Y="12"/>
    154         <UsageCount Value="2"/>
     144        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
     145        <UnitName Value="SpecializedDictionary"/>
     146        <WindowIndex Value="0"/>
     147        <TopLine Value="6"/>
     148        <CursorPos X="56" Y="36"/>
     149        <UsageCount Value="84"/>
    155150        <DefaultSyntaxHighlighter Value="Delphi"/>
    156151      </Unit11>
    157152      <Unit12>
    158         <Filename Value="../Generic/GenericList.inc"/>
    159         <WindowIndex Value="0"/>
    160         <TopLine Value="359"/>
    161         <CursorPos X="62" Y="376"/>
    162         <UsageCount Value="101"/>
     153        <Filename Value="../Specialized/SpecializedStack.pas"/>
     154        <UnitName Value="SpecializedStack"/>
     155        <WindowIndex Value="0"/>
     156        <TopLine Value="27"/>
     157        <CursorPos X="50" Y="59"/>
     158        <UsageCount Value="83"/>
    163159        <DefaultSyntaxHighlighter Value="Delphi"/>
    164160      </Unit12>
    165161      <Unit13>
    166         <Filename Value="../Generic/GenericDictionary.inc"/>
    167         <WindowIndex Value="0"/>
    168         <TopLine Value="31"/>
    169         <CursorPos X="44" Y="47"/>
    170         <UsageCount Value="88"/>
     162        <Filename Value="../Specialized/SpecializedTree.pas"/>
     163        <UnitName Value="SpecializedTree"/>
     164        <WindowIndex Value="0"/>
     165        <TopLine Value="57"/>
     166        <CursorPos X="48" Y="85"/>
     167        <UsageCount Value="83"/>
    171168        <DefaultSyntaxHighlighter Value="Delphi"/>
    172169      </Unit13>
    173170      <Unit14>
    174         <Filename Value="../Generic/GenericObjectList.inc"/>
    175         <WindowIndex Value="0"/>
    176         <TopLine Value="1"/>
    177         <CursorPos X="36" Y="48"/>
    178         <UsageCount Value="88"/>
     171        <Filename Value="../Generic/GenericRange.inc"/>
     172        <WindowIndex Value="0"/>
     173        <TopLine Value="1"/>
     174        <CursorPos X="33" Y="14"/>
     175        <UsageCount Value="83"/>
    179176        <DefaultSyntaxHighlighter Value="Delphi"/>
    180177      </Unit14>
    181178      <Unit15>
    182         <Filename Value="../Generic/GenericQueue.inc"/>
    183         <WindowIndex Value="0"/>
    184         <TopLine Value="3"/>
    185         <CursorPos X="1" Y="3"/>
    186         <UsageCount Value="88"/>
     179        <Filename Value="../Specialized/SpecializedQueue.pas"/>
     180        <UnitName Value="SpecializedQueue"/>
     181        <WindowIndex Value="0"/>
     182        <TopLine Value="52"/>
     183        <CursorPos X="1" Y="81"/>
     184        <UsageCount Value="83"/>
    187185        <DefaultSyntaxHighlighter Value="Delphi"/>
    188186      </Unit15>
    189187      <Unit16>
    190         <Filename Value="../Generic/GenericSet.inc"/>
    191         <WindowIndex Value="0"/>
    192         <TopLine Value="11"/>
    193         <CursorPos X="42" Y="11"/>
    194         <UsageCount Value="88"/>
     188        <Filename Value="../Specialized/SpecializedSet.pas"/>
     189        <UnitName Value="SpecializedSet"/>
     190        <WindowIndex Value="0"/>
     191        <TopLine Value="29"/>
     192        <CursorPos X="1" Y="62"/>
     193        <UsageCount Value="83"/>
    195194        <DefaultSyntaxHighlighter Value="Delphi"/>
    196195      </Unit16>
    197196      <Unit17>
    198         <Filename Value="../Generic/GenericStack.inc"/>
    199         <WindowIndex Value="0"/>
    200         <TopLine Value="3"/>
    201         <CursorPos X="1" Y="3"/>
    202         <UsageCount Value="88"/>
     197        <Filename Value="../Specialized/SpecializedObjectList.pas"/>
     198        <UnitName Value="SpecializedObjectList"/>
     199        <WindowIndex Value="0"/>
     200        <TopLine Value="9"/>
     201        <CursorPos X="60" Y="36"/>
     202        <UsageCount Value="82"/>
    203203        <DefaultSyntaxHighlighter Value="Delphi"/>
    204204      </Unit17>
    205205      <Unit18>
    206         <Filename Value="../Generic/GenericTree.inc"/>
    207         <WindowIndex Value="0"/>
    208         <TopLine Value="1"/>
    209         <CursorPos X="22" Y="30"/>
    210         <UsageCount Value="88"/>
     206        <Filename Value="../Generic/GenericMatrix.inc"/>
     207        <WindowIndex Value="0"/>
     208        <TopLine Value="9"/>
     209        <CursorPos X="28" Y="23"/>
     210        <UsageCount Value="94"/>
    211211        <DefaultSyntaxHighlighter Value="Delphi"/>
    212212      </Unit18>
    213213      <Unit19>
    214         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    215         <UnitName Value="SpecializedDictionary"/>
    216         <WindowIndex Value="0"/>
    217         <TopLine Value="6"/>
    218         <CursorPos X="56" Y="36"/>
    219         <UsageCount Value="87"/>
     214        <Filename Value="../../../../lazarus/trunk/lcl/graphics.pp"/>
     215        <UnitName Value="Graphics"/>
     216        <WindowIndex Value="0"/>
     217        <TopLine Value="2624"/>
     218        <CursorPos X="37" Y="2636"/>
     219        <UsageCount Value="81"/>
    220220        <DefaultSyntaxHighlighter Value="Delphi"/>
    221221      </Unit19>
    222222      <Unit20>
    223         <Filename Value="../Specialized/SpecializedStack.pas"/>
    224         <UnitName Value="SpecializedStack"/>
    225         <WindowIndex Value="0"/>
    226         <TopLine Value="27"/>
    227         <CursorPos X="50" Y="59"/>
    228         <UsageCount Value="86"/>
     223        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
     224        <WindowIndex Value="0"/>
     225        <TopLine Value="199"/>
     226        <CursorPos X="14" Y="213"/>
     227        <UsageCount Value="19"/>
    229228        <DefaultSyntaxHighlighter Value="Delphi"/>
    230229      </Unit20>
    231230      <Unit21>
    232         <Filename Value="../Specialized/SpecializedTree.pas"/>
    233         <UnitName Value="SpecializedTree"/>
    234         <WindowIndex Value="0"/>
    235         <TopLine Value="57"/>
    236         <CursorPos X="48" Y="85"/>
    237         <UsageCount Value="86"/>
     231        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/lists.inc"/>
     232        <WindowIndex Value="0"/>
     233        <TopLine Value="199"/>
     234        <CursorPos X="3" Y="201"/>
     235        <UsageCount Value="19"/>
    238236        <DefaultSyntaxHighlighter Value="Delphi"/>
    239237      </Unit21>
    240238      <Unit22>
    241         <Filename Value="../Generic/GenericRange.inc"/>
    242         <WindowIndex Value="0"/>
    243         <TopLine Value="1"/>
    244         <CursorPos X="33" Y="14"/>
    245         <UsageCount Value="86"/>
     239        <Filename Value="../Generic/GenericListObject.inc"/>
     240        <WindowIndex Value="0"/>
     241        <TopLine Value="1"/>
     242        <CursorPos X="21" Y="20"/>
     243        <UsageCount Value="10"/>
    246244        <DefaultSyntaxHighlighter Value="Delphi"/>
    247245      </Unit22>
    248246      <Unit23>
    249         <Filename Value="../Specialized/SpecializedQueue.pas"/>
    250         <UnitName Value="SpecializedQueue"/>
    251         <WindowIndex Value="0"/>
    252         <TopLine Value="52"/>
    253         <CursorPos X="1" Y="81"/>
    254         <UsageCount Value="86"/>
     247        <Filename Value="/usr/share/fpcsrc/rtl/objpas/objpas.pp"/>
     248        <UnitName Value="objpas"/>
     249        <WindowIndex Value="0"/>
     250        <TopLine Value="1"/>
     251        <CursorPos X="27" Y="26"/>
     252        <UsageCount Value="19"/>
    255253        <DefaultSyntaxHighlighter Value="Delphi"/>
    256254      </Unit23>
    257255      <Unit24>
    258         <Filename Value="../Specialized/SpecializedSet.pas"/>
    259         <UnitName Value="SpecializedSet"/>
    260         <WindowIndex Value="0"/>
    261         <TopLine Value="29"/>
    262         <CursorPos X="1" Y="62"/>
    263         <UsageCount Value="86"/>
     256        <Filename Value="/usr/share/fpcsrc/rtl/inc/systemh.inc"/>
     257        <WindowIndex Value="0"/>
     258        <TopLine Value="381"/>
     259        <CursorPos X="3" Y="398"/>
     260        <UsageCount Value="19"/>
    264261        <DefaultSyntaxHighlighter Value="Delphi"/>
    265262      </Unit24>
    266263      <Unit25>
    267         <Filename Value="../Specialized/SpecializedObjectList.pas"/>
    268         <UnitName Value="SpecializedObjectList"/>
    269         <WindowIndex Value="0"/>
    270         <TopLine Value="9"/>
    271         <CursorPos X="60" Y="36"/>
    272         <UsageCount Value="85"/>
     264        <Filename Value="../../../../lazarus/trunk/lcl/include/control.inc"/>
     265        <WindowIndex Value="0"/>
     266        <TopLine Value="2270"/>
     267        <CursorPos X="22" Y="2273"/>
     268        <UsageCount Value="10"/>
    273269        <DefaultSyntaxHighlighter Value="Delphi"/>
    274270      </Unit25>
    275271      <Unit26>
    276         <Filename Value="../Generic/GenericMatrix.inc"/>
    277         <WindowIndex Value="0"/>
    278         <TopLine Value="9"/>
    279         <CursorPos X="28" Y="23"/>
    280         <UsageCount Value="97"/>
     272        <Filename Value="../Specialized/SpecializedMatrix.pas"/>
     273        <UnitName Value="SpecializedMatrix"/>
     274        <WindowIndex Value="0"/>
     275        <TopLine Value="1"/>
     276        <CursorPos X="25" Y="41"/>
     277        <UsageCount Value="10"/>
    281278        <DefaultSyntaxHighlighter Value="Delphi"/>
    282279      </Unit26>
    283280      <Unit27>
    284         <Filename Value="../../../../lazarus/trunk/lcl/graphics.pp"/>
    285         <UnitName Value="Graphics"/>
    286         <WindowIndex Value="0"/>
    287         <TopLine Value="2624"/>
    288         <CursorPos X="37" Y="2636"/>
    289         <UsageCount Value="84"/>
     281        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/dateutil.inc"/>
     282        <WindowIndex Value="0"/>
     283        <TopLine Value="38"/>
     284        <CursorPos X="3" Y="50"/>
     285        <UsageCount Value="2"/>
    290286        <DefaultSyntaxHighlighter Value="Delphi"/>
    291287      </Unit27>
    292288      <Unit28>
    293         <Filename Value="../../../../lazarus/trunk/lcl/interfaces/carbon/issues.xml"/>
    294         <WindowIndex Value="0"/>
    295         <TopLine Value="94"/>
    296         <CursorPos X="1" Y="1"/>
    297         <UsageCount Value="0"/>
    298         <DefaultSyntaxHighlighter Value="XML"/>
     289        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
     290        <WindowIndex Value="0"/>
     291        <TopLine Value="649"/>
     292        <CursorPos X="38" Y="671"/>
     293        <UsageCount Value="1"/>
     294        <DefaultSyntaxHighlighter Value="Delphi"/>
    299295      </Unit28>
    300296      <Unit29>
    301         <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
    302         <WindowIndex Value="0"/>
    303         <TopLine Value="199"/>
    304         <CursorPos X="14" Y="213"/>
    305         <UsageCount Value="22"/>
     297        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/stringl.inc"/>
     298        <WindowIndex Value="0"/>
     299        <TopLine Value="1185"/>
     300        <CursorPos X="22" Y="1196"/>
     301        <UsageCount Value="1"/>
    306302        <DefaultSyntaxHighlighter Value="Delphi"/>
    307303      </Unit29>
    308304      <Unit30>
    309         <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/lists.inc"/>
    310         <WindowIndex Value="0"/>
    311         <TopLine Value="199"/>
    312         <CursorPos X="3" Y="201"/>
    313         <UsageCount Value="22"/>
     305        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/types.pp"/>
     306        <UnitName Value="types"/>
     307        <WindowIndex Value="0"/>
     308        <TopLine Value="112"/>
     309        <CursorPos X="3" Y="124"/>
     310        <UsageCount Value="1"/>
    314311        <DefaultSyntaxHighlighter Value="Delphi"/>
    315312      </Unit30>
    316313      <Unit31>
    317         <Filename Value="../Generic/GenericListObject.inc"/>
    318         <WindowIndex Value="0"/>
    319         <TopLine Value="1"/>
    320         <CursorPos X="21" Y="20"/>
    321         <UsageCount Value="13"/>
     314        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstrh.inc"/>
     315        <WindowIndex Value="0"/>
     316        <TopLine Value="71"/>
     317        <CursorPos X="10" Y="84"/>
     318        <UsageCount Value="1"/>
    322319        <DefaultSyntaxHighlighter Value="Delphi"/>
    323320      </Unit31>
    324321      <Unit32>
    325         <Filename Value="/usr/share/fpcsrc/rtl/objpas/objpas.pp"/>
    326         <UnitName Value="objpas"/>
    327         <WindowIndex Value="0"/>
    328         <TopLine Value="1"/>
    329         <CursorPos X="27" Y="26"/>
    330         <UsageCount Value="22"/>
     322        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstr.inc"/>
     323        <WindowIndex Value="0"/>
     324        <TopLine Value="148"/>
     325        <CursorPos X="11" Y="169"/>
     326        <UsageCount Value="1"/>
    331327        <DefaultSyntaxHighlighter Value="Delphi"/>
    332328      </Unit32>
    333329      <Unit33>
    334         <Filename Value="/usr/share/fpcsrc/rtl/inc/systemh.inc"/>
    335         <WindowIndex Value="0"/>
    336         <TopLine Value="381"/>
    337         <CursorPos X="3" Y="398"/>
    338         <UsageCount Value="22"/>
     330        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/inc/systemh.inc"/>
     331        <WindowIndex Value="0"/>
     332        <TopLine Value="511"/>
     333        <CursorPos X="11" Y="524"/>
     334        <UsageCount Value="1"/>
    339335        <DefaultSyntaxHighlighter Value="Delphi"/>
    340336      </Unit33>
    341337      <Unit34>
    342         <Filename Value="/usr/share/fpcsrc/rtl/inc/varianth.inc"/>
    343         <WindowIndex Value="0"/>
    344         <TopLine Value="475"/>
    345         <CursorPos X="10" Y="503"/>
     338        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/i386/i386.inc"/>
     339        <WindowIndex Value="0"/>
     340        <TopLine Value="411"/>
     341        <CursorPos X="10" Y="424"/>
    346342        <UsageCount Value="1"/>
    347343        <DefaultSyntaxHighlighter Value="Delphi"/>
    348344      </Unit34>
    349345      <Unit35>
    350         <Filename Value="../../../../lazarus/trunk/lcl/include/control.inc"/>
    351         <WindowIndex Value="0"/>
    352         <TopLine Value="2270"/>
    353         <CursorPos X="22" Y="2273"/>
    354         <UsageCount Value="13"/>
    355         <DefaultSyntaxHighlighter Value="Delphi"/>
     346        <Filename Value="../Units/GenericList.pas"/>
     347        <UnitName Value="GenericList"/>
     348        <EditorIndex Value="1"/>
     349        <WindowIndex Value="0"/>
     350        <TopLine Value="31"/>
     351        <CursorPos X="58" Y="35"/>
     352        <UsageCount Value="60"/>
     353        <Loaded Value="True"/>
    356354      </Unit35>
    357355      <Unit36>
    358         <Filename Value="../Specialized/SpecializedMatrix.pas"/>
    359         <UnitName Value="SpecializedMatrix"/>
    360         <WindowIndex Value="0"/>
    361         <TopLine Value="1"/>
    362         <CursorPos X="25" Y="41"/>
    363         <UsageCount Value="13"/>
    364         <DefaultSyntaxHighlighter Value="Delphi"/>
     356        <Filename Value="../Units/GenericMatrix.pas"/>
     357        <UnitName Value="GenericMatrix"/>
     358        <EditorIndex Value="5"/>
     359        <WindowIndex Value="0"/>
     360        <TopLine Value="37"/>
     361        <CursorPos X="34" Y="48"/>
     362        <UsageCount Value="38"/>
     363        <Loaded Value="True"/>
    365364      </Unit36>
    366365      <Unit37>
    367         <Filename Value="../ReadMe.txt"/>
    368         <WindowIndex Value="0"/>
    369         <TopLine Value="1"/>
    370         <CursorPos X="28" Y="10"/>
    371         <UsageCount Value="3"/>
    372         <DefaultSyntaxHighlighter Value="None"/>
     366        <Filename Value="../Units/GenericStream.pas"/>
     367        <UnitName Value="GenericStream"/>
     368        <WindowIndex Value="0"/>
     369        <TopLine Value="34"/>
     370        <CursorPos X="18" Y="48"/>
     371        <UsageCount Value="37"/>
    373372      </Unit37>
    374373      <Unit38>
    375         <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/dateutil.inc"/>
    376         <WindowIndex Value="0"/>
    377         <TopLine Value="38"/>
    378         <CursorPos X="3" Y="50"/>
    379         <UsageCount Value="5"/>
    380         <DefaultSyntaxHighlighter Value="Delphi"/>
     374        <Filename Value="../Units/GenericQueue.pas"/>
     375        <UnitName Value="GenericQueue"/>
     376        <WindowIndex Value="0"/>
     377        <TopLine Value="18"/>
     378        <CursorPos X="24" Y="28"/>
     379        <UsageCount Value="9"/>
    381380      </Unit38>
    382381      <Unit39>
    383         <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    384         <WindowIndex Value="0"/>
    385         <TopLine Value="649"/>
    386         <CursorPos X="38" Y="671"/>
    387         <UsageCount Value="4"/>
    388         <DefaultSyntaxHighlighter Value="Delphi"/>
     382        <Filename Value="../Units/GenericDictionary.pas"/>
     383        <UnitName Value="GenericDictionary"/>
     384        <EditorIndex Value="4"/>
     385        <WindowIndex Value="0"/>
     386        <TopLine Value="1"/>
     387        <CursorPos X="1" Y="1"/>
     388        <UsageCount Value="39"/>
     389        <Loaded Value="True"/>
    389390      </Unit39>
    390391      <Unit40>
    391         <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/stringl.inc"/>
    392         <WindowIndex Value="0"/>
    393         <TopLine Value="1185"/>
    394         <CursorPos X="22" Y="1196"/>
    395         <UsageCount Value="4"/>
     392        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/objpas/sysutils/sysunih.inc"/>
     393        <WindowIndex Value="0"/>
     394        <TopLine Value="9"/>
     395        <CursorPos X="10" Y="22"/>
     396        <UsageCount Value="38"/>
    396397        <DefaultSyntaxHighlighter Value="Delphi"/>
    397398      </Unit40>
    398399      <Unit41>
    399         <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/types.pp"/>
    400         <UnitName Value="types"/>
    401         <WindowIndex Value="0"/>
    402         <TopLine Value="112"/>
    403         <CursorPos X="3" Y="124"/>
    404         <UsageCount Value="4"/>
    405         <DefaultSyntaxHighlighter Value="Delphi"/>
     400        <Filename Value="../Units/SpecializedList.pas"/>
     401        <UnitName Value="SpecializedList"/>
     402        <EditorIndex Value="6"/>
     403        <WindowIndex Value="0"/>
     404        <TopLine Value="45"/>
     405        <CursorPos X="1" Y="68"/>
     406        <UsageCount Value="39"/>
     407        <Loaded Value="True"/>
    406408      </Unit41>
    407409      <Unit42>
    408         <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstrh.inc"/>
    409         <WindowIndex Value="0"/>
    410         <TopLine Value="71"/>
    411         <CursorPos X="10" Y="84"/>
    412         <UsageCount Value="4"/>
    413         <DefaultSyntaxHighlighter Value="Delphi"/>
     410        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/rtl/objpas/classes/classesh.inc"/>
     411        <WindowIndex Value="0"/>
     412        <TopLine Value="257"/>
     413        <CursorPos X="3" Y="270"/>
     414        <UsageCount Value="35"/>
    414415      </Unit42>
    415416      <Unit43>
    416         <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstr.inc"/>
    417         <WindowIndex Value="0"/>
    418         <TopLine Value="148"/>
    419         <CursorPos X="11" Y="169"/>
    420         <UsageCount Value="4"/>
    421         <DefaultSyntaxHighlighter Value="Delphi"/>
     417        <Filename Value="../Units/GenericSet.pas"/>
     418        <UnitName Value="GenericSet"/>
     419        <WindowIndex Value="0"/>
     420        <TopLine Value="1"/>
     421        <CursorPos X="1" Y="1"/>
     422        <UsageCount Value="9"/>
    422423      </Unit43>
    423424      <Unit44>
    424         <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/inc/systemh.inc"/>
    425         <WindowIndex Value="0"/>
    426         <TopLine Value="511"/>
    427         <CursorPos X="11" Y="524"/>
    428         <UsageCount Value="4"/>
    429         <DefaultSyntaxHighlighter Value="Delphi"/>
     425        <Filename Value="../Units/GenericStack.pas"/>
     426        <UnitName Value="GenericStack"/>
     427        <WindowIndex Value="0"/>
     428        <TopLine Value="22"/>
     429        <CursorPos X="14" Y="38"/>
     430        <UsageCount Value="9"/>
    430431      </Unit44>
    431432      <Unit45>
    432         <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/i386/i386.inc"/>
    433         <WindowIndex Value="0"/>
    434         <TopLine Value="411"/>
    435         <CursorPos X="10" Y="424"/>
    436         <UsageCount Value="4"/>
    437         <DefaultSyntaxHighlighter Value="Delphi"/>
     433        <Filename Value="../Units/GenericRange.pas"/>
     434        <UnitName Value="GenericRange"/>
     435        <EditorIndex Value="2"/>
     436        <WindowIndex Value="0"/>
     437        <TopLine Value="4"/>
     438        <CursorPos X="6" Y="16"/>
     439        <UsageCount Value="39"/>
     440        <Loaded Value="True"/>
    438441      </Unit45>
    439442      <Unit46>
    440         <Filename Value="../Units/GenericList.pas"/>
    441         <UnitName Value="GenericList"/>
    442         <EditorIndex Value="13"/>
    443         <WindowIndex Value="0"/>
    444         <TopLine Value="666"/>
    445         <CursorPos X="24" Y="691"/>
    446         <UsageCount Value="41"/>
    447         <Loaded Value="True"/>
     443        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/rtl/inc/systemh.inc"/>
     444        <WindowIndex Value="0"/>
     445        <TopLine Value="958"/>
     446        <CursorPos X="11" Y="971"/>
     447        <UsageCount Value="9"/>
    448448      </Unit46>
    449449      <Unit47>
    450         <Filename Value="../Units/GenericMatrix.pas"/>
    451         <UnitName Value="GenericMatrix"/>
    452         <EditorIndex Value="18"/>
    453         <WindowIndex Value="0"/>
    454         <TopLine Value="37"/>
    455         <CursorPos X="34" Y="48"/>
    456         <UsageCount Value="19"/>
     450        <Filename Value="../Units/GenericTree.pas"/>
     451        <UnitName Value="GenericTree"/>
     452        <EditorIndex Value="3"/>
     453        <WindowIndex Value="0"/>
     454        <TopLine Value="50"/>
     455        <CursorPos X="49" Y="68"/>
     456        <UsageCount Value="39"/>
    457457        <Loaded Value="True"/>
    458458      </Unit47>
    459459      <Unit48>
    460         <Filename Value="../Units/GenericStream.pas"/>
    461         <UnitName Value="GenericStream"/>
    462         <EditorIndex Value="11"/>
    463         <WindowIndex Value="0"/>
    464         <TopLine Value="34"/>
    465         <CursorPos X="18" Y="48"/>
    466         <UsageCount Value="19"/>
     460        <Filename Value="../Units/GenericString.pas"/>
     461        <UnitName Value="GenericString"/>
     462        <EditorIndex Value="7"/>
     463        <WindowIndex Value="0"/>
     464        <TopLine Value="35"/>
     465        <CursorPos X="23" Y="40"/>
     466        <UsageCount Value="32"/>
    467467        <Loaded Value="True"/>
    468468      </Unit48>
    469469      <Unit49>
    470         <Filename Value="../Units/GenericQueue.pas"/>
    471         <UnitName Value="GenericQueue"/>
    472         <WindowIndex Value="0"/>
    473         <TopLine Value="18"/>
    474         <CursorPos X="24" Y="28"/>
    475         <UsageCount Value="12"/>
     470        <Filename Value="../Units/GenericBitmap.pas"/>
     471        <UnitName Value="GenericBitmap"/>
     472        <EditorIndex Value="8"/>
     473        <WindowIndex Value="0"/>
     474        <TopLine Value="22"/>
     475        <CursorPos X="18" Y="46"/>
     476        <UsageCount Value="31"/>
     477        <Loaded Value="True"/>
    476478      </Unit49>
    477479      <Unit50>
    478         <Filename Value="../Units/GenericDictionary.pas"/>
    479         <UnitName Value="GenericDictionary"/>
    480         <EditorIndex Value="17"/>
    481         <WindowIndex Value="0"/>
    482         <TopLine Value="1"/>
    483         <CursorPos X="1" Y="1"/>
    484         <UsageCount Value="20"/>
    485         <Loaded Value="True"/>
     480        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/graphics.pp"/>
     481        <UnitName Value="Graphics"/>
     482        <WindowIndex Value="0"/>
     483        <TopLine Value="1151"/>
     484        <CursorPos X="22" Y="1165"/>
     485        <UsageCount Value="29"/>
    486486      </Unit50>
    487487      <Unit51>
    488         <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/objpas/sysutils/sysunih.inc"/>
    489         <EditorIndex Value="16"/>
    490         <WindowIndex Value="0"/>
    491         <TopLine Value="9"/>
    492         <CursorPos X="10" Y="22"/>
    493         <UsageCount Value="20"/>
    494         <Loaded Value="True"/>
    495         <DefaultSyntaxHighlighter Value="Delphi"/>
     488        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/rasterimage.inc"/>
     489        <WindowIndex Value="0"/>
     490        <TopLine Value="310"/>
     491        <CursorPos X="22" Y="314"/>
     492        <UsageCount Value="29"/>
    496493      </Unit51>
    497494      <Unit52>
    498         <Filename Value="../Units/SpecializedList.pas"/>
    499         <UnitName Value="SpecializedList"/>
    500         <EditorIndex Value="20"/>
    501         <WindowIndex Value="0"/>
    502         <TopLine Value="45"/>
    503         <CursorPos X="1" Y="68"/>
    504         <UsageCount Value="20"/>
    505         <Loaded Value="True"/>
     495        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/bitmapcanvas.inc"/>
     496        <WindowIndex Value="0"/>
     497        <TopLine Value="53"/>
     498        <CursorPos X="3" Y="46"/>
     499        <UsageCount Value="29"/>
    506500      </Unit52>
    507501      <Unit53>
    508         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/rtl/objpas/classes/classesh.inc"/>
    509         <EditorIndex Value="12"/>
    510         <WindowIndex Value="0"/>
    511         <TopLine Value="257"/>
    512         <CursorPos X="3" Y="270"/>
    513         <UsageCount Value="17"/>
    514         <Loaded Value="True"/>
     502        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcanvas.pp"/>
     503        <UnitName Value="FPCanvas"/>
     504        <WindowIndex Value="0"/>
     505        <TopLine Value="347"/>
     506        <CursorPos X="15" Y="360"/>
     507        <UsageCount Value="29"/>
    515508      </Unit53>
    516509      <Unit54>
    517         <Filename Value="../Units/GenericSet.pas"/>
    518         <UnitName Value="GenericSet"/>
    519         <WindowIndex Value="0"/>
    520         <TopLine Value="1"/>
    521         <CursorPos X="1" Y="1"/>
    522         <UsageCount Value="12"/>
     510        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcanvas.inc"/>
     511        <WindowIndex Value="0"/>
     512        <TopLine Value="308"/>
     513        <CursorPos X="3" Y="310"/>
     514        <UsageCount Value="29"/>
    523515      </Unit54>
    524516      <Unit55>
    525         <Filename Value="../Units/GenericStack.pas"/>
    526         <UnitName Value="GenericStack"/>
    527         <WindowIndex Value="0"/>
    528         <TopLine Value="22"/>
    529         <CursorPos X="14" Y="38"/>
    530         <UsageCount Value="12"/>
     517        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcdrawh.inc"/>
     518        <WindowIndex Value="0"/>
     519        <TopLine Value="54"/>
     520        <CursorPos X="3" Y="63"/>
     521        <UsageCount Value="29"/>
    531522      </Unit55>
    532523      <Unit56>
    533         <Filename Value="../Units/GenericRange.pas"/>
    534         <UnitName Value="GenericRange"/>
    535         <EditorIndex Value="14"/>
    536         <WindowIndex Value="0"/>
    537         <TopLine Value="4"/>
    538         <CursorPos X="6" Y="16"/>
    539         <UsageCount Value="20"/>
    540         <Loaded Value="True"/>
     524        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/canvas.inc"/>
     525        <WindowIndex Value="0"/>
     526        <TopLine Value="147"/>
     527        <CursorPos X="3" Y="152"/>
     528        <UsageCount Value="29"/>
    541529      </Unit56>
    542530      <Unit57>
    543         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/rtl/inc/systemh.inc"/>
    544         <WindowIndex Value="0"/>
    545         <TopLine Value="958"/>
    546         <CursorPos X="11" Y="971"/>
    547         <UsageCount Value="12"/>
     531        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/interfacebase.pp"/>
     532        <UnitName Value="InterfaceBase"/>
     533        <WindowIndex Value="0"/>
     534        <TopLine Value="153"/>
     535        <CursorPos X="15" Y="166"/>
     536        <UsageCount Value="29"/>
    548537      </Unit57>
    549538      <Unit58>
    550         <Filename Value="../Units/GenericTree.pas"/>
    551         <UnitName Value="GenericTree"/>
    552         <EditorIndex Value="15"/>
    553         <WindowIndex Value="0"/>
    554         <TopLine Value="124"/>
    555         <CursorPos X="6" Y="125"/>
    556         <UsageCount Value="20"/>
    557         <Loaded Value="True"/>
     539        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/comctrls.pp"/>
     540        <UnitName Value="ComCtrls"/>
     541        <WindowIndex Value="0"/>
     542        <TopLine Value="2962"/>
     543        <CursorPos X="3" Y="2975"/>
     544        <UsageCount Value="28"/>
    558545      </Unit58>
    559546      <Unit59>
    560         <Filename Value="../Units/GenericString.pas"/>
    561         <UnitName Value="GenericString"/>
    562         <EditorIndex Value="21"/>
    563         <WindowIndex Value="0"/>
    564         <TopLine Value="35"/>
    565         <CursorPos X="23" Y="40"/>
    566         <UsageCount Value="13"/>
    567         <Loaded Value="True"/>
    568       </Unit59>
    569       <Unit60>
    570         <Filename Value="../Units/GenericBitmap.pas"/>
    571         <UnitName Value="GenericBitmap"/>
    572         <EditorIndex Value="22"/>
    573         <WindowIndex Value="0"/>
    574         <TopLine Value="22"/>
    575         <CursorPos X="18" Y="46"/>
    576         <UsageCount Value="12"/>
    577         <Loaded Value="True"/>
    578       </Unit60>
    579       <Unit61>
    580         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/graphics.pp"/>
    581         <UnitName Value="Graphics"/>
    582         <EditorIndex Value="3"/>
    583         <WindowIndex Value="0"/>
    584         <TopLine Value="1151"/>
    585         <CursorPos X="22" Y="1165"/>
    586         <UsageCount Value="12"/>
    587         <Loaded Value="True"/>
    588       </Unit61>
    589       <Unit62>
    590         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/rasterimage.inc"/>
    591         <EditorIndex Value="10"/>
    592         <WindowIndex Value="0"/>
    593         <TopLine Value="310"/>
    594         <CursorPos X="22" Y="314"/>
    595         <UsageCount Value="12"/>
    596         <Loaded Value="True"/>
    597       </Unit62>
    598       <Unit63>
    599         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/bitmapcanvas.inc"/>
    600         <EditorIndex Value="9"/>
    601         <WindowIndex Value="0"/>
    602         <TopLine Value="53"/>
    603         <CursorPos X="3" Y="46"/>
    604         <UsageCount Value="12"/>
    605         <Loaded Value="True"/>
    606       </Unit63>
    607       <Unit64>
    608         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcanvas.pp"/>
    609         <UnitName Value="FPCanvas"/>
    610         <EditorIndex Value="6"/>
    611         <WindowIndex Value="0"/>
    612         <TopLine Value="347"/>
    613         <CursorPos X="15" Y="360"/>
    614         <UsageCount Value="12"/>
    615         <Loaded Value="True"/>
    616       </Unit64>
    617       <Unit65>
    618         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcanvas.inc"/>
    619         <EditorIndex Value="8"/>
    620         <WindowIndex Value="0"/>
    621         <TopLine Value="308"/>
    622         <CursorPos X="3" Y="310"/>
    623         <UsageCount Value="12"/>
    624         <Loaded Value="True"/>
    625       </Unit65>
    626       <Unit66>
    627         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcdrawh.inc"/>
    628         <EditorIndex Value="7"/>
    629         <WindowIndex Value="0"/>
    630         <TopLine Value="54"/>
    631         <CursorPos X="3" Y="63"/>
    632         <UsageCount Value="12"/>
    633         <Loaded Value="True"/>
    634       </Unit66>
    635       <Unit67>
    636         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/canvas.inc"/>
    637         <EditorIndex Value="4"/>
    638         <WindowIndex Value="0"/>
    639         <TopLine Value="147"/>
    640         <CursorPos X="3" Y="152"/>
    641         <UsageCount Value="12"/>
    642         <Loaded Value="True"/>
    643       </Unit67>
    644       <Unit68>
    645         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/interfacebase.pp"/>
    646         <UnitName Value="InterfaceBase"/>
    647         <EditorIndex Value="5"/>
    648         <WindowIndex Value="0"/>
    649         <TopLine Value="153"/>
    650         <CursorPos X="15" Y="166"/>
    651         <UsageCount Value="12"/>
    652         <Loaded Value="True"/>
    653       </Unit68>
    654       <Unit69>
    655         <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/comctrls.pp"/>
    656         <UnitName Value="ComCtrls"/>
    657         <EditorIndex Value="1"/>
    658         <WindowIndex Value="0"/>
    659         <TopLine Value="2962"/>
    660         <CursorPos X="3" Y="2975"/>
    661         <UsageCount Value="11"/>
    662         <Loaded Value="True"/>
    663       </Unit69>
    664       <Unit70>
    665547        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/treeview.inc"/>
    666         <EditorIndex Value="2"/>
    667548        <WindowIndex Value="0"/>
    668549        <TopLine Value="5239"/>
    669550        <CursorPos X="3" Y="5243"/>
    670         <UsageCount Value="11"/>
    671         <Loaded Value="True"/>
    672       </Unit70>
     551        <UsageCount Value="28"/>
     552      </Unit59>
    673553    </Units>
    674     <JumpHistory Count="30" HistoryIndex="29">
     554    <JumpHistory Count="30" HistoryIndex="28">
    675555      <Position1>
    676         <Filename Value="../Units/GenericList.pas"/>
    677         <Caret Line="107" Column="15" TopLine="94"/>
     556        <Filename Value="../Units/GenericTree.pas"/>
     557        <Caret Line="27" Column="57" TopLine="20"/>
    678558      </Position1>
    679559      <Position2>
    680         <Filename Value="UMainForm.pas"/>
    681         <Caret Line="138" Column="17" TopLine="125"/>
     560        <Filename Value="../Units/GenericTree.pas"/>
     561        <Caret Line="51" Column="40" TopLine="44"/>
    682562      </Position2>
    683563      <Position3>
    684         <Filename Value="UMainForm.pas"/>
    685         <Caret Line="143" Column="23" TopLine="130"/>
     564        <Filename Value="../Units/GenericTree.pas"/>
     565        <Caret Line="29" Column="33" TopLine="14"/>
    686566      </Position3>
    687567      <Position4>
    688         <Filename Value="UMainForm.pas"/>
    689         <Caret Line="257" Column="24" TopLine="243"/>
     568        <Filename Value="../Units/GenericTree.pas"/>
     569        <Caret Line="63" Column="49" TopLine="42"/>
    690570      </Position4>
    691571      <Position5>
    692         <Filename Value="UMainForm.pas"/>
    693         <Caret Line="10" Column="27" TopLine="1"/>
     572        <Filename Value="../Units/GenericTree.pas"/>
     573        <Caret Line="34" Column="1" TopLine="18"/>
    694574      </Position5>
    695575      <Position6>
    696         <Filename Value="UMainForm.pas"/>
    697         <Caret Line="35" Column="15" TopLine="22"/>
     576        <Filename Value="../Units/GenericTree.pas"/>
     577        <Caret Line="21" Column="72" TopLine="12"/>
    698578      </Position6>
    699579      <Position7>
    700         <Filename Value="UMainForm.pas"/>
    701         <Caret Line="160" Column="1" TopLine="137"/>
     580        <Filename Value="../Units/GenericTree.pas"/>
     581        <Caret Line="65" Column="54" TopLine="51"/>
    702582      </Position7>
    703583      <Position8>
    704         <Filename Value="UMainForm.pas"/>
    705         <Caret Line="45" Column="15" TopLine="32"/>
     584        <Filename Value="../Units/GenericTree.pas"/>
     585        <Caret Line="101" Column="27" TopLine="94"/>
    706586      </Position8>
    707587      <Position9>
    708         <Filename Value="UMainForm.pas"/>
    709         <Caret Line="190" Column="3" TopLine="183"/>
     588        <Filename Value="../Units/GenericTree.pas"/>
     589        <Caret Line="29" Column="6" TopLine="13"/>
    710590      </Position9>
    711591      <Position10>
    712         <Filename Value="UMainForm.pas"/>
    713         <Caret Line="107" Column="1" TopLine="90"/>
     592        <Filename Value="../Units/GenericTree.pas"/>
     593        <Caret Line="49" Column="14" TopLine="38"/>
    714594      </Position10>
    715595      <Position11>
    716         <Filename Value="UMainForm.pas"/>
    717         <Caret Line="801" Column="9" TopLine="782"/>
     596        <Filename Value="../Units/GenericTree.pas"/>
     597        <Caret Line="22" Column="19" TopLine="25"/>
    718598      </Position11>
    719599      <Position12>
    720         <Filename Value="UMainForm.pas"/>
    721         <Caret Line="10" Column="40" TopLine="1"/>
     600        <Filename Value="../Units/GenericTree.pas"/>
     601        <Caret Line="28" Column="4" TopLine="19"/>
    722602      </Position12>
    723603      <Position13>
    724         <Filename Value="UMainForm.pas"/>
    725         <Caret Line="67" Column="15" TopLine="54"/>
     604        <Filename Value="../Units/GenericTree.pas"/>
     605        <Caret Line="29" Column="7" TopLine="16"/>
    726606      </Position13>
    727607      <Position14>
    728608        <Filename Value="UMainForm.pas"/>
    729         <Caret Line="45" Column="30" TopLine="33"/>
     609        <Caret Line="774" Column="30" TopLine="754"/>
    730610      </Position14>
    731611      <Position15>
    732         <Filename Value="UMainForm.pas"/>
    733         <Caret Line="67" Column="15" TopLine="54"/>
     612        <Filename Value="../Units/GenericTree.pas"/>
     613        <Caret Line="47" Column="5" TopLine="34"/>
    734614      </Position15>
    735615      <Position16>
    736         <Filename Value="UMainForm.pas"/>
    737         <Caret Line="798" Column="60" TopLine="781"/>
     616        <Filename Value="../Units/GenericTree.pas"/>
     617        <Caret Line="71" Column="48" TopLine="53"/>
    738618      </Position16>
    739619      <Position17>
    740         <Filename Value="UMainForm.pas"/>
    741         <Caret Line="67" Column="15" TopLine="54"/>
     620        <Filename Value="../Units/GenericTree.pas"/>
     621        <Caret Line="126" Column="3" TopLine="124"/>
    742622      </Position17>
    743623      <Position18>
    744624        <Filename Value="../Units/GenericTree.pas"/>
    745         <Caret Line="52" Column="27" TopLine="16"/>
     625        <Caret Line="127" Column="1" TopLine="113"/>
    746626      </Position18>
    747627      <Position19>
    748         <Filename Value="UMainForm.pas"/>
    749         <Caret Line="67" Column="15" TopLine="54"/>
     628        <Filename Value="../Units/GenericTree.pas"/>
     629        <Caret Line="126" Column="23" TopLine="113"/>
    750630      </Position19>
    751631      <Position20>
    752         <Filename Value="../Units/GenericTree.pas"/>
    753         <Caret Line="42" Column="1" TopLine="20"/>
     632        <Filename Value="UMainForm.pas"/>
     633        <Caret Line="774" Column="30" TopLine="754"/>
    754634      </Position20>
    755635      <Position21>
    756         <Filename Value="UMainForm.pas"/>
    757         <Caret Line="56" Column="17" TopLine="16"/>
     636        <Filename Value="../Units/GenericTree.pas"/>
     637        <Caret Line="7" Column="40" TopLine="1"/>
    758638      </Position21>
    759639      <Position22>
    760         <Filename Value="UMainForm.pas"/>
    761         <Caret Line="68" Column="15" TopLine="55"/>
     640        <Filename Value="../Units/GenericTree.pas"/>
     641        <Caret Line="22" Column="21" TopLine="1"/>
    762642      </Position22>
    763643      <Position23>
    764         <Filename Value="UMainForm.pas"/>
    765         <Caret Line="69" Column="17" TopLine="56"/>
     644        <Filename Value="../Units/GenericTree.pas"/>
     645        <Caret Line="35" Column="54" TopLine="14"/>
    766646      </Position23>
    767647      <Position24>
    768         <Filename Value="UMainForm.pas"/>
    769         <Caret Line="68" Column="15" TopLine="55"/>
     648        <Filename Value="../Units/GenericTree.pas"/>
     649        <Caret Line="64" Column="21" TopLine="43"/>
    770650      </Position24>
    771651      <Position25>
    772         <Filename Value="UMainForm.pas"/>
    773         <Caret Line="69" Column="17" TopLine="56"/>
     652        <Filename Value="../Units/GenericTree.pas"/>
     653        <Caret Line="49" Column="1" TopLine="40"/>
    774654      </Position25>
    775655      <Position26>
    776         <Filename Value="UMainForm.pas"/>
    777         <Caret Line="68" Column="15" TopLine="55"/>
     656        <Filename Value="../Units/GenericTree.pas"/>
     657        <Caret Line="63" Column="7" TopLine="55"/>
    778658      </Position26>
    779659      <Position27>
    780         <Filename Value="UMainForm.pas"/>
    781         <Caret Line="69" Column="17" TopLine="56"/>
     660        <Filename Value="../Units/GenericTree.pas"/>
     661        <Caret Line="92" Column="7" TopLine="76"/>
    782662      </Position27>
    783663      <Position28>
    784         <Filename Value="UMainForm.pas"/>
    785         <Caret Line="771" Column="17" TopLine="758"/>
     664        <Filename Value="../Units/GenericTree.pas"/>
     665        <Caret Line="89" Column="1" TopLine="76"/>
    786666      </Position28>
    787667      <Position29>
    788         <Filename Value="UMainForm.pas"/>
    789         <Caret Line="776" Column="27" TopLine="758"/>
     668        <Filename Value="../Units/GenericTree.pas"/>
     669        <Caret Line="125" Column="26" TopLine="107"/>
    790670      </Position29>
    791671      <Position30>
    792         <Filename Value="UMainForm.pas"/>
    793         <Caret Line="32" Column="15" TopLine="19"/>
     672        <Filename Value="../Units/GenericTree.pas"/>
     673        <Caret Line="70" Column="14" TopLine="57"/>
    794674      </Position30>
    795675    </JumpHistory>

  • Generics/NativeGenerics/Demo/UMainForm.pas

    r326 r327  
    763763procedure TMainForm.TreeButtonClick(Sender: TObject);
    764764var
    765   Tree: TGTree<string>;
     765  //Tree: TGTree<string>;
    766766  //Tree2: TGTree<string>;
    767767  I: Integer;
    768768begin
    769   {ListViewOutput.Clear;
     769 (* ListViewOutput.Clear;
    770770  LabelTestName.Caption := 'TGTree<string> test';
    771   Tree := TGTree<Integer>.Create;
    772   Tree2 := TGTree<Integer>.Create;
     771  Tree := TGTree<string>.Create;
     772  Tree2 := TGTree<string>.Create;
    773773  with Tree do try
    774 (*    AddArray([10, 20, 30, 40]);
     774    Tree.TopItem.Add('test');
     775    AddArray([10, 20, 30, 40]);
    775776    WriteOutput('AddArray([10, 20, 30, 40])', Implode(',', IntToStr));
    776777    Clear;
    … …  
    796797    WriteOutput('InsertCount(0, 3)', Implode(',', IntToStr));
    797798    Fill(0, 3, 9);
    798     WriteOutput('Fill(0, 3, 9)', Implode(',', IntToStr));*)
     799    WriteOutput('Fill(0, 3, 9)', Implode(',', IntToStr));
    799800  finally
    800801    Free;
    801802    Tree2.Free;
    802   end;}
     803  end;   *)
    803804end;
    804805

  • Generics/NativeGenerics/Units/GenericList.pas

    r326 r327  
    3333  public
    3434    constructor Create; virtual;
     35    function Add(Item: TItem): TIndex; virtual; abstract;
    3536    property Count: TIndex read GetCount write SetCount;
    3637    property Capacity: TIndex read GetCapacity write SetCapacity;
    … …  
    5960    procedure QuickSort(L, R : TIndex; Compare: TSortCompare);
    6061  public
    61     function Add(Item: TItem): TIndex;
     62    function Add(Item: TItem): TIndex; override;
    6263    procedure AddArray(Values: array of TItem);
    6364    procedure AddList(List: TGList<TItem>);

  • Generics/NativeGenerics/Units/GenericTree.pas

    r326 r327  
    99
    1010type
     11  //TGAbstractTree<TItem> = class;
    1112
    1213  { TGAbstractTreeNode }
    1314
    1415  TGAbstractTreeNode<TItem> = class
    15   private
     16  public
     17    type
     18      TIndex = NativeInt;
     19      TNode = TGAbstractTreeNode<TItem>;
     20  protected
     21    function GetCount: TIndex; virtual; abstract;
     22    function GetItem(Index: TIndex): TItem; virtual; abstract;
    1623    function GetValue: TItem; virtual; abstract;
     24    procedure SetCount(AValue: TIndex); virtual; abstract;
     25    procedure SetItem(Index: TIndex; AValue: TItem); virtual; abstract;
    1726    procedure SetValue(AValue: TItem); virtual; abstract;
    1827  public
    19     type
    20       TNode = TGAbstractTreeNode<TItem>;
    21   var
    22     Childs: TGAbstractList<TNode>;
     28    Parent: TGAbstractTreeNode<TItem>;
     29    //Tree: TGAbstractTree<TItem>;
    2330    procedure Clear; virtual; abstract;
    2431    constructor Create; virtual;
    2532    destructor Destroy; override;
     33    function Add(Item: TItem): TIndex; virtual; abstract;
     34    property Count: TIndex read GetCount write SetCount;
     35    property Items[Index: TIndex]: TItem read GetItem write SetItem;
    2636    property Value: TItem read GetValue write SetValue;
    2737  end;
    … …  
    3242  public
    3343    type
     44      TIndex = NativeInt;
    3445      TNode = TGAbstractTreeNode<TItem>;
    35       TIndex = NativeInt;
    3646  private
    37     function GetItem(Index: TIndex): TItem;
    38     procedure SetItem(Index: TIndex; AValue: TItem);
    39   var
     47  public
    4048    TopItem: TGAbstractTreeNode<TItem>;
    41     procedure Clear; virtual; abstract;
    4249    constructor Create; virtual;
    43     property Items[Index: TIndex]: TItem read GetItem write SetItem;
    4450  end;
    4551
     52
     53  { TGTreeNode }
    4654
    4755  TGTreeNode<TItem> = class(TGAbstractTreeNode<TItem>)
    4856  public
    4957    type
    50       TNode = TGTreeNode<TItem>;
     58      TNode = TGAbstractTreeNode<TItem>;
    5159  private
    5260    FValue: TItem;
     61    FItems: TGAbstractList<TNode>;
     62  protected
     63    function GetItem(Index: TIndex): TItem; override;
     64    procedure SetItem(Index: TIndex; AValue: TItem); override;
     65    function GetCount: TIndex; override;
     66    procedure SetCount(AValue: TIndex); override;
    5367    function GetValue: TItem; override;
    5468    procedure SetValue(AValue: TItem); override;
    5569  public
     70    function Add(Item: TItem): TIndex; override;
    5671    procedure Clear; override;
    5772    constructor Create; override;
    … …  
    5974  end;
    6075
    61   TGTree<TItem> = class
     76  TGTree<TItem> = class(TGAbstractTree<TItem>)
    6277  public
    63     type
    64       TNode = TGTreeNode<TItem>;
    65   private
    66     FItems: TGList<TNode>;
    67   public
    68     procedure Clear; override;
    6978    constructor Create; override;
    7079    destructor Destroy; override;
    … …  
    7584
    7685{ TGTreeNode }
     86
     87function TGTreeNode<TItem>.GetItem(Index: TIndex): TItem;
     88begin
     89  Result := FItems[Index];
     90end;
     91
     92procedure TGTreeNode<TItem>.SetItem(Index: TIndex; AValue: TItem);
     93begin
     94  FItems[Index] := AValue;
     95end;
     96
     97function TGTreeNode<TItem>.GetCount: TIndex;
     98begin
     99  Result := FItems.Count;
     100end;
     101
     102procedure TGTreeNode<TItem>.SetCount(AValue: TIndex);
     103begin
     104  FItems.Count := AValue;
     105end;
    77106
    78107function TGTreeNode<TItem>.GetValue: TItem;
    … …  
    86115end;
    87116
     117function TGTreeNode<TItem>.Add(Item: TItem): TIndex;
     118begin
     119  Result := FItems.Add(Item);
     120end;
     121
    88122procedure TGTreeNode<TItem>.Clear;
    89123begin
    … …  
    91125end;
    92126
    93 { TGTree }
    94 
    95 procedure TGTree<TItem>.Clear;
    96 begin
    97   //if Assigned(TopItem) then TopItem.Clear;
    98 end;
    99 
    100 constructor TGTree<TItem>.Create;
     127constructor TGTreeNode<TItem>.Create;
    101128begin
    102129  inherited;
    … …  
    104131end;
    105132
     133destructor TGTreeNode<TItem>.Destroy;
     134begin
     135  FItems.Free;
     136  inherited;
     137end;
     138
     139{ TGTree }
     140
     141constructor TGTree<TItem>.Create;
     142begin
     143  inherited;
     144  TopItem := TGTreeNode<TItem>.Create;
     145end;
     146
    106147destructor TGTree<TItem>.Destroy;
    107148begin
    108149  inherited Destroy;
    109   FItems.Free;
     150  TopItem.Free;
    110151end;
    111152
    112153{ TGAbstractTree<TItem> }
    113154
    114 function TGAbstractTree<TItem>.GetItem(Index: TIndex): TItem;
    115 begin
    116 
    117 end;
    118 
    119 procedure TGAbstractTree<TItem>.SetItem(Index: TIndex; AValue: TItem);
    120 begin
    121 
    122 end;
    123 
    124155constructor TGAbstractTree<TItem>.Create;
    125156begin
    126 end;
    127 
    128 constructor TGTreeNode<TItem>.Create;
    129 begin
    130   inherited;
    131   Childs := TGList<TNode>.Create;
    132 end;
    133 
    134 destructor TGTreeNode<TItem>.Destroy;
    135 begin
    136   Childs.Free;
    137   inherited;
    138157end;
    139158
Note: See TracChangeset for help on using the changeset viewer.