Changeset 220 for Generics


Ignore:
Timestamp:
Mar 28, 2011, 9:11:05 AM (14 years ago)
Author:
george
Message:
Location:
Generics/TemplateGenerics
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Demo/Demo.lpi

    r219 r220  
    5555        <ResourceBaseClass Value="Form"/>
    5656        <UnitName Value="UMainForm"/>
    57         <IsVisibleTab Value="True"/>
    5857        <EditorIndex Value="0"/>
    5958        <WindowIndex Value="0"/>
    60         <TopLine Value="645"/>
    61         <CursorPos X="28" Y="663"/>
     59        <TopLine Value="624"/>
     60        <CursorPos X="39" Y="628"/>
    6261        <UsageCount Value="233"/>
    6362        <Bookmarks Count="1">
    … …  
    419418      <Unit46>
    420419        <Filename Value="../Generic/GenericMatrix.inc"/>
     420        <IsVisibleTab Value="True"/>
    421421        <EditorIndex Value="7"/>
    422422        <WindowIndex Value="0"/>
    423         <TopLine Value="311"/>
    424         <CursorPos X="48" Y="331"/>
     423        <TopLine Value="9"/>
     424        <CursorPos X="31" Y="19"/>
    425425        <UsageCount Value="103"/>
    426426        <Loaded Value="True"/>
    … …  
    504504        <EditorIndex Value="8"/>
    505505        <WindowIndex Value="0"/>
    506         <TopLine Value="31"/>
    507         <CursorPos X="38" Y="62"/>
     506        <TopLine Value="1"/>
     507        <CursorPos X="25" Y="41"/>
    508508        <UsageCount Value="19"/>
    509509        <Loaded Value="True"/>

  • Generics/TemplateGenerics/Generic/GenericListObject.inc

    r112 r220  
    1717  public
    1818    OwnsObjects: Boolean;
     19    function AddNew: TGListItem;
     20    function AddInsertNew(Index: TGListIndex): TGListItem;
    1921    procedure Delete(Index: TGListObjectIndex); override;
    2022    procedure Clear; override;
    … …  
    4850
    4951{ TGListObject }
     52
     53function TGListObject.AddNew: TGListItem;
     54begin
     55  Result := TGListItem.Create;
     56  Add(Result);
     57end;
     58
     59function TGListObject.AddInsertNew(Index: TGListIndex): TGListItem;
     60begin
     61  Result := TGListItem.Create;
     62  Insert(Index, Result);
     63end;
    5064
    5165procedure TGListObject.Assign(Source: TGList);

  • Generics/TemplateGenerics/TemplateGenerics.lpk

    r219 r220  
    44    <PathDelim Value="\"/>
    55    <Name Value="TemplateGenerics"/>
    6     <Author Value="Chronos"/>
     6    <Author Value="Chronos (robie@centrum.cz)"/>
    77    <CompilerOptions>
    88      <Version Value="10"/>
Note: See TracChangeset for help on using the changeset viewer.