Changeset 21 for trunk


Ignore:
Timestamp:
Jun 16, 2011, 10:32:01 AM (13 years ago)
Author:
george
Message:
  • Added: Item selection form for TypeRelationOne.
  • Modified: Primary keys have to have their property record for each object.
  • Added: Object propery havet to be initialized with Editable flag.
Location:
trunk
Files:
3 added
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UDataTypes.pas

    r20 r21  
    1818    function GetControlValue(Control: TWinControl): string; virtual;
    1919    procedure Load(CellValue: string); virtual;
    20     procedure LoadDef(CustomType: Integer); virtual;
     20    procedure LoadDef(ACustomType: Integer); virtual;
    2121    procedure SetDefault; virtual;
    2222    function GetStringValue: string; virtual;
    … …  
    7474
    7575  TDataTypeRelationOne = class(TDataType)
     76  private
     77    procedure ButtonClickExecute(Sender: TObject);
     78  public
    7679    ObjectId: Integer;
    7780    SelectedItemName: string;
    … …  
    7982    procedure SetupControl(Control: TWinControl); override;
    8083    procedure Load(CellValue: string); override;
     84    procedure LoadDef(ACustomType: Integer); override;
    8185  end;
    8286
    … …  
    137141
    138142uses
    139   USqlDatabase, USystem, UCore;
     143  USqlDatabase, USystem, UCore, UItemSelect;
    140144
    141145function GetDataType(ACustomType: Integer): TDataType;
    … …  
    247251{ TDataTypeRelationOne }
    248252
     253procedure TDataTypeRelationOne.ButtonClickExecute(Sender: TObject);
     254begin
     255  ItemSelectForm.ObjectId := ObjectId;
     256  ItemSelectForm.ShowModal;
     257end;
     258
    249259function TDataTypeRelationOne.CreateControl(Owner: TComponent): TWinControl;
    250260begin
    251   Result := TEdit.Create(Owner);
    252   TEdit(Result).Enabled := False;
     261  Result := TEditButton.Create(Owner);
     262  TEditButton(Result).Enabled := False;
     263  TEditButton(Result).Button.Enabled := True;
     264  TEditButton(Result).Button.OnClick := ButtonClickExecute;
    253265end;
    254266
    255267procedure TDataTypeRelationOne.SetupControl(Control: TWinControl);
    256268begin
    257   TEdit(Control).Text := SelectedItemName;
     269  TEditButton(Control).Text := SelectedItemName;
    258270end;
    259271
    … …  
    261273begin
    262274  SelectedItemName := CellValue;
     275end;
     276
     277procedure TDataTypeRelationOne.LoadDef(ACustomType: Integer);
     278var
     279  DbRows: TDbRows;
     280begin
     281  try
     282    DbRows := TDbRows.Create;
     283    Core.System.Database.Select(DbRows, TypeRelationOne, '*', 'CustomType=' + IntToStr(ACustomType));
     284    ObjectId := StrToInt(DbRows[0].Values['Object']);
     285  finally
     286    DbRows.Free;
     287  end;
    263288end;
    264289
    … …  
    420445end;
    421446
    422 procedure TDataType.LoadDef(CustomType: Integer);
     447procedure TDataType.LoadDef(ACustomType: Integer);
    423448begin
    424449

  • trunk/Forms/UImportStructureForm.pas

    r20 r21  
    160160        PropType := Columns[C].Values['DATA_TYPE'];
    161161        if Columns[C].Values['CONSTRAINT_TYPE'] = 'FOREIGN KEY' then begin
     162          RefObjectIndex := ObjectIdByName(Columns[C].Values['REFERENCED_TABLE_NAME']);
    162163          PropertyId := Core.System.AddPropertyRelationOne(ObjectId, PropertyName, PropertyName,
    163             ObjectIdByName(Columns[C].Values['REFERENCED_TABLE_NAME']));
     164            True, StrToInt(TSQLTable(SQLTables[RefObjectIndex]).Table.Values['ObjId']));
    164165        end else
    165166        if PropType = 'int' then
    166           PropertyId := Core.System.AddPropertyNumber(ObjectId, PropertyName, PropertyName);
     167          PropertyId := Core.System.AddPropertyNumber(ObjectId, PropertyName, PropertyName, True);
    167168        if PropType = 'varchar' then
    168           PropertyId := Core.System.AddPropertyString(ObjectId, PropertyName, PropertyName);
     169          PropertyId := Core.System.AddPropertyString(ObjectId, PropertyName, PropertyName, True);
    169170        if PropType = 'float' then
    170           PropertyId := Core.System.AddPropertyFloat(ObjectId, PropertyName, PropertyName);
     171          PropertyId := Core.System.AddPropertyFloat(ObjectId, PropertyName, PropertyName, True);
    171172        if PropType = 'datetime' then
    172           PropertyId := Core.System.AddPropertyDateTime(ObjectId, PropertyName, PropertyName);
     173          PropertyId := Core.System.AddPropertyDateTime(ObjectId, PropertyName, PropertyName, True);
    173174        Columns[C].Add('Id', IntToStr(PropertyId));
    174175        Memo1.Lines.Add('Create property "' + PropertyName + '" of type ' + PropType + '"');
    … …  
    192193          RefPropertyId := StrToInt(TSQLTable(SQLTables[T]).Columns[RefPropertyId].Values['Id']);
    193194          PropertyId := Core.System.AddPropertyRelationMany(StrToInt(TSQLTable(SQLTables[RefObjectIndex]).Table.Values['ObjId']), TableName, TableName,
    194             RefPropertyId);
     195            True, RefPropertyId);
    195196        end;
    196197      end;

  • trunk/Forms/UItemAdd.pas

    r18 r21  
    129129
    130130      DataType := TReportColumn(Report.Columns[I]).CustomType;
     131      DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
    131132      if not (DataType is TDataTypeRelationMany) then begin
    132133        NewControl := DataType.CreateControl(Panel1);

  • trunk/Forms/UItemEdit.pas

    r18 r21  
    132132
    133133      DataType := TReportColumn(Report.Columns[I]).CustomType;
     134      DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
    134135      if not (DataType is TDataTypeRelationMany) then begin
    135136        NewControl := DataType.CreateControl(Panel1);

  • trunk/Forms/UItemView.pas

    r17 r21  
    174174
    175175procedure TItemViewForm.LoadSubList;
    176 var
    177   NewColumn: TListColumn;
    178   I: Integer;
    179176begin
    180177  //SelectedObjectId := 0;
    … …  
    186183    Report.Load(SubListObject, '`' + PropertyName + '`=' + IntToStr(TabObjectList[TabControl1.TabIndex]));
    187184
    188     Columns.Clear;
    189     for I := 0 to Report.Columns.Count - 1 do
    190     if not TReportColumn(Report.Columns[I]).VirtualItem then begin
    191       NewColumn := Columns.Add;
    192       NewColumn.Caption := TReportColumn(Report.Columns[I]).Caption;
    193     end;
     185    Report.FillListColumns(Columns);
    194186    Items.Count := Report.Count;
    195187    Refresh;

  • trunk/Forms/UMainForm.lfm

    r20 r21  
    66  ActiveControl = Panel1
    77  Caption = 'ChronIS'
    8   ClientHeight = 430
     8  ClientHeight = 431
    99  ClientWidth = 644
    1010  Menu = MainMenu1
    … …  
    1616  object Panel1: TPanel
    1717    Left = 0
    18     Height = 430
     18    Height = 431
    1919    Top = 0
    2020    Width = 184
    2121    Align = alLeft
    2222    BevelOuter = bvNone
    23     ClientHeight = 430
     23    ClientHeight = 431
    2424    ClientWidth = 184
    2525    TabOrder = 0
    … …  
    3434    object TreeView1: TTreeView
    3535      Left = 4
    36       Height = 406
     36      Height = 407
    3737      Top = 19
    3838      Width = 180
    … …  
    4848  object Panel2: TPanel
    4949    Left = 189
    50     Height = 430
     50    Height = 431
    5151    Top = 0
    5252    Width = 455
    5353    Align = alClient
    5454    BevelOuter = bvNone
    55     ClientHeight = 430
     55    ClientHeight = 431
    5656    ClientWidth = 455
    5757    TabOrder = 1
    … …  
    6666    object ListView1: TListView
    6767      Left = 2
    68       Height = 374
     68      Height = 375
    6969      Top = 19
    7070      Width = 451
    … …  
    8686      Left = 3
    8787      Height = 25
    88       Top = 401
     88      Top = 402
    8989      Width = 75
    9090      Action = AItemAdd
    … …  
    9595      Left = 83
    9696      Height = 25
    97       Top = 401
     97      Top = 402
    9898      Width = 75
    9999      Action = AItemDelete
    … …  
    104104  object Splitter1: TSplitter
    105105    Left = 184
    106     Height = 430
     106    Height = 431
    107107    Top = 0
    108108    Width = 5

  • trunk/Forms/UMainForm.pas

    r20 r21  
    445445
    446446  ObjectGroupId := AddObject('Object groups', 'ObjectGroup', Core.System.Database.Database, GroupId);
    447     AddPropertyString(ObjectGroupId, 'Name', 'Name');
    448     ObjectGroupParentId := AddPropertyRelationOne(ObjectGroupId, 'Parent', 'Parent', ObjectGroupId);
     447    AddPropertyNumber(ObjectGroupId, 'Id', 'Id', False);
     448    AddPropertyString(ObjectGroupId, 'Name', 'Name', True);
     449    ObjectGroupParentId := AddPropertyRelationOne(ObjectGroupId, 'Parent', 'Parent', True, ObjectGroupId);
    449450
    450451  ObjectId := AddObject('Objects', 'Object', Core.System.Database.Database, GroupId);
    451     AddPropertyString(ObjectId, 'Name', 'Name');
    452     ObjectIdGroupId := AddPropertyRelationOne(ObjectId, 'Group', 'Group', ObjectGroupId);
    453     AddPropertyString(ObjectId, 'Schema', 'Schema');
    454     AddPropertyString(ObjectId, 'Table', 'Table');
    455     AddPropertyString(ObjectId, 'Primary key', 'PrimaryKey');
    456     AddPropertyNumber(ObjectId, 'Sequence', 'Sequence');
     452    AddPropertyNumber(ObjectId, 'Id', 'Id', False);
     453    AddPropertyString(ObjectId, 'Name', 'Name', True);
     454    ObjectIdGroupId := AddPropertyRelationOne(ObjectId, 'Group', 'Group', True, ObjectGroupId);
     455    AddPropertyString(ObjectId, 'Schema', 'Schema', True);
     456    AddPropertyString(ObjectId, 'Table', 'Table', True);
     457    AddPropertyString(ObjectId, 'Primary key', 'PrimaryKey', True);
     458    AddPropertyNumber(ObjectId, 'Sequence', 'Sequence', True);
    457459
    458460  PropertyTypeId := AddObject('Property types', 'Type', Core.System.Database.Database, GroupId);
    459     AddPropertyString(PropertyTypeId, 'Name', 'Name');
    460     AddPropertyString(PropertyTypeId, 'Type', 'DbType');
     461    AddPropertyNumber(PropertyTypeId, 'Id', 'Id', False);
     462    AddPropertyString(PropertyTypeId, 'Name', 'Name', True);
     463    AddPropertyString(PropertyTypeId, 'Type', 'DbType', True);
    461464    //AddPropertyNumber(ObjectId, 'Parent', 'Parent');
    462465
    463466  CustomTypeId := AddObject('Custom types', 'TypeCustom', Core.System.Database.Database, GroupId);
    464     CustomTypeIdType := AddPropertyRelationOne(CustomTypeId, 'Type', 'Type', PropertyTypeId);
     467    AddPropertyNumber(CustomTypeId, 'Id', 'Id', False);
     468    CustomTypeIdType := AddPropertyRelationOne(CustomTypeId, 'Type', 'Type', True, PropertyTypeId);
    465469
    466470  ObjectPropertyGroupId := AddObject('Property groups', 'PropertyGroup', Core.System.Database.Database, GroupId);
     471    AddPropertyNumber(ObjectPropertyGroupId, 'Id', 'Id', False);
    467472
    468473  ObjectPropertyId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId);
    469     AddPropertyString(ObjectPropertyId, 'Name', 'Name');
    470     PropertyParentId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', ObjectId);
    471     ObjectPropertyIdGroup := AddPropertyRelationOne(ObjectPropertyId, 'Property group', 'PropertyGroup', ObjectPropertyGroupId);
    472     AddPropertyNumber(ObjectPropertyId, 'Custom type', 'CustomType');
    473     AddProperty(ObjectPropertyId, 'Editable', 'Editable', TypeBoolean);
    474     AddPropertyString(ObjectPropertyId, 'Column name', 'ColumnName');
    475 
    476     AddPropertyRelationMany(ObjectGroupId, 'Childs', 'Childs', PropertyParentId);
    477     AddPropertyRelationMany(ObjectGroupId, 'Objects', 'Objects', ObjectIdGroupId);
    478     AddPropertyRelationMany(ObjectId, 'Properties', 'Properties', PropertyParentId);
    479     AddPropertyRelationMany(ObjectPropertyGroupId, 'Properties', 'Properties', ObjectPropertyIdGroup);
    480     AddPropertyRelationMany(PropertyTypeId, 'Custom types', 'CustomTypes', CustomTypeIdType);
     474    AddPropertyNumber(ObjectPropertyId, 'Id', 'Id', False);
     475    AddPropertyString(ObjectPropertyId, 'Name', 'Name', True);
     476    PropertyParentId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', True, ObjectId);
     477    ObjectPropertyIdGroup := AddPropertyRelationOne(ObjectPropertyId, 'Property group', 'PropertyGroup', True, ObjectPropertyGroupId);
     478    AddPropertyNumber(ObjectPropertyId, 'Custom type', 'CustomType', True);
     479    AddProperty(ObjectPropertyId, 'Editable', 'Editable', TypeBoolean, True);
     480    AddPropertyString(ObjectPropertyId, 'Column name', 'ColumnName', True);
     481
     482    AddPropertyRelationMany(ObjectGroupId, 'Childs', 'Childs', True, PropertyParentId);
     483    AddPropertyRelationMany(ObjectGroupId, 'Objects', 'Objects', True, ObjectIdGroupId);
     484    AddPropertyRelationMany(ObjectId, 'Properties', 'Properties', True, PropertyParentId);
     485    AddPropertyRelationMany(ObjectPropertyGroupId, 'Properties', 'Properties', True, ObjectPropertyIdGroup);
     486    AddPropertyRelationMany(PropertyTypeId, 'Custom types', 'CustomTypes', True, CustomTypeIdType);
    481487  end;
    482488end;
    … …  
    739745    Report.Load(SelectedObject);
    740746
    741     Columns.Clear;
    742     for I := 0 to Report.Columns.Count - 1 do
    743     if not TReportColumn(Report.Columns[I]).VirtualItem then begin
    744       NewColumn := Columns.Add;
    745       NewColumn.Caption := TReportColumn(Report.Columns[I]).Caption;
    746     end;
     747    Report.FillListColumns(Columns);
    747748    Items.Count := Report.Count;
    748749    Refresh;

  • trunk/USystem.pas

    r20 r21  
    77uses
    88  Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
    9   Strings, UDataTypes, Dialogs;
     9  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls;
    1010
    1111const
    … …  
    5353  end;
    5454
     55  { TReport }
     56
    5557  TReport = class(TListObject)
    5658    Base: TChronisBase;
    … …  
    5860    constructor Create;
    5961    destructor Destroy; override;
     62    procedure FillListColumns(AColumns: TListColumns);
    6063    procedure Load(Obj: TChronisObject; Filter: string = '');
    6164  end;
    … …  
    102105    function AddGroup(Name: string; ParentGroupId: Integer = 0): Integer;
    103106    function AddObject(Name, TableName, Schema: string; GroupId: Integer): Integer;
    104     function AddProperty(ObjectId: Integer; Name, ColumnName: string; CustomType: Integer): Integer;
     107    function AddProperty(ObjectId: Integer; Name, ColumnName: string;
     108      CustomType: Integer; Editable: Boolean): Integer;
    105109    function AddPropertyNumber(ObjectId: Integer; Name,
    106       ColumnName: string; Default: Integer = 0; Min: Integer = Low(Integer);
     110      ColumnName: string; Editable: Boolean; Default: Integer = 0; Min: Integer = Low(Integer);
    107111      Max: Integer = High(Integer)): Integer;
    108112    function AddPropertyFloat(ObjectId: Integer; Name,
    109       ColumnName: string; Default: Double = 0; Min: Double = 0;
     113      ColumnName: string; Editable: Boolean; Default: Double = 0; Min: Double = 0;
    110114      Max: Double = 0): Integer;
    111115    function AddPropertyDateTime(ObjectId: Integer; Name,
    112       ColumnName: string; Default: TDateTime = 0; Min: TDateTime = 0;
     116      ColumnName: string; Editable: Boolean; Default: TDateTime = 0; Min: TDateTime = 0;
    113117      Max: TDateTime = 0): Integer;
    114118    function AddPropertyString(ObjectId: Integer; Name, ColumnName: string;
    115       Default: string = ''; MaxLength: Integer = 255): Integer;
     119      Editable: Boolean; Default: string = ''; MaxLength: Integer = 255): Integer;
    116120    function AddPropertyRelationOne(ObjectId: Integer; Name, ColumnName: string;
    117       ReferedObject: Integer): Integer;
     121      Editable: Boolean; ReferedObject: Integer): Integer;
    118122    function AddPropertyRelationMany(ObjectId: Integer; Name, ColumnName: string;
    119       ReferedObjectProperty: Integer): Integer;
     123      Editable: Boolean; ReferedObjectProperty: Integer): Integer;
    120124    function AddObjectGroup(Name: string): Integer;
    121125    function AddEnumeration(Name: string): Integer;
    … …  
    188192        '` WHERE `Object`=' + IntToStr(Obj.Id));
    189193      Columns.Clear;
    190       NewColumn := TReportColumn.Create;
    191       Columns.Add(NewColumn);
    192       NewColumn.Caption := 'Id';
    193       NewColumn.ColumnName := 'Id';
    194       NewColumn.CustomType := TDataTypeNumber.Create;
    195194
    196195      for I := 0 to Properties.Count - 1 do begin
    … …  
    212211      System.Delete(ColumnsQuery, 1, 2);
    213212      if Filter <> '' then Filter := ' WHERE ' + Filter;
    214       Base.Database.Query(Values, 'SELECT ' + ColumnsQuery + ' FROM `' + Obj.Schema + '`.`' +
     213      Base.Database.Query(Values, 'SELECT ' + ColumnsQuery + ', `' + Obj.PrimaryKey + '` AS `SYS_PRIMARY_KEY` FROM `' + Obj.Schema + '`.`' +
    215214        Obj.Table + '`' + Filter);
    216215      for I := 0 to Values.Count - 1 do begin
    217216        NewItem := TReportLine.Create;
    218217        //NewItem.Items.Add(Values[I].Values[Obj.PrimaryKey]);
    219         NewItem.Id := StrToInt(Values[I].Values[Obj.PrimaryKey]);
     218        NewItem.Id := StrToInt(Values[I].Values['SYS_PRIMARY_KEY']);
    220219        for C := 0 to Columns.Count - 1 do
    221220        if not TReportColumn(Columns[C]).VirtualItem then begin
    … …  
    289288
    290289function TChronisBase.AddProperty(ObjectId: Integer; Name, ColumnName: string;
    291   CustomType: Integer): Integer;
     290  CustomType: Integer; Editable: Boolean): Integer;
    292291var
    293292  DbRows: TDbRows;
    … …  
    301300    Data.Add('ColumnName', ColumnName);
    302301    Data.Add('CustomType', IntToStr(CustomType));
    303     Data.Add('Editable', '1');
     302    Data.Add('Editable', IntToStr(Integer(Editable)));
    304303    Database.Insert(PropertyTable, Data);
    305304    Result := Database.LastInsertId;
    … …  
    311310
    312311function TChronisBase.AddPropertyNumber(ObjectId: Integer; Name,
    313   ColumnName: string; Default: Integer = 0; Min: Integer = Low(Integer);
     312  ColumnName: string; Editable: Boolean; Default: Integer = 0; Min: Integer = Low(Integer);
    314313  Max: Integer = High(Integer)): Integer;
    315314var
    … …  
    335334    //CustomTypeId := Database.LastInsertId;
    336335
    337     Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     336    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId, Editable);
    338337  finally
    339338    Data.Free;
    … …  
    343342
    344343function TChronisBase.AddPropertyFloat(ObjectId: Integer; Name,
    345   ColumnName: string; Default: Double; Min: Double; Max: Double): Integer;
     344  ColumnName: string; Editable: Boolean; Default: Double; Min: Double; Max: Double): Integer;
    346345var
    347346  DbRows: TDbRows;
    … …  
    366365    //CustomTypeId := Database.LastInsertId;
    367366
    368     Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     367    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId, Editable);
    369368  finally
    370369    Data.Free;
    … …  
    374373
    375374function TChronisBase.AddPropertyDateTime(ObjectId: Integer; Name,
    376   ColumnName: string; Default: TDateTime; Min: TDateTime; Max: TDateTime
     375  ColumnName: string; Editable: Boolean; Default: TDateTime; Min: TDateTime; Max: TDateTime
    377376  ): Integer;
    378377var
    … …  
    398397    //CustomTypeId := Database.LastInsertId;
    399398
    400     Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     399    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId, Editable);
    401400  finally
    402401    Data.Free;
    … …  
    406405
    407406function TChronisBase.AddPropertyString(ObjectId: Integer; Name,
    408   ColumnName: string; Default: string = ''; MaxLength: Integer = 255): Integer;
     407  ColumnName: string; Editable: Boolean; Default: string = ''; MaxLength: Integer = 255): Integer;
    409408var
    410409  DbRows: TDbRows;
    … …  
    428427    //CustomTypeId := Database.LastInsertId;
    429428
    430     Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     429    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId, Editable);
    431430  finally
    432431    Data.Free;
    … …  
    436435
    437436function TChronisBase.AddPropertyRelationOne(ObjectId: Integer; Name,
    438   ColumnName: string; ReferedObject: Integer): Integer;
     437  ColumnName: string; Editable: Boolean; ReferedObject: Integer): Integer;
    439438var
    440439  DbRows: TDbRows;
    … …  
    457456    //CustomTypeId := Database.LastInsertId;
    458457
    459     Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     458    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId, Editable);
    460459  finally
    461460    Data.Free;
    … …  
    465464
    466465function TChronisBase.AddPropertyRelationMany(ObjectId: Integer; Name,
    467   ColumnName: string; ReferedObjectProperty: Integer): Integer;
     466  ColumnName: string; Editable: Boolean; ReferedObjectProperty: Integer): Integer;
    468467var
    469468  DbRows: TDbRows;
    … …  
    486485    //CustomTypeId := Database.LastInsertId;
    487486
    488     Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     487    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId, Editable);
    489488  finally
    490489    Data.Free;
    … …  
    591590  Columns.Free;
    592591  inherited Destroy;
     592end;
     593
     594procedure TReport.FillListColumns(AColumns: TListColumns);
     595var
     596  I: Integer;
     597  NewColumn: TListColumn;
     598begin
     599  AColumns.Clear;
     600  for I := 0 to Columns.Count - 1 do
     601  if not TReportColumn(Columns[I]).VirtualItem then begin
     602    NewColumn := AColumns.Add;
     603    NewColumn.Caption := TReportColumn(Columns[I]).Caption;
     604  end;
    593605end;
    594606

  • trunk/chronis.lpi

    r20 r21  
    104104      </Item6>
    105105    </RequiredPackages>
    106     <Units Count="58">
     106    <Units Count="60">
    107107      <Unit0>
    108108        <Filename Value="chronis.lpr"/>
    … …  
    121121        <TopLine Value="330"/>
    122122        <CursorPos X="1" Y="347"/>
    123         <UsageCount Value="35"/>
     123        <UsageCount Value="34"/>
    124124        <DefaultSyntaxHighlighter Value="Delphi"/>
    125125      </Unit1>
    … …  
    133133        <TopLine Value="118"/>
    134134        <CursorPos X="25" Y="144"/>
    135         <UsageCount Value="89"/>
     135        <UsageCount Value="88"/>
    136136        <DefaultSyntaxHighlighter Value="Delphi"/>
    137137      </Unit2>
    … …  
    145145        <TopLine Value="1"/>
    146146        <CursorPos X="24" Y="14"/>
    147         <UsageCount Value="89"/>
     147        <UsageCount Value="88"/>
    148148        <DefaultSyntaxHighlighter Value="Delphi"/>
    149149      </Unit3>
    … …  
    164164        <TopLine Value="58"/>
    165165        <CursorPos X="73" Y="232"/>
    166         <UsageCount Value="255"/>
     166        <UsageCount Value="254"/>
    167167        <DefaultSyntaxHighlighter Value="Delphi"/>
    168168      </Unit5>
    … …  
    171171        <IsPartOfProject Value="True"/>
    172172        <UnitName Value="URegistry"/>
    173         <EditorIndex Value="22"/>
     173        <EditorIndex Value="17"/>
    174174        <WindowIndex Value="0"/>
    175175        <TopLine Value="19"/>
    … …  
    187187        <EditorIndex Value="0"/>
    188188        <WindowIndex Value="0"/>
    189         <TopLine Value="112"/>
    190         <CursorPos X="32" Y="121"/>
     189        <TopLine Value="108"/>
     190        <CursorPos X="65" Y="123"/>
    191191        <UsageCount Value="327"/>
    192192        <Loaded Value="True"/>
    … …  
    200200        <ResourceBaseClass Value="Form"/>
    201201        <UnitName Value="UItemEdit"/>
    202         <EditorIndex Value="1"/>
    203         <WindowIndex Value="0"/>
    204         <TopLine Value="89"/>
    205         <CursorPos X="1" Y="101"/>
     202        <EditorIndex Value="3"/>
     203        <WindowIndex Value="0"/>
     204        <TopLine Value="124"/>
     205        <CursorPos X="1" Y="135"/>
    206206        <UsageCount Value="318"/>
    207207        <Loaded Value="True"/>
    … …  
    216216        <ResourceBaseClass Value="Form"/>
    217217        <UnitName Value="ULoginForm"/>
    218         <EditorIndex Value="23"/>
     218        <EditorIndex Value="18"/>
    219219        <WindowIndex Value="0"/>
    220220        <TopLine Value="14"/>
    … …  
    232232        <ResourceBaseClass Value="Form"/>
    233233        <UnitName Value="UMainForm"/>
    234         <EditorIndex Value="3"/>
    235         <WindowIndex Value="0"/>
    236         <TopLine Value="352"/>
    237         <CursorPos X="35" Y="363"/>
     234        <IsVisibleTab Value="True"/>
     235        <EditorIndex Value="5"/>
     236        <WindowIndex Value="0"/>
     237        <TopLine Value="733"/>
     238        <CursorPos X="1" Y="748"/>
    238239        <UsageCount Value="317"/>
    239240        <Loaded Value="True"/>
    … …  
    245246        <IsPartOfProject Value="True"/>
    246247        <UnitName Value="UTreeState"/>
    247         <EditorIndex Value="21"/>
     248        <EditorIndex Value="16"/>
    248249        <WindowIndex Value="0"/>
    249250        <TopLine Value="1"/>
    … …  
    259260        <ResourceBaseClass Value="Form"/>
    260261        <UnitName Value="UItemAdd"/>
    261         <EditorIndex Value="2"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="51"/>
    264         <CursorPos X="17" Y="58"/>
     262        <EditorIndex Value="4"/>
     263        <WindowIndex Value="0"/>
     264        <TopLine Value="114"/>
     265        <CursorPos X="26" Y="127"/>
    265266        <UsageCount Value="313"/>
    266267        <Loaded Value="True"/>
    … …  
    273274        <TopLine Value="43"/>
    274275        <CursorPos X="1" Y="60"/>
    275         <UsageCount Value="1"/>
     276        <UsageCount Value="0"/>
    276277        <DefaultSyntaxHighlighter Value="Delphi"/>
    277278      </Unit13>
    … …  
    282283        <TopLine Value="1"/>
    283284        <CursorPos X="6" Y="1"/>
    284         <UsageCount Value="4"/>
     285        <UsageCount Value="3"/>
    285286        <DefaultSyntaxHighlighter Value="Delphi"/>
    286287      </Unit14>
    … …  
    290291        <TopLine Value="1"/>
    291292        <CursorPos X="3" Y="21"/>
    292         <UsageCount Value="4"/>
     293        <UsageCount Value="3"/>
    293294        <DefaultSyntaxHighlighter Value="Delphi"/>
    294295      </Unit15>
    … …  
    297298        <IsPartOfProject Value="True"/>
    298299        <UnitName Value="USystem"/>
    299         <EditorIndex Value="19"/>
    300         <WindowIndex Value="0"/>
    301         <TopLine Value="3"/>
    302         <CursorPos X="3" Y="15"/>
    303         <UsageCount Value="196"/>
     300        <EditorIndex Value="10"/>
     301        <WindowIndex Value="0"/>
     302        <TopLine Value="200"/>
     303        <CursorPos X="1" Y="215"/>
     304        <UsageCount Value="200"/>
    304305        <Loaded Value="True"/>
    305306        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    311312        <TopLine Value="912"/>
    312313        <CursorPos X="14" Y="929"/>
    313         <UsageCount Value="1"/>
     314        <UsageCount Value="0"/>
    314315        <DefaultSyntaxHighlighter Value="Delphi"/>
    315316      </Unit17>
    … …  
    320321        <ResourceBaseClass Value="DataModule"/>
    321322        <UnitName Value="UCore"/>
    322         <EditorIndex Value="18"/>
     323        <EditorIndex Value="9"/>
    323324        <WindowIndex Value="0"/>
    324325        <TopLine Value="34"/>
    325326        <CursorPos X="59" Y="46"/>
    326         <UsageCount Value="180"/>
     327        <UsageCount Value="185"/>
    327328        <Loaded Value="True"/>
    328329        <LoadedDesigner Value="True"/>
    … …  
    335336        <ResourceBaseClass Value="Form"/>
    336337        <UnitName Value="USettingForm"/>
    337         <EditorIndex Value="17"/>
     338        <EditorIndex Value="8"/>
    338339        <WindowIndex Value="0"/>
    339340        <TopLine Value="1"/>
    340341        <CursorPos X="46" Y="11"/>
    341         <UsageCount Value="179"/>
     342        <UsageCount Value="184"/>
    342343        <Loaded Value="True"/>
    343344        <LoadedDesigner Value="True"/>
    … …  
    348349        <IsPartOfProject Value="True"/>
    349350        <UnitName Value="UApplicationInfo"/>
    350         <EditorIndex Value="12"/>
     351        <EditorIndex Value="7"/>
    351352        <WindowIndex Value="0"/>
    352353        <TopLine Value="37"/>
    353354        <CursorPos X="21" Y="52"/>
    354         <UsageCount Value="179"/>
     355        <UsageCount Value="184"/>
    355356        <Loaded Value="True"/>
    356357        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    362363        <TopLine Value="487"/>
    363364        <CursorPos X="44" Y="500"/>
    364         <UsageCount Value="19"/>
     365        <UsageCount Value="18"/>
    365366        <DefaultSyntaxHighlighter Value="Delphi"/>
    366367      </Unit21>
    … …  
    371372        <TopLine Value="1661"/>
    372373        <CursorPos X="24" Y="1673"/>
    373         <UsageCount Value="19"/>
     374        <UsageCount Value="18"/>
    374375        <DefaultSyntaxHighlighter Value="Delphi"/>
    375376      </Unit22>
    … …  
    378379        <IsPartOfProject Value="True"/>
    379380        <UnitName Value="UDataTypes"/>
    380         <EditorIndex Value="20"/>
    381         <WindowIndex Value="0"/>
    382         <TopLine Value="222"/>
    383         <CursorPos X="23" Y="232"/>
    384         <UsageCount Value="133"/>
     381        <EditorIndex Value="13"/>
     382        <WindowIndex Value="0"/>
     383        <TopLine Value="276"/>
     384        <CursorPos X="1" Y="286"/>
     385        <UsageCount Value="138"/>
    385386        <Loaded Value="True"/>
    386387        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    392393        <TopLine Value="1446"/>
    393394        <CursorPos X="26" Y="1458"/>
    394         <UsageCount Value="0"/>
     395        <UsageCount Value="9"/>
    395396        <DefaultSyntaxHighlighter Value="Delphi"/>
    396397      </Unit24>
    … …  
    401402        <TopLine Value="4"/>
    402403        <CursorPos X="1" Y="16"/>
    403         <UsageCount Value="5"/>
     404        <UsageCount Value="4"/>
    404405        <DefaultSyntaxHighlighter Value="Delphi"/>
    405406      </Unit25>
    … …  
    410411        <TopLine Value="1"/>
    411412        <CursorPos X="1" Y="1"/>
    412         <UsageCount Value="1"/>
     413        <UsageCount Value="0"/>
    413414        <DefaultSyntaxHighlighter Value="Delphi"/>
    414415      </Unit26>
    … …  
    419420        <TopLine Value="1"/>
    420421        <CursorPos X="1" Y="1"/>
    421         <UsageCount Value="1"/>
     422        <UsageCount Value="0"/>
    422423        <DefaultSyntaxHighlighter Value="Delphi"/>
    423424      </Unit27>
    … …  
    428429        <TopLine Value="5"/>
    429430        <CursorPos X="50" Y="15"/>
    430         <UsageCount Value="1"/>
     431        <UsageCount Value="0"/>
    431432        <DefaultSyntaxHighlighter Value="Delphi"/>
    432433      </Unit28>
    … …  
    437438        <TopLine Value="88"/>
    438439        <CursorPos X="1" Y="109"/>
    439         <UsageCount Value="1"/>
     440        <UsageCount Value="0"/>
    440441        <DefaultSyntaxHighlighter Value="Delphi"/>
    441442      </Unit29>
    … …  
    445446        <TopLine Value="1639"/>
    446447        <CursorPos X="17" Y="1651"/>
    447         <UsageCount Value="1"/>
     448        <UsageCount Value="0"/>
    448449        <DefaultSyntaxHighlighter Value="Delphi"/>
    449450      </Unit30>
    … …  
    454455        <TopLine Value="28"/>
    455456        <CursorPos X="1" Y="1"/>
    456         <UsageCount Value="1"/>
     457        <UsageCount Value="0"/>
    457458        <DefaultSyntaxHighlighter Value="Delphi"/>
    458459      </Unit31>
    … …  
    463464        <TopLine Value="37"/>
    464465        <CursorPos X="1" Y="1"/>
    465         <UsageCount Value="1"/>
     466        <UsageCount Value="0"/>
    466467        <DefaultSyntaxHighlighter Value="Delphi"/>
    467468      </Unit32>
    … …  
    472473        <TopLine Value="1"/>
    473474        <CursorPos X="36" Y="13"/>
    474         <UsageCount Value="1"/>
     475        <UsageCount Value="0"/>
    475476        <DefaultSyntaxHighlighter Value="Delphi"/>
    476477      </Unit33>
    … …  
    481482        <TopLine Value="15"/>
    482483        <CursorPos X="19" Y="27"/>
    483         <UsageCount Value="1"/>
     484        <UsageCount Value="0"/>
    484485        <DefaultSyntaxHighlighter Value="Delphi"/>
    485486      </Unit34>
    … …  
    490491        <TopLine Value="19"/>
    491492        <CursorPos X="1" Y="1"/>
    492         <UsageCount Value="1"/>
     493        <UsageCount Value="0"/>
    493494        <DefaultSyntaxHighlighter Value="Delphi"/>
    494495      </Unit35>
    … …  
    499500        <TopLine Value="28"/>
    500501        <CursorPos X="1" Y="1"/>
    501         <UsageCount Value="1"/>
     502        <UsageCount Value="0"/>
    502503        <DefaultSyntaxHighlighter Value="Delphi"/>
    503504      </Unit36>
    … …  
    508509        <TopLine Value="1"/>
    509510        <CursorPos X="1" Y="1"/>
    510         <UsageCount Value="1"/>
     511        <UsageCount Value="0"/>
    511512        <DefaultSyntaxHighlighter Value="Delphi"/>
    512513      </Unit37>
    … …  
    517518        <TopLine Value="16"/>
    518519        <CursorPos X="1" Y="1"/>
    519         <UsageCount Value="1"/>
     520        <UsageCount Value="0"/>
    520521        <DefaultSyntaxHighlighter Value="Delphi"/>
    521522      </Unit38>
    … …  
    525526        <TopLine Value="8"/>
    526527        <CursorPos X="62" Y="20"/>
    527         <UsageCount Value="1"/>
     528        <UsageCount Value="0"/>
    528529        <DefaultSyntaxHighlighter Value="Delphi"/>
    529530      </Unit39>
    … …  
    533534        <TopLine Value="70"/>
    534535        <CursorPos X="10" Y="82"/>
    535         <UsageCount Value="1"/>
     536        <UsageCount Value="0"/>
    536537        <DefaultSyntaxHighlighter Value="Delphi"/>
    537538      </Unit40>
    … …  
    541542        <TopLine Value="141"/>
    542543        <CursorPos X="3" Y="144"/>
    543         <UsageCount Value="1"/>
     544        <UsageCount Value="0"/>
    544545        <DefaultSyntaxHighlighter Value="Delphi"/>
    545546      </Unit41>
    … …  
    550551        <TopLine Value="602"/>
    551552        <CursorPos X="17" Y="614"/>
    552         <UsageCount Value="3"/>
     553        <UsageCount Value="2"/>
    553554        <DefaultSyntaxHighlighter Value="Delphi"/>
    554555      </Unit42>
    … …  
    558559        <TopLine Value="575"/>
    559560        <CursorPos X="15" Y="579"/>
    560         <UsageCount Value="2"/>
     561        <UsageCount Value="1"/>
    561562        <DefaultSyntaxHighlighter Value="Delphi"/>
    562563      </Unit43>
    … …  
    566567        <TopLine Value="550"/>
    567568        <CursorPos X="1" Y="561"/>
    568         <UsageCount Value="21"/>
     569        <UsageCount Value="20"/>
    569570      </Unit44>
    570571      <Unit45>
    … …  
    574575        <TopLine Value="1"/>
    575576        <CursorPos X="19" Y="45"/>
    576         <UsageCount Value="5"/>
     577        <UsageCount Value="4"/>
    577578      </Unit45>
    578579      <Unit46>
    … …  
    582583        <ResourceBaseClass Value="Form"/>
    583584        <UnitName Value="UImportStructureForm"/>
    584         <IsVisibleTab Value="True"/>
    585         <EditorIndex Value="9"/>
    586         <WindowIndex Value="0"/>
    587         <TopLine Value="178"/>
    588         <CursorPos X="70" Y="193"/>
    589         <UsageCount Value="69"/>
     585        <EditorIndex Value="6"/>
     586        <WindowIndex Value="0"/>
     587        <TopLine Value="149"/>
     588        <CursorPos X="44" Y="164"/>
     589        <UsageCount Value="74"/>
    590590        <Loaded Value="True"/>
    591591        <LoadedDesigner Value="True"/>
    … …  
    594594      <Unit47>
    595595        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    596         <EditorIndex Value="16"/>
    597596        <WindowIndex Value="0"/>
    598597        <TopLine Value="51"/>
    599598        <CursorPos X="1" Y="63"/>
    600         <UsageCount Value="33"/>
    601         <Loaded Value="True"/>
     599        <UsageCount Value="32"/>
    602600      </Unit47>
    603601      <Unit48>
    604602        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    605         <EditorIndex Value="15"/>
    606603        <WindowIndex Value="0"/>
    607604        <TopLine Value="2274"/>
    608605        <CursorPos X="1" Y="2286"/>
    609         <UsageCount Value="33"/>
    610         <Loaded Value="True"/>
     606        <UsageCount Value="32"/>
    611607      </Unit48>
    612608      <Unit49>
    613         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    614         <UnitName Value="USqlDatabase"/>
    615         <EditorIndex Value="13"/>
    616         <WindowIndex Value="0"/>
    617         <TopLine Value="446"/>
    618         <CursorPos X="1" Y="460"/>
    619         <UsageCount Value="33"/>
    620         <Loaded Value="True"/>
     609        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
     610        <WindowIndex Value="0"/>
     611        <TopLine Value="286"/>
     612        <CursorPos X="3" Y="298"/>
     613        <UsageCount Value="32"/>
    621614      </Unit49>
    622615      <Unit50>
    623         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    624         <EditorIndex Value="4"/>
    625         <WindowIndex Value="0"/>
    626         <TopLine Value="71"/>
    627         <CursorPos X="39" Y="78"/>
    628         <UsageCount Value="33"/>
    629         <Loaded Value="True"/>
     616        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
     617        <WindowIndex Value="0"/>
     618        <TopLine Value="460"/>
     619        <CursorPos X="10" Y="427"/>
     620        <UsageCount Value="32"/>
    630621      </Unit50>
    631622      <Unit51>
    632         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
    633         <EditorIndex Value="5"/>
    634         <WindowIndex Value="0"/>
    635         <TopLine Value="71"/>
    636         <CursorPos X="10" Y="83"/>
    637         <UsageCount Value="33"/>
    638         <Loaded Value="True"/>
     623        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     624        <WindowIndex Value="0"/>
     625        <TopLine Value="120"/>
     626        <CursorPos X="1" Y="134"/>
     627        <UsageCount Value="12"/>
    639628      </Unit51>
    640629      <Unit52>
    641         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
    642         <EditorIndex Value="6"/>
    643         <WindowIndex Value="0"/>
    644         <TopLine Value="162"/>
    645         <CursorPos X="13" Y="164"/>
    646         <UsageCount Value="33"/>
    647         <Loaded Value="True"/>
     630        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     631        <WindowIndex Value="0"/>
     632        <TopLine Value="1"/>
     633        <CursorPos X="24" Y="4"/>
     634        <UsageCount Value="11"/>
    648635      </Unit52>
    649636      <Unit53>
    650         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
    651         <EditorIndex Value="7"/>
    652         <WindowIndex Value="0"/>
    653         <TopLine Value="286"/>
    654         <CursorPos X="3" Y="298"/>
    655         <UsageCount Value="33"/>
    656         <Loaded Value="True"/>
     637        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas"/>
     638        <UnitName Value="SpecializedDictionary"/>
     639        <WindowIndex Value="0"/>
     640        <TopLine Value="6"/>
     641        <CursorPos X="26" Y="18"/>
     642        <UsageCount Value="10"/>
    657643      </Unit53>
    658644      <Unit54>
    659         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
    660         <EditorIndex Value="8"/>
    661         <WindowIndex Value="0"/>
    662         <TopLine Value="460"/>
    663         <CursorPos X="10" Y="427"/>
    664         <UsageCount Value="33"/>
     645        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     646        <EditorIndex Value="11"/>
     647        <WindowIndex Value="0"/>
     648        <TopLine Value="120"/>
     649        <CursorPos X="1" Y="132"/>
     650        <UsageCount Value="12"/>
    665651        <Loaded Value="True"/>
    666652      </Unit54>
    667653      <Unit55>
    668         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    669         <EditorIndex Value="11"/>
    670         <WindowIndex Value="0"/>
    671         <TopLine Value="120"/>
    672         <CursorPos X="1" Y="134"/>
    673         <UsageCount Value="13"/>
     654        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     655        <EditorIndex Value="12"/>
     656        <WindowIndex Value="0"/>
     657        <TopLine Value="50"/>
     658        <CursorPos X="35" Y="67"/>
     659        <UsageCount Value="12"/>
    674660        <Loaded Value="True"/>
    675661      </Unit55>
    676662      <Unit56>
    677         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    678         <EditorIndex Value="10"/>
    679         <WindowIndex Value="0"/>
    680         <TopLine Value="1"/>
    681         <CursorPos X="24" Y="4"/>
    682         <UsageCount Value="12"/>
    683         <Loaded Value="True"/>
     663        <Filename Value="Forms/UItemSelect.pas"/>
     664        <IsPartOfProject Value="True"/>
     665        <ComponentName Value="ItemSelectForm"/>
     666        <ResourceBaseClass Value="Form"/>
     667        <UnitName Value="UItemSelect"/>
     668        <EditorIndex Value="14"/>
     669        <WindowIndex Value="0"/>
     670        <TopLine Value="59"/>
     671        <CursorPos X="26" Y="73"/>
     672        <UsageCount Value="23"/>
     673        <Loaded Value="True"/>
     674        <LoadedDesigner Value="True"/>
     675        <DefaultSyntaxHighlighter Value="Delphi"/>
    684676      </Unit56>
    685677      <Unit57>
    686         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas"/>
    687         <UnitName Value="SpecializedDictionary"/>
    688         <EditorIndex Value="14"/>
    689         <WindowIndex Value="0"/>
    690         <TopLine Value="6"/>
    691         <CursorPos X="26" Y="18"/>
    692         <UsageCount Value="11"/>
     678        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
     679        <UnitName Value="ComCtrls"/>
     680        <EditorIndex Value="2"/>
     681        <WindowIndex Value="0"/>
     682        <TopLine Value="1207"/>
     683        <CursorPos X="20" Y="1219"/>
     684        <UsageCount Value="12"/>
    693685        <Loaded Value="True"/>
    694686      </Unit57>
     687      <Unit58>
     688        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
     689        <EditorIndex Value="15"/>
     690        <WindowIndex Value="0"/>
     691        <TopLine Value="945"/>
     692        <CursorPos X="29" Y="950"/>
     693        <UsageCount Value="10"/>
     694        <Loaded Value="True"/>
     695      </Unit58>
     696      <Unit59>
     697        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     698        <EditorIndex Value="1"/>
     699        <WindowIndex Value="0"/>
     700        <TopLine Value="549"/>
     701        <CursorPos X="1" Y="561"/>
     702        <UsageCount Value="10"/>
     703        <Loaded Value="True"/>
     704      </Unit59>
    695705    </Units>
    696     <JumpHistory Count="30" HistoryIndex="28">
     706    <JumpHistory Count="29" HistoryIndex="28">
    697707      <Position1>
    698         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    699         <Caret Line="133" Column="1" TopLine="120"/>
     708        <Filename Value="Application/UDataTypes.pas"/>
     709        <Caret Line="282" Column="1" TopLine="276"/>
    700710      </Position1>
    701711      <Position2>
    702         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    703         <Caret Line="134" Column="1" TopLine="120"/>
     712        <Filename Value="Application/UDataTypes.pas"/>
     713        <Caret Line="283" Column="1" TopLine="276"/>
    704714      </Position2>
    705715      <Position3>
    706         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    707         <Caret Line="459" Column="1" TopLine="446"/>
     716        <Filename Value="Application/UDataTypes.pas"/>
     717        <Caret Line="284" Column="1" TopLine="276"/>
    708718      </Position3>
    709719      <Position4>
    710         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    711         <Caret Line="460" Column="1" TopLine="446"/>
     720        <Filename Value="Application/UDataTypes.pas"/>
     721        <Caret Line="286" Column="1" TopLine="276"/>
    712722      </Position4>
    713723      <Position5>
    714         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    715         <Caret Line="61" Column="1" TopLine="49"/>
     724        <Filename Value="Application/UDataTypes.pas"/>
     725        <Caret Line="288" Column="1" TopLine="276"/>
    716726      </Position5>
    717727      <Position6>
    718         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    719         <Caret Line="62" Column="1" TopLine="49"/>
     728        <Filename Value="Forms/UItemView.pas"/>
     729        <Caret Line="151" Column="1" TopLine="139"/>
    720730      </Position6>
    721731      <Position7>
    722         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    723         <Caret Line="90" Column="1" TopLine="78"/>
     732        <Filename Value="Forms/UItemView.pas"/>
     733        <Caret Line="156" Column="1" TopLine="139"/>
    724734      </Position7>
    725735      <Position8>
    726         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    727         <Caret Line="91" Column="1" TopLine="78"/>
     736        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     737        <Caret Line="132" Column="1" TopLine="120"/>
    728738      </Position8>
    729739      <Position9>
    730         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    731         <Caret Line="92" Column="1" TopLine="78"/>
     740        <Filename Value="Forms/UItemView.pas"/>
     741        <Caret Line="120" Column="1" TopLine="108"/>
    732742      </Position9>
    733743      <Position10>
    734         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    735         <Caret Line="93" Column="1" TopLine="78"/>
     744        <Filename Value="Forms/UItemAdd.pas"/>
     745        <Caret Line="132" Column="1" TopLine="114"/>
    736746      </Position10>
    737747      <Position11>
    738         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    739         <Caret Line="96" Column="1" TopLine="78"/>
     748        <Filename Value="Forms/UItemSelect.pas"/>
     749        <Caret Line="91" Column="18" TopLine="68"/>
    740750      </Position11>
    741751      <Position12>
    742         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    743         <Caret Line="93" Column="1" TopLine="78"/>
     752        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     753        <Caret Line="132" Column="1" TopLine="120"/>
    744754      </Position12>
    745755      <Position13>
    746         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    747         <Caret Line="98" Column="1" TopLine="78"/>
     756        <Filename Value="Forms/UItemView.pas"/>
     757        <Caret Line="120" Column="1" TopLine="108"/>
    748758      </Position13>
    749759      <Position14>
    750         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    751         <Caret Line="131" Column="1" TopLine="120"/>
     760        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     761        <Caret Line="561" Column="1" TopLine="549"/>
    752762      </Position14>
    753763      <Position15>
    754         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    755         <Caret Line="133" Column="1" TopLine="120"/>
     764        <Filename Value="Forms/UItemView.pas"/>
     765        <Caret Line="123" Column="65" TopLine="108"/>
    756766      </Position15>
    757767      <Position16>
    758768        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    759         <Caret Line="134" Column="1" TopLine="120"/>
     769        <Caret Line="132" Column="1" TopLine="120"/>
    760770      </Position16>
    761771      <Position17>
    762         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    763         <Caret Line="63" Column="1" TopLine="51"/>
     772        <Filename Value="Forms/UItemSelect.pas"/>
     773        <Caret Line="73" Column="26" TopLine="59"/>
    764774      </Position17>
    765775      <Position18>
    766         <Filename Value="Forms/UImportStructureForm.pas"/>
    767         <Caret Line="60" Column="1" TopLine="48"/>
     776        <Filename Value="USystem.pas"/>
     777        <Caret Line="612" Column="32" TopLine="594"/>
    768778      </Position18>
    769779      <Position19>
    770         <Filename Value="Forms/UImportStructureForm.pas"/>
    771         <Caret Line="61" Column="1" TopLine="48"/>
     780        <Filename Value="USystem.pas"/>
     781        <Caret Line="215" Column="1" TopLine="200"/>
    772782      </Position19>
    773783      <Position20>
    774         <Filename Value="Forms/UImportStructureForm.pas"/>
    775         <Caret Line="62" Column="1" TopLine="48"/>
     784        <Filename Value="USystem.pas"/>
     785        <Caret Line="216" Column="1" TopLine="200"/>
    776786      </Position20>
    777787      <Position21>
    778         <Filename Value="Forms/UImportStructureForm.pas"/>
    779         <Caret Line="63" Column="1" TopLine="48"/>
     788        <Filename Value="USystem.pas"/>
     789        <Caret Line="218" Column="1" TopLine="200"/>
    780790      </Position21>
    781791      <Position22>
    782         <Filename Value="Forms/UImportStructureForm.pas"/>
    783         <Caret Line="65" Column="1" TopLine="48"/>
     792        <Filename Value="USystem.pas"/>
     793        <Caret Line="219" Column="1" TopLine="200"/>
    784794      </Position22>
    785795      <Position23>
    786         <Filename Value="Forms/UImportStructureForm.pas"/>
    787         <Caret Line="192" Column="49" TopLine="176"/>
     796        <Filename Value="USystem.pas"/>
     797        <Caret Line="215" Column="1" TopLine="200"/>
    788798      </Position23>
    789799      <Position24>
    790         <Filename Value="Forms/UImportStructureForm.pas"/>
    791         <Caret Line="115" Column="16" TopLine="93"/>
     800        <Filename Value="USystem.pas"/>
     801        <Caret Line="216" Column="1" TopLine="200"/>
    792802      </Position24>
    793803      <Position25>
    794         <Filename Value="Forms/UImportStructureForm.pas"/>
    795         <Caret Line="191" Column="27" TopLine="180"/>
     804        <Filename Value="USystem.pas"/>
     805        <Caret Line="218" Column="1" TopLine="200"/>
    796806      </Position25>
    797807      <Position26>
    798         <Filename Value="Forms/UImportStructureForm.pas"/>
    799         <Caret Line="192" Column="87" TopLine="173"/>
     808        <Filename Value="USystem.pas"/>
     809        <Caret Line="210" Column="22" TopLine="200"/>
    800810      </Position26>
    801811      <Position27>
    802         <Filename Value="Forms/UImportStructureForm.pas"/>
    803         <Caret Line="196" Column="25" TopLine="180"/>
     812        <Filename Value="USystem.pas"/>
     813        <Caret Line="216" Column="1" TopLine="200"/>
    804814      </Position27>
    805815      <Position28>
    806         <Filename Value="Forms/UImportStructureForm.pas"/>
    807         <Caret Line="194" Column="28" TopLine="176"/>
     816        <Filename Value="USystem.pas"/>
     817        <Caret Line="218" Column="48" TopLine="200"/>
    808818      </Position28>
    809819      <Position29>
    810820        <Filename Value="Forms/UImportStructureForm.pas"/>
    811         <Caret Line="193" Column="77" TopLine="181"/>
     821        <Caret Line="164" Column="73" TopLine="152"/>
    812822      </Position29>
    813       <Position30>
    814         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    815         <Caret Line="4" Column="24" TopLine="1"/>
    816       </Position30>
    817823    </JumpHistory>
    818824  </ProjectOptions>

  • trunk/chronis.lpr

    r19 r21  
    1111  ULoginForm, UMainForm, UItemAdd, TemplateGenerics, CoolTranslator, Common,
    1212  CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes,
    13 UImportStructureForm
     13UImportStructureForm, UItemSelect
    1414  { you can add units after this };
    1515
    … …  
    3737  Application.CreateForm(TSettingForm, SettingForm);
    3838  Application.CreateForm(TImportStructureForm, ImportStructureForm);
     39  Application.CreateForm(TItemSelectForm, ItemSelectForm);
    3940  Application.Run;
    4041end.
Note: See TracChangeset for help on using the changeset viewer.