Changeset 19 for trunk


Ignore:
Timestamp:
Jun 14, 2011, 12:20:15 PM (14 years ago)
Author:
george
Message:
  • Added: Import existed database structure form.
Location:
trunk
Files:
3 added
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UApplicationInfo.pas

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

  • trunk/Forms/UMainForm.lfm

    r13 r19  
    182182      OnExecute = AInitSystemValuesExecute
    183183    end
     184    object AImportStructure: TAction
     185      Caption = 'Import structure...'
     186      OnExecute = AImportStructureExecute
     187    end
    184188  end
    185189  object PopupMenuItem: TPopupMenu
    … …  
    332336        Action = AInitSystemValues
    333337      end
     338      object MenuItem20: TMenuItem
     339        Action = AImportStructure
     340      end
    334341    end
    335342    object MenuItem12: TMenuItem

  • trunk/Forms/UMainForm.lrt

    r11 r19  
    1919TMAINFORM.ASETTINGS.HINT=Settings
    2020TMAINFORM.AINITSYSTEMVALUES.CAPTION=Init system values
     21TMAINFORM.AIMPORTSTRUCTURE.CAPTION=Import structure...
    2122TMAINFORM.MENUITEM13.CAPTION=Server
    2223TMAINFORM.MENUITEM11.CAPTION=View

  • trunk/Forms/UMainForm.pas

    r17 r19  
    1515
    1616  TMainForm = class(TForm)
     17  published
    1718    AConnect: TAction;
     19    AImportStructure: TAction;
    1820    AInitSystemValues: TAction;
    1921    ASettings: TAction;
    … …  
    5052    MenuItem19: TMenuItem;
    5153    MenuItem2: TMenuItem;
     54    MenuItem20: TMenuItem;
    5255    MenuItem3: TMenuItem;
    5356    MenuItem4: TMenuItem;
    … …  
    6669    procedure AConnectExecute(Sender: TObject);
    6770    procedure AExitExecute(Sender: TObject);
     71    procedure AImportStructureExecute(Sender: TObject);
    6872    procedure AInitSystemValuesExecute(Sender: TObject);
    6973    procedure AItemAddExecute(Sender: TObject);
    … …  
    124128uses
    125129  UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
    126   UCore;
     130  UCore, UImportStructureForm;
    127131
    128132{$R *.lfm}
    … …  
    340344        '`Min` int NOT NULL,' +
    341345        '`Max` int NOT NULL,' +
     346        'KEY `CustomType` (`CustomType`),' +
     347        'PRIMARY KEY (`Id`)' +
     348        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     349    end;
     350
     351    if Tables.IndexOf(TypeFloat) = -1 then begin
     352      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeFloat + '` ( ' +
     353        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     354        '`CustomType` int NOT NULL,' +
     355        '`Default` float NOT NULL,' +
     356        '`Min` float NOT NULL,' +
     357        '`Max` float NOT NULL,' +
    342358        'KEY `CustomType` (`CustomType`),' +
    343359        'PRIMARY KEY (`Id`)' +
    … …  
    555571begin
    556572  Close;
     573end;
     574
     575procedure TMainForm.AImportStructureExecute(Sender: TObject);
     576begin
     577  ImportStructureForm.ShowModal;
    557578end;
    558579

  • trunk/Forms/USettingForm.lfm

    r18 r19  
    11object SettingForm: TSettingForm
    2   Left = 355
     2  Left = 371
    33  Height = 328
    4   Top = 166
     4  Top = 138
    55  Width = 446
    66  Caption = 'Settings'
    … …  
    4646  end
    4747  object Label2: TLabel
    48     Left = 9
     48    Left = 8
    4949    Height = 14
    5050    Top = 38

  • trunk/USystem.pas

    r17 r19  
    2626  TypeNumber = 'TypeNumber';
    2727  TypeString = 'TypeString';
     28  TypeFloat = 'TypeFloat';
    2829
    2930type
    … …  
    9899    Database: TSQLDatabase;
    99100    function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
     101    function AddGroup(Name: string; ParentGroupId: Integer = 0): Integer;
    100102    function AddObject(Name, TableName, Schema: string; GroupId: Integer): Integer;
    101     function AddProperty(ObjectId: Integer; Name, ColumnName: string; DataType: Integer): Integer;
     103    function AddProperty(ObjectId: Integer; Name, ColumnName: string; CustomType: Integer): Integer;
    102104    function AddPropertyNumber(ObjectId: Integer; Name,
     105      ColumnName: string; Default: Integer = 0; Min: Integer = 0;
     106      Max: Integer = High(Integer)): Integer;
     107    function AddPropertyFloat(ObjectId: Integer; Name,
    103108      ColumnName: string; Default: Integer = 0; Min: Integer = 0;
    104109      Max: Integer = High(Integer)): Integer;
    … …  
    240245end;
    241246
     247function TChronisBase.AddGroup(Name: string; ParentGroupId: Integer): Integer;
     248var
     249  DbRows: TDbRows;
     250  Data: TDictionaryStringString;
     251begin
     252  try
     253    DbRows := TDbRows.Create;
     254    Data := TDictionaryStringString.Create;
     255    Data.Add('Name', Name);
     256    Data.Add('Parent', IntToStr(ParentGroupId));
     257    Database.Insert(ObjectGroupTable, Data);
     258    Result := Database.LastInsertId;
     259  finally
     260    Data.Free;
     261    DbRows.Free;
     262  end;
     263end;
     264
    242265function TChronisBase.AddObject(Name, TableName, Schema: string;
    243266  GroupId: Integer): Integer;
    … …  
    262285
    263286function TChronisBase.AddProperty(ObjectId: Integer; Name, ColumnName: string;
    264   DataType: Integer): Integer;
     287  CustomType: Integer): Integer;
    265288var
    266289  DbRows: TDbRows;
    … …  
    273296    Data.Add('Object', IntToStr(ObjectId));
    274297    Data.Add('ColumnName', ColumnName);
    275     Data.Add('CustomType', IntToStr(DataType));
     298    Data.Add('CustomType', IntToStr(CustomType));
    276299    Data.Add('Editable', '1');
    277300    Database.Insert(PropertyTable, Data);
    … …  
    306329    Data.Add('Default', IntToStr(Default));
    307330    Database.Insert(TypeNumber, Data);
     331    //CustomTypeId := Database.LastInsertId;
     332
     333    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
     334  finally
     335    Data.Free;
     336    DbRows.Free;
     337  end;
     338end;
     339
     340function TChronisBase.AddPropertyFloat(ObjectId: Integer; Name,
     341  ColumnName: string; Default: Integer; Min: Integer; Max: Integer): Integer;
     342var
     343  DbRows: TDbRows;
     344  Data: TDictionaryStringString;
     345  CustomTypeId: Integer;
     346begin
     347  try
     348    DbRows := TDbRows.Create;
     349    Data := TDictionaryStringString.Create;
     350
     351    Data.Clear;
     352    Data.Add('Type', IntToStr(Integer(vtFloat)));
     353    Database.Insert(CustomTypeTableName, Data);
     354    CustomTypeId := Database.LastInsertId;
     355
     356    Data.Clear;
     357    Data.Add('CustomType', IntToStr(CustomTypeId));
     358    Data.Add('Min', IntToStr(Min));
     359    Data.Add('Max', IntToStr(Max));
     360    Data.Add('Default', IntToStr(Default));
     361    Database.Insert(TypeFloat, Data);
    308362    //CustomTypeId := Database.LastInsertId;
    309363

  • trunk/chronis.lpi

    r18 r19  
    104104      </Item6>
    105105    </RequiredPackages>
    106     <Units Count="60">
     106    <Units Count="64">
    107107      <Unit0>
    108108        <Filename Value="chronis.lpr"/>
    … …  
    121121        <TopLine Value="330"/>
    122122        <CursorPos X="1" Y="347"/>
    123         <UsageCount Value="43"/>
     123        <UsageCount Value="40"/>
    124124        <DefaultSyntaxHighlighter Value="Delphi"/>
    125125      </Unit1>
    … …  
    133133        <TopLine Value="118"/>
    134134        <CursorPos X="25" Y="144"/>
    135         <UsageCount Value="97"/>
     135        <UsageCount Value="94"/>
    136136        <DefaultSyntaxHighlighter Value="Delphi"/>
    137137      </Unit2>
    … …  
    145145        <TopLine Value="1"/>
    146146        <CursorPos X="24" Y="14"/>
    147         <UsageCount Value="97"/>
     147        <UsageCount Value="94"/>
    148148        <DefaultSyntaxHighlighter Value="Delphi"/>
    149149      </Unit3>
    … …  
    164164        <TopLine Value="58"/>
    165165        <CursorPos X="73" Y="232"/>
    166         <UsageCount Value="263"/>
     166        <UsageCount Value="260"/>
    167167        <DefaultSyntaxHighlighter Value="Delphi"/>
    168168      </Unit5>
    … …  
    171171        <IsPartOfProject Value="True"/>
    172172        <UnitName Value="URegistry"/>
    173         <EditorIndex Value="13"/>
     173        <EditorIndex Value="18"/>
    174174        <WindowIndex Value="0"/>
    175175        <TopLine Value="19"/>
    … …  
    200200        <ResourceBaseClass Value="Form"/>
    201201        <UnitName Value="UItemEdit"/>
    202         <EditorIndex Value="4"/>
     202        <EditorIndex Value="1"/>
    203203        <WindowIndex Value="0"/>
    204204        <TopLine Value="89"/>
    … …  
    216216        <ResourceBaseClass Value="Form"/>
    217217        <UnitName Value="ULoginForm"/>
    218         <EditorIndex Value="14"/>
     218        <EditorIndex Value="19"/>
    219219        <WindowIndex Value="0"/>
    220220        <TopLine Value="14"/>
    … …  
    232232        <ResourceBaseClass Value="Form"/>
    233233        <UnitName Value="UMainForm"/>
    234         <EditorIndex Value="6"/>
    235         <WindowIndex Value="0"/>
    236         <TopLine Value="592"/>
    237         <CursorPos X="1" Y="602"/>
     234        <EditorIndex Value="3"/>
     235        <WindowIndex Value="0"/>
     236        <TopLine Value="339"/>
     237        <CursorPos X="1" Y="351"/>
    238238        <UsageCount Value="317"/>
    239239        <Loaded Value="True"/>
    … …  
    245245        <IsPartOfProject Value="True"/>
    246246        <UnitName Value="UTreeState"/>
    247         <EditorIndex Value="12"/>
     247        <EditorIndex Value="17"/>
    248248        <WindowIndex Value="0"/>
    249249        <TopLine Value="1"/>
    … …  
    259259        <ResourceBaseClass Value="Form"/>
    260260        <UnitName Value="UItemAdd"/>
    261         <EditorIndex Value="5"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="120"/>
    264         <CursorPos X="34" Y="137"/>
     261        <EditorIndex Value="2"/>
     262        <WindowIndex Value="0"/>
     263        <TopLine Value="51"/>
     264        <CursorPos X="17" Y="58"/>
    265265        <UsageCount Value="313"/>
    266266        <Loaded Value="True"/>
    … …  
    269269      </Unit12>
    270270      <Unit13>
    271         <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
    272         <WindowIndex Value="0"/>
    273         <TopLine Value="963"/>
    274         <CursorPos X="3" Y="974"/>
    275         <UsageCount Value="2"/>
     271        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     272        <WindowIndex Value="0"/>
     273        <TopLine Value="43"/>
     274        <CursorPos X="1" Y="60"/>
     275        <UsageCount Value="6"/>
    276276        <DefaultSyntaxHighlighter Value="Delphi"/>
    277277      </Unit13>
    278278      <Unit14>
    279         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    280         <WindowIndex Value="0"/>
    281         <TopLine Value="43"/>
    282         <CursorPos X="1" Y="60"/>
    283         <UsageCount Value="9"/>
     279        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     280        <WindowIndex Value="0"/>
     281        <TopLine Value="68"/>
     282        <CursorPos X="1" Y="85"/>
     283        <UsageCount Value="3"/>
    284284        <DefaultSyntaxHighlighter Value="Delphi"/>
    285285      </Unit14>
    286286      <Unit15>
    287         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    288         <WindowIndex Value="0"/>
    289         <TopLine Value="68"/>
    290         <CursorPos X="1" Y="85"/>
    291         <UsageCount Value="6"/>
     287        <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-registry/src/registry.pp"/>
     288        <UnitName Value="registry"/>
     289        <WindowIndex Value="0"/>
     290        <TopLine Value="1"/>
     291        <CursorPos X="6" Y="1"/>
     292        <UsageCount Value="9"/>
    292293        <DefaultSyntaxHighlighter Value="Delphi"/>
    293294      </Unit15>
    294295      <Unit16>
    295         <Filename Value="../../../lazarus/trunk/lcl/forms.pp"/>
    296         <UnitName Value="Forms"/>
    297         <WindowIndex Value="0"/>
    298         <TopLine Value="593"/>
    299         <CursorPos X="15" Y="606"/>
    300         <UsageCount Value="1"/>
     296        <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-registry/src/regdef.inc"/>
     297        <WindowIndex Value="0"/>
     298        <TopLine Value="1"/>
     299        <CursorPos X="3" Y="21"/>
     300        <UsageCount Value="9"/>
    301301        <DefaultSyntaxHighlighter Value="Delphi"/>
    302302      </Unit16>
    303303      <Unit17>
    304         <Filename Value="../../../lazarus/trunk/lcl/include/customform.inc"/>
    305         <WindowIndex Value="0"/>
    306         <TopLine Value="2104"/>
    307         <CursorPos X="3" Y="2109"/>
    308         <UsageCount Value="1"/>
     304        <Filename Value="USystem.pas"/>
     305        <IsPartOfProject Value="True"/>
     306        <UnitName Value="USystem"/>
     307        <EditorIndex Value="15"/>
     308        <WindowIndex Value="0"/>
     309        <TopLine Value="95"/>
     310        <CursorPos X="31" Y="112"/>
     311        <UsageCount Value="150"/>
     312        <Loaded Value="True"/>
    309313        <DefaultSyntaxHighlighter Value="Delphi"/>
    310314      </Unit17>
    311315      <Unit18>
    312         <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-registry/src/registry.pp"/>
    313         <UnitName Value="registry"/>
    314         <WindowIndex Value="0"/>
    315         <TopLine Value="1"/>
    316         <CursorPos X="6" Y="1"/>
    317         <UsageCount Value="12"/>
     316        <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
     317        <UnitName Value="ComCtrls"/>
     318        <WindowIndex Value="0"/>
     319        <TopLine Value="912"/>
     320        <CursorPos X="14" Y="929"/>
     321        <UsageCount Value="6"/>
    318322        <DefaultSyntaxHighlighter Value="Delphi"/>
    319323      </Unit18>
    320324      <Unit19>
    321         <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-registry/src/regdef.inc"/>
    322         <WindowIndex Value="0"/>
    323         <TopLine Value="1"/>
    324         <CursorPos X="3" Y="21"/>
    325         <UsageCount Value="12"/>
     325        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     326        <WindowIndex Value="0"/>
     327        <TopLine Value="1"/>
     328        <CursorPos X="15" Y="18"/>
     329        <UsageCount Value="4"/>
    326330        <DefaultSyntaxHighlighter Value="Delphi"/>
    327331      </Unit19>
    328332      <Unit20>
    329         <Filename Value="USystem.pas"/>
    330         <IsPartOfProject Value="True"/>
    331         <UnitName Value="USystem"/>
    332         <EditorIndex Value="10"/>
    333         <WindowIndex Value="0"/>
    334         <TopLine Value="202"/>
    335         <CursorPos X="67" Y="214"/>
    336         <UsageCount Value="111"/>
    337         <Loaded Value="True"/>
     333        <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/ustringh.inc"/>
     334        <WindowIndex Value="0"/>
     335        <TopLine Value="1"/>
     336        <CursorPos X="11" Y="30"/>
     337        <UsageCount Value="1"/>
    338338        <DefaultSyntaxHighlighter Value="Delphi"/>
    339339      </Unit20>
    340340      <Unit21>
    341         <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
    342         <UnitName Value="ComCtrls"/>
    343         <WindowIndex Value="0"/>
    344         <TopLine Value="912"/>
    345         <CursorPos X="14" Y="929"/>
    346         <UsageCount Value="9"/>
    347         <DefaultSyntaxHighlighter Value="Delphi"/>
    348       </Unit21>
    349       <Unit22>
    350         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    351         <WindowIndex Value="0"/>
    352         <TopLine Value="1"/>
    353         <CursorPos X="15" Y="18"/>
    354         <UsageCount Value="7"/>
    355         <DefaultSyntaxHighlighter Value="Delphi"/>
    356       </Unit22>
    357       <Unit23>
    358         <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/ustringh.inc"/>
    359         <WindowIndex Value="0"/>
    360         <TopLine Value="1"/>
    361         <CursorPos X="11" Y="30"/>
    362         <UsageCount Value="4"/>
    363         <DefaultSyntaxHighlighter Value="Delphi"/>
    364       </Unit23>
    365       <Unit24>
    366341        <Filename Value="UCore.pas"/>
    367342        <IsPartOfProject Value="True"/>
    … …  
    369344        <ResourceBaseClass Value="DataModule"/>
    370345        <UnitName Value="UCore"/>
    371         <EditorIndex Value="9"/>
     346        <EditorIndex Value="14"/>
    372347        <WindowIndex Value="0"/>
    373348        <TopLine Value="34"/>
    374349        <CursorPos X="59" Y="46"/>
    375         <UsageCount Value="95"/>
     350        <UsageCount Value="134"/>
    376351        <Loaded Value="True"/>
    377352        <LoadedDesigner Value="True"/>
    378353        <DefaultSyntaxHighlighter Value="Delphi"/>
    379       </Unit24>
    380       <Unit25>
     354      </Unit21>
     355      <Unit22>
    381356        <Filename Value="Forms/USettingForm.pas"/>
    382357        <IsPartOfProject Value="True"/>
    … …  
    384359        <ResourceBaseClass Value="Form"/>
    385360        <UnitName Value="USettingForm"/>
    386         <IsVisibleTab Value="True"/>
    387         <EditorIndex Value="8"/>
    388         <WindowIndex Value="0"/>
    389         <TopLine Value="40"/>
    390         <CursorPos X="43" Y="41"/>
    391         <UsageCount Value="94"/>
     361        <EditorIndex Value="13"/>
     362        <WindowIndex Value="0"/>
     363        <TopLine Value="1"/>
     364        <CursorPos X="46" Y="11"/>
     365        <UsageCount Value="133"/>
    392366        <Loaded Value="True"/>
    393367        <LoadedDesigner Value="True"/>
     368        <DefaultSyntaxHighlighter Value="Delphi"/>
     369      </Unit22>
     370      <Unit23>
     371        <Filename Value="Application/UApplicationInfo.pas"/>
     372        <IsPartOfProject Value="True"/>
     373        <UnitName Value="UApplicationInfo"/>
     374        <WindowIndex Value="0"/>
     375        <TopLine Value="37"/>
     376        <CursorPos X="21" Y="52"/>
     377        <UsageCount Value="133"/>
     378        <DefaultSyntaxHighlighter Value="Delphi"/>
     379      </Unit23>
     380      <Unit24>
     381        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
     382        <UnitName Value="SpecializedList"/>
     383        <WindowIndex Value="0"/>
     384        <TopLine Value="97"/>
     385        <CursorPos X="26" Y="109"/>
     386        <UsageCount Value="4"/>
     387        <DefaultSyntaxHighlighter Value="Delphi"/>
     388      </Unit24>
     389      <Unit25>
     390        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     391        <WindowIndex Value="0"/>
     392        <TopLine Value="16"/>
     393        <CursorPos X="14" Y="58"/>
     394        <UsageCount Value="4"/>
    394395        <DefaultSyntaxHighlighter Value="Delphi"/>
    395396      </Unit25>
    396397      <Unit26>
    397         <Filename Value="Application/UApplicationInfo.pas"/>
    398         <IsPartOfProject Value="True"/>
    399         <UnitName Value="UApplicationInfo"/>
    400         <WindowIndex Value="0"/>
    401         <TopLine Value="37"/>
    402         <CursorPos X="21" Y="52"/>
    403         <UsageCount Value="94"/>
     398        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     399        <WindowIndex Value="0"/>
     400        <TopLine Value="87"/>
     401        <CursorPos X="6" Y="103"/>
     402        <UsageCount Value="4"/>
    404403        <DefaultSyntaxHighlighter Value="Delphi"/>
    405404      </Unit26>
    406405      <Unit27>
    407         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
    408         <UnitName Value="SpecializedList"/>
    409         <WindowIndex Value="0"/>
    410         <TopLine Value="97"/>
    411         <CursorPos X="26" Y="109"/>
    412         <UsageCount Value="7"/>
     406        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/objpash.inc"/>
     407        <WindowIndex Value="0"/>
     408        <TopLine Value="372"/>
     409        <CursorPos X="7" Y="384"/>
     410        <UsageCount Value="1"/>
    413411        <DefaultSyntaxHighlighter Value="Delphi"/>
    414412      </Unit27>
    415413      <Unit28>
    416         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    417         <WindowIndex Value="0"/>
    418         <TopLine Value="16"/>
    419         <CursorPos X="14" Y="58"/>
    420         <UsageCount Value="7"/>
     414        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
     415        <WindowIndex Value="0"/>
     416        <TopLine Value="82"/>
     417        <CursorPos X="40" Y="94"/>
     418        <UsageCount Value="1"/>
    421419        <DefaultSyntaxHighlighter Value="Delphi"/>
    422420      </Unit28>
    423421      <Unit29>
    424         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    425         <WindowIndex Value="0"/>
    426         <TopLine Value="87"/>
    427         <CursorPos X="6" Y="103"/>
    428         <UsageCount Value="7"/>
     422        <Filename Value="H:/PascalClassLibrary/CoolTranslator/UCoolTranslator.pas"/>
     423        <UnitName Value="UCoolTranslator"/>
     424        <WindowIndex Value="0"/>
     425        <TopLine Value="301"/>
     426        <CursorPos X="3" Y="305"/>
     427        <UsageCount Value="1"/>
    429428        <DefaultSyntaxHighlighter Value="Delphi"/>
    430429      </Unit29>
    431430      <Unit30>
    432         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/objpash.inc"/>
    433         <WindowIndex Value="0"/>
    434         <TopLine Value="372"/>
    435         <CursorPos X="7" Y="384"/>
    436         <UsageCount Value="4"/>
     431        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/dialogs.pp"/>
     432        <UnitName Value="Dialogs"/>
     433        <WindowIndex Value="0"/>
     434        <TopLine Value="487"/>
     435        <CursorPos X="44" Y="500"/>
     436        <UsageCount Value="24"/>
    437437        <DefaultSyntaxHighlighter Value="Delphi"/>
    438438      </Unit30>
    439439      <Unit31>
    440         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    441         <WindowIndex Value="0"/>
    442         <TopLine Value="82"/>
    443         <CursorPos X="40" Y="94"/>
    444         <UsageCount Value="4"/>
     440        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/controls.pp"/>
     441        <UnitName Value="Controls"/>
     442        <WindowIndex Value="0"/>
     443        <TopLine Value="1661"/>
     444        <CursorPos X="24" Y="1673"/>
     445        <UsageCount Value="24"/>
    445446        <DefaultSyntaxHighlighter Value="Delphi"/>
    446447      </Unit31>
    447448      <Unit32>
    448         <Filename Value="H:/PascalClassLibrary/CoolTranslator/UCoolTranslator.pas"/>
    449         <UnitName Value="UCoolTranslator"/>
    450         <WindowIndex Value="0"/>
    451         <TopLine Value="301"/>
    452         <CursorPos X="3" Y="305"/>
    453         <UsageCount Value="4"/>
     449        <Filename Value="Application/UDataTypes.pas"/>
     450        <IsPartOfProject Value="True"/>
     451        <UnitName Value="UDataTypes"/>
     452        <EditorIndex Value="16"/>
     453        <WindowIndex Value="0"/>
     454        <TopLine Value="189"/>
     455        <CursorPos X="1" Y="207"/>
     456        <UsageCount Value="87"/>
     457        <Loaded Value="True"/>
    454458        <DefaultSyntaxHighlighter Value="Delphi"/>
    455459      </Unit32>
    456460      <Unit33>
    457         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/dialogs.pp"/>
    458         <UnitName Value="Dialogs"/>
    459         <WindowIndex Value="0"/>
    460         <TopLine Value="487"/>
    461         <CursorPos X="44" Y="500"/>
    462         <UsageCount Value="27"/>
     461        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
     462        <UnitName Value="StdCtrls"/>
     463        <WindowIndex Value="0"/>
     464        <TopLine Value="1446"/>
     465        <CursorPos X="26" Y="1458"/>
     466        <UsageCount Value="5"/>
    463467        <DefaultSyntaxHighlighter Value="Delphi"/>
    464468      </Unit33>
    465469      <Unit34>
    466         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/controls.pp"/>
    467         <UnitName Value="Controls"/>
    468         <WindowIndex Value="0"/>
    469         <TopLine Value="1661"/>
    470         <CursorPos X="24" Y="1673"/>
    471         <UsageCount Value="27"/>
     470        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win32/system.pp"/>
     471        <UnitName Value="System"/>
     472        <WindowIndex Value="0"/>
     473        <TopLine Value="4"/>
     474        <CursorPos X="1" Y="16"/>
     475        <UsageCount Value="10"/>
    472476        <DefaultSyntaxHighlighter Value="Delphi"/>
    473477      </Unit34>
    474478      <Unit35>
    475         <Filename Value="Application/UDataTypes.pas"/>
    476         <IsPartOfProject Value="True"/>
    477         <UnitName Value="UDataTypes"/>
    478         <EditorIndex Value="11"/>
    479         <WindowIndex Value="0"/>
    480         <TopLine Value="189"/>
    481         <CursorPos X="1" Y="207"/>
    482         <UsageCount Value="48"/>
    483         <Loaded Value="True"/>
     479        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     480        <UnitName Value="USqlDatabase"/>
     481        <WindowIndex Value="0"/>
     482        <TopLine Value="1"/>
     483        <CursorPos X="1" Y="1"/>
     484        <UsageCount Value="6"/>
    484485        <DefaultSyntaxHighlighter Value="Delphi"/>
    485486      </Unit35>
    486487      <Unit36>
    487         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
    488         <UnitName Value="StdCtrls"/>
    489         <WindowIndex Value="0"/>
    490         <TopLine Value="1446"/>
    491         <CursorPos X="26" Y="1458"/>
    492         <UsageCount Value="8"/>
     488        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
     489        <UnitName Value="UHTTPServer"/>
     490        <WindowIndex Value="0"/>
     491        <TopLine Value="1"/>
     492        <CursorPos X="1" Y="1"/>
     493        <UsageCount Value="6"/>
    493494        <DefaultSyntaxHighlighter Value="Delphi"/>
    494495      </Unit36>
    495496      <Unit37>
    496         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win32/system.pp"/>
    497         <UnitName Value="System"/>
    498         <WindowIndex Value="0"/>
    499         <TopLine Value="4"/>
    500         <CursorPos X="1" Y="16"/>
    501         <UsageCount Value="13"/>
     497        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
     498        <UnitName Value="CoolWeb"/>
     499        <WindowIndex Value="0"/>
     500        <TopLine Value="5"/>
     501        <CursorPos X="50" Y="15"/>
     502        <UsageCount Value="6"/>
    502503        <DefaultSyntaxHighlighter Value="Delphi"/>
    503504      </Unit37>
    504505      <Unit38>
     506        <Filename Value="H:/PascalClassLibrary/Common/UDebugLog.pas"/>
     507        <UnitName Value="UDebugLog"/>
     508        <WindowIndex Value="0"/>
     509        <TopLine Value="88"/>
     510        <CursorPos X="1" Y="109"/>
     511        <UsageCount Value="6"/>
     512        <DefaultSyntaxHighlighter Value="Delphi"/>
     513      </Unit38>
     514      <Unit39>
     515        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
     516        <WindowIndex Value="0"/>
     517        <TopLine Value="1639"/>
     518        <CursorPos X="17" Y="1651"/>
     519        <UsageCount Value="6"/>
     520        <DefaultSyntaxHighlighter Value="Delphi"/>
     521      </Unit39>
     522      <Unit40>
     523        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Common/UCommon.pas"/>
     524        <UnitName Value="UCommon"/>
     525        <WindowIndex Value="0"/>
     526        <TopLine Value="28"/>
     527        <CursorPos X="1" Y="1"/>
     528        <UsageCount Value="6"/>
     529        <DefaultSyntaxHighlighter Value="Delphi"/>
     530      </Unit40>
     531      <Unit41>
     532        <Filename Value="H:/PascalClassLibrary/Common/UCommon.pas"/>
     533        <UnitName Value="UCommon"/>
     534        <WindowIndex Value="0"/>
     535        <TopLine Value="37"/>
     536        <CursorPos X="1" Y="1"/>
     537        <UsageCount Value="6"/>
     538        <DefaultSyntaxHighlighter Value="Delphi"/>
     539      </Unit41>
     540      <Unit42>
     541        <Filename Value="H:/PascalClassLibrary/Common/Common.pas"/>
     542        <UnitName Value="Common"/>
     543        <WindowIndex Value="0"/>
     544        <TopLine Value="1"/>
     545        <CursorPos X="36" Y="13"/>
     546        <UsageCount Value="6"/>
     547        <DefaultSyntaxHighlighter Value="Delphi"/>
     548      </Unit42>
     549      <Unit43>
     550        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionFile.pas"/>
     551        <UnitName Value="UHTTPSessionFile"/>
     552        <WindowIndex Value="0"/>
     553        <TopLine Value="15"/>
     554        <CursorPos X="19" Y="27"/>
     555        <UsageCount Value="6"/>
     556        <DefaultSyntaxHighlighter Value="Delphi"/>
     557      </Unit43>
     558      <Unit44>
     559        <Filename Value="H:/PascalClassLibrary/Common/StopWatch.pas"/>
     560        <UnitName Value="StopWatch"/>
     561        <WindowIndex Value="0"/>
     562        <TopLine Value="19"/>
     563        <CursorPos X="1" Y="1"/>
     564        <UsageCount Value="6"/>
     565        <DefaultSyntaxHighlighter Value="Delphi"/>
     566      </Unit44>
     567      <Unit45>
     568        <Filename Value="H:/PascalClassLibrary/Common/UThreading.pas"/>
     569        <UnitName Value="UThreading"/>
     570        <WindowIndex Value="0"/>
     571        <TopLine Value="28"/>
     572        <CursorPos X="1" Y="1"/>
     573        <UsageCount Value="6"/>
     574        <DefaultSyntaxHighlighter Value="Delphi"/>
     575      </Unit45>
     576      <Unit46>
     577        <Filename Value="H:/PascalClassLibrary/Common/UPrefixMultiplier.pas"/>
     578        <UnitName Value="UPrefixMultiplier"/>
     579        <WindowIndex Value="0"/>
     580        <TopLine Value="1"/>
     581        <CursorPos X="1" Y="1"/>
     582        <UsageCount Value="6"/>
     583        <DefaultSyntaxHighlighter Value="Delphi"/>
     584      </Unit46>
     585      <Unit47>
     586        <Filename Value="H:/PascalClassLibrary/Common/UDelay.pas"/>
     587        <UnitName Value="UDelay"/>
     588        <WindowIndex Value="0"/>
     589        <TopLine Value="16"/>
     590        <CursorPos X="1" Y="1"/>
     591        <UsageCount Value="6"/>
     592        <DefaultSyntaxHighlighter Value="Delphi"/>
     593      </Unit47>
     594      <Unit48>
     595        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     596        <WindowIndex Value="0"/>
     597        <TopLine Value="8"/>
     598        <CursorPos X="62" Y="20"/>
     599        <UsageCount Value="6"/>
     600        <DefaultSyntaxHighlighter Value="Delphi"/>
     601      </Unit48>
     602      <Unit49>
     603        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
     604        <WindowIndex Value="0"/>
     605        <TopLine Value="70"/>
     606        <CursorPos X="10" Y="82"/>
     607        <UsageCount Value="6"/>
     608        <DefaultSyntaxHighlighter Value="Delphi"/>
     609      </Unit49>
     610      <Unit50>
     611        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
     612        <WindowIndex Value="0"/>
     613        <TopLine Value="141"/>
     614        <CursorPos X="3" Y="144"/>
     615        <UsageCount Value="6"/>
     616        <DefaultSyntaxHighlighter Value="Delphi"/>
     617      </Unit50>
     618      <Unit51>
     619        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
     620        <UnitName Value="ComCtrls"/>
     621        <WindowIndex Value="0"/>
     622        <TopLine Value="602"/>
     623        <CursorPos X="17" Y="614"/>
     624        <UsageCount Value="8"/>
     625        <DefaultSyntaxHighlighter Value="Delphi"/>
     626      </Unit51>
     627      <Unit52>
     628        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/stringl.inc"/>
     629        <WindowIndex Value="0"/>
     630        <TopLine Value="575"/>
     631        <CursorPos X="15" Y="579"/>
     632        <UsageCount Value="7"/>
     633        <DefaultSyntaxHighlighter Value="Delphi"/>
     634      </Unit52>
     635      <Unit53>
     636        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     637        <WindowIndex Value="0"/>
     638        <TopLine Value="550"/>
     639        <CursorPos X="1" Y="561"/>
     640        <UsageCount Value="26"/>
     641      </Unit53>
     642      <Unit54>
     643        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win32/classes.pp"/>
     644        <UnitName Value="Classes"/>
     645        <WindowIndex Value="0"/>
     646        <TopLine Value="1"/>
     647        <CursorPos X="19" Y="45"/>
     648        <UsageCount Value="10"/>
     649      </Unit54>
     650      <Unit55>
     651        <Filename Value="Forms/UImportStructureForm.pas"/>
     652        <IsPartOfProject Value="True"/>
     653        <ComponentName Value="ImportStructureForm"/>
     654        <ResourceBaseClass Value="Form"/>
     655        <UnitName Value="UImportStructureForm"/>
     656        <IsVisibleTab Value="True"/>
     657        <EditorIndex Value="9"/>
     658        <WindowIndex Value="0"/>
     659        <TopLine Value="81"/>
     660        <CursorPos X="23" Y="99"/>
     661        <UsageCount Value="23"/>
     662        <Loaded Value="True"/>
     663        <LoadedDesigner Value="True"/>
     664        <DefaultSyntaxHighlighter Value="Delphi"/>
     665      </Unit55>
     666      <Unit56>
     667        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     668        <EditorIndex Value="12"/>
     669        <WindowIndex Value="0"/>
     670        <TopLine Value="1"/>
     671        <CursorPos X="24" Y="11"/>
     672        <UsageCount Value="11"/>
     673        <Loaded Value="True"/>
     674      </Unit56>
     675      <Unit57>
     676        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
     677        <EditorIndex Value="11"/>
     678        <WindowIndex Value="0"/>
     679        <TopLine Value="2274"/>
     680        <CursorPos X="1" Y="2286"/>
     681        <UsageCount Value="10"/>
     682        <Loaded Value="True"/>
     683      </Unit57>
     684      <Unit58>
    505685        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    506686        <UnitName Value="USqlDatabase"/>
    507         <WindowIndex Value="0"/>
    508         <TopLine Value="1"/>
    509         <CursorPos X="1" Y="1"/>
    510         <UsageCount Value="9"/>
    511         <DefaultSyntaxHighlighter Value="Delphi"/>
    512       </Unit38>
    513       <Unit39>
    514         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
    515         <UnitName Value="UHTTPServer"/>
    516         <WindowIndex Value="0"/>
    517         <TopLine Value="1"/>
    518         <CursorPos X="1" Y="1"/>
    519         <UsageCount Value="9"/>
    520         <DefaultSyntaxHighlighter Value="Delphi"/>
    521       </Unit39>
    522       <Unit40>
    523         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    524         <UnitName Value="CoolWeb"/>
    525         <WindowIndex Value="0"/>
    526         <TopLine Value="5"/>
    527         <CursorPos X="50" Y="15"/>
    528         <UsageCount Value="9"/>
    529         <DefaultSyntaxHighlighter Value="Delphi"/>
    530       </Unit40>
    531       <Unit41>
    532         <Filename Value="H:/PascalClassLibrary/Common/UDebugLog.pas"/>
    533         <UnitName Value="UDebugLog"/>
    534         <WindowIndex Value="0"/>
    535         <TopLine Value="88"/>
    536         <CursorPos X="1" Y="109"/>
    537         <UsageCount Value="9"/>
    538         <DefaultSyntaxHighlighter Value="Delphi"/>
    539       </Unit41>
    540       <Unit42>
    541         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
    542         <WindowIndex Value="0"/>
    543         <TopLine Value="1639"/>
    544         <CursorPos X="17" Y="1651"/>
    545         <UsageCount Value="9"/>
    546         <DefaultSyntaxHighlighter Value="Delphi"/>
    547       </Unit42>
    548       <Unit43>
    549         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Common/UCommon.pas"/>
    550         <UnitName Value="UCommon"/>
    551         <WindowIndex Value="0"/>
    552         <TopLine Value="28"/>
    553         <CursorPos X="1" Y="1"/>
    554         <UsageCount Value="9"/>
    555         <DefaultSyntaxHighlighter Value="Delphi"/>
    556       </Unit43>
    557       <Unit44>
    558         <Filename Value="H:/PascalClassLibrary/Common/UCommon.pas"/>
    559         <UnitName Value="UCommon"/>
    560         <WindowIndex Value="0"/>
    561         <TopLine Value="37"/>
    562         <CursorPos X="1" Y="1"/>
    563         <UsageCount Value="9"/>
    564         <DefaultSyntaxHighlighter Value="Delphi"/>
    565       </Unit44>
    566       <Unit45>
    567         <Filename Value="H:/PascalClassLibrary/Common/Common.pas"/>
    568         <UnitName Value="Common"/>
    569         <WindowIndex Value="0"/>
    570         <TopLine Value="1"/>
    571         <CursorPos X="36" Y="13"/>
    572         <UsageCount Value="9"/>
    573         <DefaultSyntaxHighlighter Value="Delphi"/>
    574       </Unit45>
    575       <Unit46>
    576         <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionFile.pas"/>
    577         <UnitName Value="UHTTPSessionFile"/>
    578         <WindowIndex Value="0"/>
    579         <TopLine Value="15"/>
    580         <CursorPos X="19" Y="27"/>
    581         <UsageCount Value="9"/>
    582         <DefaultSyntaxHighlighter Value="Delphi"/>
    583       </Unit46>
    584       <Unit47>
    585         <Filename Value="H:/PascalClassLibrary/Common/StopWatch.pas"/>
    586         <UnitName Value="StopWatch"/>
    587         <WindowIndex Value="0"/>
    588         <TopLine Value="19"/>
    589         <CursorPos X="1" Y="1"/>
    590         <UsageCount Value="9"/>
    591         <DefaultSyntaxHighlighter Value="Delphi"/>
    592       </Unit47>
    593       <Unit48>
    594         <Filename Value="H:/PascalClassLibrary/Common/UThreading.pas"/>
    595         <UnitName Value="UThreading"/>
    596         <WindowIndex Value="0"/>
    597         <TopLine Value="28"/>
    598         <CursorPos X="1" Y="1"/>
    599         <UsageCount Value="9"/>
    600         <DefaultSyntaxHighlighter Value="Delphi"/>
    601       </Unit48>
    602       <Unit49>
    603         <Filename Value="H:/PascalClassLibrary/Common/UPrefixMultiplier.pas"/>
    604         <UnitName Value="UPrefixMultiplier"/>
    605         <WindowIndex Value="0"/>
    606         <TopLine Value="1"/>
    607         <CursorPos X="1" Y="1"/>
    608         <UsageCount Value="9"/>
    609         <DefaultSyntaxHighlighter Value="Delphi"/>
    610       </Unit49>
    611       <Unit50>
    612         <Filename Value="H:/PascalClassLibrary/Common/UDelay.pas"/>
    613         <UnitName Value="UDelay"/>
    614         <WindowIndex Value="0"/>
    615         <TopLine Value="16"/>
    616         <CursorPos X="1" Y="1"/>
    617         <UsageCount Value="9"/>
    618         <DefaultSyntaxHighlighter Value="Delphi"/>
    619       </Unit50>
    620       <Unit51>
    621         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
    622         <WindowIndex Value="0"/>
    623         <TopLine Value="8"/>
    624         <CursorPos X="62" Y="20"/>
    625         <UsageCount Value="9"/>
    626         <DefaultSyntaxHighlighter Value="Delphi"/>
    627       </Unit51>
    628       <Unit52>
    629         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
    630         <WindowIndex Value="0"/>
    631         <TopLine Value="70"/>
    632         <CursorPos X="10" Y="82"/>
    633         <UsageCount Value="9"/>
    634         <DefaultSyntaxHighlighter Value="Delphi"/>
    635       </Unit52>
    636       <Unit53>
    637         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
    638         <WindowIndex Value="0"/>
    639         <TopLine Value="141"/>
    640         <CursorPos X="3" Y="144"/>
    641         <UsageCount Value="9"/>
    642         <DefaultSyntaxHighlighter Value="Delphi"/>
    643       </Unit53>
    644       <Unit54>
    645         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/comctrls.pp"/>
    646         <UnitName Value="ComCtrls"/>
    647         <WindowIndex Value="0"/>
    648         <TopLine Value="602"/>
    649         <CursorPos X="17" Y="614"/>
    650         <UsageCount Value="11"/>
    651         <DefaultSyntaxHighlighter Value="Delphi"/>
    652       </Unit54>
    653       <Unit55>
    654         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/stringl.inc"/>
    655         <WindowIndex Value="0"/>
    656         <TopLine Value="575"/>
    657         <CursorPos X="15" Y="579"/>
     687        <EditorIndex Value="10"/>
     688        <WindowIndex Value="0"/>
     689        <TopLine Value="235"/>
     690        <CursorPos X="52" Y="248"/>
    658691        <UsageCount Value="10"/>
    659         <DefaultSyntaxHighlighter Value="Delphi"/>
    660       </Unit55>
    661       <Unit56>
    662         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
    663         <EditorIndex Value="2"/>
    664         <WindowIndex Value="0"/>
    665         <TopLine Value="623"/>
    666         <CursorPos X="58" Y="635"/>
    667         <UsageCount Value="11"/>
    668         <Loaded Value="True"/>
    669       </Unit56>
    670       <Unit57>
    671         <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/stringl.inc"/>
    672         <EditorIndex Value="3"/>
    673         <WindowIndex Value="0"/>
    674         <TopLine Value="426"/>
    675         <CursorPos X="3" Y="429"/>
    676         <UsageCount Value="11"/>
    677         <Loaded Value="True"/>
    678       </Unit57>
    679       <Unit58>
    680         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    681         <EditorIndex Value="1"/>
    682         <WindowIndex Value="0"/>
    683         <TopLine Value="120"/>
    684         <CursorPos X="1" Y="132"/>
    685         <UsageCount Value="11"/>
    686692        <Loaded Value="True"/>
    687693      </Unit58>
    688694      <Unit59>
    689         <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/include/customlistview.inc"/>
     695        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     696        <EditorIndex Value="4"/>
     697        <WindowIndex Value="0"/>
     698        <TopLine Value="71"/>
     699        <CursorPos X="39" Y="78"/>
     700        <UsageCount Value="10"/>
     701        <Loaded Value="True"/>
     702      </Unit59>
     703      <Unit60>
     704        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
     705        <EditorIndex Value="5"/>
     706        <WindowIndex Value="0"/>
     707        <TopLine Value="71"/>
     708        <CursorPos X="10" Y="83"/>
     709        <UsageCount Value="10"/>
     710        <Loaded Value="True"/>
     711      </Unit60>
     712      <Unit61>
     713        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
     714        <EditorIndex Value="6"/>
     715        <WindowIndex Value="0"/>
     716        <TopLine Value="162"/>
     717        <CursorPos X="13" Y="164"/>
     718        <UsageCount Value="10"/>
     719        <Loaded Value="True"/>
     720      </Unit61>
     721      <Unit62>
     722        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/systemh.inc"/>
    690723        <EditorIndex Value="7"/>
    691724        <WindowIndex Value="0"/>
    692         <TopLine Value="550"/>
    693         <CursorPos X="1" Y="561"/>
     725        <TopLine Value="516"/>
     726        <CursorPos X="11" Y="528"/>
    694727        <UsageCount Value="10"/>
    695728        <Loaded Value="True"/>
    696       </Unit59>
     729      </Unit62>
     730      <Unit63>
     731        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/i386/i386.inc"/>
     732        <EditorIndex Value="8"/>
     733        <WindowIndex Value="0"/>
     734        <TopLine Value="460"/>
     735        <CursorPos X="10" Y="427"/>
     736        <UsageCount Value="10"/>
     737        <Loaded Value="True"/>
     738      </Unit63>
    697739    </Units>
    698740    <JumpHistory Count="30" HistoryIndex="29">
    699741      <Position1>
    700         <Filename Value="Forms/UItemEdit.pas"/>
    701         <Caret Line="128" Column="1" TopLine="121"/>
     742        <Filename Value="Forms/UImportStructureForm.pas"/>
     743        <Caret Line="81" Column="1" TopLine="65"/>
    702744      </Position1>
    703745      <Position2>
    704         <Filename Value="Forms/UItemEdit.pas"/>
    705         <Caret Line="129" Column="1" TopLine="121"/>
     746        <Filename Value="Forms/UImportStructureForm.pas"/>
     747        <Caret Line="84" Column="50" TopLine="65"/>
    706748      </Position2>
    707749      <Position3>
    708         <Filename Value="Forms/UItemEdit.pas"/>
    709         <Caret Line="130" Column="1" TopLine="121"/>
     750        <Filename Value="Forms/UImportStructureForm.pas"/>
     751        <Caret Line="81" Column="1" TopLine="65"/>
    710752      </Position3>
    711753      <Position4>
    712         <Filename Value="Forms/UItemEdit.pas"/>
    713         <Caret Line="131" Column="1" TopLine="121"/>
     754        <Filename Value="Forms/UImportStructureForm.pas"/>
     755        <Caret Line="82" Column="1" TopLine="65"/>
    714756      </Position4>
    715757      <Position5>
    716         <Filename Value="Forms/UItemEdit.pas"/>
    717         <Caret Line="133" Column="1" TopLine="121"/>
     758        <Filename Value="Forms/UImportStructureForm.pas"/>
     759        <Caret Line="83" Column="1" TopLine="65"/>
    718760      </Position5>
    719761      <Position6>
    720         <Filename Value="Forms/UItemEdit.pas"/>
    721         <Caret Line="134" Column="1" TopLine="121"/>
     762        <Filename Value="Forms/UImportStructureForm.pas"/>
     763        <Caret Line="84" Column="1" TopLine="65"/>
    722764      </Position6>
    723765      <Position7>
    724         <Filename Value="Forms/UItemEdit.pas"/>
    725         <Caret Line="135" Column="1" TopLine="121"/>
     766        <Filename Value="Forms/UImportStructureForm.pas"/>
     767        <Caret Line="85" Column="1" TopLine="65"/>
    726768      </Position7>
    727769      <Position8>
    728         <Filename Value="Forms/UItemEdit.pas"/>
    729         <Caret Line="136" Column="1" TopLine="121"/>
     770        <Filename Value="Forms/UImportStructureForm.pas"/>
     771        <Caret Line="87" Column="50" TopLine="69"/>
    730772      </Position8>
    731773      <Position9>
    732         <Filename Value="Forms/UItemEdit.pas"/>
    733         <Caret Line="137" Column="1" TopLine="121"/>
     774        <Filename Value="USystem.pas"/>
     775        <Caret Line="108" Column="30" TopLine="91"/>
    734776      </Position9>
    735777      <Position10>
    736         <Filename Value="Forms/UItemEdit.pas"/>
    737         <Caret Line="138" Column="1" TopLine="121"/>
     778        <Filename Value="USystem.pas"/>
     779        <Caret Line="360" Column="41" TopLine="345"/>
    738780      </Position10>
    739781      <Position11>
    740         <Filename Value="Forms/UItemEdit.pas"/>
    741         <Caret Line="139" Column="1" TopLine="121"/>
     782        <Filename Value="USystem.pas"/>
     783        <Caret Line="329" Column="27" TopLine="327"/>
    742784      </Position11>
    743785      <Position12>
    744         <Filename Value="Forms/UItemEdit.pas"/>
    745         <Caret Line="140" Column="1" TopLine="121"/>
     786        <Filename Value="Forms/UMainForm.pas"/>
     787        <Caret Line="359" Column="35" TopLine="340"/>
    746788      </Position12>
    747789      <Position13>
    748         <Filename Value="Forms/UItemEdit.pas"/>
    749         <Caret Line="141" Column="1" TopLine="121"/>
     790        <Filename Value="Forms/UMainForm.pas"/>
     791        <Caret Line="351" Column="17" TopLine="343"/>
    750792      </Position13>
    751793      <Position14>
    752         <Filename Value="Forms/UItemEdit.pas"/>
    753         <Caret Line="143" Column="1" TopLine="123"/>
     794        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     795        <Caret Line="78" Column="11" TopLine="72"/>
    754796      </Position14>
    755797      <Position15>
    756         <Filename Value="Forms/UItemEdit.pas"/>
    757         <Caret Line="144" Column="1" TopLine="124"/>
     798        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
     799        <Caret Line="151" Column="18" TopLine="141"/>
    758800      </Position15>
    759801      <Position16>
    760         <Filename Value="Forms/UItemEdit.pas"/>
    761         <Caret Line="125" Column="1" TopLine="121"/>
     802        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
     803        <Caret Line="164" Column="13" TopLine="162"/>
    762804      </Position16>
    763805      <Position17>
    764         <Filename Value="Forms/UItemEdit.pas"/>
    765         <Caret Line="127" Column="1" TopLine="121"/>
     806        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     807        <Caret Line="78" Column="40" TopLine="72"/>
    766808      </Position17>
    767809      <Position18>
    768         <Filename Value="Forms/UItemEdit.pas"/>
    769         <Caret Line="128" Column="1" TopLine="121"/>
     810        <Filename Value="Forms/UMainForm.pas"/>
     811        <Caret Line="351" Column="1" TopLine="343"/>
    770812      </Position18>
    771813      <Position19>
    772         <Filename Value="Forms/UItemEdit.pas"/>
    773         <Caret Line="129" Column="1" TopLine="121"/>
     814        <Filename Value="Forms/UMainForm.pas"/>
     815        <Caret Line="363" Column="1" TopLine="343"/>
    774816      </Position19>
    775817      <Position20>
    776         <Filename Value="Forms/UItemEdit.pas"/>
    777         <Caret Line="130" Column="1" TopLine="121"/>
     818        <Filename Value="Forms/UMainForm.pas"/>
     819        <Caret Line="351" Column="1" TopLine="343"/>
    778820      </Position20>
    779821      <Position21>
    780         <Filename Value="Forms/UItemEdit.pas"/>
    781         <Caret Line="131" Column="1" TopLine="121"/>
     822        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     823        <Caret Line="75" Column="1" TopLine="71"/>
    782824      </Position21>
    783825      <Position22>
    784         <Filename Value="Forms/UItemEdit.pas"/>
    785         <Caret Line="133" Column="1" TopLine="121"/>
     826        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     827        <Caret Line="77" Column="1" TopLine="71"/>
    786828      </Position22>
    787829      <Position23>
    788         <Filename Value="Forms/UItemEdit.pas"/>
    789         <Caret Line="134" Column="1" TopLine="121"/>
     830        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     831        <Caret Line="78" Column="39" TopLine="71"/>
    790832      </Position23>
    791833      <Position24>
    792         <Filename Value="Forms/UItemEdit.pas"/>
    793         <Caret Line="135" Column="1" TopLine="121"/>
     834        <Filename Value="Forms/UMainForm.pas"/>
     835        <Caret Line="351" Column="1" TopLine="343"/>
    794836      </Position24>
    795837      <Position25>
    796         <Filename Value="Forms/UItemEdit.pas"/>
    797         <Caret Line="136" Column="1" TopLine="121"/>
     838        <Filename Value="Forms/UMainForm.pas"/>
     839        <Caret Line="352" Column="1" TopLine="343"/>
    798840      </Position25>
    799841      <Position26>
    800         <Filename Value="Forms/UItemEdit.pas"/>
    801         <Caret Line="137" Column="1" TopLine="121"/>
     842        <Filename Value="Forms/UMainForm.pas"/>
     843        <Caret Line="360" Column="1" TopLine="343"/>
    802844      </Position26>
    803845      <Position27>
    804         <Filename Value="Forms/UItemEdit.pas"/>
    805         <Caret Line="134" Column="15" TopLine="123"/>
     846        <Filename Value="Forms/UMainForm.pas"/>
     847        <Caret Line="363" Column="1" TopLine="343"/>
    806848      </Position27>
    807849      <Position28>
    808         <Filename Value="Forms/UItemEdit.pas"/>
    809         <Caret Line="114" Column="1" TopLine="102"/>
     850        <Filename Value="Forms/UImportStructureForm.pas"/>
     851        <Caret Line="87" Column="49" TopLine="75"/>
    810852      </Position28>
    811853      <Position29>
    812         <Filename Value="Forms/UItemEdit.pas"/>
    813         <Caret Line="101" Column="1" TopLine="89"/>
     854        <Filename Value="Forms/UImportStructureForm.pas"/>
     855        <Caret Line="98" Column="23" TopLine="80"/>
    814856      </Position29>
    815857      <Position30>
    816         <Filename Value="Forms/UItemAdd.pas"/>
    817         <Caret Line="96" Column="12" TopLine="84"/>
     858        <Filename Value="Forms/UImportStructureForm.pas"/>
     859        <Caret Line="40" Column="33" TopLine="25"/>
    818860      </Position30>
    819861    </JumpHistory>

  • trunk/chronis.lpr

    r15 r19  
    1010  Forms, UPersistentForm, URegistry, UTreeState, SysUtils, UItemView, UItemEdit,
    1111  ULoginForm, UMainForm, UItemAdd, TemplateGenerics, CoolTranslator, Common,
    12   CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes
     12  CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes,
     13UImportStructureForm
    1314  { you can add units after this };
    1415
    … …  
    3536  Application.CreateForm(TItemAddForm, ItemAddForm);
    3637  Application.CreateForm(TSettingForm, SettingForm);
     38  Application.CreateForm(TImportStructureForm, ImportStructureForm);
    3739  Application.Run;
    3840end.
Note: See TracChangeset for help on using the changeset viewer.