Changeset 35


Ignore:
Timestamp:
Nov 25, 2011, 9:17:21 AM (12 years ago)
Author:
chronos
Message:
  • Modified: More direct SQL queries replaced by TChronisClient execution.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UMainForm.pas

    r32 r35  
    112112  UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
    113113  UCore, UImportStructureForm, UAboutForm, ULoginProfileForm, UChronisClientDirect,
    114   UItemList;
     114  UItemList, UChronisClient;
    115115
    116116{$R *.lfm}
    … …  
    334334procedure TMainForm.LoadTree;
    335335var
    336   DbRows: TDbRows;
    337   ObjectDbRows: TDbRows;
     336  Groups: TListProxy;
     337  Obj: TObjectProxy;
     338  Objects: TListProxy;
     339  Obj2: TObjectProxy;
    338340  I: Integer;
    339341  O: Integer;
    … …  
    348350    TopItem.SelectedIndex := 0;
    349351    try
    350       DbRows := TDbRows.Create;
    351       Core.System.Database.Query(DbRows, 'SELECT * FROM `' + ObjectGroupTable + '`');
    352       for I := 0 to DbRows.Count - 1 do begin
    353         NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
     352      Groups := TListProxy.Create;
     353      Groups.Client := Core.System.Client;
     354      Groups.ObjectName := ObjectGroupTable;
     355      Groups.SchemaName := Core.System.Database.Database;
     356      Groups.Load;
     357      for I := 0 to Groups.Objects.Count - 1 do begin
     358        Obj := TObjectProxy(Groups.Objects[I]);
     359        NewNode := AddChild(TopItem, Obj.Properties.Values['Name']);
    354360        NewNode.ImageIndex := 0;
    355361        NewNode.SelectedIndex := 0;
    356         NewNode.Data := Pointer(StrToInt(DbRows[I].Values['Id']));
     362        NewNode.Data := Pointer(StrToInt(Obj.Properties.Values['Id']));
    357363        try
    358           ObjectDbRows := TDbRows.Create;
    359           Core.System.Database.Query(ObjectDbRows, 'SELECT * FROM `' + ObjectTable + '` WHERE `Group`=' + DbRows[I].Values['Id']);
    360           for O := 0 to ObjectDbRows.Count - 1 do begin
    361             NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);
    362             NewObjectNode.Data := Pointer(StrToInt(ObjectDbRows[O].Values['Id']));
     364          Objects := TListProxy.Create;
     365          Objects.Client := Core.System.Client;
     366          Objects.ObjectName := ObjectTable;
     367          Objects.SchemaName := Core.System.Database.Database;
     368          Objects.SetCondition('Group', Obj.Properties.Values['Id']);
     369          Objects.Load;
     370          for O := 0 to Objects.Objects.Count - 1 do begin
     371            Obj2 := TObjectProxy(Objects.Objects[O]);
     372            NewObjectNode := AddChild(NewNode, Obj2.Properties.Values['Name']);
     373            NewObjectNode.Data := Pointer(StrToInt(Obj2.Properties.Values['Id']));
    363374            NewObjectNode.ImageIndex := 1;
    364375            NewObjectNode.SelectedIndex := 1;
    365376          end;
    366377        finally
    367           ObjectDbRows.Free;
     378          Objects.Free;
    368379        end;
    369380      end;
    370381      TopItem.Expand(True);
    371382    finally
    372       DbRows.Free;
     383      Groups.Free;
    373384    end;
    374385    TreeState.LoadTree(TreeView1);

  • trunk/USystem.pas

    r34 r35  
    147147implementation
    148148
     149uses
     150  UCore;
     151
    149152resourcestring
    150153  SUnsupportedType = 'Unsupported property type "%s"';
    … …  
    709712procedure TChronisObject.Load(ObjectId: Integer);
    710713var
    711   DbRows: TDbRows;
    712 begin
    713   try
    714     DbRows := TDbRows.Create;
    715     Base.Database.Query(DbRows, 'SELECT * FROM `' + ObjectTable +
    716       '` WHERE `Id`=' + IntToStr(ObjectId));
    717     if DbRows.Count = 1 then begin
     714  List: TListProxy;
     715begin
     716  try
     717    List := TListProxy.Create;
     718    List.Client := Core.System.Client;
     719    List.ObjectName := ObjectTable;
     720    List.SchemaName := Core.System.Database.Database;
     721    List.SetCondition('Id', IntToStr(ObjectId));
     722    List.Load;
     723    if List.Objects.Count = 1 then begin
    718724      Id := ObjectId;
    719       with DbRows[0] do begin
    720         Name := Values['Name'];
    721         Schema := Values['Schema'];
    722         GroupId := StrToInt(Values['Group']);
    723         Table := Values['Table'];
    724         PrimaryKey := Values['PrimaryKey'];
     725      with TObjectProxy(List.Objects[0]) do begin
     726        Name := Properties.Values['Name'];
     727        Schema := Properties.Values['Schema'];
     728        GroupId := StrToInt(Properties.Values['Group']);
     729        Table := Properties.Values['Table'];
     730        PrimaryKey := Properties.Values['PrimaryKey'];
    725731      end;
    726732    end;
    727733  finally
    728     DbRows.Free;
     734    List.Free;
    729735  end;
    730736end;

  • trunk/chronis.lpi

    r34 r35  
    105105      </Item6>
    106106    </RequiredPackages>
    107     <Units Count="60">
     107    <Units Count="58">
    108108      <Unit0>
    109109        <Filename Value="chronis.lpr"/>
    … …  
    122122        <TopLine Value="330"/>
    123123        <CursorPos X="1" Y="347"/>
    124         <UsageCount Value="26"/>
     124        <UsageCount Value="22"/>
    125125        <DefaultSyntaxHighlighter Value="Delphi"/>
    126126      </Unit1>
    … …  
    134134        <TopLine Value="118"/>
    135135        <CursorPos X="25" Y="144"/>
    136         <UsageCount Value="80"/>
     136        <UsageCount Value="76"/>
    137137        <DefaultSyntaxHighlighter Value="Delphi"/>
    138138      </Unit2>
    … …  
    146146        <TopLine Value="1"/>
    147147        <CursorPos X="24" Y="14"/>
    148         <UsageCount Value="80"/>
     148        <UsageCount Value="76"/>
    149149        <DefaultSyntaxHighlighter Value="Delphi"/>
    150150      </Unit3>
    … …  
    165165        <TopLine Value="58"/>
    166166        <CursorPos X="73" Y="232"/>
    167         <UsageCount Value="246"/>
     167        <UsageCount Value="242"/>
    168168        <DefaultSyntaxHighlighter Value="Delphi"/>
    169169      </Unit5>
    … …  
    230230        <EditorIndex Value="4"/>
    231231        <WindowIndex Value="0"/>
    232         <TopLine Value="316"/>
    233         <CursorPos X="94" Y="329"/>
     232        <TopLine Value="315"/>
     233        <CursorPos X="35" Y="328"/>
    234234        <UsageCount Value="317"/>
    235235        <Loaded Value="True"/>
    … …  
    266266        <IsPartOfProject Value="True"/>
    267267        <UnitName Value="USystem"/>
    268         <EditorIndex Value="8"/>
    269         <WindowIndex Value="0"/>
    270         <TopLine Value="213"/>
    271         <CursorPos X="1" Y="232"/>
     268        <IsVisibleTab Value="True"/>
     269        <EditorIndex Value="10"/>
     270        <WindowIndex Value="0"/>
     271        <TopLine Value="708"/>
     272        <CursorPos X="53" Y="720"/>
    272273        <UsageCount Value="200"/>
    273274        <Loaded Value="True"/>
    … …  
    280281        <ResourceBaseClass Value="DataModule"/>
    281282        <UnitName Value="UCore"/>
    282         <EditorIndex Value="7"/>
    283         <WindowIndex Value="0"/>
    284         <TopLine Value="41"/>
    285         <CursorPos X="34" Y="58"/>
     283        <EditorIndex Value="9"/>
     284        <WindowIndex Value="0"/>
     285        <TopLine Value="58"/>
     286        <CursorPos X="1" Y="73"/>
    286287        <UsageCount Value="230"/>
    287288        <Loaded Value="True"/>
    … …  
    317318        <TopLine Value="487"/>
    318319        <CursorPos X="44" Y="500"/>
    319         <UsageCount Value="10"/>
     320        <UsageCount Value="6"/>
    320321      </Unit17>
    321322      <Unit18>
    … …  
    325326        <TopLine Value="1241"/>
    326327        <CursorPos X="14" Y="1254"/>
    327         <UsageCount Value="10"/>
     328        <UsageCount Value="6"/>
    328329      </Unit18>
    329330      <Unit19>
    … …  
    338339      </Unit19>
    339340      <Unit20>
    340         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
    341         <UnitName Value="StdCtrls"/>
    342         <WindowIndex Value="0"/>
    343         <TopLine Value="1446"/>
    344         <CursorPos X="26" Y="1458"/>
    345         <UsageCount Value="1"/>
     341        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     342        <WindowIndex Value="0"/>
     343        <TopLine Value="550"/>
     344        <CursorPos X="1" Y="561"/>
     345        <UsageCount Value="8"/>
    346346      </Unit20>
    347347      <Unit21>
    348         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
    349         <WindowIndex Value="0"/>
    350         <TopLine Value="550"/>
    351         <CursorPos X="1" Y="561"/>
    352         <UsageCount Value="12"/>
     348        <Filename Value="Forms/UImportStructureForm.pas"/>
     349        <IsPartOfProject Value="True"/>
     350        <ComponentName Value="ImportStructureForm"/>
     351        <ResourceBaseClass Value="Form"/>
     352        <UnitName Value="UImportStructureForm"/>
     353        <WindowIndex Value="0"/>
     354        <TopLine Value="149"/>
     355        <CursorPos X="44" Y="164"/>
     356        <UsageCount Value="193"/>
     357        <DefaultSyntaxHighlighter Value="Delphi"/>
    353358      </Unit21>
    354359      <Unit22>
    355         <Filename Value="Forms/UImportStructureForm.pas"/>
    356         <IsPartOfProject Value="True"/>
    357         <ComponentName Value="ImportStructureForm"/>
    358         <ResourceBaseClass Value="Form"/>
    359         <UnitName Value="UImportStructureForm"/>
    360         <WindowIndex Value="0"/>
    361         <TopLine Value="149"/>
    362         <CursorPos X="44" Y="164"/>
    363         <UsageCount Value="159"/>
     360        <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     361        <WindowIndex Value="0"/>
     362        <TopLine Value="51"/>
     363        <CursorPos X="1" Y="63"/>
     364        <UsageCount Value="20"/>
    364365        <DefaultSyntaxHighlighter Value="Delphi"/>
    365366      </Unit22>
    366367      <Unit23>
    367         <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    368         <WindowIndex Value="0"/>
    369         <TopLine Value="51"/>
    370         <CursorPos X="1" Y="63"/>
    371         <UsageCount Value="24"/>
    372         <DefaultSyntaxHighlighter Value="Delphi"/>
     368        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
     369        <WindowIndex Value="0"/>
     370        <TopLine Value="2393"/>
     371        <CursorPos X="1" Y="2406"/>
     372        <UsageCount Value="20"/>
    373373      </Unit23>
    374374      <Unit24>
    375         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    376         <WindowIndex Value="0"/>
    377         <TopLine Value="2393"/>
    378         <CursorPos X="1" Y="2406"/>
    379         <UsageCount Value="24"/>
     375        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
     376        <WindowIndex Value="0"/>
     377        <TopLine Value="286"/>
     378        <CursorPos X="3" Y="298"/>
     379        <UsageCount Value="20"/>
    380380      </Unit24>
    381381      <Unit25>
    382         <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
    383         <WindowIndex Value="0"/>
    384         <TopLine Value="286"/>
    385         <CursorPos X="3" Y="298"/>
    386         <UsageCount Value="24"/>
     382        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
     383        <WindowIndex Value="0"/>
     384        <TopLine Value="460"/>
     385        <CursorPos X="10" Y="427"/>
     386        <UsageCount Value="20"/>
    387387      </Unit25>
    388388      <Unit26>
    389         <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
    390         <WindowIndex Value="0"/>
    391         <TopLine Value="460"/>
    392         <CursorPos X="10" Y="427"/>
    393         <UsageCount Value="24"/>
     389        <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     390        <WindowIndex Value="0"/>
     391        <TopLine Value="120"/>
     392        <CursorPos X="1" Y="134"/>
     393        <UsageCount Value="10"/>
     394        <DefaultSyntaxHighlighter Value="Delphi"/>
    394395      </Unit26>
    395396      <Unit27>
    396         <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    397         <WindowIndex Value="0"/>
    398         <TopLine Value="120"/>
    399         <CursorPos X="1" Y="134"/>
    400         <UsageCount Value="4"/>
     397        <Filename Value="Forms/UItemSelect.pas"/>
     398        <IsPartOfProject Value="True"/>
     399        <ComponentName Value="ItemSelectForm"/>
     400        <ResourceBaseClass Value="Form"/>
     401        <UnitName Value="UItemSelect"/>
     402        <WindowIndex Value="0"/>
     403        <TopLine Value="40"/>
     404        <CursorPos X="29" Y="54"/>
     405        <UsageCount Value="142"/>
    401406        <DefaultSyntaxHighlighter Value="Delphi"/>
    402407      </Unit27>
    403408      <Unit28>
    404         <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    405         <WindowIndex Value="0"/>
    406         <TopLine Value="1"/>
    407         <CursorPos X="24" Y="4"/>
    408         <UsageCount Value="3"/>
    409         <DefaultSyntaxHighlighter Value="Delphi"/>
     409        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
     410        <UnitName Value="ComCtrls"/>
     411        <WindowIndex Value="0"/>
     412        <TopLine Value="1207"/>
     413        <CursorPos X="20" Y="1219"/>
     414        <UsageCount Value="27"/>
    410415      </Unit28>
    411416      <Unit29>
    412         <Filename Value="../../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas"/>
    413         <UnitName Value="SpecializedDictionary"/>
    414         <WindowIndex Value="0"/>
    415         <TopLine Value="6"/>
    416         <CursorPos X="26" Y="18"/>
    417         <UsageCount Value="2"/>
    418         <DefaultSyntaxHighlighter Value="Delphi"/>
     417        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
     418        <WindowIndex Value="0"/>
     419        <TopLine Value="2102"/>
     420        <CursorPos X="18" Y="2113"/>
     421        <UsageCount Value="32"/>
    419422      </Unit29>
    420423      <Unit30>
    421         <Filename Value="Forms/UItemSelect.pas"/>
    422         <IsPartOfProject Value="True"/>
    423         <ComponentName Value="ItemSelectForm"/>
    424         <ResourceBaseClass Value="Form"/>
    425         <UnitName Value="UItemSelect"/>
    426         <WindowIndex Value="0"/>
    427         <TopLine Value="40"/>
    428         <CursorPos X="29" Y="54"/>
    429         <UsageCount Value="108"/>
     424        <Filename Value="../../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     425        <UnitName Value="USqlDatabase"/>
     426        <WindowIndex Value="0"/>
     427        <TopLine Value="446"/>
     428        <CursorPos X="58" Y="243"/>
     429        <UsageCount Value="24"/>
    430430        <DefaultSyntaxHighlighter Value="Delphi"/>
    431431      </Unit30>
    432432      <Unit31>
    433         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
    434         <UnitName Value="ComCtrls"/>
    435         <WindowIndex Value="0"/>
    436         <TopLine Value="1207"/>
    437         <CursorPos X="20" Y="1219"/>
    438         <UsageCount Value="31"/>
     433        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
     434        <WindowIndex Value="0"/>
     435        <TopLine Value="495"/>
     436        <CursorPos X="14" Y="510"/>
     437        <UsageCount Value="24"/>
    439438      </Unit31>
    440439      <Unit32>
    441         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customform.inc"/>
    442         <WindowIndex Value="0"/>
    443         <TopLine Value="2102"/>
    444         <CursorPos X="18" Y="2113"/>
    445         <UsageCount Value="35"/>
    446       </Unit32>
    447       <Unit33>
    448         <Filename Value="../../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    449         <UnitName Value="USqlDatabase"/>
    450         <WindowIndex Value="0"/>
    451         <TopLine Value="446"/>
    452         <CursorPos X="58" Y="243"/>
    453         <UsageCount Value="28"/>
    454         <DefaultSyntaxHighlighter Value="Delphi"/>
    455       </Unit33>
    456       <Unit34>
    457         <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
    458         <WindowIndex Value="0"/>
    459         <TopLine Value="495"/>
    460         <CursorPos X="14" Y="510"/>
    461         <UsageCount Value="28"/>
    462       </Unit34>
    463       <Unit35>
    464440        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    465441        <UnitName Value="USqlDatabase"/>
    … …  
    468444        <TopLine Value="235"/>
    469445        <CursorPos X="8" Y="238"/>
    470         <UsageCount Value="23"/>
    471         <Loaded Value="True"/>
     446        <UsageCount Value="40"/>
     447        <Loaded Value="True"/>
     448      </Unit32>
     449      <Unit33>
     450        <Filename Value="Forms/ULoginProfileForm.pas"/>
     451        <IsPartOfProject Value="True"/>
     452        <ComponentName Value="LoginProfileForm"/>
     453        <ResourceBaseClass Value="Form"/>
     454        <UnitName Value="ULoginProfileForm"/>
     455        <WindowIndex Value="0"/>
     456        <TopLine Value="175"/>
     457        <CursorPos X="3" Y="183"/>
     458        <UsageCount Value="92"/>
     459        <DefaultSyntaxHighlighter Value="Delphi"/>
     460      </Unit33>
     461      <Unit34>
     462        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     463        <WindowIndex Value="0"/>
     464        <TopLine Value="1"/>
     465        <CursorPos X="24" Y="4"/>
     466        <UsageCount Value="13"/>
     467      </Unit34>
     468      <Unit35>
     469        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/fcl-registry/src/registry.pp"/>
     470        <UnitName Value="registry"/>
     471        <WindowIndex Value="0"/>
     472        <TopLine Value="68"/>
     473        <CursorPos X="14" Y="81"/>
     474        <UsageCount Value="6"/>
    472475      </Unit35>
    473476      <Unit36>
    474         <Filename Value="Forms/ULoginProfileForm.pas"/>
    475         <IsPartOfProject Value="True"/>
    476         <ComponentName Value="LoginProfileForm"/>
    477         <ResourceBaseClass Value="Form"/>
    478         <UnitName Value="ULoginProfileForm"/>
    479         <WindowIndex Value="0"/>
    480         <TopLine Value="175"/>
    481         <CursorPos X="3" Y="183"/>
    482         <UsageCount Value="58"/>
    483         <DefaultSyntaxHighlighter Value="Delphi"/>
     477        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/fcl-registry/src/winreg.inc"/>
     478        <WindowIndex Value="0"/>
     479        <TopLine Value="239"/>
     480        <CursorPos X="3" Y="245"/>
     481        <UsageCount Value="6"/>
    484482      </Unit36>
    485483      <Unit37>
    486         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    487         <WindowIndex Value="0"/>
    488         <TopLine Value="1"/>
    489         <CursorPos X="24" Y="4"/>
    490         <UsageCount Value="17"/>
     484        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/datih.inc"/>
     485        <WindowIndex Value="0"/>
     486        <TopLine Value="104"/>
     487        <CursorPos X="23" Y="112"/>
     488        <UsageCount Value="3"/>
    491489      </Unit37>
    492490      <Unit38>
    493         <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/fcl-registry/src/registry.pp"/>
    494         <UnitName Value="registry"/>
    495         <WindowIndex Value="0"/>
    496         <TopLine Value="68"/>
    497         <CursorPos X="14" Y="81"/>
    498         <UsageCount Value="10"/>
     491        <Filename Value="Forms/UAboutForm.pas"/>
     492        <IsPartOfProject Value="True"/>
     493        <ComponentName Value="AboutForm"/>
     494        <HasResources Value="True"/>
     495        <ResourceBaseClass Value="Form"/>
     496        <UnitName Value="UAboutForm"/>
     497        <WindowIndex Value="0"/>
     498        <TopLine Value="4"/>
     499        <CursorPos X="33" Y="19"/>
     500        <UsageCount Value="86"/>
     501        <DefaultSyntaxHighlighter Value="Delphi"/>
    499502      </Unit38>
    500503      <Unit39>
    501         <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/fcl-registry/src/winreg.inc"/>
    502         <WindowIndex Value="0"/>
    503         <TopLine Value="239"/>
    504         <CursorPos X="3" Y="245"/>
    505         <UsageCount Value="10"/>
     504        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/fileutil.inc"/>
     505        <WindowIndex Value="0"/>
     506        <TopLine Value="1575"/>
     507        <CursorPos X="1" Y="1589"/>
     508        <UsageCount Value="6"/>
    506509      </Unit39>
    507510      <Unit40>
    508         <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/datih.inc"/>
    509         <WindowIndex Value="0"/>
    510         <TopLine Value="104"/>
    511         <CursorPos X="23" Y="112"/>
    512         <UsageCount Value="7"/>
     511        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     512        <WindowIndex Value="0"/>
     513        <TopLine Value="119"/>
     514        <CursorPos X="1" Y="132"/>
     515        <UsageCount Value="4"/>
    513516      </Unit40>
    514517      <Unit41>
    515         <Filename Value="Forms/UAboutForm.pas"/>
    516         <IsPartOfProject Value="True"/>
    517         <ComponentName Value="AboutForm"/>
    518         <HasResources Value="True"/>
    519         <ResourceBaseClass Value="Form"/>
    520         <UnitName Value="UAboutForm"/>
    521         <WindowIndex Value="0"/>
    522         <TopLine Value="4"/>
    523         <CursorPos X="33" Y="19"/>
    524         <UsageCount Value="52"/>
    525         <DefaultSyntaxHighlighter Value="Delphi"/>
     518        <Filename Value="../../PascalClassLibrary/Common/UDebugLog.pas"/>
     519        <UnitName Value="UDebugLog"/>
     520        <WindowIndex Value="0"/>
     521        <TopLine Value="90"/>
     522        <CursorPos X="3" Y="104"/>
     523        <UsageCount Value="9"/>
    526524      </Unit41>
    527525      <Unit42>
    528         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/fileutil.inc"/>
    529         <WindowIndex Value="0"/>
    530         <TopLine Value="1575"/>
    531         <CursorPos X="1" Y="1589"/>
    532         <UsageCount Value="10"/>
     526        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/fileutil.pas"/>
     527        <UnitName Value="FileUtil"/>
     528        <WindowIndex Value="0"/>
     529        <TopLine Value="202"/>
     530        <CursorPos X="10" Y="215"/>
     531        <UsageCount Value="4"/>
    533532      </Unit42>
    534533      <Unit43>
    535         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    536         <WindowIndex Value="0"/>
    537         <TopLine Value="119"/>
    538         <CursorPos X="1" Y="132"/>
    539         <UsageCount Value="8"/>
     534        <Filename Value="Application/UChronisClient.pas"/>
     535        <IsPartOfProject Value="True"/>
     536        <UnitName Value="UChronisClient"/>
     537        <EditorIndex Value="8"/>
     538        <WindowIndex Value="0"/>
     539        <TopLine Value="130"/>
     540        <CursorPos X="1" Y="140"/>
     541        <UsageCount Value="82"/>
     542        <Loaded Value="True"/>
     543        <DefaultSyntaxHighlighter Value="Delphi"/>
    540544      </Unit43>
    541545      <Unit44>
    542         <Filename Value="../../PascalClassLibrary/Common/UDebugLog.pas"/>
    543         <UnitName Value="UDebugLog"/>
    544         <WindowIndex Value="0"/>
    545         <TopLine Value="90"/>
    546         <CursorPos X="3" Y="104"/>
    547         <UsageCount Value="13"/>
     546        <Filename Value="Application/UChronisServer.pas"/>
     547        <IsPartOfProject Value="True"/>
     548        <UnitName Value="UChronisServer"/>
     549        <WindowIndex Value="0"/>
     550        <TopLine Value="1"/>
     551        <CursorPos X="1" Y="14"/>
     552        <UsageCount Value="82"/>
     553        <DefaultSyntaxHighlighter Value="Delphi"/>
    548554      </Unit44>
    549555      <Unit45>
    550         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/fileutil.pas"/>
    551         <UnitName Value="FileUtil"/>
    552         <WindowIndex Value="0"/>
    553         <TopLine Value="202"/>
    554         <CursorPos X="10" Y="215"/>
    555         <UsageCount Value="8"/>
     556        <Filename Value="Application/Clients/UChronisClientDirect.pas"/>
     557        <IsPartOfProject Value="True"/>
     558        <UnitName Value="UChronisClientDirect"/>
     559        <WindowIndex Value="0"/>
     560        <TopLine Value="8"/>
     561        <CursorPos X="35" Y="14"/>
     562        <UsageCount Value="81"/>
     563        <DefaultSyntaxHighlighter Value="Delphi"/>
    556564      </Unit45>
    557565      <Unit46>
    558         <Filename Value="Application/UChronisClient.pas"/>
    559         <IsPartOfProject Value="True"/>
    560         <UnitName Value="UChronisClient"/>
    561         <EditorIndex Value="6"/>
    562         <WindowIndex Value="0"/>
    563         <TopLine Value="130"/>
    564         <CursorPos X="1" Y="140"/>
    565         <UsageCount Value="48"/>
     566        <Filename Value="Application/UChronisModule.pas"/>
     567        <IsPartOfProject Value="True"/>
     568        <UnitName Value="UChronisModule"/>
     569        <EditorIndex Value="11"/>
     570        <WindowIndex Value="0"/>
     571        <TopLine Value="1"/>
     572        <CursorPos X="5" Y="15"/>
     573        <UsageCount Value="72"/>
    566574        <Loaded Value="True"/>
    567575        <DefaultSyntaxHighlighter Value="Delphi"/>
    568576      </Unit46>
    569577      <Unit47>
    570         <Filename Value="Application/UChronisServer.pas"/>
    571         <IsPartOfProject Value="True"/>
    572         <UnitName Value="UChronisServer"/>
    573         <WindowIndex Value="0"/>
    574         <TopLine Value="1"/>
    575         <CursorPos X="1" Y="14"/>
    576         <UsageCount Value="48"/>
     578        <Filename Value="Module/UModuleSystem.pas"/>
     579        <IsPartOfProject Value="True"/>
     580        <UnitName Value="UModuleSystem"/>
     581        <EditorIndex Value="12"/>
     582        <WindowIndex Value="0"/>
     583        <TopLine Value="54"/>
     584        <CursorPos X="42" Y="66"/>
     585        <UsageCount Value="72"/>
     586        <Loaded Value="True"/>
    577587        <DefaultSyntaxHighlighter Value="Delphi"/>
    578588      </Unit47>
    579589      <Unit48>
    580         <Filename Value="Application/Clients/UChronisClientDirect.pas"/>
    581         <IsPartOfProject Value="True"/>
    582         <UnitName Value="UChronisClientDirect"/>
    583         <WindowIndex Value="0"/>
    584         <TopLine Value="8"/>
    585         <CursorPos X="35" Y="14"/>
    586         <UsageCount Value="47"/>
     590        <Filename Value="../../../other/lazarus/lcl/include/customlistbox.inc"/>
     591        <WindowIndex Value="0"/>
     592        <TopLine Value="195"/>
     593        <CursorPos X="40" Y="213"/>
     594        <UsageCount Value="5"/>
    587595        <DefaultSyntaxHighlighter Value="Delphi"/>
    588596      </Unit48>
    589597      <Unit49>
    590         <Filename Value="Application/UChronisModule.pas"/>
    591         <IsPartOfProject Value="True"/>
    592         <UnitName Value="UChronisModule"/>
    593         <EditorIndex Value="9"/>
    594         <WindowIndex Value="0"/>
    595         <TopLine Value="1"/>
    596         <CursorPos X="5" Y="15"/>
    597         <UsageCount Value="38"/>
    598         <Loaded Value="True"/>
    599         <DefaultSyntaxHighlighter Value="Delphi"/>
     598        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/containedaction.inc"/>
     599        <WindowIndex Value="0"/>
     600        <TopLine Value="91"/>
     601        <CursorPos X="1" Y="106"/>
     602        <UsageCount Value="8"/>
    600603      </Unit49>
    601604      <Unit50>
    602         <Filename Value="Module/UModuleSystem.pas"/>
    603         <IsPartOfProject Value="True"/>
    604         <UnitName Value="UModuleSystem"/>
    605         <EditorIndex Value="10"/>
    606         <WindowIndex Value="0"/>
    607         <TopLine Value="54"/>
    608         <CursorPos X="42" Y="66"/>
    609         <UsageCount Value="38"/>
    610         <Loaded Value="True"/>
    611         <DefaultSyntaxHighlighter Value="Delphi"/>
     605        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customaction.inc"/>
     606        <WindowIndex Value="0"/>
     607        <TopLine Value="240"/>
     608        <CursorPos X="1" Y="253"/>
     609        <UsageCount Value="8"/>
    612610      </Unit50>
    613611      <Unit51>
    614         <Filename Value="../../../other/lazarus/lcl/include/customlistbox.inc"/>
    615         <WindowIndex Value="0"/>
    616         <TopLine Value="195"/>
    617         <CursorPos X="40" Y="213"/>
    618         <UsageCount Value="9"/>
     612        <Filename Value="Forms/UItemList.pas"/>
     613        <IsPartOfProject Value="True"/>
     614        <ComponentName Value="ItemListForm"/>
     615        <ResourceBaseClass Value="Form"/>
     616        <UnitName Value="UItemList"/>
     617        <EditorIndex Value="7"/>
     618        <WindowIndex Value="0"/>
     619        <TopLine Value="27"/>
     620        <CursorPos X="15" Y="40"/>
     621        <UsageCount Value="65"/>
     622        <Loaded Value="True"/>
     623        <LoadedDesigner Value="True"/>
    619624        <DefaultSyntaxHighlighter Value="Delphi"/>
    620625      </Unit51>
    621626      <Unit52>
    622         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/containedaction.inc"/>
    623         <WindowIndex Value="0"/>
    624         <TopLine Value="91"/>
    625         <CursorPos X="1" Y="106"/>
    626         <UsageCount Value="12"/>
     627        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/forms.pp"/>
     628        <UnitName Value="Forms"/>
     629        <EditorIndex Value="5"/>
     630        <WindowIndex Value="0"/>
     631        <TopLine Value="1749"/>
     632        <CursorPos X="1" Y="1762"/>
     633        <UsageCount Value="10"/>
     634        <Loaded Value="True"/>
    627635      </Unit52>
    628636      <Unit53>
    629         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/customaction.inc"/>
    630         <WindowIndex Value="0"/>
    631         <TopLine Value="240"/>
    632         <CursorPos X="1" Y="253"/>
    633         <UsageCount Value="12"/>
     637        <Filename Value="Application/Clients/UChronisClientXMLRPC.pas"/>
     638        <IsPartOfProject Value="True"/>
     639        <UnitName Value="UChronisClientXMLRPC"/>
     640        <WindowIndex Value="0"/>
     641        <TopLine Value="1"/>
     642        <CursorPos X="1" Y="1"/>
     643        <UsageCount Value="62"/>
     644        <DefaultSyntaxHighlighter Value="Delphi"/>
    634645      </Unit53>
    635646      <Unit54>
    636         <Filename Value="Forms/UItemList.pas"/>
    637         <IsPartOfProject Value="True"/>
    638         <ComponentName Value="ItemListForm"/>
    639         <ResourceBaseClass Value="Form"/>
    640         <UnitName Value="UItemList"/>
    641         <EditorIndex Value="5"/>
    642         <WindowIndex Value="0"/>
    643         <TopLine Value="27"/>
    644         <CursorPos X="15" Y="40"/>
    645         <UsageCount Value="31"/>
    646         <Loaded Value="True"/>
    647         <LoadedDesigner Value="True"/>
     647        <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
     648        <IsPartOfProject Value="True"/>
     649        <UnitName Value="UChronisClientMySQL"/>
     650        <EditorIndex Value="13"/>
     651        <WindowIndex Value="0"/>
     652        <TopLine Value="49"/>
     653        <CursorPos X="40" Y="64"/>
     654        <UsageCount Value="62"/>
     655        <Loaded Value="True"/>
    648656        <DefaultSyntaxHighlighter Value="Delphi"/>
    649657      </Unit54>
    650658      <Unit55>
    651         <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/forms.pp"/>
    652         <UnitName Value="Forms"/>
    653         <WindowIndex Value="0"/>
    654         <TopLine Value="1749"/>
    655         <CursorPos X="29" Y="1760"/>
    656         <UsageCount Value="10"/>
     659        <Filename Value="Common/URemote.pas"/>
     660        <IsPartOfProject Value="True"/>
     661        <UnitName Value="URemote"/>
     662        <WindowIndex Value="0"/>
     663        <TopLine Value="63"/>
     664        <CursorPos X="3" Y="74"/>
     665        <UsageCount Value="58"/>
     666        <DefaultSyntaxHighlighter Value="Delphi"/>
    657667      </Unit55>
    658668      <Unit56>
    659         <Filename Value="Application/Clients/UChronisClientXMLRPC.pas"/>
    660         <IsPartOfProject Value="True"/>
    661         <UnitName Value="UChronisClientXMLRPC"/>
    662         <WindowIndex Value="0"/>
    663         <TopLine Value="1"/>
    664         <CursorPos X="1" Y="1"/>
    665         <UsageCount Value="27"/>
    666         <DefaultSyntaxHighlighter Value="Delphi"/>
     669        <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
     670        <WindowIndex Value="0"/>
     671        <TopLine Value="106"/>
     672        <CursorPos X="10" Y="119"/>
     673        <UsageCount Value="7"/>
    667674      </Unit56>
    668675      <Unit57>
    669         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    670         <IsPartOfProject Value="True"/>
    671         <UnitName Value="UChronisClientMySQL"/>
    672         <IsVisibleTab Value="True"/>
    673         <EditorIndex Value="11"/>
    674         <WindowIndex Value="0"/>
    675         <TopLine Value="52"/>
    676         <CursorPos X="40" Y="64"/>
    677         <UsageCount Value="27"/>
    678         <Loaded Value="True"/>
    679         <DefaultSyntaxHighlighter Value="Delphi"/>
     676        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/screen.inc"/>
     677        <EditorIndex Value="6"/>
     678        <WindowIndex Value="0"/>
     679        <TopLine Value="1028"/>
     680        <CursorPos X="1" Y="1042"/>
     681        <UsageCount Value="10"/>
     682        <Loaded Value="True"/>
    680683      </Unit57>
    681       <Unit58>
    682         <Filename Value="Common/URemote.pas"/>
    683         <IsPartOfProject Value="True"/>
    684         <UnitName Value="URemote"/>
    685         <WindowIndex Value="0"/>
    686         <TopLine Value="63"/>
    687         <CursorPos X="3" Y="74"/>
    688         <UsageCount Value="24"/>
    689         <DefaultSyntaxHighlighter Value="Delphi"/>
    690       </Unit58>
    691       <Unit59>
    692         <Filename Value="../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
    693         <WindowIndex Value="0"/>
    694         <TopLine Value="106"/>
    695         <CursorPos X="10" Y="119"/>
    696         <UsageCount Value="10"/>
    697       </Unit59>
    698684    </Units>
    699685    <JumpHistory Count="30" HistoryIndex="28">
    700686      <Position1>
    701         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    702         <Caret Line="76" Column="1" TopLine="55"/>
     687        <Filename Value="Forms/UMainForm.pas"/>
     688        <Caret Line="365" Column="18" TopLine="341"/>
    703689      </Position1>
    704690      <Position2>
    705         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    706         <Caret Line="73" Column="1" TopLine="55"/>
     691        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/forms.pp"/>
     692        <Caret Line="1753" Column="25" TopLine="1749"/>
    707693      </Position2>
    708694      <Position3>
    709         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    710         <Caret Line="74" Column="1" TopLine="55"/>
     695        <Filename Value="USystem.pas"/>
     696        <Caret Line="672" Column="3" TopLine="670"/>
    711697      </Position3>
    712698      <Position4>
    713         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    714         <Caret Line="75" Column="1" TopLine="55"/>
     699        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/forms.pp"/>
     700        <Caret Line="1762" Column="1" TopLine="1749"/>
    715701      </Position4>
    716702      <Position5>
    717         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    718         <Caret Line="76" Column="1" TopLine="55"/>
     703        <Filename Value="USystem.pas"/>
     704        <Caret Line="671" Column="1" TopLine="666"/>
    719705      </Position5>
    720706      <Position6>
    721         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    722         <Caret Line="73" Column="1" TopLine="55"/>
     707        <Filename Value="USystem.pas"/>
     708        <Caret Line="672" Column="1" TopLine="666"/>
    723709      </Position6>
    724710      <Position7>
    725         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    726         <Caret Line="74" Column="1" TopLine="55"/>
     711        <Filename Value="USystem.pas"/>
     712        <Caret Line="673" Column="1" TopLine="666"/>
    727713      </Position7>
    728714      <Position8>
    729         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    730         <Caret Line="75" Column="1" TopLine="55"/>
     715        <Filename Value="USystem.pas"/>
     716        <Caret Line="674" Column="1" TopLine="666"/>
    731717      </Position8>
    732718      <Position9>
    733         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    734         <Caret Line="76" Column="1" TopLine="55"/>
     719        <Filename Value="USystem.pas"/>
     720        <Caret Line="675" Column="1" TopLine="666"/>
    735721      </Position9>
    736722      <Position10>
    737         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    738         <Caret Line="73" Column="1" TopLine="55"/>
     723        <Filename Value="USystem.pas"/>
     724        <Caret Line="676" Column="1" TopLine="666"/>
    739725      </Position10>
    740726      <Position11>
    741         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    742         <Caret Line="74" Column="1" TopLine="55"/>
     727        <Filename Value="UCore.pas"/>
     728        <Caret Line="71" Column="1" TopLine="58"/>
    743729      </Position11>
    744730      <Position12>
    745         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    746         <Caret Line="75" Column="1" TopLine="55"/>
     731        <Filename Value="UCore.pas"/>
     732        <Caret Line="72" Column="1" TopLine="58"/>
    747733      </Position12>
    748734      <Position13>
    749         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    750         <Caret Line="76" Column="1" TopLine="55"/>
     735        <Filename Value="UCore.pas"/>
     736        <Caret Line="73" Column="1" TopLine="58"/>
    751737      </Position13>
    752738      <Position14>
    753         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    754         <Caret Line="73" Column="1" TopLine="55"/>
     739        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/forms.pp"/>
     740        <Caret Line="1762" Column="1" TopLine="1749"/>
    755741      </Position14>
    756742      <Position15>
    757         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    758         <Caret Line="74" Column="1" TopLine="55"/>
     743        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/screen.inc"/>
     744        <Caret Line="1041" Column="1" TopLine="1028"/>
    759745      </Position15>
    760746      <Position16>
    761         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    762         <Caret Line="75" Column="1" TopLine="55"/>
     747        <Filename Value="../../../Lazarus/0.9.31_2.5.1/lcl/include/screen.inc"/>
     748        <Caret Line="1042" Column="1" TopLine="1028"/>
    763749      </Position16>
    764750      <Position17>
    765         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    766         <Caret Line="76" Column="1" TopLine="55"/>
     751        <Filename Value="USystem.pas"/>
     752        <Caret Line="717" Column="28" TopLine="709"/>
    767753      </Position17>
    768754      <Position18>
    769         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    770         <Caret Line="73" Column="1" TopLine="55"/>
     755        <Filename Value="USystem.pas"/>
     756        <Caret Line="731" Column="15" TopLine="709"/>
    771757      </Position18>
    772758      <Position19>
    773         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    774         <Caret Line="74" Column="1" TopLine="55"/>
     759        <Filename Value="USystem.pas"/>
     760        <Caret Line="150" Column="9" TopLine="135"/>
    775761      </Position19>
    776762      <Position20>
    777         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    778         <Caret Line="75" Column="1" TopLine="55"/>
     763        <Filename Value="USystem.pas"/>
     764        <Caret Line="729" Column="19" TopLine="715"/>
    779765      </Position20>
    780766      <Position21>
    781         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    782         <Caret Line="76" Column="1" TopLine="55"/>
     767        <Filename Value="USystem.pas"/>
     768        <Caret Line="715" Column="1" TopLine="708"/>
    783769      </Position21>
    784770      <Position22>
    785         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    786         <Caret Line="73" Column="1" TopLine="55"/>
     771        <Filename Value="Forms/UMainForm.pas"/>
     772        <Caret Line="328" Column="35" TopLine="315"/>
    787773      </Position22>
    788774      <Position23>
    789775        <Filename Value="USystem.pas"/>
    790         <Caret Line="232" Column="1" TopLine="219"/>
     776        <Caret Line="715" Column="1" TopLine="708"/>
    791777      </Position23>
    792778      <Position24>
    793         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    794         <Caret Line="246" Column="1" TopLine="235"/>
     779        <Filename Value="USystem.pas"/>
     780        <Caret Line="716" Column="1" TopLine="708"/>
    795781      </Position24>
    796782      <Position25>
    797783        <Filename Value="USystem.pas"/>
    798         <Caret Line="208" Column="1" TopLine="213"/>
     784        <Caret Line="717" Column="1" TopLine="708"/>
    799785      </Position25>
    800786      <Position26>
    801787        <Filename Value="USystem.pas"/>
    802         <Caret Line="232" Column="1" TopLine="213"/>
     788        <Caret Line="718" Column="1" TopLine="708"/>
    803789      </Position26>
    804790      <Position27>
    805         <Filename Value="Application/UChronisClient.pas"/>
    806         <Caret Line="140" Column="1" TopLine="130"/>
     791        <Filename Value="USystem.pas"/>
     792        <Caret Line="719" Column="1" TopLine="708"/>
    807793      </Position27>
    808794      <Position28>
    809         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    810         <Caret Line="69" Column="3" TopLine="52"/>
     795        <Filename Value="USystem.pas"/>
     796        <Caret Line="720" Column="1" TopLine="708"/>
    811797      </Position28>
    812798      <Position29>
    813         <Filename Value="Application/Clients/UChronisClientMySQL.pas"/>
    814         <Caret Line="70" Column="1" TopLine="52"/>
     799        <Filename Value="USystem.pas"/>
     800        <Caret Line="719" Column="27" TopLine="708"/>
    815801      </Position29>
    816802      <Position30>
    817         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    818         <Caret Line="238" Column="8" TopLine="235"/>
     803        <Filename Value="USystem.pas"/>
     804        <Caret Line="13" Column="1" TopLine="4"/>
    819805      </Position30>
    820806    </JumpHistory>
    … …  
    874860        <WatchKind Value="wpkWrite"/>
    875861        <Source Value="USystem.pas"/>
    876         <Line Value="208"/>
     862        <Line Value="674"/>
    877863      </Item1>
    878864      <Item2>
    … …  
    881867        <WatchKind Value="wpkWrite"/>
    882868        <Source Value="USystem.pas"/>
    883         <Line Value="232"/>
     869        <Line Value="715"/>
    884870      </Item2>
    885871    </BreakPoints>
Note: See TracChangeset for help on using the changeset viewer.