Changeset 11 for trunk


Ignore:
Timestamp:
Jun 9, 2011, 12:34:21 PM (14 years ago)
Author:
george
Message:
  • Added: Build in SQL structure and initial values initialization.
Location:
trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UMainForm.lfm

    r10 r11  
    177177      OnExecute = ASettingsExecute
    178178    end
     179    object AInitSystemValues: TAction
     180      Caption = 'Init system values'
     181      OnExecute = AInitSystemValuesExecute
     182    end
    179183  end
    180184  object PopupMenuItem: TPopupMenu
    … …  
    322326      end
    323327    end
     328    object MenuItem18: TMenuItem
     329      Caption = 'Admin'
     330      object MenuItem19: TMenuItem
     331        Action = AInitSystemValues
     332      end
     333    end
    324334    object MenuItem12: TMenuItem
    325335      Caption = 'Help'

  • trunk/Forms/UMainForm.lrt

    r10 r11  
    1818TMAINFORM.ASETTINGS.CAPTION=Settings
    1919TMAINFORM.ASETTINGS.HINT=Settings
     20TMAINFORM.AINITSYSTEMVALUES.CAPTION=Init system values
    2021TMAINFORM.MENUITEM13.CAPTION=Server
    2122TMAINFORM.MENUITEM11.CAPTION=View
     23TMAINFORM.MENUITEM18.CAPTION=Admin
    2224TMAINFORM.MENUITEM12.CAPTION=Help

  • trunk/Forms/UMainForm.pas

    r10 r11  
    88  Registry, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    99  StdCtrls, ActnList, Menus, ExtCtrls, USqlDatabase, DOM, XMLRead, XMLWrite,
    10   UPersistentForm, UTreeState, SpecializedList, URegistry, USystem;
    11 
    12 const
    13   ConfigFileName = 'Config.xml';
     10  UPersistentForm, UTreeState, SpecializedList, SpecializedDictionary,
     11  URegistry, USystem;
    1412
    1513type
    … …  
    1816  TMainForm = class(TForm)
    1917    AConnect: TAction;
     18    AInitSystemValues: TAction;
    2019    ASettings: TAction;
    2120    AToggleFullscreen: TAction;
    … …  
    4847    MenuItem16: TMenuItem;
    4948    MenuItem17: TMenuItem;
     49    MenuItem18: TMenuItem;
     50    MenuItem19: TMenuItem;
    5051    MenuItem2: TMenuItem;
    5152    MenuItem3: TMenuItem;
    … …  
    6566    procedure AConnectExecute(Sender: TObject);
    6667    procedure AExitExecute(Sender: TObject);
     68    procedure AInitSystemValuesExecute(Sender: TObject);
    6769    procedure AItemAddExecute(Sender: TObject);
    6870    procedure AItemEditExecute(Sender: TObject);
    … …  
    9496    procedure SaveToRegistry;
    9597    procedure InitStructure;
     98    procedure InitSystemValues;
    9699  public
    97100    SelectedObjectId: Integer;
    … …  
    157160
    158161procedure TMainForm.InitStructure;
    159 begin
    160 
     162var
     163  DbRows: TDbRows;
     164  DbRows2: TDbRows;
     165  StructureVersion: string;
     166  Data: TDictionaryStringString;
     167  ObjectId: Integer;
     168begin
     169  with System do
     170  try
     171    DbRows := TDbRows.Create;
     172    Data := TDictionaryStringString.Create;
     173
     174    Database.Query(DbRows, 'SHOW TABLES LIKE "' + InformationTable + '"');
     175    if DbRows.Count = 0 then begin
     176      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + InformationTable + '` ( ' +
     177  '`Version` varchar(255) NOT NULL,' +
     178  '`LastUpdateTime` datetime NOT NULL' +
     179') ENGINE=InnoDB DEFAULT CHARSET=utf8;');
     180      Database.Query(DbRows, 'INSERT INTO `' + InformationTable + '` (`Version`, `LastUpdateTime`) VALUES ' +
     181  '("0.1", "0000-00-00 00:00:00");');
     182    end;
     183    Database.Select(DbRows, InformationTable);
     184    StructureVersion := DbRows[0].Values['Version'];
     185
     186    Database.Query(DbRows, 'SHOW TABLES LIKE "' + ObjectTable + '"');
     187    if DbRows.Count = 0 then begin
     188      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + ObjectTable + '` ( ' +
     189        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     190        '`Name` varchar(255) NOT NULL,' +
     191        '`Schema` varchar(255) NOT NULL,' +
     192        '`Table` varchar(255) NOT NULL,' +
     193        '`PrimaryKey` varchar(255) NOT NULL DEFAULT "Id", ' +
     194        '`Sequence` int(11) NOT NULL,' +
     195        '`Group` int(11) NOT NULL,' +
     196        'PRIMARY KEY (`Id`),' +
     197        'KEY `Group` (`Group`)' +
     198      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     199
     200    end;
     201
     202    Database.Query(DbRows, 'SHOW TABLES LIKE "' + ObjectGroupTable + '"');
     203    if DbRows.Count = 0 then begin
     204      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + ObjectGroupTable + '` ( ' +
     205        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     206        '`Name` varchar(255) NOT NULL,' +
     207        '`Parent` int(11) NOT NULL,' +
     208        '`Sequence` int(11) NOT NULL,' +
     209        'PRIMARY KEY (`Id`)' +
     210      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     211    end;
     212
     213    Database.Query(DbRows, 'SHOW TABLES LIKE "' + PropertyTable + '"');
     214    if DbRows.Count = 0 then begin
     215      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + PropertyTable + '` ( ' +
     216        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     217      '`Name` varchar(255) NOT NULL,' +
     218      '`Object` int(11) NOT NULL,' +
     219      '`PropertyGroup` int(11) NOT NULL,' +
     220      '`Type` int(11) NOT NULL,' +
     221      '`ColumnName` varchar(255) NOT NULL,' +
     222      'KEY `Object` (`Object`),' +
     223      'KEY `PropertyGroup` (`PropertyGroup`),' +
     224      'KEY `Type` (`Type`),' +
     225      'PRIMARY KEY (`Id`)' +
     226      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     227    end;
     228    Database.Query(DbRows, 'SHOW TABLES LIKE "' + PropertyTypeTable + '"');
     229    if DbRows.Count = 0 then begin
     230      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + PropertyTypeTable + '` ( ' +
     231        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     232      '`Name` varchar(255) NOT NULL,' +
     233      '`DbType` varchar(255) NOT NULL,' +
     234      '`TypeIndex` int(11) NOT NULL,' +
     235      '`Parent` int(11) NOT NULL,' +
     236      '`ParameterTable` varchar(255) NOT NULL,' +
     237      'PRIMARY KEY (`Id`)' +
     238      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     239    end;
     240    Database.Query(DbRows, 'SHOW TABLES LIKE "' + PropertyGroupTable + '"');
     241    if DbRows.Count = 0 then begin
     242      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + PropertyGroupTable + '` ( ' +
     243        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     244      '`Name` varchar(255) NOT NULL,' +
     245      '`Object` int(11) NOT NULL,' +
     246      'KEY `Object` (`Object`),' +
     247      'PRIMARY KEY (`Id`)' +
     248      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     249    end;
     250
     251  finally
     252    Data.Free;
     253    DbRows.Free;
     254  end;
     255end;
     256
     257procedure TMainForm.InitSystemValues;
     258var
     259  ObjectId: Integer;
     260  TypeNumber: Integer;
     261  TypeString: Integer;
     262  GroupId: Integer;
     263begin
     264  with System do begin
     265  TypeNumber := AddType('Number', 'INT', vtInteger);
     266  TypeString := AddType('String', 'VAR(255)', vtString);
     267  AddType('Text', 'TEXT', vtText);
     268  AddType('Date and time', 'DATETIME', vtDateTime);
     269  AddType('Floating number', 'FLOAT', vtFloat);
     270  AddType('Image', 'BLOB', vtImage);
     271  AddType('Boolean', 'BOOL', vtBoolean);
     272  AddType('IPv4', 'BINARY(4)', vtIPv4);
     273  AddType('IPv6', 'BINARY(16)', vtIPv6);
     274  AddType('MAC address', 'BINARY(6)', vtMAC);
     275  AddType('File', '', vtFile);
     276  AddType('GPS', '', vtGPS);
     277  AddType('Currency', 'FLOAT', vtCurrency);
     278  AddType('Enumeration', '', vtEnumeration);
     279  AddType('Time', 'TIME', vtTime);
     280  AddType('Date', 'DATE', vtDate);
     281  AddType('Color', 'INT', vtColor);
     282
     283  GroupId := AddObjectGroup('System');
     284
     285  ObjectId := AddObject('Object groups', 'ObjectGroup', System.Database.Database, GroupId);
     286    AddProperty(ObjectId, 'Name', 'Name', TypeString);
     287  ObjectId := AddObject('Objects', 'Object', System.Database.Database, GroupId);
     288    AddProperty(ObjectId, 'Name', 'Name', TypeString);
     289    AddProperty(ObjectId, 'Group', 'Group', TypeNumber);
     290    AddProperty(ObjectId, 'Schema', 'Schema', TypeString);
     291    AddProperty(ObjectId, 'Table', 'Table', TypeString);
     292    AddProperty(ObjectId, 'Primary key', 'PrimaryKey', TypeString);
     293    AddProperty(ObjectId, 'Sequence', 'Sequence', TypeNumber);
     294  ObjectId := AddObject('Property types', 'Type', System.Database.Database, GroupId);
     295    AddProperty(ObjectId, 'Name', 'Name', TypeString);
     296    AddProperty(ObjectId, 'Type', 'DbType', TypeString);
     297    AddProperty(ObjectId, 'Type index', 'TypeIndex', TypeNumber);
     298    AddProperty(ObjectId, 'Parent', 'Parent', TypeNumber);
     299  ObjectId := AddObject('Property groups', 'PropertyGroup', System.Database.Database, GroupId);
     300  ObjectId := AddObject('Properties', 'Property', System.Database.Database, GroupId);
     301    AddProperty(ObjectId, 'Name', 'Name', TypeString);
     302    AddProperty(ObjectId, 'Object', 'Object', TypeNumber);
     303    AddProperty(ObjectId, 'PropertyGroup', 'PropertyGroup', TypeNumber);
     304    AddProperty(ObjectId, 'Type', 'Type', TypeNumber);
     305    AddProperty(ObjectId, 'ColumnName', 'ColumnName', TypeString);
     306  end;
    161307end;
    162308
    … …  
    271417end;
    272418
     419procedure TMainForm.AInitSystemValuesExecute(Sender: TObject);
     420begin
     421  InitSystemValues;
     422  LoadTree;
     423end;
     424
    273425procedure TMainForm.AConnectExecute(Sender: TObject);
    274426begin
    … …  
    360512    try
    361513      DbRows := TDbRows.Create;
    362       System.Database.Query(DbRows, 'SELECT * FROM `ObjectGroup`');
     514      System.Database.Query(DbRows, 'SELECT * FROM `' + ObjectGroupTable + '`');
    363515      for I := 0 to DbRows.Count - 1 do begin
    364516        NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
    … …  
    368520        try
    369521          ObjectDbRows := TDbRows.Create;
    370           System.Database.Query(ObjectDbRows, 'SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
     522          System.Database.Query(ObjectDbRows, 'SELECT * FROM `' + ObjectTable + '` WHERE `Group`=' + DbRows[I].Values['Id']);
    371523          for O := 0 to ObjectDbRows.Count - 1 do begin
    372524            NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);

  • trunk/USystem.pas

    r9 r11  
    66
    77uses
    8   Classes, SysUtils, SpecializedList, USqlDatabase, Strings;
     8  Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
     9  Strings;
     10
     11const
     12  ObjectGroupTable = 'ObjectGroup';
     13  ObjectTable = 'Object';
     14  InformationTable = 'Information';
     15  PropertyTable = 'Property';
     16  PropertyTypeTable = 'Type';
     17  PropertyGroupTable = 'PropertyGroup';
    918
    1019type
    1120  TDbValueType = (vtNone, vtInteger, vtString, vtText, vtDateTime, vtFloat, vtImage, vtBoolean,
    1221  vtIPv4, vtMAC, vtIPv6, vtFile, vtGPS, vtEnumeration, vtHyperlink, vtPassword,
    13   vtReference, vtDate, vtTime, vtColor);
     22  vtReference, vtDate, vtTime, vtColor, vtCurrency);
    1423
    1524  TChronisType = class;
    … …  
    6372    DbType: string;
    6473    DbTable: string;
     74    TypeIndex: Integer;
    6575    Parent: TChronisType;
    6676  end;
    … …  
    7181    Types: TListObject;  // TList<TChronisType>
    7282    Database: TSQLDatabase;
     83    function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
     84    function AddObject(Name, TableName, Schema: string; GroupId: Integer): Integer;
     85    function AddProperty(ObjectId: Integer; Name, ColumnName: string; DataType: Integer): Integer;
     86    function AddObjectGroup(Name: string): Integer;
    7387    constructor Create;
    7488    destructor Destroy; override;
    … …  
    107121    try
    108122      Properties := TDbRows.Create;
    109       Base.Database.Query(Properties, 'SELECT * FROM `Property` WHERE `Object`='
    110         + IntToStr(Obj.Id));
     123      Base.Database.Query(Properties, 'SELECT * FROM `' + PropertyTable +
     124        '` WHERE `Object`=' + IntToStr(Obj.Id));
    111125      Columns.Clear;
    112126      NewColumn := TReportColumn.Create;
    … …  
    149163end;
    150164
     165function TChronisBase.AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
     166var
     167  DbRows: TDbRows;
     168  Data: TDictionaryStringString;
     169begin
     170  try
     171    DbRows := TDbRows.Create;
     172    Data := TDictionaryStringString.Create;
     173    Data.Add('Name', Name);
     174    Data.Add('DbType', DataType);
     175    Data.Add('TypeIndex', IntToStr(Integer(TypeIndex)));
     176    Database.Insert(PropertyTypeTable, Data);
     177    Result := Database.LastInsertId;
     178  finally
     179    Data.Free;
     180    DbRows.Free;
     181  end;
     182end;
     183
     184function TChronisBase.AddObject(Name, TableName, Schema: string;
     185  GroupId: Integer): Integer;
     186var
     187  DbRows: TDbRows;
     188  Data: TDictionaryStringString;
     189begin
     190  try
     191    DbRows := TDbRows.Create;
     192    Data := TDictionaryStringString.Create;
     193    Data.Add('Name', Name);
     194    Data.Add('Schema', Schema);
     195    Data.Add('Table', TableName);
     196    Data.Add('Group', IntToStr(GroupId));
     197    Database.Insert(ObjectTable, Data);
     198    Result := Database.LastInsertId;
     199  finally
     200    Data.Free;
     201    DbRows.Free;
     202  end;
     203end;
     204
     205function TChronisBase.AddProperty(ObjectId: Integer; Name, ColumnName: string;
     206  DataType: Integer): Integer;
     207var
     208  DbRows: TDbRows;
     209  Data: TDictionaryStringString;
     210begin
     211  try
     212    DbRows := TDbRows.Create;
     213    Data := TDictionaryStringString.Create;
     214    Data.Add('Name', Name);
     215    Data.Add('Object', IntToStr(ObjectId));
     216    Data.Add('ColumnName', ColumnName);
     217    Data.Add('Type', IntToStr(DataType));
     218    Database.Insert(PropertyTable, Data);
     219    Result := Database.LastInsertId;
     220  finally
     221    Data.Free;
     222    DbRows.Free;
     223  end;
     224end;
     225
     226function TChronisBase.AddObjectGroup(Name: string): Integer;
     227var
     228  DbRows: TDbRows;
     229  Data: TDictionaryStringString;
     230begin
     231  try
     232    DbRows := TDbRows.Create;
     233    Data := TDictionaryStringString.Create;
     234    Data.Add('Name', Name);
     235    Database.Insert(ObjectGroupTable, Data);
     236    Result := Database.LastInsertId;
     237  finally
     238    Data.Free;
     239    DbRows.Free;
     240  end;
     241end;
     242
    151243constructor TChronisBase.Create;
    152244begin
    … …  
    184276  try
    185277    DbRows := TDbRows.Create;
    186     Base.Database.Query(DbRows, 'SELECT * FROM `Object` WHERE `Id`=' + IntToStr(ObjectId));
     278    Base.Database.Query(DbRows, 'SELECT * FROM `' + ObjectTable +
     279      '` WHERE `Id`=' + IntToStr(ObjectId));
    187280    if DbRows.Count = 1 then begin
    188281      Id := ObjectId;

  • trunk/chronis.lpi

    r10 r11  
    9393      </Item3>
    9494    </RequiredPackages>
    95     <Units Count="27">
     95    <Units Count="31">
    9696      <Unit0>
    9797        <Filename Value="chronis.lpr"/>
    9898        <IsPartOfProject Value="True"/>
    9999        <UnitName Value="chronis"/>
    100         <EditorIndex Value="8"/>
     100        <EditorIndex Value="12"/>
    101101        <WindowIndex Value="0"/>
    102102        <TopLine Value="14"/>
    … …  
    113113        <TopLine Value="330"/>
    114114        <CursorPos X="1" Y="347"/>
    115         <UsageCount Value="50"/>
     115        <UsageCount Value="49"/>
    116116        <DefaultSyntaxHighlighter Value="Delphi"/>
    117117      </Unit1>
    … …  
    125125        <TopLine Value="118"/>
    126126        <CursorPos X="25" Y="144"/>
    127         <UsageCount Value="104"/>
     127        <UsageCount Value="103"/>
    128128        <DefaultSyntaxHighlighter Value="Delphi"/>
    129129      </Unit2>
    … …  
    137137        <TopLine Value="1"/>
    138138        <CursorPos X="24" Y="14"/>
    139         <UsageCount Value="104"/>
     139        <UsageCount Value="103"/>
    140140        <DefaultSyntaxHighlighter Value="Delphi"/>
    141141      </Unit3>
    … …  
    144144        <IsPartOfProject Value="True"/>
    145145        <UnitName Value="UPersistentForm"/>
    146         <EditorIndex Value="10"/>
     146        <EditorIndex Value="14"/>
    147147        <WindowIndex Value="0"/>
    148148        <TopLine Value="55"/>
    … …  
    156156        <IsPartOfProject Value="True"/>
    157157        <UnitName Value="USqlDatabase"/>
    158         <IsVisibleTab Value="True"/>
    159         <EditorIndex Value="7"/>
     158        <EditorIndex Value="10"/>
    160159        <WindowIndex Value="0"/>
    161160        <TopLine Value="209"/>
    162         <CursorPos X="25" Y="225"/>
     161        <CursorPos X="36" Y="222"/>
    163162        <UsageCount Value="264"/>
    164163        <Loaded Value="True"/>
    … …  
    169168        <IsPartOfProject Value="True"/>
    170169        <UnitName Value="URegistry"/>
    171         <EditorIndex Value="9"/>
     170        <EditorIndex Value="13"/>
    172171        <WindowIndex Value="0"/>
    173172        <TopLine Value="19"/>
    … …  
    185184        <EditorIndex Value="0"/>
    186185        <WindowIndex Value="0"/>
    187         <TopLine Value="56"/>
    188         <CursorPos X="1" Y="60"/>
     186        <TopLine Value="107"/>
     187        <CursorPos X="69" Y="67"/>
    189188        <UsageCount Value="327"/>
    190189        <Loaded Value="True"/>
    … …  
    200199        <EditorIndex Value="1"/>
    201200        <WindowIndex Value="0"/>
    202         <TopLine Value="85"/>
    203         <CursorPos X="5" Y="100"/>
     201        <TopLine Value="91"/>
     202        <CursorPos X="56" Y="108"/>
    204203        <UsageCount Value="318"/>
    205204        <Loaded Value="True"/>
    … …  
    214213        <ResourceBaseClass Value="Form"/>
    215214        <UnitName Value="ULoginForm"/>
    216         <EditorIndex Value="12"/>
     215        <EditorIndex Value="16"/>
    217216        <WindowIndex Value="0"/>
    218217        <TopLine Value="14"/>
    … …  
    230229        <ResourceBaseClass Value="Form"/>
    231230        <UnitName Value="UMainForm"/>
     231        <IsVisibleTab Value="True"/>
    232232        <EditorIndex Value="2"/>
    233233        <WindowIndex Value="0"/>
    234         <TopLine Value="168"/>
    235         <CursorPos X="3" Y="174"/>
     234        <TopLine Value="285"/>
     235        <CursorPos X="58" Y="292"/>
    236236        <UsageCount Value="317"/>
    237237        <Loaded Value="True"/>
    … …  
    252252        <ResourceBaseClass Value="Form"/>
    253253        <UnitName Value="UItemAdd"/>
    254         <EditorIndex Value="11"/>
    255         <WindowIndex Value="0"/>
    256         <TopLine Value="1"/>
    257         <CursorPos X="14" Y="3"/>
     254        <EditorIndex Value="15"/>
     255        <WindowIndex Value="0"/>
     256        <TopLine Value="109"/>
     257        <CursorPos X="32" Y="127"/>
    258258        <UsageCount Value="313"/>
    259259        <Loaded Value="True"/>
    … …  
    266266        <TopLine Value="963"/>
    267267        <CursorPos X="3" Y="974"/>
    268         <UsageCount Value="9"/>
     268        <UsageCount Value="8"/>
    269269        <DefaultSyntaxHighlighter Value="Delphi"/>
    270270      </Unit13>
    … …  
    274274        <TopLine Value="43"/>
    275275        <CursorPos X="1" Y="60"/>
    276         <UsageCount Value="16"/>
     276        <UsageCount Value="15"/>
    277277      </Unit14>
    278278      <Unit15>
    … …  
    281281        <TopLine Value="68"/>
    282282        <CursorPos X="1" Y="85"/>
    283         <UsageCount Value="13"/>
     283        <UsageCount Value="12"/>
    284284      </Unit15>
    285285      <Unit16>
    … …  
    289289        <TopLine Value="593"/>
    290290        <CursorPos X="15" Y="606"/>
    291         <UsageCount Value="8"/>
     291        <UsageCount Value="7"/>
    292292      </Unit16>
    293293      <Unit17>
    … …  
    296296        <TopLine Value="2104"/>
    297297        <CursorPos X="3" Y="2109"/>
    298         <UsageCount Value="8"/>
     298        <UsageCount Value="7"/>
    299299      </Unit17>
    300300      <Unit18>
    … …  
    304304        <TopLine Value="1"/>
    305305        <CursorPos X="6" Y="1"/>
    306         <UsageCount Value="19"/>
     306        <UsageCount Value="18"/>
    307307        <DefaultSyntaxHighlighter Value="Delphi"/>
    308308      </Unit18>
    … …  
    312312        <TopLine Value="1"/>
    313313        <CursorPos X="3" Y="21"/>
    314         <UsageCount Value="19"/>
     314        <UsageCount Value="18"/>
    315315        <DefaultSyntaxHighlighter Value="Delphi"/>
    316316      </Unit19>
    … …  
    319319        <IsPartOfProject Value="True"/>
    320320        <UnitName Value="USystem"/>
    321         <EditorIndex Value="6"/>
    322         <WindowIndex Value="0"/>
    323         <TopLine Value="58"/>
    324         <CursorPos X="3" Y="70"/>
    325         <UsageCount Value="37"/>
     321        <EditorIndex Value="9"/>
     322        <WindowIndex Value="0"/>
     323        <TopLine Value="231"/>
     324        <CursorPos X="8" Y="251"/>
     325        <UsageCount Value="43"/>
    326326        <Loaded Value="True"/>
    327327        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    333333        <TopLine Value="912"/>
    334334        <CursorPos X="14" Y="929"/>
    335         <UsageCount Value="16"/>
     335        <UsageCount Value="15"/>
    336336      </Unit21>
    337337      <Unit22>
    … …  
    340340        <TopLine Value="1"/>
    341341        <CursorPos X="15" Y="18"/>
    342         <UsageCount Value="14"/>
     342        <UsageCount Value="13"/>
    343343      </Unit22>
    344344      <Unit23>
    … …  
    347347        <TopLine Value="1"/>
    348348        <CursorPos X="11" Y="30"/>
    349         <UsageCount Value="11"/>
     349        <UsageCount Value="10"/>
    350350        <DefaultSyntaxHighlighter Value="Delphi"/>
    351351      </Unit23>
    … …  
    356356        <ResourceBaseClass Value="DataModule"/>
    357357        <UnitName Value="UCore"/>
    358         <EditorIndex Value="5"/>
     358        <EditorIndex Value="8"/>
    359359        <WindowIndex Value="0"/>
    360360        <TopLine Value="3"/>
    361361        <CursorPos X="28" Y="15"/>
    362         <UsageCount Value="21"/>
     362        <UsageCount Value="27"/>
    363363        <Loaded Value="True"/>
    364364        <LoadedDesigner Value="True"/>
    … …  
    371371        <ResourceBaseClass Value="Form"/>
    372372        <UnitName Value="USettingForm"/>
    373         <EditorIndex Value="4"/>
     373        <EditorIndex Value="7"/>
    374374        <WindowIndex Value="0"/>
    375375        <TopLine Value="1"/>
    376376        <CursorPos X="1" Y="1"/>
    377         <UsageCount Value="21"/>
     377        <UsageCount Value="27"/>
    378378        <Loaded Value="True"/>
    379379        <LoadedDesigner Value="True"/>
    … …  
    384384        <IsPartOfProject Value="True"/>
    385385        <UnitName Value="UApplicationInfo"/>
    386         <EditorIndex Value="3"/>
     386        <EditorIndex Value="6"/>
    387387        <WindowIndex Value="0"/>
    388388        <TopLine Value="37"/>
    389389        <CursorPos X="48" Y="56"/>
    390         <UsageCount Value="20"/>
     390        <UsageCount Value="26"/>
    391391        <Loaded Value="True"/>
    392392        <DefaultSyntaxHighlighter Value="Delphi"/>
    393393      </Unit26>
     394      <Unit27>
     395        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
     396        <UnitName Value="SpecializedList"/>
     397        <EditorIndex Value="11"/>
     398        <WindowIndex Value="0"/>
     399        <TopLine Value="97"/>
     400        <CursorPos X="26" Y="109"/>
     401        <UsageCount Value="13"/>
     402        <Loaded Value="True"/>
     403      </Unit27>
     404      <Unit28>
     405        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     406        <EditorIndex Value="5"/>
     407        <WindowIndex Value="0"/>
     408        <TopLine Value="16"/>
     409        <CursorPos X="14" Y="58"/>
     410        <UsageCount Value="12"/>
     411        <Loaded Value="True"/>
     412      </Unit28>
     413      <Unit29>
     414        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     415        <EditorIndex Value="4"/>
     416        <WindowIndex Value="0"/>
     417        <TopLine Value="87"/>
     418        <CursorPos X="6" Y="103"/>
     419        <UsageCount Value="12"/>
     420        <Loaded Value="True"/>
     421      </Unit29>
     422      <Unit30>
     423        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/inc/objpash.inc"/>
     424        <EditorIndex Value="3"/>
     425        <WindowIndex Value="0"/>
     426        <TopLine Value="372"/>
     427        <CursorPos X="7" Y="384"/>
     428        <UsageCount Value="10"/>
     429        <Loaded Value="True"/>
     430      </Unit30>
    394431    </Units>
    395     <JumpHistory Count="30" HistoryIndex="29">
     432    <JumpHistory Count="29" HistoryIndex="28">
    396433      <Position1>
    397         <Filename Value="Common/USqlDatabase.pas"/>
    398         <Caret Line="179" Column="40" TopLine="159"/>
     434        <Filename Value="USystem.pas"/>
     435        <Caret Line="82" Column="44" TopLine="70"/>
    399436      </Position1>
    400437      <Position2>
    401         <Filename Value="Common/USqlDatabase.pas"/>
    402         <Caret Line="224" Column="26" TopLine="209"/>
     438        <Filename Value="Forms/UMainForm.pas"/>
     439        <Caret Line="234" Column="23" TopLine="171"/>
    403440      </Position2>
    404441      <Position3>
    405442        <Filename Value="Forms/UMainForm.pas"/>
    406         <Caret Line="17" Column="47" TopLine="1"/>
     443        <Caret Line="280" Column="32" TopLine="258"/>
    407444      </Position3>
    408445      <Position4>
    409446        <Filename Value="Forms/UMainForm.pas"/>
    410         <Caret Line="240" Column="46" TopLine="232"/>
     447        <Caret Line="277" Column="37" TopLine="265"/>
    411448      </Position4>
    412449      <Position5>
    413450        <Filename Value="Forms/UMainForm.pas"/>
    414         <Caret Line="242" Column="46" TopLine="234"/>
     451        <Caret Line="278" Column="36" TopLine="265"/>
    415452      </Position5>
    416453      <Position6>
    417         <Filename Value="Forms/UMainForm.pas"/>
    418         <Caret Line="287" Column="23" TopLine="285"/>
     454        <Filename Value="USystem.pas"/>
     455        <Caret Line="26" Column="40" TopLine="9"/>
    419456      </Position6>
    420457      <Position7>
    421         <Filename Value="chronis.lpr"/>
    422         <Caret Line="26" Column="73" TopLine="15"/>
     458        <Filename Value="Forms/UMainForm.pas"/>
     459        <Caret Line="239" Column="47" TopLine="227"/>
    423460      </Position7>
    424461      <Position8>
    425         <Filename Value="Common/USqlDatabase.pas"/>
    426         <Caret Line="218" Column="30" TopLine="209"/>
     462        <Filename Value="Forms/UItemEdit.pas"/>
     463        <Caret Line="108" Column="56" TopLine="91"/>
    427464      </Position8>
    428465      <Position9>
    429         <Filename Value="Common/USqlDatabase.pas"/>
    430         <Caret Line="87" Column="3" TopLine="75"/>
     466        <Filename Value="USystem.pas"/>
     467        <Caret Line="38" Column="23" TopLine="23"/>
    431468      </Position9>
    432469      <Position10>
    433         <Filename Value="Forms/ULoginForm.pas"/>
    434         <Caret Line="12" Column="43" TopLine="14"/>
     470        <Filename Value="USystem.pas"/>
     471        <Caret Line="4" Column="65" TopLine="1"/>
    435472      </Position10>
    436473      <Position11>
    437         <Filename Value="Forms/USettingForm.pas"/>
    438         <Caret Line="1" Column="1" TopLine="1"/>
     474        <Filename Value="USystem.pas"/>
     475        <Caret Line="24" Column="15" TopLine="4"/>
    439476      </Position11>
    440477      <Position12>
    441         <Filename Value="Forms/UMainForm.pas"/>
    442         <Caret Line="135" Column="5" TopLine="128"/>
     478        <Filename Value="USystem.pas"/>
     479        <Caret Line="38" Column="26" TopLine="18"/>
    443480      </Position12>
    444481      <Position13>
    445         <Filename Value="Forms/UMainForm.pas"/>
    446         <Caret Line="137" Column="5" TopLine="130"/>
     482        <Filename Value="USystem.pas"/>
     483        <Caret Line="67" Column="15" TopLine="47"/>
    447484      </Position13>
    448485      <Position14>
    449         <Filename Value="Forms/UMainForm.pas"/>
    450         <Caret Line="247" Column="25" TopLine="245"/>
     486        <Filename Value="USystem.pas"/>
     487        <Caret Line="75" Column="25" TopLine="55"/>
    451488      </Position14>
    452489      <Position15>
    453         <Filename Value="Forms/UMainForm.pas"/>
    454         <Caret Line="122" Column="62" TopLine="113"/>
     490        <Filename Value="USystem.pas"/>
     491        <Caret Line="1" Column="5" TopLine="1"/>
    455492      </Position15>
    456493      <Position16>
    457         <Filename Value="Forms/UMainForm.pas"/>
    458         <Caret Line="123" Column="62" TopLine="114"/>
     494        <Filename Value="USystem.pas"/>
     495        <Caret Line="81" Column="10" TopLine="61"/>
    459496      </Position16>
    460497      <Position17>
    461         <Filename Value="Forms/UMainForm.pas"/>
    462         <Caret Line="144" Column="16" TopLine="126"/>
     498        <Filename Value="USystem.pas"/>
     499        <Caret Line="246" Column="8" TopLine="226"/>
    463500      </Position17>
    464501      <Position18>
    465502        <Filename Value="Forms/UMainForm.pas"/>
    466         <Caret Line="102" Column="20" TopLine="90"/>
     503        <Caret Line="6" Column="68" TopLine="1"/>
    467504      </Position18>
    468505      <Position19>
    469506        <Filename Value="Forms/UMainForm.pas"/>
    470         <Caret Line="93" Column="1" TopLine="81"/>
     507        <Caret Line="261" Column="8" TopLine="241"/>
    471508      </Position19>
    472509      <Position20>
    473510        <Filename Value="Forms/UMainForm.pas"/>
    474         <Caret Line="124" Column="1" TopLine="103"/>
     511        <Caret Line="266" Column="8" TopLine="246"/>
    475512      </Position20>
    476513      <Position21>
    477514        <Filename Value="Forms/UMainForm.pas"/>
    478         <Caret Line="7" Column="48" TopLine="1"/>
     515        <Caret Line="286" Column="48" TopLine="266"/>
    479516      </Position21>
    480517      <Position22>
    481518        <Filename Value="Forms/UMainForm.pas"/>
    482         <Caret Line="93" Column="27" TopLine="81"/>
     519        <Caret Line="288" Column="48" TopLine="268"/>
    483520      </Position22>
    484521      <Position23>
    485522        <Filename Value="Forms/UMainForm.pas"/>
    486         <Caret Line="125" Column="33" TopLine="105"/>
     523        <Caret Line="290" Column="52" TopLine="270"/>
    487524      </Position23>
    488525      <Position24>
    489526        <Filename Value="Forms/UMainForm.pas"/>
    490         <Caret Line="162" Column="1" TopLine="157"/>
     527        <Caret Line="291" Column="50" TopLine="271"/>
    491528      </Position24>
    492529      <Position25>
    493530        <Filename Value="Forms/UMainForm.pas"/>
    494         <Caret Line="161" Column="15" TopLine="157"/>
     531        <Caret Line="292" Column="61" TopLine="272"/>
    495532      </Position25>
    496533      <Position26>
    497534        <Filename Value="Forms/UMainForm.pas"/>
    498         <Caret Line="276" Column="1" TopLine="271"/>
     535        <Caret Line="294" Column="40" TopLine="274"/>
    499536      </Position26>
    500537      <Position27>
    501         <Filename Value="Common/USqlDatabase.pas"/>
    502         <Caret Line="172" Column="28" TopLine="159"/>
     538        <Filename Value="Forms/UMainForm.pas"/>
     539        <Caret Line="295" Column="48" TopLine="275"/>
    503540      </Position27>
    504541      <Position28>
    505         <Filename Value="Common/USqlDatabase.pas"/>
    506         <Caret Line="221" Column="32" TopLine="209"/>
     542        <Filename Value="Forms/UMainForm.pas"/>
     543        <Caret Line="296" Column="50" TopLine="276"/>
    507544      </Position28>
    508545      <Position29>
    509546        <Filename Value="Forms/UMainForm.pas"/>
    510         <Caret Line="95" Column="29" TopLine="91"/>
     547        <Caret Line="301" Column="48" TopLine="281"/>
    511548      </Position29>
    512       <Position30>
    513         <Filename Value="Forms/UMainForm.pas"/>
    514         <Caret Line="174" Column="3" TopLine="168"/>
    515       </Position30>
    516549    </JumpHistory>
    517550  </ProjectOptions>

  • trunk/languages/chronis.cs.po

    r10 r11  
    102102msgstr "Ukončit"
    103103
     104#: TMAINFORM.AINITSYSTEMVALUES.CAPTION
     105msgctxt "TMAINFORM.AINITSYSTEMVALUES.CAPTION"
     106msgid "Init system values"
     107msgstr ""
     108
    104109#: TMAINFORM.AITEMADD.CAPTION
    105110#| msgid "Přidat"
    … …  
    203208msgstr "Server"
    204209
     210#: TMAINFORM.MENUITEM18.CAPTION
     211msgid "Admin"
     212msgstr ""
     213
    205214#: TSETTINGFORM.BUTTONCANCEL.CAPTION
    206215msgctxt "TSETTINGFORM.BUTTONCANCEL.CAPTION"

  • trunk/languages/chronis.po

    r10 r11  
    8585msgstr ""
    8686
     87#: TMAINFORM.AINITSYSTEMVALUES.CAPTION
     88msgctxt "TMAINFORM.AINITSYSTEMVALUES.CAPTION"
     89msgid "Init system values"
     90msgstr ""
     91
    8792#: TMAINFORM.AITEMADD.CAPTION
    8893msgctxt "TMAINFORM.AITEMADD.CAPTION"
    … …  
    173178msgstr ""
    174179
     180#: TMAINFORM.MENUITEM18.CAPTION
     181msgid "Admin"
     182msgstr ""
     183
    175184#: TSETTINGFORM.BUTTONCANCEL.CAPTION
    176185msgctxt "TSETTINGFORM.BUTTONCANCEL.CAPTION"
Note: See TracChangeset for help on using the changeset viewer.