Changeset 16


Ignore:
Timestamp:
Jun 13, 2011, 12:43:29 PM (14 years ago)
Author:
george
Message:
Location:
trunk
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UDataTypes.pas

    r15 r16  
    2020    procedure LoadDef(CustomType: Integer); virtual;
    2121    procedure SetDefault; virtual;
     22    function GetStringValue: string; virtual;
    2223  end;
    2324
    … …  
    7475  TDataTypeRelationOne = class(TDataType)
    7576    ObjectId: Integer;
     77    SelectedItemName: string;
     78    function CreateControl(Owner: TComponent): TWinControl; override;
     79    procedure SetupControl(Control: TWinControl); override;
     80    procedure Load(CellValue: string); override;
     81  end;
     82
     83  { TDataTypeRelationMany }
     84
     85  TDataTypeRelationMany = class(TDataType)
     86    ObjectId: Integer;
     87    PropertyID: Integer;
     88    SelectedItemName: string;
    7689    function CreateControl(Owner: TComponent): TWinControl; override;
    7790    procedure SetupControl(Control: TWinControl); override;
    … …  
    143156  if BaseType = Integer(vtBoolean) then begin
    144157    Result := TDataTypeBoolean.Create;
     158  end else
     159  if BaseType = Integer(vtRelationOne) then begin
     160    Result := TDataTypeRelationOne.Create;
     161  end else
     162  if BaseType = Integer(vtRelationMany) then begin
     163    Result := TDataTypeRelationMany.Create;
    145164  end else begin
    146165    Result := TDataTypeString.Create;
    … …  
    149168end;
    150169
     170{ TDataTypeRelationMany }
     171
     172function TDataTypeRelationMany.CreateControl(Owner: TComponent): TWinControl;
     173begin
     174  Result:=inherited CreateControl(Owner);
     175end;
     176
     177procedure TDataTypeRelationMany.SetupControl(Control: TWinControl);
     178begin
     179  inherited SetupControl(Control);
     180end;
     181
     182procedure TDataTypeRelationMany.Load(CellValue: string);
     183begin
     184  inherited Load(CellValue);
     185end;
     186
    151187{ TDataTypeRelationOne }
    152188
    153189function TDataTypeRelationOne.CreateControl(Owner: TComponent): TWinControl;
    154190begin
    155   Result:=inherited CreateControl(Owner);
     191  Result := TEdit.Create(Owner);
     192  TEdit(Result).Enabled := False;
    156193end;
    157194
    158195procedure TDataTypeRelationOne.SetupControl(Control: TWinControl);
    159196begin
    160   inherited SetupControl(Control);
     197  TEdit(Control).Text := SelectedItemName;
    161198end;
    162199
    163200procedure TDataTypeRelationOne.Load(CellValue: string);
    164201begin
    165   inherited Load(CellValue);
     202  SelectedItemName := CellValue;
    166203end;
    167204
    … …  
    333370end;
    334371
     372function TDataType.GetStringValue: string;
     373begin
     374  Result := '';
     375end;
     376
    335377end.
    336378

  • trunk/Forms/UItemView.pas

    r14 r16  
    110110  for I := 0 to Report.Columns.Count - 1 do begin
    111111    DataType := TReportColumn(Report.Columns[I]).CustomType;
    112   if DataType is TDataTypeRelationOne then begin
     112  if DataType is TDataTypeRelationMany then begin
    113113    TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
    114114  end else begin

  • trunk/Forms/UMainForm.pas

    r15 r16  
    289289      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeRelationOne + '` ( ' +
    290290        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
    291         '`Type` int(11) NOT NULL,' +
     291        '`CustomType` int(11) NOT NULL,' +
    292292        '`Object` int(11) NOT NULL,' +
    293         'KEY `Type` (`Type`),' +
     293        'KEY `CustomType` (`CustomType`),' +
    294294        'PRIMARY KEY (`Id`)' +
    295295        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
    … …  
    299299      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeRelationMany + '` ( ' +
    300300        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
    301         '`Type` int(11) NOT NULL,' +
     301        '`CustomType` int(11) NOT NULL,' +
    302302        '`ObjectProperty` int(11) NOT NULL,' +
    303         'KEY `Type` (`Type`),' +
     303        'KEY `CustomType` (`CustomType`),' +
    304304        'PRIMARY KEY (`Id`)' +
    305305        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
    … …  
    365365var
    366366  ObjectId: Integer;
     367  ObjectGroupId: Integer;
     368  PropertyParentId: Integer;
     369  ObjectPropertyGroupId: Integer;
     370  PropertyTypeId: Integer;
     371  ObjectPropertyId: Integer;
     372  ObjectPropertyIdGroup: Integer;
     373  PropertyObjectId: Integer;
     374  CustomTypeId: Integer;
     375  CustomTypeIdType: Integer;
     376  ObjectIdGroupId: Integer;
    367377  TypeNumber: Integer;
     378  ObjectGroupParentId: Integer;
    368379  TypeString: Integer;
    369380  TypeBoolean: Integer;
    … …  
    405416  GroupId := AddObjectGroup('System');
    406417
    407   ObjectId := AddObject('Object groups', 'ObjectGroup', Core.System.Database.Database, GroupId);
    408     AddPropertyString(ObjectId, 'Name', 'Name');
    409     AddPropertyNumber(ObjectId, 'Parent', 'Parent');
     418  ObjectGroupId := AddObject('Object groups', 'ObjectGroup', Core.System.Database.Database, GroupId);
     419    AddPropertyString(ObjectGroupId, 'Name', 'Name');
     420    ObjectGroupParentId := AddPropertyRelationOne(ObjectGroupId, 'Parent', 'Parent', ObjectGroupId);
     421
    410422  ObjectId := AddObject('Objects', 'Object', Core.System.Database.Database, GroupId);
    411423    AddPropertyString(ObjectId, 'Name', 'Name');
    412     AddPropertyNumber(ObjectId, 'Group', 'Group');
     424    ObjectIdGroupId := AddPropertyRelationOne(ObjectId, 'Group', 'Group', ObjectGroupId);
    413425    AddPropertyString(ObjectId, 'Schema', 'Schema');
    414426    AddPropertyString(ObjectId, 'Table', 'Table');
    415427    AddPropertyString(ObjectId, 'Primary key', 'PrimaryKey');
    416428    AddPropertyNumber(ObjectId, 'Sequence', 'Sequence');
    417   ObjectId := AddObject('Property types', 'Type', Core.System.Database.Database, GroupId);
    418     AddPropertyString(ObjectId, 'Name', 'Name');
    419     AddPropertyString(ObjectId, 'Type', 'DbType');
     429
     430  PropertyTypeId := AddObject('Property types', 'Type', Core.System.Database.Database, GroupId);
     431    AddPropertyString(PropertyTypeId, 'Name', 'Name');
     432    AddPropertyString(PropertyTypeId, 'Type', 'DbType');
    420433    //AddPropertyNumber(ObjectId, 'Parent', 'Parent');
    421   ObjectId := AddObject('Property groups', 'PropertyGroup', Core.System.Database.Database, GroupId);
    422   ObjectId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId);
    423     AddPropertyString(ObjectId, 'Name', 'Name');
    424     AddPropertyNumber(ObjectId, 'Object', 'Object');
    425     AddPropertyNumber(ObjectId, 'Property group', 'PropertyGroup');
    426     AddPropertyNumber(ObjectId, 'Custom type', 'CustomType');
    427     AddProperty(ObjectId, 'Editable', 'Editable', TypeBoolean);
    428     AddPropertyString(ObjectId, 'Column name', 'ColumnName');
     434
     435  CustomTypeId := AddObject('Custom types', 'TypeCustom', Core.System.Database.Database, GroupId);
     436    CustomTypeIdType := AddPropertyRelationOne(CustomTypeId, 'Type', 'Type', PropertyTypeId);
     437
     438  ObjectPropertyGroupId := AddObject('Property groups', 'PropertyGroup', Core.System.Database.Database, GroupId);
     439
     440  ObjectPropertyId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId);
     441    AddPropertyString(ObjectPropertyId, 'Name', 'Name');
     442    PropertyObjectId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', ObjectId);
     443    ObjectPropertyIdGroup := AddPropertyRelationOne(ObjectPropertyId, 'Property group', 'PropertyGroup', ObjectPropertyGroupId);
     444    AddPropertyNumber(ObjectPropertyId, 'Custom type', 'CustomType');
     445    AddProperty(ObjectPropertyId, 'Editable', 'Editable', TypeBoolean);
     446    AddPropertyString(ObjectPropertyId, 'Column name', 'ColumnName');
     447
     448    AddPropertyRelationMany(ObjectGroupId, 'Childs', 'Childs', PropertyParentId);
     449    AddPropertyRelationMany(ObjectGroupId, 'Objects', 'Objects', ObjectIdGroupId);
     450    AddPropertyRelationMany(ObjectId, 'Properties', 'Properties', PropertyParentId);
     451    AddPropertyRelationMany(ObjectPropertyGroupId, 'Properties', 'Properties', ObjectPropertyIdGroup);
     452    AddPropertyRelationMany(PropertyTypeId, 'Custom types', 'CustomTypes', CustomTypeIdType);
    429453  end;
    430454end;
    … …  
    464488procedure TMainForm.AItemViewExecute(Sender: TObject);
    465489begin
    466   ItemViewForm.Show;
     490  if Assigned(ListView1.Selected) then
     491    ItemViewForm.Show;
    467492end;
    468493
    … …  
    573598    Item.Caption := Items[0];
    574599    for I := 1 to Items.Count - 1 do
     600    if not TReportColumn(Report.Columns[I]).VirtualItem then
    575601      Item.SubItems.Add(Items[I]);
    576602  end;
    … …  
    680706
    681707    Columns.Clear;
    682     for I := 0 to Report.Columns.Count - 1 do begin
     708    for I := 0 to Report.Columns.Count - 1 do
     709    if not TReportColumn(Report.Columns[I]).VirtualItem then begin
    683710      NewColumn := Columns.Add;
    684711      NewColumn.Caption := TReportColumn(Report.Columns[I]).Caption;
    … …  
    688715  end;
    689716  ListView1Resize(Self);
     717  ListView1SelectItem(Self, nil, False);
    690718end;
    691719

  • trunk/USystem.pas

    r15 r16  
    4848    CustomType: TDataType;
    4949    ColumnName: string;
     50    VirtualItem: Boolean;
    5051  end;
    5152
    … …  
    104105    function AddPropertyString(ObjectId: Integer; Name, ColumnName: string;
    105106      Default: string = ''; MaxLength: Integer = 255): Integer;
     107    function AddPropertyRelationOne(ObjectId: Integer; Name, ColumnName: string;
     108      ReferedObject: Integer): Integer;
     109    function AddPropertyRelationMany(ObjectId: Integer; Name, ColumnName: string;
     110      ReferedObjectProperty: Integer): Integer;
    106111    function AddObjectGroup(Name: string): Integer;
    107112    function AddEnumeration(Name: string): Integer;
    … …  
    164169  NewColumn: TReportColumn;
    165170  ColumnsQuery: string;
     171  DataType: TDataType;
    166172begin
    167173  Clear;
    … …  
    179185      NewColumn.CustomType := TDataTypeNumber.Create;
    180186
    181       for I := 0 to Properties.Count - 1 do
    182       if Properties[I].Values['CustomType'] <> IntToStr(Integer(vtRelationMany)) then begin
     187      for I := 0 to Properties.Count - 1 do begin
     188        DataType := GetDataType(StrToInt(Properties[I].Values['CustomType']));
    183189        NewColumn := TReportColumn.Create;
    184190        Columns.Add(NewColumn);
    185191        NewColumn.Caption := Properties[I].Values['Name'];
    186192        NewColumn.ColumnName := Properties[I].Values['ColumnName'];
    187         NewColumn.CustomType := GetDataType(StrToInt(Properties[I].Values['CustomType']));
     193        NewColumn.CustomType := DataType;
     194        if (DataType is TDataTypeRelationMany) then NewColumn.VirtualItem := True;
    188195      end;
    189196
    … …  
    192199      ColumnsQuery := '';
    193200      for I := 0 to Columns.Count - 1 do
     201        if not TReportColumn(Columns[I]).VirtualItem then
    194202        ColumnsQuery := ColumnsQuery + ', `' + TReportColumn(Columns[I]).ColumnName + '`';
    195203      System.Delete(ColumnsQuery, 1, 2);
    … …  
    202210        NewItem.Id := StrToInt(Values[I].Values[Obj.PrimaryKey]);
    203211        for C := 0 to Properties.Count - 1 do
    204         if Properties[C].Values['CustomType'] <> IntToStr(Integer(vtRelationMany)) then begin
    205           NewItem.Items.Add(Values[I].Values[Properties[C].Values['ColumnName']]);
    206         end;
     212        if not TReportColumn(Columns[C]).VirtualItem then begin
     213          NewItem.Items.Add(Values[I].Values[TReportColumn(Columns[C]).ColumnName]);
     214        end else NewItem.Items.Add('');
    207215        Add(NewItem);
    208216      end;
    … …  
    328336    Data.Add('Default', Default);
    329337    Database.Insert(TypeString, Data);
     338    //CustomTypeId := Database.LastInsertId;
     339
     340    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     341  finally
     342    Data.Free;
     343    DbRows.Free;
     344  end;
     345end;
     346
     347function TChronisBase.AddPropertyRelationOne(ObjectId: Integer; Name,
     348  ColumnName: string; ReferedObject: Integer): Integer;
     349var
     350  DbRows: TDbRows;
     351  Data: TDictionaryStringString;
     352  CustomTypeId: Integer;
     353begin
     354  try
     355    DbRows := TDbRows.Create;
     356    Data := TDictionaryStringString.Create;
     357
     358    Data.Clear;
     359    Data.Add('Type', IntToStr(Integer(vtRelationOne)));
     360    Database.Insert(CustomTypeTableName, Data);
     361    CustomTypeId := Database.LastInsertId;
     362
     363    Data.Clear;
     364    Data.Add('CustomType', IntToStr(CustomTypeId));
     365    Data.Add('Object', IntToStr(ReferedObject));
     366    Database.Insert(TypeRelationOne, Data);
     367    //CustomTypeId := Database.LastInsertId;
     368
     369    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     370  finally
     371    Data.Free;
     372    DbRows.Free;
     373  end;
     374end;
     375
     376function TChronisBase.AddPropertyRelationMany(ObjectId: Integer; Name,
     377  ColumnName: string; ReferedObjectProperty: Integer): Integer;
     378var
     379  DbRows: TDbRows;
     380  Data: TDictionaryStringString;
     381  CustomTypeId: Integer;
     382begin
     383  try
     384    DbRows := TDbRows.Create;
     385    Data := TDictionaryStringString.Create;
     386
     387    Data.Clear;
     388    Data.Add('Type', IntToStr(Integer(vtRelationMany)));
     389    Database.Insert(CustomTypeTableName, Data);
     390    CustomTypeId := Database.LastInsertId;
     391
     392    Data.Clear;
     393    Data.Add('CustomType', IntToStr(CustomTypeId));
     394    Data.Add('ObjectProperty', IntToStr(ReferedObjectProperty));
     395    Database.Insert(TypeRelationMany, Data);
    330396    //CustomTypeId := Database.LastInsertId;
    331397

  • trunk/chronis.lpi

    r15 r16  
    104104      </Item6>
    105105    </RequiredPackages>
    106     <Units Count="57">
     106    <Units Count="59">
    107107      <Unit0>
    108108        <Filename Value="chronis.lpr"/>
    … …  
    121121        <TopLine Value="330"/>
    122122        <CursorPos X="1" Y="347"/>
    123         <UsageCount Value="44"/>
     123        <UsageCount Value="43"/>
    124124        <DefaultSyntaxHighlighter Value="Delphi"/>
    125125      </Unit1>
    … …  
    133133        <TopLine Value="118"/>
    134134        <CursorPos X="25" Y="144"/>
    135         <UsageCount Value="98"/>
     135        <UsageCount Value="97"/>
    136136        <DefaultSyntaxHighlighter Value="Delphi"/>
    137137      </Unit2>
    … …  
    145145        <TopLine Value="1"/>
    146146        <CursorPos X="24" Y="14"/>
    147         <UsageCount Value="98"/>
     147        <UsageCount Value="97"/>
    148148        <DefaultSyntaxHighlighter Value="Delphi"/>
    149149      </Unit3>
    … …  
    164164        <TopLine Value="58"/>
    165165        <CursorPos X="73" Y="232"/>
    166         <UsageCount Value="264"/>
     166        <UsageCount Value="263"/>
    167167        <DefaultSyntaxHighlighter Value="Delphi"/>
    168168      </Unit5>
    … …  
    171171        <IsPartOfProject Value="True"/>
    172172        <UnitName Value="URegistry"/>
    173         <EditorIndex Value="14"/>
     173        <EditorIndex Value="13"/>
    174174        <WindowIndex Value="0"/>
    175175        <TopLine Value="19"/>
    … …  
    187187        <EditorIndex Value="0"/>
    188188        <WindowIndex Value="0"/>
    189         <TopLine Value="1"/>
    190         <CursorPos X="36" Y="14"/>
     189        <TopLine Value="106"/>
     190        <CursorPos X="45" Y="116"/>
    191191        <UsageCount Value="327"/>
    192192        <Loaded Value="True"/>
    … …  
    216216        <ResourceBaseClass Value="Form"/>
    217217        <UnitName Value="ULoginForm"/>
    218         <EditorIndex Value="16"/>
     218        <EditorIndex Value="14"/>
    219219        <WindowIndex Value="0"/>
    220220        <TopLine Value="14"/>
    … …  
    232232        <ResourceBaseClass Value="Form"/>
    233233        <UnitName Value="UMainForm"/>
    234         <EditorIndex Value="2"/>
    235         <WindowIndex Value="0"/>
    236         <TopLine Value="95"/>
    237         <CursorPos X="15" Y="98"/>
     234        <IsVisibleTab Value="True"/>
     235        <EditorIndex Value="3"/>
     236        <WindowIndex Value="0"/>
     237        <TopLine Value="478"/>
     238        <CursorPos X="34" Y="490"/>
    238239        <UsageCount Value="317"/>
    239240        <Loaded Value="True"/>
    … …  
    245246        <IsPartOfProject Value="True"/>
    246247        <UnitName Value="UTreeState"/>
    247         <EditorIndex Value="13"/>
     248        <EditorIndex Value="12"/>
    248249        <WindowIndex Value="0"/>
    249250        <TopLine Value="1"/>
    … …  
    259260        <ResourceBaseClass Value="Form"/>
    260261        <UnitName Value="UItemAdd"/>
    261         <EditorIndex Value="15"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="13"/>
     262        <EditorIndex Value="2"/>
     263        <WindowIndex Value="0"/>
     264        <TopLine Value="49"/>
    264265        <CursorPos X="1" Y="32"/>
    265266        <UsageCount Value="313"/>
    … …  
    273274        <TopLine Value="963"/>
    274275        <CursorPos X="3" Y="974"/>
    275         <UsageCount Value="3"/>
     276        <UsageCount Value="2"/>
    276277        <DefaultSyntaxHighlighter Value="Delphi"/>
    277278      </Unit13>
    … …  
    281282        <TopLine Value="43"/>
    282283        <CursorPos X="1" Y="60"/>
    283         <UsageCount Value="10"/>
     284        <UsageCount Value="9"/>
    284285        <DefaultSyntaxHighlighter Value="Delphi"/>
    285286      </Unit14>
    … …  
    289290        <TopLine Value="68"/>
    290291        <CursorPos X="1" Y="85"/>
    291         <UsageCount Value="7"/>
     292        <UsageCount Value="6"/>
    292293        <DefaultSyntaxHighlighter Value="Delphi"/>
    293294      </Unit15>
    … …  
    298299        <TopLine Value="593"/>
    299300        <CursorPos X="15" Y="606"/>
    300         <UsageCount Value="2"/>
     301        <UsageCount Value="1"/>
    301302        <DefaultSyntaxHighlighter Value="Delphi"/>
    302303      </Unit16>
    … …  
    306307        <TopLine Value="2104"/>
    307308        <CursorPos X="3" Y="2109"/>
    308         <UsageCount Value="2"/>
     309        <UsageCount Value="1"/>
    309310        <DefaultSyntaxHighlighter Value="Delphi"/>
    310311      </Unit17>
    … …  
    315316        <TopLine Value="1"/>
    316317        <CursorPos X="6" Y="1"/>
    317         <UsageCount Value="13"/>
     318        <UsageCount Value="12"/>
    318319        <DefaultSyntaxHighlighter Value="Delphi"/>
    319320      </Unit18>
    … …  
    323324        <TopLine Value="1"/>
    324325        <CursorPos X="3" Y="21"/>
    325         <UsageCount Value="13"/>
     326        <UsageCount Value="12"/>
    326327        <DefaultSyntaxHighlighter Value="Delphi"/>
    327328      </Unit19>
    … …  
    330331        <IsPartOfProject Value="True"/>
    331332        <UnitName Value="USystem"/>
    332         <EditorIndex Value="11"/>
    333         <WindowIndex Value="0"/>
    334         <TopLine Value="305"/>
    335         <CursorPos X="28" Y="424"/>
    336         <UsageCount Value="98"/>
     333        <EditorIndex Value="7"/>
     334        <WindowIndex Value="0"/>
     335        <TopLine Value="314"/>
     336        <CursorPos X="25" Y="333"/>
     337        <UsageCount Value="107"/>
    337338        <Loaded Value="True"/>
    338339        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    344345        <TopLine Value="912"/>
    345346        <CursorPos X="14" Y="929"/>
    346         <UsageCount Value="10"/>
     347        <UsageCount Value="9"/>
    347348        <DefaultSyntaxHighlighter Value="Delphi"/>
    348349      </Unit21>
    … …  
    352353        <TopLine Value="1"/>
    353354        <CursorPos X="15" Y="18"/>
    354         <UsageCount Value="8"/>
     355        <UsageCount Value="7"/>
    355356        <DefaultSyntaxHighlighter Value="Delphi"/>
    356357      </Unit22>
    … …  
    360361        <TopLine Value="1"/>
    361362        <CursorPos X="11" Y="30"/>
    362         <UsageCount Value="5"/>
     363        <UsageCount Value="4"/>
    363364        <DefaultSyntaxHighlighter Value="Delphi"/>
    364365      </Unit23>
    … …  
    369370        <ResourceBaseClass Value="DataModule"/>
    370371        <UnitName Value="UCore"/>
    371         <IsVisibleTab Value="True"/>
    372         <EditorIndex Value="9"/>
    373         <WindowIndex Value="0"/>
    374         <TopLine Value="31"/>
    375         <CursorPos X="31" Y="42"/>
    376         <UsageCount Value="82"/>
     372        <EditorIndex Value="5"/>
     373        <WindowIndex Value="0"/>
     374        <TopLine Value="34"/>
     375        <CursorPos X="59" Y="46"/>
     376        <UsageCount Value="91"/>
    377377        <Loaded Value="True"/>
    378378        <LoadedDesigner Value="True"/>
    … …  
    385385        <ResourceBaseClass Value="Form"/>
    386386        <UnitName Value="USettingForm"/>
    387         <EditorIndex Value="8"/>
     387        <EditorIndex Value="4"/>
    388388        <WindowIndex Value="0"/>
    389389        <TopLine Value="40"/>
    390390        <CursorPos X="45" Y="15"/>
    391         <UsageCount Value="81"/>
     391        <UsageCount Value="90"/>
    392392        <Loaded Value="True"/>
    393393        <LoadedDesigner Value="True"/>
    … …  
    401401        <TopLine Value="37"/>
    402402        <CursorPos X="21" Y="52"/>
    403         <UsageCount Value="81"/>
     403        <UsageCount Value="90"/>
    404404        <DefaultSyntaxHighlighter Value="Delphi"/>
    405405      </Unit26>
    … …  
    410410        <TopLine Value="97"/>
    411411        <CursorPos X="26" Y="109"/>
    412         <UsageCount Value="8"/>
     412        <UsageCount Value="7"/>
    413413        <DefaultSyntaxHighlighter Value="Delphi"/>
    414414      </Unit27>
    … …  
    418418        <TopLine Value="16"/>
    419419        <CursorPos X="14" Y="58"/>
    420         <UsageCount Value="8"/>
     420        <UsageCount Value="7"/>
    421421        <DefaultSyntaxHighlighter Value="Delphi"/>
    422422      </Unit28>
    … …  
    426426        <TopLine Value="87"/>
    427427        <CursorPos X="6" Y="103"/>
    428         <UsageCount Value="8"/>
     428        <UsageCount Value="7"/>
    429429        <DefaultSyntaxHighlighter Value="Delphi"/>
    430430      </Unit29>
    … …  
    434434        <TopLine Value="372"/>
    435435        <CursorPos X="7" Y="384"/>
    436         <UsageCount Value="5"/>
     436        <UsageCount Value="4"/>
    437437        <DefaultSyntaxHighlighter Value="Delphi"/>
    438438      </Unit30>
    … …  
    442442        <TopLine Value="82"/>
    443443        <CursorPos X="40" Y="94"/>
    444         <UsageCount Value="5"/>
     444        <UsageCount Value="4"/>
    445445        <DefaultSyntaxHighlighter Value="Delphi"/>
    446446      </Unit31>
    … …  
    451451        <TopLine Value="301"/>
    452452        <CursorPos X="3" Y="305"/>
    453         <UsageCount Value="5"/>
     453        <UsageCount Value="4"/>
    454454        <DefaultSyntaxHighlighter Value="Delphi"/>
    455455      </Unit32>
    … …  
    460460        <TopLine Value="487"/>
    461461        <CursorPos X="44" Y="500"/>
    462         <UsageCount Value="28"/>
     462        <UsageCount Value="27"/>
    463463        <DefaultSyntaxHighlighter Value="Delphi"/>
    464464      </Unit33>
    … …  
    469469        <TopLine Value="1661"/>
    470470        <CursorPos X="24" Y="1673"/>
    471         <UsageCount Value="28"/>
     471        <UsageCount Value="27"/>
    472472        <DefaultSyntaxHighlighter Value="Delphi"/>
    473473      </Unit34>
    … …  
    476476        <IsPartOfProject Value="True"/>
    477477        <UnitName Value="UDataTypes"/>
    478         <EditorIndex Value="12"/>
    479         <WindowIndex Value="0"/>
    480         <TopLine Value="193"/>
    481         <CursorPos X="28" Y="195"/>
    482         <UsageCount Value="35"/>
     478        <EditorIndex Value="11"/>
     479        <WindowIndex Value="0"/>
     480        <TopLine Value="113"/>
     481        <CursorPos X="29" Y="87"/>
     482        <UsageCount Value="44"/>
    483483        <Loaded Value="True"/>
    484484        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    490490        <TopLine Value="1446"/>
    491491        <CursorPos X="26" Y="1458"/>
    492         <UsageCount Value="9"/>
     492        <UsageCount Value="8"/>
    493493        <DefaultSyntaxHighlighter Value="Delphi"/>
    494494      </Unit36>
    … …  
    499499        <TopLine Value="4"/>
    500500        <CursorPos X="1" Y="16"/>
    501         <UsageCount Value="14"/>
     501        <UsageCount Value="13"/>
    502502        <DefaultSyntaxHighlighter Value="Delphi"/>
    503503      </Unit37>
    … …  
    508508        <TopLine Value="1"/>
    509509        <CursorPos X="1" Y="1"/>
    510         <UsageCount Value="10"/>
     510        <UsageCount Value="9"/>
    511511      </Unit38>
    512512      <Unit39>
    … …  
    516516        <TopLine Value="1"/>
    517517        <CursorPos X="1" Y="1"/>
    518         <UsageCount Value="10"/>
     518        <UsageCount Value="9"/>
    519519      </Unit39>
    520520      <Unit40>
    … …  
    524524        <TopLine Value="5"/>
    525525        <CursorPos X="50" Y="15"/>
    526         <UsageCount Value="10"/>
     526        <UsageCount Value="9"/>
    527527      </Unit40>
    528528      <Unit41>
    … …  
    532532        <TopLine Value="88"/>
    533533        <CursorPos X="1" Y="109"/>
    534         <UsageCount Value="10"/>
     534        <UsageCount Value="9"/>
    535535      </Unit41>
    536536      <Unit42>
    … …  
    539539        <TopLine Value="1639"/>
    540540        <CursorPos X="17" Y="1651"/>
    541         <UsageCount Value="10"/>
     541        <UsageCount Value="9"/>
    542542      </Unit42>
    543543      <Unit43>
    … …  
    547547        <TopLine Value="28"/>
    548548        <CursorPos X="1" Y="1"/>
    549         <UsageCount Value="10"/>
     549        <UsageCount Value="9"/>
    550550      </Unit43>
    551551      <Unit44>
    … …  
    555555        <TopLine Value="37"/>
    556556        <CursorPos X="1" Y="1"/>
    557         <UsageCount Value="10"/>
     557        <UsageCount Value="9"/>
    558558      </Unit44>
    559559      <Unit45>
    … …  
    563563        <TopLine Value="1"/>
    564564        <CursorPos X="36" Y="13"/>
    565         <UsageCount Value="10"/>
     565        <UsageCount Value="9"/>
    566566      </Unit45>
    567567      <Unit46>
    … …  
    571571        <TopLine Value="15"/>
    572572        <CursorPos X="19" Y="27"/>
    573         <UsageCount Value="10"/>
     573        <UsageCount Value="9"/>
    574574      </Unit46>
    575575      <Unit47>
    … …  
    579579        <TopLine Value="19"/>
    580580        <CursorPos X="1" Y="1"/>
    581         <UsageCount Value="10"/>
     581        <UsageCount Value="9"/>
    582582      </Unit47>
    583583      <Unit48>
    … …  
    587587        <TopLine Value="28"/>
    588588        <CursorPos X="1" Y="1"/>
    589         <UsageCount Value="10"/>
     589        <UsageCount Value="9"/>
    590590      </Unit48>
    591591      <Unit49>
    … …  
    595595        <TopLine Value="1"/>
    596596        <CursorPos X="1" Y="1"/>
    597         <UsageCount Value="10"/>
     597        <UsageCount Value="9"/>
    598598      </Unit49>
    599599      <Unit50>
    … …  
    603603        <TopLine Value="16"/>
    604604        <CursorPos X="1" Y="1"/>
    605         <UsageCount Value="10"/>
     605        <UsageCount Value="9"/>
    606606      </Unit50>
    607607      <Unit51>
    608608        <Filename Value="H:/PascalClassLibrary/Common/UDebugLog.pas"/>
    609609        <UnitName Value="UDebugLog"/>
    610         <EditorIndex Value="10"/>
    611610        <WindowIndex Value="0"/>
    612611        <TopLine Value="77"/>
    613612        <CursorPos X="38" Y="90"/>
    614         <UsageCount Value="10"/>
    615         <Loaded Value="True"/>
     613        <UsageCount Value="9"/>
    616614      </Unit51>
    617615      <Unit52>
    618616        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    619         <EditorIndex Value="3"/>
    620         <WindowIndex Value="0"/>
    621         <TopLine Value="33"/>
    622         <CursorPos X="14" Y="45"/>
     617        <EditorIndex Value="9"/>
     618        <WindowIndex Value="0"/>
     619        <TopLine Value="120"/>
     620        <CursorPos X="1" Y="132"/>
    623621        <UsageCount Value="10"/>
    624622        <Loaded Value="True"/>
    … …  
    626624      <Unit53>
    627625        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    628         <EditorIndex Value="7"/>
    629626        <WindowIndex Value="0"/>
    630627        <TopLine Value="8"/>
    631628        <CursorPos X="62" Y="20"/>
    632         <UsageCount Value="10"/>
    633         <Loaded Value="True"/>
     629        <UsageCount Value="9"/>
    634630      </Unit53>
    635631      <Unit54>
    636632        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
    637         <EditorIndex Value="5"/>
    638633        <WindowIndex Value="0"/>
    639634        <TopLine Value="70"/>
    640635        <CursorPos X="10" Y="82"/>
    641         <UsageCount Value="10"/>
    642         <Loaded Value="True"/>
     636        <UsageCount Value="9"/>
    643637      </Unit54>
    644638      <Unit55>
    645639        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
    646         <EditorIndex Value="6"/>
    647640        <WindowIndex Value="0"/>
    648641        <TopLine Value="141"/>
    649642        <CursorPos X="3" Y="144"/>
    650         <UsageCount Value="10"/>
    651         <Loaded Value="True"/>
     643        <UsageCount Value="9"/>
    652644      </Unit55>
    653645      <Unit56>
    654646        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    655         <EditorIndex Value="4"/>
    656         <WindowIndex Value="0"/>
    657         <TopLine Value="33"/>
    658         <CursorPos X="25" Y="45"/>
     647        <EditorIndex Value="10"/>
     648        <WindowIndex Value="0"/>
     649        <TopLine Value="50"/>
     650        <CursorPos X="1" Y="62"/>
    659651        <UsageCount Value="10"/>
    660652        <Loaded Value="True"/>
    661653      </Unit56>
     654      <Unit57>
     655        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     656        <UnitName Value="USqlDatabase"/>
     657        <EditorIndex Value="6"/>
     658        <WindowIndex Value="0"/>
     659        <TopLine Value="232"/>
     660        <CursorPos X="31" Y="243"/>
     661        <UsageCount Value="14"/>
     662        <Loaded Value="True"/>
     663      </Unit57>
     664      <Unit58>
     665        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     666        <EditorIndex Value="8"/>
     667        <WindowIndex Value="0"/>
     668        <TopLine Value="1"/>
     669        <CursorPos X="24" Y="4"/>
     670        <UsageCount Value="10"/>
     671        <Loaded Value="True"/>
     672      </Unit58>
    662673    </Units>
    663674    <JumpHistory Count="30" HistoryIndex="29">
    664675      <Position1>
    665         <Filename Value="Forms/UMainForm.pas"/>
    666         <Caret Line="189" Column="1" TopLine="176"/>
     676        <Filename Value="Application/UDataTypes.pas"/>
     677        <Caret Line="149" Column="22" TopLine="130"/>
    667678      </Position1>
    668679      <Position2>
    669         <Filename Value="Forms/UMainForm.pas"/>
    670         <Caret Line="190" Column="1" TopLine="179"/>
     680        <Filename Value="Application/UDataTypes.pas"/>
     681        <Caret Line="90" Column="35" TopLine="70"/>
    671682      </Position2>
    672683      <Position3>
    673         <Filename Value="Forms/UMainForm.pas"/>
    674         <Caret Line="193" Column="1" TopLine="179"/>
     684        <Filename Value="USystem.pas"/>
     685        <Caret Line="109" Column="37" TopLine="94"/>
    675686      </Position3>
    676687      <Position4>
    677         <Filename Value="Forms/UMainForm.pas"/>
    678         <Caret Line="194" Column="1" TopLine="179"/>
     688        <Filename Value="USystem.pas"/>
     689        <Caret Line="373" Column="44" TopLine="358"/>
    679690      </Position4>
    680691      <Position5>
    681692        <Filename Value="Forms/UMainForm.pas"/>
    682         <Caret Line="195" Column="1" TopLine="179"/>
     693        <Caret Line="374" Column="32" TopLine="427"/>
    683694      </Position5>
    684695      <Position6>
    685696        <Filename Value="Forms/UMainForm.pas"/>
    686         <Caret Line="197" Column="1" TopLine="179"/>
     697        <Caret Line="452" Column="92" TopLine="450"/>
    687698      </Position6>
    688699      <Position7>
    689700        <Filename Value="Forms/UMainForm.pas"/>
    690         <Caret Line="198" Column="1" TopLine="191"/>
     701        <Caret Line="443" Column="37" TopLine="424"/>
    691702      </Position7>
    692703      <Position8>
    693         <Filename Value="Forms/UMainForm.pas"/>
    694         <Caret Line="200" Column="1" TopLine="191"/>
     704        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     705        <Caret Line="244" Column="1" TopLine="232"/>
    695706      </Position8>
    696707      <Position9>
    697         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    698         <Caret Line="234" Column="1" TopLine="222"/>
     708        <Filename Value="USystem.pas"/>
     709        <Caret Line="188" Column="51" TopLine="175"/>
    699710      </Position9>
    700711      <Position10>
    701         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    702         <Caret Line="236" Column="1" TopLine="222"/>
     712        <Filename Value="USystem.pas"/>
     713        <Caret Line="187" Column="79" TopLine="176"/>
    703714      </Position10>
    704715      <Position11>
    705716        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    706         <Caret Line="241" Column="9" TopLine="233"/>
     717        <Caret Line="132" Column="1" TopLine="120"/>
    707718      </Position11>
    708719      <Position12>
    709         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    710         <Caret Line="240" Column="9" TopLine="233"/>
     720        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     721        <Caret Line="62" Column="1" TopLine="50"/>
    711722      </Position12>
    712723      <Position13>
    713         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    714         <Caret Line="241" Column="9" TopLine="233"/>
     724        <Filename Value="USystem.pas"/>
     725        <Caret Line="211" Column="17" TopLine="197"/>
    715726      </Position13>
    716727      <Position14>
    717         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    718         <Caret Line="20" Column="1" TopLine="16"/>
     728        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     729        <Caret Line="132" Column="1" TopLine="120"/>
    719730      </Position14>
    720731      <Position15>
    721         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    722         <Caret Line="77" Column="19" TopLine="65"/>
     732        <Filename Value="USystem.pas"/>
     733        <Caret Line="212" Column="71" TopLine="200"/>
    723734      </Position15>
    724735      <Position16>
    725         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    726         <Caret Line="78" Column="14" TopLine="65"/>
     736        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     737        <Caret Line="132" Column="1" TopLine="120"/>
    727738      </Position16>
    728739      <Position17>
    729         <Filename Value="Forms/UMainForm.pas"/>
    730         <Caret Line="200" Column="1" TopLine="191"/>
     740        <Filename Value="USystem.pas"/>
     741        <Caret Line="213" Column="40" TopLine="200"/>
    731742      </Position17>
    732743      <Position18>
    733         <Filename Value="Forms/UMainForm.pas"/>
    734         <Caret Line="189" Column="21" TopLine="177"/>
     744        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     745        <Caret Line="244" Column="1" TopLine="232"/>
    735746      </Position18>
    736747      <Position19>
    737         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    738         <Caret Line="20" Column="62" TopLine="8"/>
     748        <Filename Value="USystem.pas"/>
     749        <Caret Line="191" Column="26" TopLine="173"/>
    739750      </Position19>
    740751      <Position20>
    741         <Filename Value="Forms/UMainForm.pas"/>
    742         <Caret Line="185" Column="1" TopLine="177"/>
     752        <Filename Value="USystem.pas"/>
     753        <Caret Line="214" Column="11" TopLine="194"/>
    743754      </Position20>
    744755      <Position21>
    745         <Filename Value="Forms/UMainForm.pas"/>
    746         <Caret Line="186" Column="1" TopLine="177"/>
     756        <Filename Value="USystem.pas"/>
     757        <Caret Line="213" Column="85" TopLine="202"/>
    747758      </Position21>
    748759      <Position22>
    749         <Filename Value="Forms/UMainForm.pas"/>
    750         <Caret Line="187" Column="1" TopLine="177"/>
     760        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     761        <Caret Line="132" Column="1" TopLine="120"/>
    751762      </Position22>
    752763      <Position23>
    753764        <Filename Value="Forms/UMainForm.pas"/>
    754         <Caret Line="189" Column="1" TopLine="177"/>
     765        <Caret Line="599" Column="61" TopLine="592"/>
    755766      </Position23>
    756767      <Position24>
    757768        <Filename Value="Forms/UMainForm.pas"/>
    758         <Caret Line="197" Column="1" TopLine="177"/>
     769        <Caret Line="435" Column="52" TopLine="417"/>
    759770      </Position24>
    760771      <Position25>
    761772        <Filename Value="Forms/UMainForm.pas"/>
    762         <Caret Line="198" Column="1" TopLine="184"/>
     773        <Caret Line="436" Column="44" TopLine="417"/>
    763774      </Position25>
    764775      <Position26>
    765776        <Filename Value="Forms/UMainForm.pas"/>
    766         <Caret Line="200" Column="1" TopLine="184"/>
     777        <Caret Line="432" Column="15" TopLine="417"/>
    767778      </Position26>
    768779      <Position27>
    769780        <Filename Value="Forms/UMainForm.pas"/>
    770         <Caret Line="215" Column="1" TopLine="203"/>
     781        <Caret Line="425" Column="58" TopLine="417"/>
    771782      </Position27>
    772783      <Position28>
    773784        <Filename Value="Forms/UMainForm.pas"/>
    774         <Caret Line="226" Column="1" TopLine="212"/>
     785        <Caret Line="606" Column="13" TopLine="604"/>
    775786      </Position28>
    776787      <Position29>
    777788        <Filename Value="Forms/UMainForm.pas"/>
    778         <Caret Line="241" Column="1" TopLine="232"/>
     789        <Caret Line="490" Column="15" TopLine="478"/>
    779790      </Position29>
    780791      <Position30>
    781792        <Filename Value="Forms/UMainForm.pas"/>
    782         <Caret Line="250" Column="1" TopLine="232"/>
     793        <Caret Line="679" Column="35" TopLine="667"/>
    783794      </Position30>
    784795    </JumpHistory>
Note: See TracChangeset for help on using the changeset viewer.