Ignore:
Timestamp:
Feb 8, 2012, 1:04:21 PM (13 years ago)
Author:
chronos
Message:
  • Modified: TListChar in unit SpecializedList replaced by more general TGString in GenericString.
  • Added: TGBitmap example implementation.
  • Modified: TGList splitted to TGAbstractList and TGList as memory implementation.
  • Modified: TGMatrix splitted to TGAbstractMatrix and TGMatrix as memory implementation.
Location:
Generics/NativeGenerics/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Generics/NativeGenerics/Demo/Demo.lpi

    r323 r324  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="59">
     40    <Units Count="69">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    4343        <IsPartOfProject Value="True"/>
    4444        <UnitName Value="Demo"/>
    45         <EditorIndex Value="9"/>
     45        <EditorIndex Value="17"/>
    4646        <WindowIndex Value="0"/>
    4747        <TopLine Value="1"/>
    … …  
    5757        <ResourceBaseClass Value="Form"/>
    5858        <UnitName Value="UMainForm"/>
    59         <IsVisibleTab Value="True"/>
    6059        <EditorIndex Value="0"/>
    6160        <WindowIndex Value="0"/>
    62         <TopLine Value="178"/>
    63         <CursorPos X="15" Y="191"/>
     61        <TopLine Value="166"/>
     62        <CursorPos X="1" Y="179"/>
    6463        <UsageCount Value="233"/>
    6564        <Bookmarks Count="1">
    66           <Item0 X="65" Y="276" ID="2"/>
     65          <Item0 X="65" Y="275" ID="2"/>
    6766        </Bookmarks>
    6867        <Loaded Value="True"/>
    … …  
    440439        <Filename Value="../Units/GenericList.pas"/>
    441440        <UnitName Value="GenericList"/>
    442         <EditorIndex Value="3"/>
    443         <WindowIndex Value="0"/>
    444         <TopLine Value="516"/>
    445         <CursorPos X="1" Y="528"/>
    446         <UsageCount Value="37"/>
     441        <EditorIndex Value="11"/>
     442        <WindowIndex Value="0"/>
     443        <TopLine Value="7"/>
     444        <CursorPos X="3" Y="8"/>
     445        <UsageCount Value="40"/>
    447446        <Loaded Value="True"/>
    448447      </Unit46>
    … …  
    450449        <Filename Value="../Units/GenericMatrix.pas"/>
    451450        <UnitName Value="GenericMatrix"/>
    452         <EditorIndex Value="8"/>
    453         <WindowIndex Value="0"/>
    454         <TopLine Value="77"/>
    455         <CursorPos X="1" Y="85"/>
    456         <UsageCount Value="15"/>
     451        <IsVisibleTab Value="True"/>
     452        <EditorIndex Value="16"/>
     453        <WindowIndex Value="0"/>
     454        <TopLine Value="92"/>
     455        <CursorPos X="5" Y="106"/>
     456        <UsageCount Value="18"/>
    457457        <Loaded Value="True"/>
    458458      </Unit47>
    … …  
    460460        <Filename Value="../Units/GenericStream.pas"/>
    461461        <UnitName Value="GenericStream"/>
    462         <EditorIndex Value="1"/>
    463         <WindowIndex Value="0"/>
    464         <TopLine Value="102"/>
    465         <CursorPos X="20" Y="117"/>
    466         <UsageCount Value="15"/>
     462        <EditorIndex Value="9"/>
     463        <WindowIndex Value="0"/>
     464        <TopLine Value="34"/>
     465        <CursorPos X="18" Y="48"/>
     466        <UsageCount Value="18"/>
    467467        <Loaded Value="True"/>
    468468      </Unit48>
    … …  
    478478        <Filename Value="../Units/GenericDictionary.pas"/>
    479479        <UnitName Value="GenericDictionary"/>
    480         <EditorIndex Value="7"/>
     480        <EditorIndex Value="15"/>
    481481        <WindowIndex Value="0"/>
    482482        <TopLine Value="1"/>
    483483        <CursorPos X="1" Y="1"/>
    484         <UsageCount Value="16"/>
     484        <UsageCount Value="19"/>
    485485        <Loaded Value="True"/>
    486486      </Unit50>
    487487      <Unit51>
    488488        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/objpas/sysutils/sysunih.inc"/>
    489         <EditorIndex Value="6"/>
     489        <EditorIndex Value="14"/>
    490490        <WindowIndex Value="0"/>
    491491        <TopLine Value="9"/>
    492492        <CursorPos X="10" Y="22"/>
    493         <UsageCount Value="16"/>
     493        <UsageCount Value="19"/>
    494494        <Loaded Value="True"/>
    495495        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    498498        <Filename Value="../Units/SpecializedList.pas"/>
    499499        <UnitName Value="SpecializedList"/>
    500         <EditorIndex Value="10"/>
    501         <WindowIndex Value="0"/>
    502         <TopLine Value="1"/>
    503         <CursorPos X="23" Y="11"/>
    504         <UsageCount Value="16"/>
     500        <EditorIndex Value="18"/>
     501        <WindowIndex Value="0"/>
     502        <TopLine Value="45"/>
     503        <CursorPos X="1" Y="68"/>
     504        <UsageCount Value="19"/>
    505505        <Loaded Value="True"/>
    506506      </Unit52>
    507507      <Unit53>
    508508        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/fpc/2.7.1/source/rtl/objpas/classes/classesh.inc"/>
    509         <EditorIndex Value="2"/>
     509        <EditorIndex Value="10"/>
    510510        <WindowIndex Value="0"/>
    511511        <TopLine Value="257"/>
    512512        <CursorPos X="3" Y="270"/>
    513         <UsageCount Value="13"/>
     513        <UsageCount Value="16"/>
    514514        <Loaded Value="True"/>
    515515      </Unit53>
    … …  
    533533        <Filename Value="../Units/GenericRange.pas"/>
    534534        <UnitName Value="GenericRange"/>
    535         <EditorIndex Value="4"/>
     535        <EditorIndex Value="12"/>
    536536        <WindowIndex Value="0"/>
    537537        <TopLine Value="4"/>
    538538        <CursorPos X="33" Y="8"/>
    539         <UsageCount Value="16"/>
     539        <UsageCount Value="19"/>
    540540        <Loaded Value="True"/>
    541541      </Unit56>
    … …  
    550550        <Filename Value="../Units/GenericTree.pas"/>
    551551        <UnitName Value="GenericTree"/>
     552        <EditorIndex Value="13"/>
     553        <WindowIndex Value="0"/>
     554        <TopLine Value="1"/>
     555        <CursorPos X="1" Y="1"/>
     556        <UsageCount Value="19"/>
     557        <Loaded Value="True"/>
     558      </Unit58>
     559      <Unit59>
     560        <Filename Value="../Units/GenericString.pas"/>
     561        <UnitName Value="GenericString"/>
     562        <EditorIndex Value="19"/>
     563        <WindowIndex Value="0"/>
     564        <TopLine Value="35"/>
     565        <CursorPos X="23" Y="40"/>
     566        <UsageCount Value="12"/>
     567        <Loaded Value="True"/>
     568      </Unit59>
     569      <Unit60>
     570        <Filename Value="../Units/GenericBitmap.pas"/>
     571        <UnitName Value="GenericBitmap"/>
     572        <EditorIndex Value="20"/>
     573        <WindowIndex Value="0"/>
     574        <TopLine Value="22"/>
     575        <CursorPos X="18" Y="46"/>
     576        <UsageCount Value="11"/>
     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="1"/>
     583        <WindowIndex Value="0"/>
     584        <TopLine Value="1151"/>
     585        <CursorPos X="22" Y="1165"/>
     586        <UsageCount Value="11"/>
     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="8"/>
     592        <WindowIndex Value="0"/>
     593        <TopLine Value="310"/>
     594        <CursorPos X="22" Y="314"/>
     595        <UsageCount Value="11"/>
     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="7"/>
     601        <WindowIndex Value="0"/>
     602        <TopLine Value="53"/>
     603        <CursorPos X="3" Y="46"/>
     604        <UsageCount Value="11"/>
     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="4"/>
     611        <WindowIndex Value="0"/>
     612        <TopLine Value="347"/>
     613        <CursorPos X="15" Y="360"/>
     614        <UsageCount Value="11"/>
     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="6"/>
     620        <WindowIndex Value="0"/>
     621        <TopLine Value="308"/>
     622        <CursorPos X="3" Y="310"/>
     623        <UsageCount Value="11"/>
     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"/>
    552628        <EditorIndex Value="5"/>
    553629        <WindowIndex Value="0"/>
    554         <TopLine Value="1"/>
    555         <CursorPos X="33" Y="8"/>
    556         <UsageCount Value="16"/>
    557         <Loaded Value="True"/>
    558       </Unit58>
     630        <TopLine Value="54"/>
     631        <CursorPos X="3" Y="63"/>
     632        <UsageCount Value="11"/>
     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="2"/>
     638        <WindowIndex Value="0"/>
     639        <TopLine Value="147"/>
     640        <CursorPos X="3" Y="152"/>
     641        <UsageCount Value="11"/>
     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="3"/>
     648        <WindowIndex Value="0"/>
     649        <TopLine Value="153"/>
     650        <CursorPos X="15" Y="166"/>
     651        <UsageCount Value="11"/>
     652        <Loaded Value="True"/>
     653      </Unit68>
    559654    </Units>
    560655    <JumpHistory Count="30" HistoryIndex="29">
    561656      <Position1>
    562         <Filename Value="UMainForm.pas"/>
    563         <Caret Line="443" Column="1" TopLine="429"/>
     657        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/graphics.pp"/>
     658        <Caret Line="2342" Column="15" TopLine="2329"/>
    564659      </Position1>
    565660      <Position2>
    566         <Filename Value="UMainForm.pas"/>
    567         <Caret Line="442" Column="3" TopLine="429"/>
     661        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/graphics.pp"/>
     662        <Caret Line="1008" Column="3" TopLine="995"/>
    568663      </Position2>
    569664      <Position3>
    570         <Filename Value="UMainForm.pas"/>
    571         <Caret Line="656" Column="20" TopLine="643"/>
     665        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/graphics.pp"/>
     666        <Caret Line="1182" Column="17" TopLine="1169"/>
    572667      </Position3>
    573668      <Position4>
    574         <Filename Value="UMainForm.pas"/>
    575         <Caret Line="189" Column="3" TopLine="182"/>
     669        <Filename Value="../../../../../Lazarus/0.9.31_2.7.1/lcl/graphics.pp"/>
     670        <Caret Line="1176" Column="67" TopLine="1169"/>
    576671      </Position4>
    577672      <Position5>
    578         <Filename Value="../Units/GenericStream.pas"/>
    579         <Caret Line="43" Column="15" TopLine="30"/>
     673        <Filename Value="../Units/GenericMatrix.pas"/>
     674        <Caret Line="35" Column="14" TopLine="73"/>
    580675      </Position5>
    581676      <Position6>
    582         <Filename Value="UMainForm.pas"/>
    583         <Caret Line="191" Column="1" TopLine="182"/>
     677        <Filename Value="../Units/GenericMatrix.pas"/>
     678        <Caret Line="28" Column="51" TopLine="17"/>
    584679      </Position6>
    585680      <Position7>
    586         <Filename Value="UMainForm.pas"/>
    587         <Caret Line="192" Column="1" TopLine="182"/>
     681        <Filename Value="../Units/GenericMatrix.pas"/>
     682        <Caret Line="13" Column="6" TopLine="18"/>
    588683      </Position7>
    589684      <Position8>
    590         <Filename Value="UMainForm.pas"/>
    591         <Caret Line="193" Column="1" TopLine="182"/>
     685        <Filename Value="../Units/GenericMatrix.pas"/>
     686        <Caret Line="30" Column="43" TopLine="9"/>
    592687      </Position8>
    593688      <Position9>
    594         <Filename Value="UMainForm.pas"/>
    595         <Caret Line="194" Column="1" TopLine="182"/>
     689        <Filename Value="../Units/GenericMatrix.pas"/>
     690        <Caret Line="34" Column="36" TopLine="21"/>
    596691      </Position9>
    597692      <Position10>
    598         <Filename Value="UMainForm.pas"/>
    599         <Caret Line="195" Column="1" TopLine="182"/>
     693        <Filename Value="../Units/GenericMatrix.pas"/>
     694        <Caret Line="30" Column="45" TopLine="22"/>
    600695      </Position10>
    601696      <Position11>
    602697        <Filename Value="UMainForm.pas"/>
    603         <Caret Line="196" Column="1" TopLine="182"/>
     698        <Caret Line="47" Column="1" TopLine="34"/>
    604699      </Position11>
    605700      <Position12>
    606         <Filename Value="UMainForm.pas"/>
    607         <Caret Line="197" Column="1" TopLine="182"/>
     701        <Filename Value="../Units/GenericMatrix.pas"/>
     702        <Caret Line="57" Column="21" TopLine="44"/>
    608703      </Position12>
    609704      <Position13>
    610         <Filename Value="UMainForm.pas"/>
    611         <Caret Line="198" Column="1" TopLine="182"/>
     705        <Filename Value="../Units/GenericMatrix.pas"/>
     706        <Caret Line="81" Column="1" TopLine="78"/>
    612707      </Position13>
    613708      <Position14>
    614         <Filename Value="UMainForm.pas"/>
    615         <Caret Line="199" Column="1" TopLine="182"/>
     709        <Filename Value="../Units/GenericMatrix.pas"/>
     710        <Caret Line="55" Column="56" TopLine="30"/>
    616711      </Position14>
    617712      <Position15>
    618         <Filename Value="UMainForm.pas"/>
    619         <Caret Line="200" Column="1" TopLine="182"/>
     713        <Filename Value="../Units/GenericMatrix.pas"/>
     714        <Caret Line="98" Column="1" TopLine="75"/>
    620715      </Position15>
    621716      <Position16>
    622         <Filename Value="UMainForm.pas"/>
    623         <Caret Line="201" Column="1" TopLine="182"/>
     717        <Filename Value="../Units/GenericMatrix.pas"/>
     718        <Caret Line="59" Column="40" TopLine="36"/>
    624719      </Position16>
    625720      <Position17>
    626         <Filename Value="UMainForm.pas"/>
    627         <Caret Line="202" Column="1" TopLine="191"/>
     721        <Filename Value="../Units/GenericMatrix.pas"/>
     722        <Caret Line="48" Column="39" TopLine="35"/>
    628723      </Position17>
    629724      <Position18>
    630         <Filename Value="UMainForm.pas"/>
    631         <Caret Line="203" Column="1" TopLine="191"/>
     725        <Filename Value="../Units/GenericMatrix.pas"/>
     726        <Caret Line="67" Column="1" TopLine="46"/>
    632727      </Position18>
    633728      <Position19>
    634         <Filename Value="UMainForm.pas"/>
    635         <Caret Line="204" Column="1" TopLine="191"/>
     729        <Filename Value="../Units/GenericMatrix.pas"/>
     730        <Caret Line="104" Column="53" TopLine="91"/>
    636731      </Position19>
    637732      <Position20>
    638         <Filename Value="UMainForm.pas"/>
    639         <Caret Line="205" Column="1" TopLine="191"/>
     733        <Filename Value="../Units/GenericMatrix.pas"/>
     734        <Caret Line="181" Column="26" TopLine="168"/>
    640735      </Position20>
    641736      <Position21>
    642         <Filename Value="../Units/GenericStream.pas"/>
    643         <Caret Line="11" Column="19" TopLine="1"/>
     737        <Filename Value="../Units/GenericMatrix.pas"/>
     738        <Caret Line="53" Column="80" TopLine="40"/>
    644739      </Position21>
    645740      <Position22>
    646         <Filename Value="../Units/GenericStream.pas"/>
    647         <Caret Line="23" Column="32" TopLine="10"/>
     741        <Filename Value="../Units/GenericMatrix.pas"/>
     742        <Caret Line="57" Column="14" TopLine="44"/>
    648743      </Position22>
    649744      <Position23>
    650         <Filename Value="../Units/GenericStream.pas"/>
    651         <Caret Line="38" Column="43" TopLine="25"/>
     745        <Filename Value="../Units/GenericMatrix.pas"/>
     746        <Caret Line="50" Column="39" TopLine="37"/>
    652747      </Position23>
    653748      <Position24>
    654         <Filename Value="../Units/GenericStream.pas"/>
    655         <Caret Line="43" Column="40" TopLine="30"/>
     749        <Filename Value="../Units/GenericMatrix.pas"/>
     750        <Caret Line="57" Column="14" TopLine="44"/>
    656751      </Position24>
    657752      <Position25>
    658         <Filename Value="../Units/GenericStream.pas"/>
    659         <Caret Line="64" Column="52" TopLine="51"/>
     753        <Filename Value="../Units/GenericMatrix.pas"/>
     754        <Caret Line="49" Column="3" TopLine="37"/>
    660755      </Position25>
    661756      <Position26>
    662         <Filename Value="../Units/GenericStream.pas"/>
    663         <Caret Line="105" Column="23" TopLine="90"/>
     757        <Filename Value="../Units/GenericMatrix.pas"/>
     758        <Caret Line="54" Column="35" TopLine="41"/>
    664759      </Position26>
    665760      <Position27>
    666         <Filename Value="../Units/GenericStream.pas"/>
    667         <Caret Line="38" Column="11" TopLine="25"/>
     761        <Filename Value="../Units/GenericMatrix.pas"/>
     762        <Caret Line="49" Column="1" TopLine="41"/>
    668763      </Position27>
    669764      <Position28>
    670         <Filename Value="../Units/GenericStream.pas"/>
    671         <Caret Line="199" Column="15" TopLine="174"/>
     765        <Filename Value="../Units/GenericMatrix.pas"/>
     766        <Caret Line="56" Column="1" TopLine="44"/>
    672767      </Position28>
    673768      <Position29>
    674         <Filename Value="UMainForm.pas"/>
    675         <Caret Line="744" Column="81" TopLine="1"/>
     769        <Filename Value="../Units/GenericMatrix.pas"/>
     770        <Caret Line="639" Column="28" TopLine="628"/>
    676771      </Position29>
    677772      <Position30>
    678         <Filename Value="UMainForm.pas"/>
    679         <Caret Line="184" Column="13" TopLine="171"/>
     773        <Filename Value="../Units/GenericMatrix.pas"/>
     774        <Caret Line="107" Column="18" TopLine="91"/>
    680775      </Position30>
    681776    </JumpHistory>
    … …  
    732827        <WatchKind Value="wpkWrite"/>
    733828        <Source Value="UMainForm.pas"/>
    734         <Line Value="205"/>
     829        <Line Value="204"/>
    735830      </Item1>
    736831    </BreakPoints>

  • Generics/NativeGenerics/Demo/UMainForm.pas

    r323 r324  
    4545  public
    4646    MeasureDuration: TDateTime;
    47     Bitmap: TBitmap;
    4847    procedure UpdateButtonState(Enabled: Boolean);
    4948    procedure WriteOutput(Text1: string = ''; Text2: string = '');
Note: See TracChangeset for help on using the changeset viewer.