Changeset 481 for Generics


Ignore:
Timestamp:
Feb 23, 2016, 10:30:36 PM (9 years ago)
Author:
chronos
Message:
Location:
Generics/NativeGenerics
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • Generics/NativeGenerics/Demo/Demo.lpi

    r458 r481  
    1 <?xml version="1.0"?>
     1<?xml version="1.0" encoding="UTF-8"?>
    22<CONFIG>
    33  <ProjectOptions>
    … …  
    88      <UseXPManifest Value="True"/>
    99      <Icon Value="0"/>
    10       <ActiveWindowIndexAtStart Value="0"/>
    1110    </General>
    1211    <i18n>
    … …  
    2726      <local>
    2827        <FormatVersion Value="1"/>
    29         <LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
    3028      </local>
    3129    </RunParams>
    … …  
    3937      </Item2>
    4038    </RequiredPackages>
    41     <Units Count="77">
     39    <Units Count="83">
    4240      <Unit0>
    4341        <Filename Value="Demo.lpr"/>
    4442        <IsPartOfProject Value="True"/>
    45         <UnitName Value="Demo"/>
    46         <WindowIndex Value="0"/>
    47         <TopLine Value="1"/>
    48         <CursorPos X="27" Y="16"/>
     43        <EditorIndex Value="15"/>
     44        <CursorPos Y="16"/>
    4945        <UsageCount Value="233"/>
     46        <Loaded Value="True"/>
    5047        <DefaultSyntaxHighlighter Value="Delphi"/>
    5148      </Unit0>
    … …  
    5653        <HasResources Value="True"/>
    5754        <ResourceBaseClass Value="Form"/>
    58         <UnitName Value="UMainForm"/>
    59         <EditorIndex Value="2"/>
    60         <WindowIndex Value="0"/>
    61         <TopLine Value="653"/>
    62         <CursorPos X="1" Y="657"/>
     55        <IsVisibleTab Value="True"/>
     56        <EditorIndex Value="3"/>
     57        <TopLine Value="219"/>
     58        <CursorPos X="51" Y="237"/>
    6359        <UsageCount Value="233"/>
    6460        <Bookmarks Count="1">
    … …  
    7066      <Unit2>
    7167        <Filename Value="../Specialized/SpecializedList.pas"/>
    72         <UnitName Value="SpecializedList"/>
    73         <WindowIndex Value="0"/>
    7468        <TopLine Value="47"/>
    7569        <CursorPos X="20" Y="60"/>
    … …  
    7973      <Unit3>
    8074        <Filename Value="../Generic/ListImplementation.tpl"/>
    81         <WindowIndex Value="0"/>
    82         <TopLine Value="1"/>
    8375        <CursorPos X="25" Y="13"/>
    8476        <UsageCount Value="5"/>
    … …  
    8779      <Unit4>
    8880        <Filename Value="../Generic/GenericList.inc"/>
    89         <WindowIndex Value="0"/>
    9081        <TopLine Value="359"/>
    9182        <CursorPos X="62" Y="376"/>
    … …  
    9586      <Unit5>
    9687        <Filename Value="../Generic/GenericDictionary.inc"/>
    97         <WindowIndex Value="0"/>
    9888        <TopLine Value="31"/>
    9989        <CursorPos X="44" Y="47"/>
    … …  
    10393      <Unit6>
    10494        <Filename Value="../Generic/GenericObjectList.inc"/>
    105         <WindowIndex Value="0"/>
    106         <TopLine Value="1"/>
    10795        <CursorPos X="36" Y="48"/>
    10896        <UsageCount Value="84"/>
    … …  
    11199      <Unit7>
    112100        <Filename Value="../Generic/GenericQueue.inc"/>
    113         <WindowIndex Value="0"/>
    114101        <TopLine Value="3"/>
    115         <CursorPos X="1" Y="3"/>
     102        <CursorPos Y="3"/>
    116103        <UsageCount Value="84"/>
    117104        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    119106      <Unit8>
    120107        <Filename Value="../Generic/GenericSet.inc"/>
    121         <WindowIndex Value="0"/>
    122108        <TopLine Value="11"/>
    123109        <CursorPos X="42" Y="11"/>
    … …  
    127113      <Unit9>
    128114        <Filename Value="../Generic/GenericStack.inc"/>
    129         <WindowIndex Value="0"/>
    130115        <TopLine Value="3"/>
    131         <CursorPos X="1" Y="3"/>
     116        <CursorPos Y="3"/>
    132117        <UsageCount Value="84"/>
    133118        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    135120      <Unit10>
    136121        <Filename Value="../Generic/GenericTree.inc"/>
    137         <WindowIndex Value="0"/>
    138         <TopLine Value="1"/>
    139122        <CursorPos X="22" Y="30"/>
    140123        <UsageCount Value="84"/>
    … …  
    143126      <Unit11>
    144127        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    145         <UnitName Value="SpecializedDictionary"/>
    146         <WindowIndex Value="0"/>
    147128        <TopLine Value="6"/>
    148129        <CursorPos X="56" Y="36"/>
    … …  
    152133      <Unit12>
    153134        <Filename Value="../Specialized/SpecializedStack.pas"/>
    154         <UnitName Value="SpecializedStack"/>
    155         <WindowIndex Value="0"/>
    156135        <TopLine Value="27"/>
    157136        <CursorPos X="50" Y="59"/>
    … …  
    161140      <Unit13>
    162141        <Filename Value="../Specialized/SpecializedTree.pas"/>
    163         <UnitName Value="SpecializedTree"/>
    164         <WindowIndex Value="0"/>
    165142        <TopLine Value="57"/>
    166143        <CursorPos X="48" Y="85"/>
    … …  
    170147      <Unit14>
    171148        <Filename Value="../Generic/GenericRange.inc"/>
    172         <WindowIndex Value="0"/>
    173         <TopLine Value="1"/>
    174149        <CursorPos X="33" Y="14"/>
    175150        <UsageCount Value="82"/>
    … …  
    178153      <Unit15>
    179154        <Filename Value="../Specialized/SpecializedQueue.pas"/>
    180         <UnitName Value="SpecializedQueue"/>
    181         <WindowIndex Value="0"/>
    182155        <TopLine Value="52"/>
    183         <CursorPos X="1" Y="81"/>
     156        <CursorPos Y="81"/>
    184157        <UsageCount Value="82"/>
    185158        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    187160      <Unit16>
    188161        <Filename Value="../Specialized/SpecializedSet.pas"/>
    189         <UnitName Value="SpecializedSet"/>
    190         <WindowIndex Value="0"/>
    191162        <TopLine Value="29"/>
    192         <CursorPos X="1" Y="62"/>
     163        <CursorPos Y="62"/>
    193164        <UsageCount Value="82"/>
    194165        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    196167      <Unit17>
    197168        <Filename Value="../Specialized/SpecializedObjectList.pas"/>
    198         <UnitName Value="SpecializedObjectList"/>
    199         <WindowIndex Value="0"/>
    200169        <TopLine Value="9"/>
    201170        <CursorPos X="60" Y="36"/>
    … …  
    205174      <Unit18>
    206175        <Filename Value="../Generic/GenericMatrix.inc"/>
    207         <WindowIndex Value="0"/>
    208176        <TopLine Value="9"/>
    209177        <CursorPos X="28" Y="23"/>
    … …  
    214182        <Filename Value="../../../../lazarus/trunk/lcl/graphics.pp"/>
    215183        <UnitName Value="Graphics"/>
    216         <WindowIndex Value="0"/>
    217184        <TopLine Value="2624"/>
    218185        <CursorPos X="37" Y="2636"/>
    … …  
    222189      <Unit20>
    223190        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
    224         <WindowIndex Value="0"/>
    225191        <TopLine Value="199"/>
    226192        <CursorPos X="14" Y="213"/>
    … …  
    230196      <Unit21>
    231197        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/lists.inc"/>
    232         <WindowIndex Value="0"/>
    233198        <TopLine Value="199"/>
    234199        <CursorPos X="3" Y="201"/>
    … …  
    238203      <Unit22>
    239204        <Filename Value="../Generic/GenericListObject.inc"/>
    240         <WindowIndex Value="0"/>
    241         <TopLine Value="1"/>
    242205        <CursorPos X="21" Y="20"/>
    243206        <UsageCount Value="9"/>
    … …  
    246209      <Unit23>
    247210        <Filename Value="/usr/share/fpcsrc/rtl/objpas/objpas.pp"/>
    248         <UnitName Value="objpas"/>
    249         <WindowIndex Value="0"/>
    250         <TopLine Value="1"/>
    251211        <CursorPos X="27" Y="26"/>
    252212        <UsageCount Value="18"/>
    … …  
    255215      <Unit24>
    256216        <Filename Value="/usr/share/fpcsrc/rtl/inc/systemh.inc"/>
    257         <WindowIndex Value="0"/>
    258217        <TopLine Value="381"/>
    259218        <CursorPos X="3" Y="398"/>
    … …  
    263222      <Unit25>
    264223        <Filename Value="../../../../lazarus/trunk/lcl/include/control.inc"/>
    265         <WindowIndex Value="0"/>
    266224        <TopLine Value="2270"/>
    267225        <CursorPos X="22" Y="2273"/>
    … …  
    271229      <Unit26>
    272230        <Filename Value="../Specialized/SpecializedMatrix.pas"/>
    273         <UnitName Value="SpecializedMatrix"/>
    274         <WindowIndex Value="0"/>
    275         <TopLine Value="1"/>
    276231        <CursorPos X="25" Y="41"/>
    277232        <UsageCount Value="9"/>
    … …  
    280235      <Unit27>
    281236        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/dateutil.inc"/>
    282         <WindowIndex Value="0"/>
    283237        <TopLine Value="38"/>
    284238        <CursorPos X="3" Y="50"/>
    … …  
    288242      <Unit28>
    289243        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    290         <WindowIndex Value="0"/>
    291244        <TopLine Value="649"/>
    292245        <CursorPos X="38" Y="671"/>
    … …  
    296249      <Unit29>
    297250        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/stringl.inc"/>
    298         <WindowIndex Value="0"/>
    299251        <TopLine Value="1185"/>
    300252        <CursorPos X="22" Y="1196"/>
    … …  
    304256      <Unit30>
    305257        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/types.pp"/>
    306         <UnitName Value="types"/>
    307         <WindowIndex Value="0"/>
    308258        <TopLine Value="112"/>
    309259        <CursorPos X="3" Y="124"/>
    … …  
    313263      <Unit31>
    314264        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstrh.inc"/>
    315         <WindowIndex Value="0"/>
    316265        <TopLine Value="71"/>
    317266        <CursorPos X="10" Y="84"/>
    … …  
    321270      <Unit32>
    322271        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstr.inc"/>
    323         <WindowIndex Value="0"/>
    324272        <TopLine Value="148"/>
    325273        <CursorPos X="11" Y="169"/>
    … …  
    329277      <Unit33>
    330278        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/inc/systemh.inc"/>
    331         <WindowIndex Value="0"/>
    332279        <TopLine Value="511"/>
    333280        <CursorPos X="11" Y="524"/>
    … …  
    337284      <Unit34>
    338285        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/i386/i386.inc"/>
    339         <WindowIndex Value="0"/>
    340286        <TopLine Value="411"/>
    341287        <CursorPos X="10" Y="424"/>
    … …  
    345291      <Unit35>
    346292        <Filename Value="../Units/GenericList.pas"/>
    347         <UnitName Value="GenericList"/>
    348         <IsVisibleTab Value="True"/>
    349293        <EditorIndex Value="6"/>
    350         <WindowIndex Value="0"/>
    351         <TopLine Value="82"/>
    352         <CursorPos X="46" Y="93"/>
     294        <TopLine Value="71"/>
     295        <CursorPos X="3" Y="90"/>
    353296        <UsageCount Value="65"/>
    354297        <Loaded Value="True"/>
    … …  
    356299      <Unit36>
    357300        <Filename Value="../Units/GenericMatrix.pas"/>
    358         <UnitName Value="GenericMatrix"/>
    359         <EditorIndex Value="0"/>
    360         <WindowIndex Value="0"/>
    361301        <TopLine Value="42"/>
    362302        <CursorPos X="53" Y="55"/>
    … …  
    366306      <Unit37>
    367307        <Filename Value="../Units/GenericStream.pas"/>
    368         <UnitName Value="GenericStream"/>
    369         <WindowIndex Value="0"/>
    370         <TopLine Value="34"/>
    371         <CursorPos X="18" Y="48"/>
     308        <EditorIndex Value="9"/>
     309        <CursorPos X="36" Y="54"/>
    372310        <UsageCount Value="36"/>
     311        <Loaded Value="True"/>
    373312      </Unit37>
    374313      <Unit38>
    375314        <Filename Value="../Units/GenericQueue.pas"/>
    376         <UnitName Value="GenericQueue"/>
    377         <WindowIndex Value="0"/>
    378         <TopLine Value="18"/>
     315        <EditorIndex Value="13"/>
    379316        <CursorPos X="24" Y="28"/>
    380         <UsageCount Value="8"/>
     317        <UsageCount Value="10"/>
     318        <Loaded Value="True"/>
    381319      </Unit38>
    382320      <Unit39>
    383321        <Filename Value="../Units/GenericDictionary.pas"/>
    384         <UnitName Value="GenericDictionary"/>
    385         <WindowIndex Value="0"/>
    386         <TopLine Value="1"/>
    387         <CursorPos X="1" Y="1"/>
     322        <EditorIndex Value="14"/>
     323        <TopLine Value="59"/>
     324        <CursorPos Y="96"/>
    388325        <UsageCount Value="40"/>
     326        <Loaded Value="True"/>
    389327      </Unit39>
    390328      <Unit40>
    391329        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/objpas/sysutils/sysunih.inc"/>
    392         <WindowIndex Value="0"/>
    393330        <TopLine Value="9"/>
    394331        <CursorPos X="10" Y="22"/>
    … …  
    398335      <Unit41>
    399336        <Filename Value="../Units/SpecializedList.pas"/>
    400         <UnitName Value="SpecializedList"/>
    401         <WindowIndex Value="0"/>
    402337        <TopLine Value="45"/>
    403         <CursorPos X="1" Y="68"/>
     338        <CursorPos Y="68"/>
    404339        <UsageCount Value="38"/>
    405340      </Unit41>
    406341      <Unit42>
    407342        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/rtl/objpas/classes/classesh.inc"/>
    408         <WindowIndex Value="0"/>
    409343        <TopLine Value="257"/>
    410344        <CursorPos X="3" Y="270"/>
    … …  
    414348      <Unit43>
    415349        <Filename Value="../Units/GenericSet.pas"/>
    416         <UnitName Value="GenericSet"/>
    417         <WindowIndex Value="0"/>
    418         <TopLine Value="1"/>
    419         <CursorPos X="1" Y="1"/>
    420         <UsageCount Value="8"/>
     350        <EditorIndex Value="11"/>
     351        <UsageCount Value="10"/>
     352        <Loaded Value="True"/>
    421353      </Unit43>
    422354      <Unit44>
    423355        <Filename Value="../Units/GenericStack.pas"/>
    424         <UnitName Value="GenericStack"/>
    425         <WindowIndex Value="0"/>
    426         <TopLine Value="22"/>
     356        <EditorIndex Value="10"/>
    427357        <CursorPos X="14" Y="38"/>
    428         <UsageCount Value="8"/>
     358        <UsageCount Value="10"/>
     359        <Loaded Value="True"/>
    429360      </Unit44>
    430361      <Unit45>
    431362        <Filename Value="../Units/GenericRange.pas"/>
    432         <UnitName Value="GenericRange"/>
    433         <WindowIndex Value="0"/>
    434         <TopLine Value="1"/>
    435         <CursorPos X="20" Y="8"/>
     363        <EditorIndex Value="12"/>
     364        <CursorPos X="33" Y="35"/>
    436365        <UsageCount Value="40"/>
     366        <Loaded Value="True"/>
    437367      </Unit45>
    438368      <Unit46>
    439369        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/rtl/inc/systemh.inc"/>
    440         <WindowIndex Value="0"/>
    441370        <TopLine Value="958"/>
    442371        <CursorPos X="11" Y="971"/>
    … …  
    446375      <Unit47>
    447376        <Filename Value="../Units/GenericTree.pas"/>
    448         <UnitName Value="GenericTree"/>
    449         <WindowIndex Value="0"/>
    450         <TopLine Value="50"/>
     377        <EditorIndex Value="16"/>
    451378        <CursorPos X="49" Y="68"/>
    452379        <UsageCount Value="40"/>
     380        <Loaded Value="True"/>
    453381      </Unit47>
    454382      <Unit48>
    455383        <Filename Value="../Units/GenericString.pas"/>
    456         <UnitName Value="GenericString"/>
    457         <WindowIndex Value="0"/>
    458         <TopLine Value="35"/>
    459         <CursorPos X="23" Y="40"/>
     384        <EditorIndex Value="18"/>
     385        <CursorPos X="39" Y="62"/>
    460386        <UsageCount Value="33"/>
     387        <Loaded Value="True"/>
    461388      </Unit48>
    462389      <Unit49>
    463390        <Filename Value="../Units/GenericBitmap.pas"/>
    464         <UnitName Value="GenericBitmap"/>
    465         <EditorIndex Value="7"/>
    466         <WindowIndex Value="0"/>
    467         <TopLine Value="6"/>
    468         <CursorPos X="14" Y="19"/>
     391        <EditorIndex Value="17"/>
     392        <TopLine Value="140"/>
     393        <CursorPos X="34" Y="36"/>
    469394        <UsageCount Value="32"/>
    470395        <Loaded Value="True"/>
    … …  
    473398        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/graphics.pp"/>
    474399        <UnitName Value="Graphics"/>
    475         <WindowIndex Value="0"/>
    476400        <TopLine Value="1151"/>
    477401        <CursorPos X="22" Y="1165"/>
    … …  
    481405      <Unit51>
    482406        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/rasterimage.inc"/>
    483         <WindowIndex Value="0"/>
    484407        <TopLine Value="310"/>
    485408        <CursorPos X="22" Y="314"/>
    … …  
    489412      <Unit52>
    490413        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/bitmapcanvas.inc"/>
    491         <WindowIndex Value="0"/>
    492414        <TopLine Value="53"/>
    493415        <CursorPos X="3" Y="46"/>
    … …  
    498420        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcanvas.pp"/>
    499421        <UnitName Value="FPCanvas"/>
    500         <WindowIndex Value="0"/>
    501422        <TopLine Value="347"/>
    502423        <CursorPos X="15" Y="360"/>
    … …  
    506427      <Unit54>
    507428        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcanvas.inc"/>
    508         <WindowIndex Value="0"/>
    509429        <TopLine Value="308"/>
    510430        <CursorPos X="3" Y="310"/>
    … …  
    514434      <Unit55>
    515435        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/packages/fcl-image/src/fpcdrawh.inc"/>
    516         <WindowIndex Value="0"/>
    517436        <TopLine Value="54"/>
    518437        <CursorPos X="3" Y="63"/>
    … …  
    522441      <Unit56>
    523442        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/canvas.inc"/>
    524         <WindowIndex Value="0"/>
    525443        <TopLine Value="147"/>
    526444        <CursorPos X="3" Y="152"/>
    … …  
    531449        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/interfacebase.pp"/>
    532450        <UnitName Value="InterfaceBase"/>
    533         <WindowIndex Value="0"/>
    534451        <TopLine Value="153"/>
    535452        <CursorPos X="15" Y="166"/>
    … …  
    540457        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/comctrls.pp"/>
    541458        <UnitName Value="ComCtrls"/>
    542         <WindowIndex Value="0"/>
    543459        <TopLine Value="2962"/>
    544460        <CursorPos X="3" Y="2975"/>
    … …  
    548464      <Unit59>
    549465        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/include/treeview.inc"/>
    550         <WindowIndex Value="0"/>
    551466        <TopLine Value="5239"/>
    552467        <CursorPos X="3" Y="5243"/>
    … …  
    556471      <Unit60>
    557472        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/objpas/sysutils/filutilh.inc"/>
    558         <WindowIndex Value="0"/>
    559473        <TopLine Value="62"/>
    560474        <CursorPos X="3" Y="75"/>
    … …  
    563477      <Unit61>
    564478        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/inc/systemh.inc"/>
    565         <EditorIndex Value="11"/>
    566         <WindowIndex Value="0"/>
     479        <EditorIndex Value="-1"/>
    567480        <TopLine Value="582"/>
    568481        <CursorPos X="11" Y="595"/>
    569482        <UsageCount Value="13"/>
    570         <Loaded Value="True"/>
    571483      </Unit61>
    572484      <Unit62>
    573485        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/win/sysutils.pp"/>
    574         <UnitName Value="sysutils"/>
    575         <WindowIndex Value="0"/>
    576486        <TopLine Value="300"/>
    577         <CursorPos X="1" Y="302"/>
     487        <CursorPos Y="302"/>
    578488        <UsageCount Value="11"/>
    579489      </Unit62>
    580490      <Unit63>
    581491        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/win/wininc/func.inc"/>
    582         <WindowIndex Value="0"/>
    583492        <TopLine Value="169"/>
    584493        <CursorPos X="15" Y="177"/>
    … …  
    587496      <Unit64>
    588497        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/inc/file.inc"/>
    589         <WindowIndex Value="0"/>
    590498        <TopLine Value="299"/>
    591499        <CursorPos X="3" Y="304"/>
    … …  
    594502      <Unit65>
    595503        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/win/sysfile.inc"/>
    596         <WindowIndex Value="0"/>
    597504        <TopLine Value="133"/>
    598505        <CursorPos X="11" Y="143"/>
    … …  
    601508      <Unit66>
    602509        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/win/sysos.inc"/>
    603         <WindowIndex Value="0"/>
    604510        <TopLine Value="250"/>
    605511        <CursorPos X="20" Y="268"/>
    … …  
    608514      <Unit67>
    609515        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/inc/text.inc"/>
    610         <WindowIndex Value="0"/>
    611516        <TopLine Value="108"/>
    612517        <CursorPos X="3" Y="110"/>
    … …  
    615520      <Unit68>
    616521        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
    617         <EditorIndex Value="9"/>
    618         <WindowIndex Value="0"/>
     522        <EditorIndex Value="-1"/>
    619523        <TopLine Value="72"/>
    620524        <CursorPos X="10" Y="84"/>
    621525        <UsageCount Value="12"/>
    622         <Loaded Value="True"/>
    623526      </Unit68>
    624527      <Unit69>
    625528        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/objpas/classes/classesh.inc"/>
    626         <EditorIndex Value="3"/>
    627         <WindowIndex Value="0"/>
     529        <EditorIndex Value="-1"/>
    628530        <TopLine Value="258"/>
    629531        <CursorPos X="14" Y="270"/>
    630532        <UsageCount Value="12"/>
    631         <Loaded Value="True"/>
    632533      </Unit69>
    633534      <Unit70>
    634535        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/objpas/classes/stringl.inc"/>
    635         <EditorIndex Value="5"/>
    636         <WindowIndex Value="0"/>
     536        <EditorIndex Value="-1"/>
    637537        <TopLine Value="736"/>
    638538        <CursorPos X="3" Y="738"/>
    639539        <UsageCount Value="12"/>
    640         <Loaded Value="True"/>
    641540      </Unit70>
    642541      <Unit71>
    643542        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/objpas/classes/lists.inc"/>
    644         <EditorIndex Value="4"/>
    645         <WindowIndex Value="0"/>
     543        <EditorIndex Value="-1"/>
    646544        <TopLine Value="199"/>
    647545        <CursorPos X="31" Y="207"/>
    648546        <UsageCount Value="12"/>
    649         <Loaded Value="True"/>
    650547      </Unit71>
    651548      <Unit72>
    652549        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/objpas/sysutils/sysstr.inc"/>
    653         <EditorIndex Value="10"/>
    654         <WindowIndex Value="0"/>
     550        <EditorIndex Value="-1"/>
    655551        <TopLine Value="181"/>
    656552        <CursorPos X="3" Y="187"/>
    657553        <UsageCount Value="12"/>
    658         <Loaded Value="True"/>
    659554      </Unit72>
    660555      <Unit73>
    661556        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/i386/i386.inc"/>
    662         <EditorIndex Value="13"/>
    663         <WindowIndex Value="0"/>
     557        <EditorIndex Value="-1"/>
    664558        <TopLine Value="503"/>
    665559        <CursorPos X="9" Y="503"/>
    666560        <UsageCount Value="12"/>
    667         <Loaded Value="True"/>
    668561      </Unit73>
    669562      <Unit74>
    670563        <Filename Value="../../../../../Lazarus/1.1_2.7.1/fpc/2.7.1/source/rtl/inc/system.inc"/>
    671         <EditorIndex Value="12"/>
    672         <WindowIndex Value="0"/>
     564        <EditorIndex Value="-1"/>
    673565        <TopLine Value="277"/>
    674566        <CursorPos X="14" Y="285"/>
    675567        <UsageCount Value="12"/>
    676         <Loaded Value="True"/>
    677568      </Unit74>
    678569      <Unit75>
    679570        <Filename Value="../ReadMe.txt"/>
    680         <EditorIndex Value="8"/>
    681         <WindowIndex Value="0"/>
    682         <TopLine Value="1"/>
    683         <CursorPos X="27" Y="9"/>
     571        <EditorIndex Value="19"/>
     572        <CursorPos X="41" Y="7"/>
    684573        <UsageCount Value="11"/>
    685574        <Loaded Value="True"/>
    … …  
    688577      <Unit76>
    689578        <Filename Value="../Units/GenericPoint.pas"/>
    690         <UnitName Value="GenericPoint"/>
    691579        <EditorIndex Value="1"/>
    692         <WindowIndex Value="0"/>
    693         <TopLine Value="2"/>
    694         <CursorPos X="19" Y="20"/>
     580        <CursorPos X="59" Y="19"/>
    695581        <UsageCount Value="10"/>
    696582        <Loaded Value="True"/>
    697583      </Unit76>
     584      <Unit77>
     585        <Filename Value="/usr/share/fpcsrc/3.0.0/rtl/objpas/classes/classesh.inc"/>
     586        <EditorIndex Value="4"/>
     587        <TopLine Value="229"/>
     588        <CursorPos X="14" Y="251"/>
     589        <UsageCount Value="10"/>
     590        <Loaded Value="True"/>
     591      </Unit77>
     592      <Unit78>
     593        <Filename Value="/usr/share/fpcsrc/3.0.0/rtl/objpas/classes/lists.inc"/>
     594        <EditorIndex Value="5"/>
     595        <TopLine Value="199"/>
     596        <CursorPos X="3" Y="207"/>
     597        <UsageCount Value="10"/>
     598        <Loaded Value="True"/>
     599      </Unit78>
     600      <Unit79>
     601        <Filename Value="/usr/share/fpcsrc/3.0.0/rtl/inc/systemh.inc"/>
     602        <EditorIndex Value="7"/>
     603        <TopLine Value="726"/>
     604        <CursorPos X="11" Y="749"/>
     605        <UsageCount Value="10"/>
     606        <Loaded Value="True"/>
     607      </Unit79>
     608      <Unit80>
     609        <Filename Value="/usr/share/fpcsrc/3.0.0/rtl/x86_64/x86_64.inc"/>
     610        <EditorIndex Value="8"/>
     611        <TopLine Value="634"/>
     612        <CursorPos X="10" Y="657"/>
     613        <UsageCount Value="10"/>
     614        <Loaded Value="True"/>
     615      </Unit80>
     616      <Unit81>
     617        <Filename Value="../Units/GenericRectangle.pas"/>
     618        <EditorIndex Value="2"/>
     619        <TopLine Value="17"/>
     620        <CursorPos X="27" Y="51"/>
     621        <UsageCount Value="10"/>
     622        <Loaded Value="True"/>
     623      </Unit81>
     624      <Unit82>
     625        <Filename Value="../Additional/UBinarySerializer.pas"/>
     626        <EditorIndex Value="20"/>
     627        <TopLine Value="55"/>
     628        <UsageCount Value="10"/>
     629        <Loaded Value="True"/>
     630      </Unit82>
    698631    </Units>
    699     <JumpHistory Count="30" HistoryIndex="28">
     632    <JumpHistory Count="30" HistoryIndex="29">
    700633      <Position1>
    701         <Filename Value="../Units/GenericList.pas"/>
    702         <Caret Line="221" Column="1" TopLine="200"/>
     634        <Filename Value="Demo.lpr"/>
     635        <Caret Line="16"/>
    703636      </Position1>
    704637      <Position2>
    705         <Filename Value="../Units/GenericList.pas"/>
    706         <Caret Line="216" Column="1" TopLine="200"/>
     638        <Filename Value="UMainForm.pas"/>
     639        <Caret Line="243" TopLine="219"/>
    707640      </Position2>
    708641      <Position3>
    709         <Filename Value="../Units/GenericList.pas"/>
    710         <Caret Line="308" Column="1" TopLine="295"/>
     642        <Filename Value="../Units/GenericDictionary.pas"/>
     643        <Caret Line="88" TopLine="59"/>
    711644      </Position3>
    712645      <Position4>
    713         <Filename Value="../Units/GenericList.pas"/>
    714         <Caret Line="309" Column="1" TopLine="295"/>
     646        <Filename Value="../Units/GenericDictionary.pas"/>
     647        <Caret Line="89" TopLine="59"/>
    715648      </Position4>
    716649      <Position5>
    717         <Filename Value="../Units/GenericList.pas"/>
    718         <Caret Line="313" Column="1" TopLine="295"/>
     650        <Filename Value="../Units/GenericDictionary.pas"/>
     651        <Caret Line="90" TopLine="59"/>
    719652      </Position5>
    720653      <Position6>
    721         <Filename Value="../Units/GenericList.pas"/>
    722         <Caret Line="314" Column="1" TopLine="295"/>
     654        <Filename Value="../Units/GenericDictionary.pas"/>
     655        <Caret Line="91" TopLine="59"/>
    723656      </Position6>
    724657      <Position7>
    725         <Filename Value="../Units/GenericList.pas"/>
    726         <Caret Line="213" Column="1" TopLine="200"/>
     658        <Filename Value="../Units/GenericDictionary.pas"/>
     659        <Caret Line="94" TopLine="59"/>
    727660      </Position7>
    728661      <Position8>
    729         <Filename Value="../Units/GenericList.pas"/>
    730         <Caret Line="313" Column="1" TopLine="300"/>
     662        <Filename Value="../Units/GenericDictionary.pas"/>
     663        <Caret Line="90" TopLine="59"/>
    731664      </Position8>
    732665      <Position9>
    733         <Filename Value="../Units/GenericList.pas"/>
    734         <Caret Line="314" Column="1" TopLine="300"/>
     666        <Filename Value="../Units/GenericDictionary.pas"/>
     667        <Caret Line="91" TopLine="59"/>
    735668      </Position9>
    736669      <Position10>
    737         <Filename Value="../Units/GenericList.pas"/>
    738         <Caret Line="215" Column="1" TopLine="202"/>
     670        <Filename Value="../Units/GenericDictionary.pas"/>
     671        <Caret Line="94" TopLine="59"/>
    739672      </Position10>
    740673      <Position11>
    741         <Filename Value="../Units/GenericList.pas"/>
    742         <Caret Line="220" Column="1" TopLine="202"/>
     674        <Filename Value="../Units/GenericDictionary.pas"/>
     675        <Caret Line="90" TopLine="59"/>
    743676      </Position11>
    744677      <Position12>
    745         <Filename Value="../Units/GenericList.pas"/>
    746         <Caret Line="221" Column="1" TopLine="202"/>
     678        <Filename Value="../Units/GenericDictionary.pas"/>
     679        <Caret Line="91" TopLine="59"/>
    747680      </Position12>
    748681      <Position13>
    749         <Filename Value="../Units/GenericList.pas"/>
    750         <Caret Line="216" Column="1" TopLine="202"/>
     682        <Filename Value="../Units/GenericDictionary.pas"/>
     683        <Caret Line="94" TopLine="59"/>
    751684      </Position13>
    752685      <Position14>
    753         <Filename Value="../Units/GenericList.pas"/>
    754         <Caret Line="308" Column="1" TopLine="295"/>
     686        <Filename Value="../Units/GenericDictionary.pas"/>
     687        <Caret Line="90" TopLine="59"/>
    755688      </Position14>
    756689      <Position15>
    757         <Filename Value="../Units/GenericList.pas"/>
    758         <Caret Line="303" Column="13" TopLine="296"/>
     690        <Filename Value="../Units/GenericDictionary.pas"/>
     691        <Caret Line="96" TopLine="59"/>
    759692      </Position15>
    760693      <Position16>
    761         <Filename Value="../Units/GenericList.pas"/>
    762         <Caret Line="626" Column="1" TopLine="613"/>
     694        <Filename Value="UMainForm.pas"/>
     695        <Caret Line="235" Column="60" TopLine="219"/>
    763696      </Position16>
    764697      <Position17>
    765698        <Filename Value="UMainForm.pas"/>
    766         <Caret Line="657" Column="1" TopLine="653"/>
     699        <Caret Line="243" TopLine="219"/>
    767700      </Position17>
    768701      <Position18>
    769         <Filename Value="../Units/GenericMatrix.pas"/>
    770         <Caret Line="137" Column="19" TopLine="127"/>
     702        <Filename Value="../Units/GenericDictionary.pas"/>
     703        <Caret Line="87" TopLine="59"/>
    771704      </Position18>
    772705      <Position19>
    773         <Filename Value="../Units/GenericMatrix.pas"/>
    774         <Caret Line="116" Column="17" TopLine="99"/>
     706        <Filename Value="../Units/GenericDictionary.pas"/>
     707        <Caret Line="89" TopLine="59"/>
    775708      </Position19>
    776709      <Position20>
    777         <Filename Value="../Units/GenericMatrix.pas"/>
    778         <Caret Line="51" Column="39" TopLine="36"/>
     710        <Filename Value="../Units/GenericDictionary.pas"/>
     711        <Caret Line="90" TopLine="59"/>
    779712      </Position20>
    780713      <Position21>
    781         <Filename Value="../Units/GenericMatrix.pas"/>
    782         <Caret Line="66" Column="13" TopLine="56"/>
     714        <Filename Value="../Units/GenericDictionary.pas"/>
     715        <Caret Line="91" TopLine="59"/>
    783716      </Position21>
    784717      <Position22>
    785         <Filename Value="../Units/GenericMatrix.pas"/>
    786         <Caret Line="50" Column="3" TopLine="37"/>
     718        <Filename Value="../Units/GenericDictionary.pas"/>
     719        <Caret Line="94" TopLine="59"/>
    787720      </Position22>
    788721      <Position23>
    789         <Filename Value="../Units/GenericMatrix.pas"/>
    790         <Caret Line="55" Column="22" TopLine="42"/>
     722        <Filename Value="../Units/GenericDictionary.pas"/>
     723        <Caret Line="90" TopLine="59"/>
    791724      </Position23>
    792725      <Position24>
    793         <Filename Value="../Units/GenericMatrix.pas"/>
    794         <Caret Line="51" Column="25" TopLine="38"/>
     726        <Filename Value="../Units/GenericDictionary.pas"/>
     727        <Caret Line="91" TopLine="59"/>
    795728      </Position24>
    796729      <Position25>
    797         <Filename Value="../Units/GenericMatrix.pas"/>
    798         <Caret Line="53" Column="39" TopLine="38"/>
     730        <Filename Value="../Units/GenericDictionary.pas"/>
     731        <Caret Line="94" TopLine="59"/>
    799732      </Position25>
    800733      <Position26>
    801         <Filename Value="../Units/GenericMatrix.pas"/>
    802         <Caret Line="51" Column="39" TopLine="38"/>
     734        <Filename Value="../Units/GenericDictionary.pas"/>
     735        <Caret Line="90" TopLine="59"/>
    803736      </Position26>
    804737      <Position27>
    805         <Filename Value="../Units/GenericMatrix.pas"/>
    806         <Caret Line="52" Column="7" TopLine="38"/>
     738        <Filename Value="../Units/GenericDictionary.pas"/>
     739        <Caret Line="91" TopLine="59"/>
    807740      </Position27>
    808741      <Position28>
    809         <Filename Value="../Units/GenericMatrix.pas"/>
    810         <Caret Line="55" Column="52" TopLine="42"/>
     742        <Filename Value="../Units/GenericDictionary.pas"/>
     743        <Caret Line="94" TopLine="59"/>
    811744      </Position28>
    812745      <Position29>
    813         <Filename Value="../Units/GenericList.pas"/>
    814         <Caret Line="93" Column="25" TopLine="82"/>
     746        <Filename Value="../Units/GenericDictionary.pas"/>
     747        <Caret Line="90" TopLine="59"/>
    815748      </Position29>
    816749      <Position30>
    817         <Filename Value="../Units/GenericList.pas"/>
    818         <Caret Line="1077" Column="4" TopLine="1052"/>
     750        <Filename Value="../Units/GenericDictionary.pas"/>
     751        <Caret Line="96" TopLine="59"/>
    819752      </Position30>
    820753    </JumpHistory>
    … …  
    857790      </Options>
    858791    </Linking>
    859     <Other>
    860       <CompilerMessages>
    861         <UseMsgFile Value="True"/>
    862       </CompilerMessages>
    863       <CompilerPath Value="$(CompPath)"/>
    864     </Other>
    865792  </CompilerOptions>
    866793  <Debugging>
    867     <BreakPoints Count="2">
     794    <BreakPoints Count="1">
    868795      <Item1>
    869796        <Kind Value="bpkSource"/>
    … …  
    871798        <WatchKind Value="wpkWrite"/>
    872799        <Source Value="UMainForm.pas"/>
    873         <Line Value="206"/>
     800        <Line Value="657"/>
    874801      </Item1>
    875       <Item2>
    876         <Kind Value="bpkSource"/>
    877         <WatchScope Value="wpsLocal"/>
    878         <WatchKind Value="wpkWrite"/>
    879         <Source Value="UMainForm.pas"/>
    880         <Line Value="657"/>
    881       </Item2>
    882802    </BreakPoints>
    883803    <Exceptions Count="3">
    … …  
    893813    </Exceptions>
    894814  </Debugging>
    895   <EditorMacros Count="0"/>
    896815</CONFIG>

  • Generics/NativeGenerics/Demo/UMainForm.pas

    r327 r481  
    241241    Values['Key2'] := 'None';
    242242    WriteOutput('Values[Key2]', Values['Key2']);
    243     WriteOutput('Values[Key0]', Values['Key0']);
     243    WriteOutput('Index of Key0', IntToStr(SearchKey('Key0')));
    244244    WriteOutput('Keys[2]', Keys[2]);
    245245  finally

  • Generics/NativeGenerics/ReadMe.txt

    r458 r481  
    1515
    1616
    17 Require FPC version 2.7.1 and newer
     17Require FPC version 3.0.0 and newer
    1818

  • Generics/NativeGenerics/Units/GenericDictionary.pas

    r320 r481  
    9393    Result := Result + 1;
    9494  end;
     95  if Result >= FList.Count then Result := -1;
    9596end;
    9697

  • Generics/NativeGenerics/Units/GenericList.pas

    r458 r481  
    9696    function GetInternal(Index: TIndex): TItem; override;
    9797    function GetCount: TIndex; override;
    98     function GetCapacity: TIndex;
     98    function GetCapacity: TIndex; virtual;
    9999    procedure SetCount(const AValue: TIndex); override;
    100     procedure SetCapacity(const AValue: TIndex);
     100    procedure SetCapacity(const AValue: TIndex); virtual;
    101101    procedure SetCapacityOptimized(const NewCapacity: TIndex);
    102102    procedure Put(Index: TIndex; const AValue: TItem); override;
    … …  
    115115  TGObjectList<TItem> = class(TGList<TItem>)
    116116  protected
    117     procedure Put(Index: Integer; const AValue: TItem); override;
     117    procedure Put(Index: TIndex; const AValue: TItem); override;
    118118  public
    119119    OwnsObjects: Boolean;
    120120    procedure SetCount(const AValue: TIndex); override;
    121121    function AddNew(NewObject: TItem = nil): TItem;
    122     procedure Delete(const Index: Integer); override;
     122    procedure Delete(const Index: TIndex); override;
    123123    procedure Clear; override;
    124124    procedure Assign(Source: TGAbstractList<TItem>); override;
    … …  
    130130  private
    131131  public
    132     procedure Delete(const Index: Integer); override;
     132    procedure Delete(const Index: TIndex); override;
    133133    procedure Clear; override;
    134134    procedure Assign(Source: TGAbstractList<TItem>); override;
    … …  
    157157    procedure Open;
    158158    procedure Close;
    159     constructor Create;
     159    constructor Create; override;
    160160    destructor Destroy; override;
    161161    property FileName: string read FFileName write SetFileName;
    … …  
    328328end;
    329329
    330 procedure TGObjectList<TItem>.Put(Index: Integer; const AValue: TItem);
     330procedure TGObjectList<TItem>.Put(Index: TIndex; const AValue: TItem);
    331331begin
    332332  if OwnsObjects and Assigned(FItems[Index]) then FItems[Index].Free;
    … …  
    348348end;
    349349
    350 procedure TGObjectList<TItem>.Delete(const Index: Integer);
     350procedure TGObjectList<TItem>.Delete(const Index: TIndex);
    351351begin
    352352  (*if OwnsObjects then begin
    … …  
    383383end;
    384384
    385 procedure TGStringList<TItem>.Delete(const Index: Integer);
     385procedure TGStringList<TItem>.Delete(const Index: TIndex);
    386386begin
    387387  FItems[Index] := '';
    … …  
    720720    end else
    721721    if NewIndex < CurIndex then begin
    722       Temp.AddListPart(Self, CurIndex, ACount);
     722       Temp.AddListPart(Self, CurIndex, ACount);
    723723      CopyItems(NewIndex, NewIndex + ACount, CurIndex - NewIndex);
    724724      ReplaceList(NewIndex, Temp);

  • Generics/NativeGenerics/Units/GenericStream.pas

    r425 r481  
    5252    function ReadList(List: TGList<TItem>; Count: TIndex): TIndex;
    5353    function ReadBuffer(var Buffer; Count: Integer): Integer; override;
    54     function Insert(Count: TIndex): Integer; override;
    55     function Remove(Count: TIndex): Integer; override;
     54    function Insert(Count: TIndex): TIndex; override;
     55    function Remove(Count: TIndex): TIndex; override;
    5656    function Seek(Offset: TIndex; Origin: TSeekOrigin = soCurrent): TIndex; override;
    5757    constructor Create; override;
Note: See TracChangeset for help on using the changeset viewer.