Changeset 14 for trunk


Ignore:
Timestamp:
Jun 10, 2011, 2:16:52 PM (13 years ago)
Author:
george
Message:
  • Added: Classes for base data types.
Location:
trunk
Files:
1 added
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UApplicationInfo.pas

    r10 r14  
    5050  Name := 'ChronIS';
    5151  Identification := 1;
    52   ReleaseDate := '9.6.2011';
     52  ReleaseDate := '10.6.2011';
    5353  MajorVersion := 0;
    5454  MinorVersion := 1;

  • trunk/Forms/UItemAdd.pas

    r12 r14  
    3636
    3737uses
    38   UMainForm;
     38  UMainForm, UDataTypes, UCore;
    3939
    4040{$R *.lfm}
    … …  
    6161begin
    6262  Report := TReport.Create;
    63   Report.Base := MainForm.System;
     63  Report.Base := Core.System;
    6464end;
    6565
    … …  
    7777procedure TItemAddForm.BuildControls;
    7878var
    79   NewControl: TControl;
     79  NewControl: TWinControl;
    8080  LastTop: Integer;
    8181  I: Integer;
    8282  Column: Integer;
    8383  ValueType: Integer;
     84  NewLabel: TLabel;
     85  DataType: TDataType;
    8486const
    8587  ColumnCount = 2;
    … …  
    9799    for I := 0 to Report.Columns.Count - 1 do
    98100    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
    99       NewControl := TLabel.Create(Panel1);
     101      NewLabel := TLabel.Create(Panel1);
     102      NewLabel.Parent := Panel1;
     103      NewLabel.Top := LastTop;
     104      NewLabel.Left := Column * Width div ColumnCount + 10;
     105      NewLabel.Caption := TReportColumn(Report.Columns[I]).Caption + ':';
     106
     107      DataType := TReportColumn(Report.Columns[I]).CustomType;
     108      NewControl := DataType.CreateControl(Panel1);
     109      DataType.SetDefault;
     110      DataType.SetupControl(NewControl);
    100111      NewControl.Parent := Panel1;
    101112      NewControl.Top := LastTop;
    102       NewControl.Left := Column * Width div ColumnCount + 10;
    103       TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    104 
    105       ValueType := TReportColumn(Report.Columns[I]).TypeDef.TypeIndex;
    106       if ValueType = Integer(vtInteger) then begin
    107         NewControl := TSpinEdit.Create(Panel1);
    108         NewControl.Parent := Panel1;
    109         NewControl.Top := LastTop;
    110         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    111         TSpinEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    112       end else
    113       if ValueType = Integer(vtDate) then begin
    114         NewControl := TDateEdit.Create(Panel1);
    115         NewControl.Parent := Panel1;
    116         NewControl.Top := LastTop;
    117         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    118         TDateEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    119       end else
    120       if ValueType = Integer(vtFloat) then begin
    121         NewControl := TFloatSpinEdit.Create(Panel1);
    122         NewControl.Parent := Panel1;
    123         NewControl.Top := LastTop;
    124         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    125         TFloatSpinEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    126       end else
    127       if ValueType = Integer(vtString) then begin
    128         NewControl := TEdit.Create(Panel1);
    129         NewControl.Parent := Panel1;
    130         NewControl.Top := LastTop;
    131         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    132         TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    133       end else
    134       if ValueType = Integer(vtPassword) then begin
    135         NewControl := TMaskEdit.Create(Panel1);
    136         NewControl.Parent := Panel1;
    137         NewControl.Top := LastTop;
    138         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    139         TMaskEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    140       end else
    141       if ValueType = Integer(vtBoolean) then begin
    142         NewControl := TCheckBox.Create(Panel1);
    143         NewControl.Parent := Panel1;
    144         NewControl.Top := LastTop;
    145         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    146       end else begin
    147         NewControl := TEdit.Create(Panel1);
    148         NewControl.Parent := Panel1;
    149         NewControl.Top := LastTop;
    150         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    151         TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    152       end;
     113      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     114      NewControl.Width := (Width div ColumnCount) div 2 - 20;
    153115
    154116      Column := (Column + 1) mod 2;

  • trunk/Forms/UItemEdit.pas

    r12 r14  
    3636
    3737uses
    38   UMainForm;
     38  UMainForm, UDataTypes, UCore;
    3939
    4040{$R *.lfm}
    … …  
    6363begin
    6464  Report := TReport.Create;
    65   Report.Base := MainForm.System;
     65  Report.Base := Core.System;
    6666end;
    6767
    … …  
    8080var
    8181  Values: TDbRows;
    82   NewControl: TControl;
    8382  LastTop: Integer;
    8483  I: Integer;
    8584  Column: Integer;
    86   ValueType: Integer;
     85  DataType: TDataType;
     86  NewControl: TWinControl;
     87  NewLabel: TLabel;
    8788const
    8889  ColumnCount = 2;
    … …  
    100101    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
    101102
    102       NewControl := TLabel.Create(Panel1);
     103      NewLabel := TLabel.Create(Panel1);
     104      NewLabel.Parent := Panel1;
     105      NewLabel.Top := LastTop;
     106      NewLabel.Left := Column * Width div ColumnCount + 10;
     107      NewLabel.Caption := TReportColumn(Report.Columns[I]).Caption + ':';
     108
     109      DataType := TReportColumn(Report.Columns[I]).CustomType;
     110      NewControl := DataType.CreateControl(Panel1);
     111      DataType.Load(TReportLine(Report[0]).Items[I]);
     112      DataType.SetupControl(NewControl);
    103113      NewControl.Parent := Panel1;
    104114      NewControl.Top := LastTop;
    105       NewControl.Left := Column * Width div ColumnCount + 10;
    106       TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    107 
    108       ValueType := TReportColumn(Report.Columns[I]).TypeDef.TypeIndex;
    109       if ValueType = Integer(vtInteger) then begin
    110         NewControl := TSpinEdit.Create(Panel1);
    111         NewControl.Parent := Panel1;
    112         NewControl.Top := LastTop;
    113         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    114         TSpinEdit(NewControl).Value := StrToInt(TReportLine(Report[0]).Items[I]);
    115         TSpinEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    116       end else
    117       if ValueType = Integer(vtDate) then begin
    118         NewControl := TDateEdit.Create(Panel1);
    119         NewControl.Parent := Panel1;
    120         NewControl.Top := LastTop;
    121         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    122         TDateEdit(NewControl).Date := StrToDate(TReportLine(Report[0]).Items[I]);
    123         TDateEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    124       end else
    125       if ValueType = Integer(vtFloat) then begin
    126         NewControl := TFloatSpinEdit.Create(Panel1);
    127         NewControl.Parent := Panel1;
    128         NewControl.Top := LastTop;
    129         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    130         TFloatSpinEdit(NewControl).Value := StrToFloat(TReportLine(Report[0]).Items[I]);
    131         TFloatSpinEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    132       end else
    133       if ValueType = Integer(vtString) then begin
    134         NewControl := TEdit.Create(Panel1);
    135         NewControl.Parent := Panel1;
    136         NewControl.Top := LastTop;
    137         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    138         TEdit(NewControl).Text := TReportLine(Report[0]).Items[I];
    139         TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    140       end else
    141       if ValueType = Integer(vtPassword) then begin
    142         NewControl := TMaskEdit.Create(Panel1);
    143         NewControl.Parent := Panel1;
    144         NewControl.Top := LastTop;
    145         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    146         TMaskEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    147       end else
    148       if ValueType = Integer(vtBoolean) then begin
    149         NewControl := TCheckBox.Create(Panel1);
    150         NewControl.Parent := Panel1;
    151         NewControl.Top := LastTop;
    152         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    153         TCheckBox(NewControl).Checked := Boolean(StrToInt(TReportLine(Report[0]).Items[I]));
    154       end else begin
    155         NewControl := TEdit.Create(Panel1);
    156         NewControl.Parent := Panel1;
    157         NewControl.Top := LastTop;
    158         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    159         TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
    160         TEdit(NewControl).Text := TReportLine(Report[0]).Items[I];
    161       end;
     115      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     116      NewControl.Width := (Width div ColumnCount) div 2 - 20;
    162117
    163118      Column := (Column + 1) mod 2;

  • trunk/Forms/UItemView.pas

    r12 r14  
    4242
    4343uses
    44   UMainForm, UItemEdit;
     44  UMainForm, UItemEdit, UDataTypes, UCore;
    4545
    4646{$R *.lfm}
    … …  
    5757begin
    5858  Report := TReport.Create;
    59   Report.Base := MainForm.System;
     59  Report.Base := Core.System;
    6060end;
    6161
    … …  
    9393  I: Integer;
    9494  Column: Integer;
     95  DataType: TDataType;
    9596const
    9697  ColumnCount = 2;
    … …  
    107108
    108109  if Report.Count = 1 then
    109   for I := 0 to Report.Columns.Count - 1 do
    110   if TReportColumn(Report.Columns[I]).TypeDef.TypeIndex = Integer(vtPointer) then begin
     110  for I := 0 to Report.Columns.Count - 1 do begin
     111    DataType := TReportColumn(Report.Columns[I]).CustomType;
     112  if DataType is TDataTypeRelationOne then begin
    111113    TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
    112114  end else begin
    … …  
    126128    if Column = 0 then LastTop := LastTop + 24;
    127129  end;
     130  end;
    128131  Panel2.Visible := TabControl1.Tabs.Count > 0;
    129132end;

  • trunk/Forms/UMainForm.pas

    r13 r14  
    104104    PersistentForm: TPersistentForm;
    105105    TreeState: TTreeState;
    106     System: TChronisBase;
    107106    Report: TReport;
    108107    procedure LoadTree;
    … …  
    138137    OpenKey(RegistryKey, True);
    139138    Panel1.Width := ReadIntegerWithDefault('GroupTreeWidth', 200);
    140     System.Database.Database := ReadStringWithDefault('DatabaseSchema', 'chronis');
    141     System.Database.Hostname := ReadStringWithDefault('DatabaseHostName', 'localhost');
    142     System.Database.UserName := ReadStringWithDefault('DatabaseUserName', 'chronis');
    143     System.Database.Password := ReadStringWithDefault('DatabasePassword', '');
     139    Core.System.Database.Database := ReadStringWithDefault('DatabaseSchema', 'chronis');
     140    Core.System.Database.Hostname := ReadStringWithDefault('DatabaseHostName', 'localhost');
     141    Core.System.Database.UserName := ReadStringWithDefault('DatabaseUserName', 'chronis');
     142    Core.System.Database.Password := ReadStringWithDefault('DatabasePassword', '');
    144143    with Core.CoolTranslator1 do
    145144      Language := Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''));
    … …  
    156155    OpenKey(RegistryKey, True);
    157156    WriteInteger('GroupTreeWidth', Panel1.Width);
    158     WriteString('DatabaseSchema', System.Database.Database);
    159     WriteString('DatabaseHostName', System.Database.Hostname);
    160     WriteString('DatabaseUserName', System.Database.UserName);
    161     WriteString('DatabasePassword', System.Database.Password);
     157    WriteString('DatabaseSchema', Core.System.Database.Database);
     158    WriteString('DatabaseHostName', Core.System.Database.Hostname);
     159    WriteString('DatabaseUserName', Core.System.Database.UserName);
     160    WriteString('DatabasePassword', Core.System.Database.Password);
    162161    with Core.CoolTranslator1 do
    163162      WriteString('LanguageCode', Language.Code);
    … …  
    177176  I: Integer;
    178177begin
    179   with System do
     178  with Core.System do
    180179  try
    181180    DbRows := TDbRows.Create;
    … …  
    245244      '`Name` varchar(255) NOT NULL,' +
    246245      '`DbType` varchar(255) NOT NULL,' +
    247       '`TypeIndex` int(11) NOT NULL,' +
    248246      'PRIMARY KEY (`Id`)' +
    249247      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
    … …  
    326324    end;
    327325
    328     if Tables.IndexOf(CustomType) = -1 then begin
    329       Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + CustomType + '` ( ' +
     326    if Tables.IndexOf(CustomTypeTableName) = -1 then begin
     327      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + CustomTypeTableName + '` ( ' +
    330328        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
    331329        '`Type` int NOT NULL,' +
    … …  
    373371  EnumId: Integer;
    374372begin
    375   with System do begin
     373  with Core.System do begin
    376374  TypeNumber := AddType('Number', 'INT', vtInteger);
    377375  TypeString := AddType('String', 'VARCHAR(255)', vtString);
    … …  
    407405  GroupId := AddObjectGroup('System');
    408406
    409   ObjectId := AddObject('Object groups', 'ObjectGroup', System.Database.Database, GroupId);
     407  ObjectId := AddObject('Object groups', 'ObjectGroup', Core.System.Database.Database, GroupId);
    410408    AddPropertyString(ObjectId, 'Name', 'Name');
    411   ObjectId := AddObject('Objects', 'Object', System.Database.Database, GroupId);
     409  ObjectId := AddObject('Objects', 'Object', Core.System.Database.Database, GroupId);
    412410    AddPropertyString(ObjectId, 'Name', 'Name');
    413411    AddPropertyNumber(ObjectId, 'Group', 'Group');
    … …  
    416414    AddPropertyString(ObjectId, 'Primary key', 'PrimaryKey');
    417415    AddPropertyNumber(ObjectId, 'Sequence', 'Sequence');
    418   ObjectId := AddObject('Property types', 'Type', System.Database.Database, GroupId);
     416  ObjectId := AddObject('Property types', 'Type', Core.System.Database.Database, GroupId);
    419417    AddPropertyString(ObjectId, 'Name', 'Name');
    420418    AddPropertyString(ObjectId, 'Type', 'DbType');
    421     AddPropertyNumber(ObjectId, 'Type index', 'TypeIndex');
    422419    AddPropertyNumber(ObjectId, 'Parent', 'Parent');
    423   ObjectId := AddObject('Property groups', 'PropertyGroup', System.Database.Database, GroupId);
    424   ObjectId := AddObject('Properties', 'Property', System.Database.Database, GroupId);
     420  ObjectId := AddObject('Property groups', 'PropertyGroup', Core.System.Database.Database, GroupId);
     421  ObjectId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId);
    425422    AddPropertyString(ObjectId, 'Name', 'Name');
    426423    AddPropertyNumber(ObjectId, 'Object', 'Object');
    427     AddPropertyNumber(ObjectId, 'PropertyGroup', 'PropertyGroup');
    428     AddPropertyNumber(ObjectId, 'Type', 'Type');
     424    AddPropertyNumber(ObjectId, 'Property group', 'PropertyGroup');
     425    AddPropertyNumber(ObjectId, 'Custom type', 'CustomType');
    429426    AddProperty(ObjectId, 'Editable', 'Editable', TypeBoolean);
    430     AddPropertyString(ObjectId, 'ColumnName', 'ColumnName');
     427    AddPropertyString(ObjectId, 'Column name', 'ColumnName');
    431428  end;
    432429end;
    … …  
    434431procedure TMainForm.FormCreate(Sender: TObject);
    435432begin
    436   System := TChronisBase.Create;
    437   System.Database := TSqlDatabase.Create;
    438433  TreeState := TTreeState.Create;
    439434  Report := TReport.Create;
    440   Report.Base := System;
     435  Report.Base := Core.System;
    441436  SelectedObject := TChronisObject.Create;
    442   SelectedObject.Base := System;
     437  SelectedObject.Base := Core.System;
    443438  RegistryRootKey := HKEY_CURRENT_USER;
    444439  RegistryKey := '\Software\' + ApplicationInfo.CompanyName + '\' +
    … …  
    453448  TreeState.Free;
    454449  PersistentForm.Free;
    455   System.Free;
    456450end;
    457451
    … …  
    564558  PersistentForm.Load(Self);
    565559  LoadFromRegistry;
    566   System.Database.Connect;
     560  Core.System.Database.Connect;
    567561  InitStructure;
    568   System.LoadTypes;
     562  Core.System.LoadTypes;
    569563  LoadTree;
    570564end;
    … …  
    645639    try
    646640      DbRows := TDbRows.Create;
    647       System.Database.Query(DbRows, 'SELECT * FROM `' + ObjectGroupTable + '`');
     641      Core.System.Database.Query(DbRows, 'SELECT * FROM `' + ObjectGroupTable + '`');
    648642      for I := 0 to DbRows.Count - 1 do begin
    649643        NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
    … …  
    653647        try
    654648          ObjectDbRows := TDbRows.Create;
    655           System.Database.Query(ObjectDbRows, 'SELECT * FROM `' + ObjectTable + '` WHERE `Group`=' + DbRows[I].Values['Id']);
     649          Core.System.Database.Query(ObjectDbRows, 'SELECT * FROM `' + ObjectTable + '` WHERE `Group`=' + DbRows[I].Values['Id']);
    656650          for O := 0 to ObjectDbRows.Count - 1 do begin
    657651            NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);

  • trunk/UCore.lfm

    r12 r14  
    11object Core: TCore
     2  OnCreate = DataModuleCreate
     3  OnDestroy = DataModuleDestroy
    24  OldCreateOrder = False
    35  Height = 346

  • trunk/UCore.pas

    r12 r14  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UCoolTranslator;
     8  Classes, SysUtils, FileUtil, UCoolTranslator, USystem, USqlDatabase;
    99
    1010type
    … …  
    1414  TCore = class(TDataModule)
    1515    CoolTranslator1: TCoolTranslator;
     16    procedure DataModuleCreate(Sender: TObject);
     17    procedure DataModuleDestroy(Sender: TObject);
    1618  private
    1719    { private declarations }
    1820  public
    19     { public declarations }
    20   end; 
     21    System: TChronisBase;
     22  end;
    2123
    2224var
    … …  
    2729{$R *.lfm}
    2830
     31{ TCore }
     32
     33procedure TCore.DataModuleCreate(Sender: TObject);
     34begin
     35  System := TChronisBase.Create;
     36  System.Database := TSqlDatabase.Create;
     37end;
     38
     39procedure TCore.DataModuleDestroy(Sender: TObject);
     40begin
     41  System.Free;
     42end;
     43
    2944end.
    3045

  • trunk/USystem.pas

    r13 r14  
    77uses
    88  Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
    9   Strings;
     9  Strings, UDataTypes;
    1010
    1111const
    … …  
    2121  TypeRelationOne = 'TypeRelationOne';
    2222  TypeRelationMany = 'TypeRelationMany';
    23   CustomType = 'TypeCustom';
     23  CustomTypeTableName = 'TypeCustom';
    2424  Enumeration = 'Enumeration';
    2525  EnumerationState = 'EnumerationState';
    … …  
    4545  TReportColumn = class
    4646    Caption: string;
    47     TypeDef: TChronisType;
     47    //TypeDef: TChronisType;
     48    CustomType: TDataType;
    4849    ColumnName: string;
    4950  end;
    … …  
    8081    Id: Integer;
    8182    DbType: string;
    82     DbTable: string;
    8383    TypeIndex: Integer;
    84     Parent: TChronisType;
    8584  end;
    8685
    … …  
    178177      NewColumn.Caption := 'Id';
    179178      NewColumn.ColumnName := 'Id';
    180       NewColumn.TypeDef := Base.Types.FindByTypeIndex(Integer(vtInteger));
     179      NewColumn.CustomType := TDataTypeNumber.Create;
     180
    181181      for I := 0 to Properties.Count - 1 do
    182       if Properties[I].Values['Type'] <> IntToStr(Integer(vtRelationMany)) then begin
     182      if Properties[I].Values['CustomType'] <> IntToStr(Integer(vtRelationMany)) then begin
    183183        NewColumn := TReportColumn.Create;
    184184        Columns.Add(NewColumn);
    185185        NewColumn.Caption := Properties[I].Values['Name'];
    186186        NewColumn.ColumnName := Properties[I].Values['ColumnName'];;
    187         NewColumn.TypeDef := Base.Types.FindById(StrToInt(Properties[I].Values['Type']));
    188         if not Assigned(NewColumn.TypeDef) then
    189           raise Exception.Create(Format(SUnsupportedType, [Properties[I].Values['Type']]));
     187        NewColumn.CustomType := GetDataType(StrToInt(Properties[I].Values['CustomType']));
    190188      end;
    191189
    … …  
    204202        NewItem.Id := StrToInt(Values[I].Values[Obj.PrimaryKey]);
    205203        for C := 0 to Properties.Count - 1 do
    206         if Properties[C].Values['Type'] <> IntToStr(Integer(vtRelationMany)) then begin
     204        if Properties[C].Values['CustomType'] <> IntToStr(Integer(vtRelationMany)) then begin
    207205          NewItem.Items.Add(Values[I].Values[Properties[C].Values['ColumnName']]);
    208206        end;
    … …  
    225223    Data.Add('Name', Name);
    226224    Data.Add('DbType', DataType);
    227     Data.Add('TypeIndex', IntToStr(Integer(TypeIndex)));
     225    Data.Add('Id', IntToStr(Integer(TypeIndex)));
    228226    Database.Insert(PropertyTypeTable, Data);
    229227    Result := Database.LastInsertId;
    … …  
    291289    Data.Clear;
    292290    Data.Add('Type', IntToStr(Integer(vtInteger)));
    293     Database.Insert(CustomType, Data);
     291    Database.Insert(CustomTypeTableName, Data);
    294292    CustomTypeId := Database.LastInsertId;
    295293
    … …  
    322320    Data.Clear;
    323321    Data.Add('Type', IntToStr(Integer(vtString)));
    324     Database.Insert(CustomType, Data);
     322    Database.Insert(CustomTypeTableName, Data);
    325323    CustomTypeId := Database.LastInsertId;
    326324
    … …  
    330328    Data.Add('Default', Default);
    331329    Database.Insert(TypeString, Data);
    332     CustomTypeId := Database.LastInsertId;
     330    //CustomTypeId := Database.LastInsertId;
    333331
    334332    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
    … …  
    405403      with DbRows[I] do begin
    406404        Id := StrToInt(Values['Id']);
    407         TypeIndex := StrToInt(Values['TypeIndex']);
    408405        DbType := Values['DbType'];
    409406        //Parent := StrToInt(Values['Parent']);

  • trunk/chronis.lpi

    r13 r14  
    9797      </Item4>
    9898    </RequiredPackages>
    99     <Units Count="37">
     99    <Units Count="40">
    100100      <Unit0>
    101101        <Filename Value="chronis.lpr"/>
    102102        <IsPartOfProject Value="True"/>
    103103        <UnitName Value="chronis"/>
    104         <EditorIndex Value="12"/>
    105104        <WindowIndex Value="0"/>
    106105        <TopLine Value="14"/>
    107106        <CursorPos X="1" Y="33"/>
    108107        <UsageCount Value="274"/>
    109         <Loaded Value="True"/>
    110108        <LoadedDesigner Value="True"/>
    111109        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    117115        <TopLine Value="330"/>
    118116        <CursorPos X="1" Y="347"/>
    119         <UsageCount Value="45"/>
     117        <UsageCount Value="44"/>
    120118        <DefaultSyntaxHighlighter Value="Delphi"/>
    121119      </Unit1>
    … …  
    129127        <TopLine Value="118"/>
    130128        <CursorPos X="25" Y="144"/>
    131         <UsageCount Value="99"/>
     129        <UsageCount Value="98"/>
    132130        <DefaultSyntaxHighlighter Value="Delphi"/>
    133131      </Unit2>
    … …  
    141139        <TopLine Value="1"/>
    142140        <CursorPos X="24" Y="14"/>
    143         <UsageCount Value="99"/>
     141        <UsageCount Value="98"/>
    144142        <DefaultSyntaxHighlighter Value="Delphi"/>
    145143      </Unit3>
    … …  
    148146        <IsPartOfProject Value="True"/>
    149147        <UnitName Value="UPersistentForm"/>
    150         <EditorIndex Value="14"/>
    151148        <WindowIndex Value="0"/>
    152149        <TopLine Value="55"/>
    153150        <CursorPos X="3" Y="84"/>
    154151        <UsageCount Value="264"/>
    155         <Loaded Value="True"/>
    156152        <DefaultSyntaxHighlighter Value="Delphi"/>
    157153      </Unit4>
    … …  
    160156        <IsPartOfProject Value="True"/>
    161157        <UnitName Value="USqlDatabase"/>
    162         <EditorIndex Value="11"/>
    163         <WindowIndex Value="0"/>
    164         <TopLine Value="209"/>
    165         <CursorPos X="1" Y="221"/>
     158        <EditorIndex Value="9"/>
     159        <WindowIndex Value="0"/>
     160        <TopLine Value="410"/>
     161        <CursorPos X="1" Y="424"/>
    166162        <UsageCount Value="264"/>
    167163        <Loaded Value="True"/>
    … …  
    172168        <IsPartOfProject Value="True"/>
    173169        <UnitName Value="URegistry"/>
    174         <EditorIndex Value="13"/>
    175170        <WindowIndex Value="0"/>
    176171        <TopLine Value="19"/>
    177172        <CursorPos X="1" Y="31"/>
    178173        <UsageCount Value="264"/>
    179         <Loaded Value="True"/>
    180174        <DefaultSyntaxHighlighter Value="Delphi"/>
    181175      </Unit6>
    … …  
    188182        <EditorIndex Value="0"/>
    189183        <WindowIndex Value="0"/>
    190         <TopLine Value="1"/>
    191         <CursorPos X="15" Y="1"/>
     184        <TopLine Value="99"/>
     185        <CursorPos X="42" Y="112"/>
    192186        <UsageCount Value="327"/>
    193187        <Loaded Value="True"/>
    … …  
    201195        <ResourceBaseClass Value="Form"/>
    202196        <UnitName Value="UItemEdit"/>
     197        <IsVisibleTab Value="True"/>
    203198        <EditorIndex Value="1"/>
    204199        <WindowIndex Value="0"/>
    205         <TopLine Value="129"/>
    206         <CursorPos X="34" Y="133"/>
     200        <TopLine Value="93"/>
     201        <CursorPos X="1" Y="111"/>
    207202        <UsageCount Value="318"/>
    208203        <Loaded Value="True"/>
    … …  
    217212        <ResourceBaseClass Value="Form"/>
    218213        <UnitName Value="ULoginForm"/>
    219         <EditorIndex Value="16"/>
     214        <EditorIndex Value="11"/>
    220215        <WindowIndex Value="0"/>
    221216        <TopLine Value="14"/>
    … …  
    233228        <ResourceBaseClass Value="Form"/>
    234229        <UnitName Value="UMainForm"/>
    235         <EditorIndex Value="2"/>
    236         <WindowIndex Value="0"/>
    237         <TopLine Value="613"/>
    238         <CursorPos X="1" Y="625"/>
     230        <EditorIndex Value="3"/>
     231        <WindowIndex Value="0"/>
     232        <TopLine Value="405"/>
     233        <CursorPos X="22" Y="412"/>
    239234        <UsageCount Value="317"/>
    240235        <Loaded Value="True"/>
    … …  
    255250        <ResourceBaseClass Value="Form"/>
    256251        <UnitName Value="UItemAdd"/>
    257         <EditorIndex Value="15"/>
    258         <WindowIndex Value="0"/>
    259         <TopLine Value="85"/>
    260         <CursorPos X="70" Y="105"/>
     252        <EditorIndex Value="10"/>
     253        <WindowIndex Value="0"/>
     254        <TopLine Value="73"/>
     255        <CursorPos X="17" Y="85"/>
    261256        <UsageCount Value="313"/>
    262257        <Loaded Value="True"/>
    … …  
    269264        <TopLine Value="963"/>
    270265        <CursorPos X="3" Y="974"/>
    271         <UsageCount Value="4"/>
     266        <UsageCount Value="3"/>
    272267        <DefaultSyntaxHighlighter Value="Delphi"/>
    273268      </Unit13>
    … …  
    277272        <TopLine Value="43"/>
    278273        <CursorPos X="1" Y="60"/>
    279         <UsageCount Value="11"/>
     274        <UsageCount Value="10"/>
    280275      </Unit14>
    281276      <Unit15>
    … …  
    284279        <TopLine Value="68"/>
    285280        <CursorPos X="1" Y="85"/>
    286         <UsageCount Value="8"/>
     281        <UsageCount Value="7"/>
    287282      </Unit15>
    288283      <Unit16>
    … …  
    292287        <TopLine Value="593"/>
    293288        <CursorPos X="15" Y="606"/>
    294         <UsageCount Value="3"/>
     289        <UsageCount Value="2"/>
    295290      </Unit16>
    296291      <Unit17>
    … …  
    299294        <TopLine Value="2104"/>
    300295        <CursorPos X="3" Y="2109"/>
    301         <UsageCount Value="3"/>
     296        <UsageCount Value="2"/>
    302297      </Unit17>
    303298      <Unit18>
    … …  
    307302        <TopLine Value="1"/>
    308303        <CursorPos X="6" Y="1"/>
    309         <UsageCount Value="14"/>
     304        <UsageCount Value="13"/>
    310305        <DefaultSyntaxHighlighter Value="Delphi"/>
    311306      </Unit18>
    … …  
    315310        <TopLine Value="1"/>
    316311        <CursorPos X="3" Y="21"/>
    317         <UsageCount Value="14"/>
     312        <UsageCount Value="13"/>
    318313        <DefaultSyntaxHighlighter Value="Delphi"/>
    319314      </Unit19>
    … …  
    322317        <IsPartOfProject Value="True"/>
    323318        <UnitName Value="USystem"/>
    324         <IsVisibleTab Value="True"/>
    325         <EditorIndex Value="10"/>
    326         <WindowIndex Value="0"/>
    327         <TopLine Value="185"/>
    328         <CursorPos X="33" Y="176"/>
    329         <UsageCount Value="83"/>
     319        <EditorIndex Value="6"/>
     320        <WindowIndex Value="0"/>
     321        <TopLine Value="169"/>
     322        <CursorPos X="1" Y="181"/>
     323        <UsageCount Value="95"/>
    330324        <Loaded Value="True"/>
    331325        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    337331        <TopLine Value="912"/>
    338332        <CursorPos X="14" Y="929"/>
    339         <UsageCount Value="11"/>
     333        <UsageCount Value="10"/>
    340334      </Unit21>
    341335      <Unit22>
    … …  
    344338        <TopLine Value="1"/>
    345339        <CursorPos X="15" Y="18"/>
    346         <UsageCount Value="9"/>
     340        <UsageCount Value="8"/>
    347341      </Unit22>
    348342      <Unit23>
    … …  
    351345        <TopLine Value="1"/>
    352346        <CursorPos X="11" Y="30"/>
    353         <UsageCount Value="6"/>
     347        <UsageCount Value="5"/>
    354348        <DefaultSyntaxHighlighter Value="Delphi"/>
    355349      </Unit23>
    … …  
    360354        <ResourceBaseClass Value="DataModule"/>
    361355        <UnitName Value="UCore"/>
    362         <EditorIndex Value="9"/>
    363         <WindowIndex Value="0"/>
    364         <TopLine Value="3"/>
    365         <CursorPos X="32" Y="17"/>
    366         <UsageCount Value="67"/>
     356        <EditorIndex Value="5"/>
     357        <WindowIndex Value="0"/>
     358        <TopLine Value="1"/>
     359        <CursorPos X="70" Y="8"/>
     360        <UsageCount Value="79"/>
    367361        <Loaded Value="True"/>
    368362        <LoadedDesigner Value="True"/>
    … …  
    375369        <ResourceBaseClass Value="Form"/>
    376370        <UnitName Value="USettingForm"/>
    377         <EditorIndex Value="8"/>
     371        <EditorIndex Value="4"/>
    378372        <WindowIndex Value="0"/>
    379373        <TopLine Value="40"/>
    380374        <CursorPos X="45" Y="15"/>
    381         <UsageCount Value="66"/>
     375        <UsageCount Value="78"/>
    382376        <Loaded Value="True"/>
    383377        <LoadedDesigner Value="True"/>
    … …  
    388382        <IsPartOfProject Value="True"/>
    389383        <UnitName Value="UApplicationInfo"/>
    390         <EditorIndex Value="7"/>
    391384        <WindowIndex Value="0"/>
    392385        <TopLine Value="37"/>
    393         <CursorPos X="48" Y="56"/>
    394         <UsageCount Value="66"/>
    395         <Loaded Value="True"/>
     386        <CursorPos X="21" Y="52"/>
     387        <UsageCount Value="78"/>
    396388        <DefaultSyntaxHighlighter Value="Delphi"/>
    397389      </Unit26>
    … …  
    402394        <TopLine Value="97"/>
    403395        <CursorPos X="26" Y="109"/>
    404         <UsageCount Value="9"/>
     396        <UsageCount Value="8"/>
    405397      </Unit27>
    406398      <Unit28>
    … …  
    409401        <TopLine Value="16"/>
    410402        <CursorPos X="14" Y="58"/>
    411         <UsageCount Value="9"/>
     403        <UsageCount Value="8"/>
    412404      </Unit28>
    413405      <Unit29>
    … …  
    416408        <TopLine Value="87"/>
    417409        <CursorPos X="6" Y="103"/>
    418         <UsageCount Value="9"/>
     410        <UsageCount Value="8"/>
    419411      </Unit29>
    420412      <Unit30>
    … …  
    423415        <TopLine Value="372"/>
    424416        <CursorPos X="7" Y="384"/>
    425         <UsageCount Value="6"/>
     417        <UsageCount Value="5"/>
    426418      </Unit30>
    427419      <Unit31>
    … …  
    430422        <TopLine Value="82"/>
    431423        <CursorPos X="40" Y="94"/>
    432         <UsageCount Value="6"/>
     424        <UsageCount Value="5"/>
    433425      </Unit31>
    434426      <Unit32>
    … …  
    438430        <TopLine Value="301"/>
    439431        <CursorPos X="3" Y="305"/>
    440         <UsageCount Value="6"/>
     432        <UsageCount Value="5"/>
    441433      </Unit32>
    442434      <Unit33>
    443435        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/dialogs.pp"/>
    444436        <UnitName Value="Dialogs"/>
    445         <EditorIndex Value="6"/>
    446437        <WindowIndex Value="0"/>
    447438        <TopLine Value="487"/>
    448439        <CursorPos X="44" Y="500"/>
    449         <UsageCount Value="29"/>
    450         <Loaded Value="True"/>
     440        <UsageCount Value="28"/>
    451441      </Unit33>
    452442      <Unit34>
    453443        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/controls.pp"/>
    454444        <UnitName Value="Controls"/>
    455         <EditorIndex Value="5"/>
    456         <WindowIndex Value="0"/>
    457         <TopLine Value="44"/>
    458         <CursorPos X="3" Y="56"/>
    459         <UsageCount Value="29"/>
    460         <Loaded Value="True"/>
     445        <WindowIndex Value="0"/>
     446        <TopLine Value="1661"/>
     447        <CursorPos X="24" Y="1673"/>
     448        <UsageCount Value="28"/>
    461449      </Unit34>
    462450      <Unit35>
    463451        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    464         <EditorIndex Value="4"/>
    465         <WindowIndex Value="0"/>
    466         <TopLine Value="1"/>
    467         <CursorPos X="24" Y="11"/>
    468         <UsageCount Value="11"/>
    469         <Loaded Value="True"/>
     452        <WindowIndex Value="0"/>
     453        <TopLine Value="50"/>
     454        <CursorPos X="1" Y="63"/>
     455        <UsageCount Value="10"/>
    470456      </Unit35>
    471457      <Unit36>
    472458        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    473         <EditorIndex Value="3"/>
     459        <EditorIndex Value="8"/>
    474460        <WindowIndex Value="0"/>
    475461        <TopLine Value="120"/>
    476         <CursorPos X="1" Y="132"/>
    477         <UsageCount Value="11"/>
     462        <CursorPos X="1" Y="134"/>
     463        <UsageCount Value="15"/>
    478464        <Loaded Value="True"/>
    479465      </Unit36>
     466      <Unit37>
     467        <Filename Value="Application/UDataTypes.pas"/>
     468        <IsPartOfProject Value="True"/>
     469        <UnitName Value="UDataTypes"/>
     470        <EditorIndex Value="7"/>
     471        <WindowIndex Value="0"/>
     472        <TopLine Value="233"/>
     473        <CursorPos X="1" Y="247"/>
     474        <UsageCount Value="32"/>
     475        <Loaded Value="True"/>
     476        <DefaultSyntaxHighlighter Value="Delphi"/>
     477      </Unit37>
     478      <Unit38>
     479        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
     480        <UnitName Value="StdCtrls"/>
     481        <WindowIndex Value="0"/>
     482        <TopLine Value="1446"/>
     483        <CursorPos X="26" Y="1458"/>
     484        <UsageCount Value="9"/>
     485      </Unit38>
     486      <Unit39>
     487        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win32/system.pp"/>
     488        <UnitName Value="System"/>
     489        <EditorIndex Value="2"/>
     490        <WindowIndex Value="0"/>
     491        <TopLine Value="4"/>
     492        <CursorPos X="1" Y="16"/>
     493        <UsageCount Value="14"/>
     494        <Loaded Value="True"/>
     495      </Unit39>
    480496    </Units>
    481497    <JumpHistory Count="30" HistoryIndex="29">
    482498      <Position1>
    483         <Filename Value="USystem.pas"/>
    484         <Caret Line="101" Column="25" TopLine="92"/>
     499        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     500        <Caret Line="133" Column="1" TopLine="120"/>
    485501      </Position1>
    486502      <Position2>
    487         <Filename Value="USystem.pas"/>
    488         <Caret Line="274" Column="34" TopLine="274"/>
     503        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     504        <Caret Line="134" Column="1" TopLine="120"/>
    489505      </Position2>
    490506      <Position3>
    491         <Filename Value="USystem.pas"/>
    492         <Caret Line="102" Column="27" TopLine="100"/>
     507        <Filename Value="Forms/UItemEdit.pas"/>
     508        <Caret Line="112" Column="1" TopLine="93"/>
    493509      </Position3>
    494510      <Position4>
    495         <Filename Value="USystem.pas"/>
    496         <Caret Line="291" Column="24" TopLine="277"/>
     511        <Filename Value="Forms/UItemEdit.pas"/>
     512        <Caret Line="111" Column="1" TopLine="93"/>
    497513      </Position4>
    498514      <Position5>
    499         <Filename Value="Forms/UMainForm.pas"/>
    500         <Caret Line="389" Column="15" TopLine="375"/>
     515        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     516        <Caret Line="131" Column="1" TopLine="120"/>
    501517      </Position5>
    502518      <Position6>
    503         <Filename Value="USystem.pas"/>
    504         <Caret Line="316" Column="3" TopLine="318"/>
     519        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     520        <Caret Line="133" Column="1" TopLine="120"/>
    505521      </Position6>
    506522      <Position7>
    507         <Filename Value="USystem.pas"/>
    508         <Caret Line="31" Column="41" TopLine="20"/>
     523        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     524        <Caret Line="134" Column="1" TopLine="120"/>
    509525      </Position7>
    510526      <Position8>
    511         <Filename Value="USystem.pas"/>
    512         <Caret Line="290" Column="50" TopLine="278"/>
     527        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     528        <Caret Line="131" Column="1" TopLine="120"/>
    513529      </Position8>
    514530      <Position9>
    515         <Filename Value="Forms/UItemEdit.pas"/>
    516         <Caret Line="141" Column="40" TopLine="134"/>
     531        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     532        <Caret Line="133" Column="1" TopLine="120"/>
    517533      </Position9>
    518534      <Position10>
    519         <Filename Value="Forms/UItemEdit.pas"/>
    520         <Caret Line="133" Column="34" TopLine="129"/>
     535        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     536        <Caret Line="134" Column="1" TopLine="120"/>
    521537      </Position10>
    522538      <Position11>
    523         <Filename Value="Forms/UMainForm.pas"/>
    524         <Caret Line="374" Column="49" TopLine="357"/>
     539        <Filename Value="Application/UDataTypes.pas"/>
     540        <Caret Line="268" Column="27" TopLine="256"/>
    525541      </Position11>
    526542      <Position12>
    527         <Filename Value="Common/USqlDatabase.pas"/>
    528         <Caret Line="221" Column="1" TopLine="209"/>
     543        <Filename Value="Application/UDataTypes.pas"/>
     544        <Caret Line="270" Column="1" TopLine="256"/>
    529545      </Position12>
    530546      <Position13>
    531         <Filename Value="Forms/UMainForm.pas"/>
    532         <Caret Line="388" Column="16" TopLine="375"/>
     547        <Filename Value="Forms/UItemEdit.pas"/>
     548        <Caret Line="112" Column="1" TopLine="93"/>
    533549      </Position13>
    534550      <Position14>
    535         <Filename Value="USystem.pas"/>
    536         <Caret Line="104" Column="53" TopLine="92"/>
     551        <Filename Value="Forms/UItemEdit.pas"/>
     552        <Caret Line="111" Column="1" TopLine="93"/>
    537553      </Position14>
    538554      <Position15>
    539         <Filename Value="USystem.pas"/>
    540         <Caret Line="309" Column="69" TopLine="308"/>
     555        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     556        <Caret Line="131" Column="1" TopLine="120"/>
    541557      </Position15>
    542558      <Position16>
    543         <Filename Value="USystem.pas"/>
    544         <Caret Line="102" Column="27" TopLine="91"/>
     559        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     560        <Caret Line="133" Column="1" TopLine="120"/>
    545561      </Position16>
    546562      <Position17>
    547         <Filename Value="Forms/UMainForm.pas"/>
    548         <Caret Line="412" Column="50" TopLine="396"/>
     563        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     564        <Caret Line="134" Column="1" TopLine="120"/>
    549565      </Position17>
    550566      <Position18>
    551         <Filename Value="Common/USqlDatabase.pas"/>
    552         <Caret Line="221" Column="1" TopLine="209"/>
     567        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     568        <Caret Line="131" Column="1" TopLine="120"/>
    553569      </Position18>
    554570      <Position19>
    555         <Filename Value="USystem.pas"/>
    556         <Caret Line="322" Column="1" TopLine="312"/>
     571        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     572        <Caret Line="133" Column="1" TopLine="120"/>
    557573      </Position19>
    558574      <Position20>
    559         <Filename Value="Common/USqlDatabase.pas"/>
    560         <Caret Line="221" Column="1" TopLine="209"/>
     575        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     576        <Caret Line="134" Column="1" TopLine="120"/>
    561577      </Position20>
    562578      <Position21>
    563         <Filename Value="USystem.pas"/>
    564         <Caret Line="300" Column="27" TopLine="300"/>
     579        <Filename Value="Application/UDataTypes.pas"/>
     580        <Caret Line="251" Column="39" TopLine="233"/>
    565581      </Position21>
    566582      <Position22>
    567         <Filename Value="Forms/UMainForm.pas"/>
    568         <Caret Line="353" Column="34" TopLine="337"/>
     583        <Filename Value="Application/UDataTypes.pas"/>
     584        <Caret Line="246" Column="1" TopLine="233"/>
    569585      </Position22>
    570586      <Position23>
    571         <Filename Value="Common/USqlDatabase.pas"/>
    572         <Caret Line="221" Column="1" TopLine="209"/>
     587        <Filename Value="USystem.pas"/>
     588        <Caret Line="323" Column="31" TopLine="309"/>
    573589      </Position23>
    574590      <Position24>
    575         <Filename Value="Forms/UMainForm.pas"/>
    576         <Caret Line="353" Column="39" TopLine="337"/>
     591        <Filename Value="USystem.pas"/>
     592        <Caret Line="325" Column="1" TopLine="309"/>
    577593      </Position24>
    578594      <Position25>
    579         <Filename Value="Common/USqlDatabase.pas"/>
    580         <Caret Line="221" Column="1" TopLine="209"/>
     595        <Filename Value="USystem.pas"/>
     596        <Caret Line="326" Column="1" TopLine="309"/>
    581597      </Position25>
    582598      <Position26>
    583599        <Filename Value="USystem.pas"/>
    584         <Caret Line="334" Column="20" TopLine="319"/>
     600        <Caret Line="327" Column="1" TopLine="309"/>
    585601      </Position26>
    586602      <Position27>
    587603        <Filename Value="USystem.pas"/>
    588         <Caret Line="409" Column="37" TopLine="391"/>
     604        <Caret Line="328" Column="1" TopLine="309"/>
    589605      </Position27>
    590606      <Position28>
    591         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    592         <Caret Line="132" Column="1" TopLine="120"/>
     607        <Filename Value="USystem.pas"/>
     608        <Caret Line="330" Column="7" TopLine="312"/>
    593609      </Position28>
    594610      <Position29>
    595         <Filename Value="Forms/UMainForm.pas"/>
    596         <Caret Line="684" Column="1" TopLine="672"/>
     611        <Filename Value="USystem.pas"/>
     612        <Caret Line="325" Column="1" TopLine="312"/>
    597613      </Position29>
    598614      <Position30>
    599         <Filename Value="Forms/UMainForm.pas"/>
    600         <Caret Line="625" Column="1" TopLine="613"/>
     615        <Filename Value="USystem.pas"/>
     616        <Caret Line="181" Column="1" TopLine="169"/>
    601617      </Position30>
    602618    </JumpHistory>
    … …  
    649665  </CompilerOptions>
    650666  <Debugging>
     667    <Watches Count="1">
     668      <Item1>
     669        <Expression Value="self.customtype"/>
     670      </Item1>
     671    </Watches>
    651672    <Exceptions Count="3">
    652673      <Item1>

  • trunk/chronis.lpr

    r12 r14  
    1010  Forms, UPersistentForm, URegistry, USqlDatabase, UTreeState, SysUtils,
    1111  UItemView, UItemEdit, ULoginForm, UMainForm, UItemAdd, TemplateGenerics,
    12   CoolTranslator, USystem, UCore, UApplicationInfo, USettingForm
     12  CoolTranslator, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes
    1313  { you can add units after this };
    1414
Note: See TracChangeset for help on using the changeset viewer.