Changeset 6


Ignore:
Timestamp:
Dec 25, 2010, 9:31:21 PM (14 years ago)
Author:
george
Message:
  • Activated generation of language files.
  • Added: Full screen mode.
Location:
trunk
Files:
3 added
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UItemEdit.lfm

    r5 r6  
    11object ItemEditForm: TItemEditForm
    2   Left = 287
     2  Left = 295
    33  Height = 429
    4   Top = 175
     4  Top = 174
    55  Width = 558
    66  ActiveControl = Panel1

  • trunk/Forms/UItemEdit.pas

    r5 r6  
    4646procedure TItemEditForm.ButtonSaveClick(Sender: TObject);
    4747begin
     48
     49  MainForm.LoadItemList;
    4850  Close;
    4951end;

  • trunk/Forms/UItemView.lfm

    r3 r6  
    22  Left = 337
    33  Height = 416
    4   Top = 140
     4  Top = 135
    55  Width = 552
    66  Caption = 'Zobrazení položky'

  • trunk/Forms/UItemView.pas

    r3 r6  
    8686
    8787    for I := Panel1.ControlCount - 1 downto 0 do
    88       Panel1.Controls[I].Destroy;
     88      Panel1.Controls[I].Free;
    8989
    9090    // Load column names
    … …  
    114114    Properties.Destroy;
    115115  end else ShowMessage('Objekt nenalezen');
    116   ObjectInfo.Destroy;
     116  ObjectInfo.Free;
    117117end;
    118118

  • trunk/Forms/UMainForm.lfm

    r5 r6  
    11object MainForm: TMainForm
    2   Left = 317
     2  Left = 332
    33  Height = 445
    4   Top = 97
     4  Top = 106
    55  Width = 649
     6  ActiveControl = Panel1
    67  Caption = 'ChronIS'
    7   ClientHeight = 445
     8  ClientHeight = 422
    89  ClientWidth = 649
     10  Menu = MainMenu1
    911  OnClose = FormClose
    1012  OnCreate = FormCreate
    … …  
    1416  object Panel1: TPanel
    1517    Left = 0
    16     Height = 445
     18    Height = 422
    1719    Top = 0
    1820    Width = 184
    1921    Align = alLeft
    2022    BevelOuter = bvNone
    21     ClientHeight = 445
     23    ClientHeight = 422
    2224    ClientWidth = 184
    2325    TabOrder = 0
    … …  
    2628      Height = 14
    2729      Top = 4
    28       Width = 47
     30      Width = 46
    2931      Caption = 'Skupiny:'
    3032      ParentColor = False
    … …  
    3234    object TreeView1: TTreeView
    3335      Left = 8
    34       Height = 421
     36      Height = 398
    3537      Top = 19
    3638      Width = 176
    … …  
    4648  object Panel2: TPanel
    4749    Left = 189
    48     Height = 445
     50    Height = 422
    4951    Top = 0
    5052    Width = 460
    5153    Align = alClient
    5254    BevelOuter = bvNone
    53     ClientHeight = 445
     55    ClientHeight = 422
    5456    ClientWidth = 460
    5557    TabOrder = 1
    … …  
    6466    object ListView1: TListView
    6567      Left = 3
    66       Height = 389
     68      Height = 366
    6769      Top = 19
    6870      Width = 450
    6971      Anchors = [akTop, akLeft, akRight, akBottom]
    7072      Columns = <>
    71       ItemIndex = -1
    7273      PopupMenu = PopupMenuItem
    7374      ReadOnly = True
    … …  
    8384      Left = 3
    8485      Height = 25
    85       Top = 416
     86      Top = 393
    8687      Width = 75
    8788      Action = AItemAdd
    … …  
    9293      Left = 83
    9394      Height = 25
    94       Top = 416
     95      Top = 393
    9596      Width = 75
    9697      Action = AItemDelete
    … …  
    101102  object Splitter1: TSplitter
    102103    Left = 184
    103     Height = 445
     104    Height = 422
    104105    Top = 0
    105106    Width = 5
    … …  
    154155      Caption = 'Upravit'
    155156      OnExecute = AObjectEditExecute
     157    end
     158    object AExit: TAction
     159      Caption = 'Exit'
     160      OnExecute = AExitExecute
     161    end
     162    object AToggleFullscreen: TAction
     163      Caption = 'Fullscreen mode F11'
     164      OnExecute = AToggleFullscreenExecute
     165      ShortCut = 122
    156166    end
    157167  end
    … …  
    174184    object MenuItem2: TMenuItem
    175185      Action = AItemAdd
     186      OnClick = AItemAddExecute
    176187    end
    177188  end
    … …  
    185196    object MenuItem10: TMenuItem
    186197      Action = AObjectEdit
     198      OnClick = AObjectEditExecute
    187199    end
    188200  end
    … …  
    193205    object MenuItem5: TMenuItem
    194206      Action = AObjectGroupAddGroup
     207      OnClick = AObjectGroupAddGroupExecute
    195208    end
    196209    object MenuItem7: TMenuItem
    … …  
    199212    object MenuItem8: TMenuItem
    200213      Action = AObjectGroupEdit
     214      OnClick = AObjectGroupEditExecute
    201215    end
    202216    object MenuItem6: TMenuItem
    … …  
    275289    }
    276290  end
     291  object MainMenu1: TMainMenu
     292    left = 456
     293    top = 120
     294    object MenuItem13: TMenuItem
     295      Caption = 'Server'
     296      object MenuItem14: TMenuItem
     297        Action = AExit
     298      end
     299    end
     300    object MenuItem11: TMenuItem
     301      Caption = 'View'
     302      object MenuItem15: TMenuItem
     303        Action = AToggleFullscreen
     304      end
     305    end
     306    object MenuItem12: TMenuItem
     307      Caption = 'Help'
     308    end
     309  end
    277310end

  • trunk/Forms/UMainForm.pas

    r5 r6  
    2121
    2222  TMainForm = class(TForm)
     23    AToggleFullscreen: TAction;
     24    AExit: TAction;
    2325    AObjectEdit: TAction;
    2426    AObjectDelete: TAction;
    … …  
    3840    Label2: TLabel;
    3941    ListView1: TListView;
     42    MainMenu1: TMainMenu;
    4043    MenuItem1: TMenuItem;
    4144    MenuItem10: TMenuItem;
     45    MenuItem11: TMenuItem;
     46    MenuItem12: TMenuItem;
     47    MenuItem13: TMenuItem;
     48    MenuItem14: TMenuItem;
     49    MenuItem15: TMenuItem;
    4250    MenuItem2: TMenuItem;
    4351    MenuItem3: TMenuItem;
    … …  
    5563    Splitter1: TSplitter;
    5664    TreeView1: TTreeView;
     65    procedure AExitExecute(Sender: TObject);
    5766    procedure AItemAddExecute(Sender: TObject);
    5867    procedure AItemEditExecute(Sender: TObject);
    … …  
    6170    procedure AObjectGroupAddGroupExecute(Sender: TObject);
    6271    procedure AObjectGroupEditExecute(Sender: TObject);
     72    procedure AToggleFullscreenExecute(Sender: TObject);
    6373    procedure ButtonAddClick(Sender: TObject);
    6474    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    … …  
    7383    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    7484  private
     85    OriginalBounds: TRect;
     86    OriginalWindowState: TWindowState;
     87    ScreenBounds: TRect;
    7588    procedure LoadConfiguration;
    7689  public
    … …  
    103116  I3: Integer;
    104117begin
    105   if FileExists(ConfigFileName) then begin
     118  if FileExists(ConfigFileName) then try
    106119    ReadXMLFile(Config, ConfigFileName);
    107120    for I1 := 0 to Config.ChildNodes.Count - 1 do
    … …  
    124137      end;
    125138    end;
    126     Config.Destroy;
     139  finally
     140    Config.Free;
    127141  end;
    128142end;
    … …  
    139153procedure TMainForm.FormDestroy(Sender: TObject);
    140154begin
    141   TreeState.Destroy;
    142   Database.Destroy;
    143   PersistentForm.Destroy;
     155  TreeState.Free;
     156  Database.Free;
     157  PersistentForm.Free;
    144158end;
    145159
    … …  
    182196end;
    183197
     198procedure TMainForm.AToggleFullscreenExecute(Sender: TObject);
     199begin
     200   if BorderStyle <> bsNone then begin
     201    // To full screen
     202    OriginalWindowState := WindowState;
     203    OriginalBounds := BoundsRect;
     204
     205    BorderStyle := bsNone;
     206    ScreenBounds := Screen.MonitorFromWindow(Handle).BoundsRect;
     207    with ScreenBounds do
     208      SetBounds(Left, Top, Right - Left, Bottom - Top) ;
     209  end else begin
     210    // From full screen
     211    {$IFDEF MSWINDOWS}
     212    BorderStyle := bsSizeable;
     213    {$ENDIF}
     214    if OriginalWindowState = wsMaximized then
     215      WindowState := wsMaximized
     216    else
     217      with OriginalBounds do
     218        SetBounds(Left, Top, Right - Left, Bottom - Top) ;
     219    {$IFDEF LINUX}
     220    BorderStyle := bsSizeable;
     221    {$ENDIF}
     222  end;
     223end;
     224
    184225procedure TMainForm.AItemEditExecute(Sender: TObject);
    185226begin
    … …  
    190231begin
    191232  ItemAddForm.Show;
     233end;
     234
     235procedure TMainForm.AExitExecute(Sender: TObject);
     236begin
     237  Close;
    192238end;
    193239
    … …  
    259305    TopItem.ImageIndex := 0;
    260306    TopItem.SelectedIndex := 0;
    261     DbRows := Database.Query('SELECT * FROM `ObjectGroup`');
    262     for I := 0 to DbRows.Count - 1 do begin
    263       NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
    264       NewNode.ImageIndex := 0;
    265       NewNode.SelectedIndex := 0;
    266       NewNode.Data := Pointer(StrToInt(DbRows[I].Values['Id']));
    267       ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
    268       for O := 0 to ObjectDbRows.Count - 1 do begin
    269         NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);
    270         NewObjectNode.Data := Pointer(StrToInt(ObjectDbRows[O].Values['Id']));
    271         NewObjectNode.ImageIndex := 1;
    272         NewObjectNode.SelectedIndex := 1;
    273       end;
    274       ObjectDbRows.Destroy;
    275     end;
    276     TopItem.Expand(True);
    277     DbRows.Destroy;
     307    try
     308      DbRows := Database.Query('SELECT * FROM `ObjectGroup`');
     309      for I := 0 to DbRows.Count - 1 do begin
     310        NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
     311        NewNode.ImageIndex := 0;
     312        NewNode.SelectedIndex := 0;
     313        NewNode.Data := Pointer(StrToInt(DbRows[I].Values['Id']));
     314        try
     315          ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
     316          for O := 0 to ObjectDbRows.Count - 1 do begin
     317            NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);
     318            NewObjectNode.Data := Pointer(StrToInt(ObjectDbRows[O].Values['Id']));
     319            NewObjectNode.ImageIndex := 1;
     320            NewObjectNode.SelectedIndex := 1;
     321          end;
     322        finally
     323          ObjectDbRows.Free;
     324        end;
     325      end;
     326      TopItem.Expand(True);
     327    finally
     328      DbRows.Free;
     329    end;
    278330    TreeState.LoadTree(TreeView1);
    279331  end;
    … …  
    295347    Visible := True;
    296348    Clear;
     349    try
    297350    DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(Integer(TreeView1.Selected.Data)));
    298351    if DbRows.Count = 1 then begin
    … …  
    300353
    301354      // Load column names
    302       Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
    303         DbRows[0].Values['Id']);
    304       Columns.Clear;
    305       NewColumn := Columns.Add;
    306       NewColumn.Caption := 'Id';
    307       for I := 0 to Properties.Count - 1 do begin
     355      try
     356        Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
     357          DbRows[0].Values['Id']);
     358        Columns.Clear;
    308359        NewColumn := Columns.Add;
    309         NewColumn.Caption := Properties[I].Values['Name'];
     360        NewColumn.Caption := 'Id';
     361        for I := 0 to Properties.Count - 1 do begin
     362          NewColumn := Columns.Add;
     363          NewColumn.Caption := Properties[I].Values['Name'];
     364        end;
     365      finally
     366        Properties.Free;
    310367      end;
    311368
    … …  
    313370
    314371      // Load items
     372      try
    315373      Values := Database.Query('SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
    316374        DbRows[0].Values['Table'] + '`');
    … …  
    323381        end;
    324382      end;
    325       Values.Destroy;
    326       Properties.Destroy;
    327     end;
    328     DbRows.Destroy;
     383      finally
     384        Values.Free;
     385      end;
     386    end;
     387    finally
     388      DbRows.Free;
     389    end;
    329390  end;
    330391end;

  • trunk/SQL/Structure.sql

    r4 r6  
    44--
    55-- Počítač: localhost
    6 -- Vygenerováno: Čtvrtek 03. června 2010, 15:29
     6-- Vygenerováno: Čtvrtek 03. června 2010, 18:00
    77-- Verze MySQL: 5.1.46
    88-- Verze PHP: 5.3.2
    … …  
    1717
    1818--
    19 -- Struktura tabulky `MenuGroup`
    20 --
    21 
    22 CREATE TABLE IF NOT EXISTS `MenuGroup` (
    23   `Id` int(11) NOT NULL AUTO_INCREMENT,
    24   `Name` varchar(255) NOT NULL,
    25   `Parent` int(11) NOT NULL,
    26   PRIMARY KEY (`Id`)
    27 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=5 ;
    28 
    29 -- --------------------------------------------------------
    30 
    31 --
    3219-- Struktura tabulky `Object`
    3320--
    … …  
    3623  `Id` int(11) NOT NULL AUTO_INCREMENT,
    3724  `Name` varchar(255) NOT NULL,
    38   `MenuGroup` int(11) NOT NULL,
    3925  `Schema` varchar(255) NOT NULL,
    4026  `Table` varchar(255) NOT NULL,
    4127  `PrimaryKey` varchar(255) NOT NULL DEFAULT 'Id',
    42   PRIMARY KEY (`Id`),
    43   KEY `MenuGroup` (`MenuGroup`)
    44 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=8 ;
     28  `Sequence` int(11) NOT NULL,
     29  `Group` int(11) NOT NULL,
     30  PRIMARY KEY (`Id`),
     31  KEY `Group` (`Group`)
     32) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=15 ;
     33
     34--
     35-- Vypisuji data pro tabulku `Object`
     36--
     37
     38INSERT INTO `Object` (`Id`, `Name`, `Schema`, `Table`, `PrimaryKey`, `Sequence`, `Group`) VALUES
     39(1, 'Síťová zařízení', 'centrala', 'NetworkDevice', 'Id', 0, 1),
     40(2, 'Rozhraní zařízení', 'centrala', 'NetworkInterface', 'Id', 0, 1),
     41(3, 'Faktury', 'centrala', 'Invoice', 'Id', 0, 2),
     42(4, 'Bankovní účty', 'centrala', 'BankAccount', 'Id', 0, 2),
     43(5, 'Subjekty', 'centrala', 'Subject', 'Id', 0, 4),
     44(6, 'Uživatelé', 'centrala', 'User', 'Id', 0, 4),
     45(7, 'Členové', 'centrala', 'Member', 'Id', 0, 4),
     46(8, 'Skupiny objektů', 'chronis_system', 'ObjectGroup', 'Id', 0, 5),
     47(9, 'Objekty', 'chronis_system', 'Object', 'Id', 0, 5),
     48(10, 'Typy vlastností', 'chronis_system', 'Type', 'Id', 0, 5),
     49(11, 'Skupiny vlastností', 'chronis_system', 'PropertyGroup', 'Id', 0, 5),
     50(12, 'Vlastnosti', 'chronis_system', 'Property', 'Id', 0, 5),
     51(13, 'Typ zařízení', 'centrala', 'NetworkDeviceType', 'Id', 0, 1),
     52(14, 'Typ rozhraní', 'centrala', 'NetworkInterfaceType', 'Id', 0, 1);
     53
     54-- --------------------------------------------------------
     55
     56--
     57-- Struktura tabulky `ObjectGroup`
     58--
     59
     60CREATE TABLE IF NOT EXISTS `ObjectGroup` (
     61  `Id` int(11) NOT NULL AUTO_INCREMENT,
     62  `Name` varchar(255) NOT NULL,
     63  `Parent` int(11) NOT NULL,
     64  `Sequence` int(11) NOT NULL,
     65  PRIMARY KEY (`Id`)
     66) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=6 ;
     67
     68--
     69-- Vypisuji data pro tabulku `ObjectGroup`
     70--
     71
     72INSERT INTO `ObjectGroup` (`Id`, `Name`, `Parent`, `Sequence`) VALUES
     73(1, 'Síť', 0, 0),
     74(2, 'Finance', 0, 0),
     75(3, 'Portál', 0, 0),
     76(4, 'Obecné', 0, 0),
     77(5, 'Systémové', 0, 0);
    4578
    4679-- --------------------------------------------------------
    … …  
    5992  PRIMARY KEY (`Id`),
    6093  KEY `Object` (`Object`),
    61   KEY `PropertyGroup` (`PropertyGroup`)
    62 ) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=23 ;
     94  KEY `PropertyGroup` (`PropertyGroup`),
     95  KEY `Type` (`Type`)
     96) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=41 ;
     97
     98--
     99-- Vypisuji data pro tabulku `Property`
     100--
     101
     102INSERT INTO `Property` (`Id`, `Name`, `Object`, `PropertyGroup`, `Type`, `ColumnName`) VALUES
     103(1, 'IP adresa', 2, 0, 1, 'IPAddress'),
     104(2, 'Kód banky', 4, 0, 1, 'BankCode'),
     105(3, 'Číslo', 4, 0, 1, 'Number'),
     106(4, 'Název', 1, 0, 1, 'Name'),
     107(5, 'Jméno', 5, 0, 1, 'Name'),
     108(6, 'Ulice', 5, 0, 1, 'AddressStreet'),
     109(7, 'Město', 5, 0, 1, 'AddressTown'),
     110(8, 'PSČ', 5, 0, 1, 'AddressPSC'),
     111(9, 'IČ', 5, 0, 1, 'IC'),
     112(10, 'DIČ', 5, 0, 1, 'DIC'),
     113(11, 'WWW', 5, 0, 1, 'WWW'),
     114(12, 'Přihlašovací jméno', 6, 0, 2, 'Login'),
     115(13, 'Jméno', 6, 0, 2, 'Name'),
     116(14, 'Heslo', 6, 0, 15, 'Password'),
     117(15, 'E-mail', 6, 0, 2, 'Email'),
     118(16, 'IP posledního přístupu', 6, 0, 18, 'LastIpAddress'),
     119(17, 'Čas posledního přístupu', 6, 0, 4, 'LastLoginTime'),
     120(18, 'Čas registrace', 6, 0, 4, 'RegistrationTime'),
     121(19, 'Členství', 6, 0, 16, 'Member'),
     122(20, 'Uzamčeno', 6, 0, 7, 'Locked'),
     123(21, 'ICQ', 6, 0, 1, 'ICQ'),
     124(22, 'Telefoní číslo', 6, 0, 2, 'PhoneNumber'),
     125(23, 'Jméno', 9, 0, 2, 'Name'),
     126(24, 'Skupina', 9, 0, 16, 'MenuGroup'),
     127(25, 'Schéma', 9, 0, 2, 'Schema'),
     128(26, 'Tabulka', 9, 0, 2, 'Table'),
     129(27, 'Primární klíč', 9, 0, 2, 'PrimaryKey'),
     130(28, 'Pořadí', 9, 0, 1, 'Sequence'),
     131(29, 'Jméno', 12, 0, 2, 'Name'),
     132(30, 'Objekt', 12, 0, 16, 'Object'),
     133(31, 'Jméno', 8, 0, 2, 'Name'),
     134(32, 'Rodič', 8, 0, 12, 'Parent'),
     135(33, 'Pořadí', 8, 0, 1, 'Sequence'),
     136(34, 'Jméno', 13, 0, 2, 'Name'),
     137(35, 'Ukazovat jako online', 13, 0, 7, 'ShowOnline'),
     138(36, 'Jméno ikony', 13, 0, 2, 'IconName'),
     139(37, 'Jméno', 14, 0, 2, 'Name'),
     140(38, 'Max. rychlost', 14, 0, 1, 'MaxSpeed'),
     141(39, 'Plně duplexní', 14, 0, 7, 'FullDuplex'),
     142(40, 'Barva', 14, 0, 19, '');
    63143
    64144-- --------------------------------------------------------
    … …  
    76156) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=2 ;
    77157
    78 -- --------------------------------------------------------
    79 
    80 --
    81 -- Struktura tabulky `PropertyType`
    82 --
    83 
    84 CREATE TABLE IF NOT EXISTS `PropertyType` (
     158--
     159-- Vypisuji data pro tabulku `PropertyGroup`
     160--
     161
     162INSERT INTO `PropertyGroup` (`Id`, `Object`, `Name`) VALUES
     163(1, 6, 'Základní');
     164
     165-- --------------------------------------------------------
     166
     167--
     168-- Struktura tabulky `Type`
     169--
     170
     171CREATE TABLE IF NOT EXISTS `Type` (
    85172  `Id` int(11) NOT NULL AUTO_INCREMENT,
    86173  `Name` varchar(255) NOT NULL,
    87174  `DbType` varchar(255) NOT NULL,
     175  `Parent` int(11) NOT NULL,
     176  `ParameterTable` varchar(255) NOT NULL,
    88177  PRIMARY KEY (`Id`)
    89 ) ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
     178) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=20 ;
     179
     180--
     181-- Vypisuji data pro tabulku `Type`
     182--
     183
     184INSERT INTO `Type` (`Id`, `Name`, `DbType`, `Parent`, `ParameterTable`) VALUES
     185(1, 'Číslo', 'INT', 0, ''),
     186(2, 'Řetězec', 'VARCHAR(255)', 0, ''),
     187(3, 'Text', 'TEXT', 0, ''),
     188(4, 'Datum a čas', 'DATETIME', 0, ''),
     189(5, 'Desetinné číslo', 'FLOAT', 0, ''),
     190(6, 'Obrázek', 'BLOB', 0, ''),
     191(7, 'Logická hodnota', 'INT', 13, ''),
     192(8, 'IPv4', 'BINARY(4)', 0, ''),
     193(9, 'MAC adresa', 'BINARY(6)', 0, ''),
     194(10, 'IPv6', 'BINARY(16)', 0, ''),
     195(11, 'Soubor', '', 0, ''),
     196(12, 'GPS', '', 0, ''),
     197(13, 'Výčet', 'INT', 0, 'TypeEnumeration'),
     198(14, 'Internetový odkaz', 'VARCHAR(255)', 1, ''),
     199(15, 'Heslo', 'VARCHAR(255)', 2, ''),
     200(16, 'Ukazatel', 'INT', 0, 'TypePointer'),
     201(17, 'Datum', 'DATE', 0, ''),
     202(18, 'Čas', 'TIME', 0, ''),
     203(19, 'Barva', 'INT', 0, '');
     204
     205-- --------------------------------------------------------
     206
     207--
     208-- Struktura tabulky `TypeEnumeration`
     209--
     210
     211CREATE TABLE IF NOT EXISTS `TypeEnumeration` (
     212  `Id` int(11) NOT NULL AUTO_INCREMENT,
     213  `Name` varchar(255) NOT NULL,
     214  `Type` int(11) NOT NULL,
     215  `Sequence` int(11) NOT NULL,
     216  PRIMARY KEY (`Id`),
     217  KEY `Type` (`Type`)
     218) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=3 ;
     219
     220--
     221-- Vypisuji data pro tabulku `TypeEnumeration`
     222--
     223
     224INSERT INTO `TypeEnumeration` (`Id`, `Name`, `Type`, `Sequence`) VALUES
     225(1, 'Nepravda', 7, 0),
     226(2, 'Pravda', 7, 1);
     227
     228-- --------------------------------------------------------
     229
     230--
     231-- Struktura tabulky `TypeFile`
     232--
     233
     234CREATE TABLE IF NOT EXISTS `TypeFile` (
     235  `Id` int(11) NOT NULL AUTO_INCREMENT,
     236  `Name` varchar(255) NOT NULL,
     237  `Size` int(11) NOT NULL,
     238  PRIMARY KEY (`Id`)
     239) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
     240
     241--
     242-- Vypisuji data pro tabulku `TypeFile`
     243--
     244
     245
     246-- --------------------------------------------------------
     247
     248--
     249-- Struktura tabulky `TypeGPS`
     250--
     251
     252CREATE TABLE IF NOT EXISTS `TypeGPS` (
     253  `Id` int(11) NOT NULL AUTO_INCREMENT,
     254  `Latitude` double NOT NULL,
     255  `Longitude` double NOT NULL,
     256  PRIMARY KEY (`Id`)
     257) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
     258
     259--
     260-- Vypisuji data pro tabulku `TypeGPS`
     261--
     262
     263
     264-- --------------------------------------------------------
     265
     266--
     267-- Struktura tabulky `TypePointer`
     268--
     269
     270CREATE TABLE IF NOT EXISTS `TypePointer` (
     271  `Id` int(11) NOT NULL AUTO_INCREMENT,
     272  `Type` int(11) NOT NULL,
     273  `Object` int(11) NOT NULL,
     274  PRIMARY KEY (`Id`),
     275  KEY `Type` (`Type`)
     276) ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
     277
     278--
     279-- Vypisuji data pro tabulku `TypePointer`
     280--
     281
    90282
    91283--
    … …  
    97289--
    98290ALTER TABLE `Object`
    99   ADD CONSTRAINT `Object_ibfk_1` FOREIGN KEY (`MenuGroup`) REFERENCES `MenuGroup` (`Id`);
     291  ADD CONSTRAINT `Object_ibfk_1` FOREIGN KEY (`Group`) REFERENCES `ObjectGroup` (`Id`);
    100292
    101293--
    … …  
    103295--
    104296ALTER TABLE `Property`
    105   ADD CONSTRAINT `Property_ibfk_1` FOREIGN KEY (`Object`) REFERENCES `Object` (`Id`);
     297  ADD CONSTRAINT `Property_ibfk_1` FOREIGN KEY (`Object`) REFERENCES `Object` (`Id`),
     298  ADD CONSTRAINT `Property_ibfk_2` FOREIGN KEY (`Type`) REFERENCES `Type` (`Id`);
    106299
    107300--
    … …  
    110303ALTER TABLE `PropertyGroup`
    111304  ADD CONSTRAINT `PropertyGroup_ibfk_1` FOREIGN KEY (`Object`) REFERENCES `Object` (`Id`);
     305
     306--
     307-- Omezení pro tabulku `TypeEnumeration`
     308--
     309ALTER TABLE `TypeEnumeration`
     310  ADD CONSTRAINT `TypeEnumeration_ibfk_1` FOREIGN KEY (`Type`) REFERENCES `Type` (`Id`);
     311
     312--
     313-- Omezení pro tabulku `TypePointer`
     314--
     315ALTER TABLE `TypePointer`
     316  ADD CONSTRAINT `TypePointer_ibfk_1` FOREIGN KEY (`Type`) REFERENCES `Type` (`Id`);

  • trunk/chronis.lpi

    r5 r6  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="7"/>
     4    <Version Value="9"/>
    55    <General>
    6       <Flags>
    7         <UseDefaultCompilerOptions Value="True"/>
    8       </Flags>
    96      <MainUnit Value="0"/>
    10       <TargetFileExt Value=""/>
    117      <Title Value="chronis"/>
    128      <ResourceType Value="res"/>
    … …  
    1511      <ActiveWindowIndexAtStart Value="0"/>
    1612    </General>
     13    <i18n>
     14      <EnableI18N Value="True"/>
     15      <OutDir Value="languages"/>
     16    </i18n>
    1717    <VersionInfo>
    1818      <Language Value=""/>
    1919      <CharSet Value=""/>
    20       <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
     20      <StringTable ProductVersion=""/>
    2121    </VersionInfo>
     22    <BuildModes Count="1">
     23      <Item1 Name="default" Default="True"/>
     24    </BuildModes>
    2225    <PublishOptions>
    2326      <Version Value="2"/>
    … …  
    3740      </Item1>
    3841    </RequiredPackages>
    39     <Units Count="17">
     42    <Units Count="13">
    4043      <Unit0>
    4144        <Filename Value="chronis.lpr"/>
    … …  
    4649        <WindowIndex Value="1"/>
    4750        <TopLine Value="1"/>
    48         <CursorPos X="59" Y="24"/>
    49         <UsageCount Value="149"/>
    50         <Loaded Value="True"/>
     51        <CursorPos X="16" Y="5"/>
     52        <UsageCount Value="274"/>
     53        <Loaded Value="True"/>
     54        <LoadedDesigner Value="True"/>
    5155      </Unit0>
    5256      <Unit1>
    53         <Filename Value="umainform.pas"/>
    54         <ComponentName Value="MainForm"/>
    55         <ResourceBaseClass Value="Form"/>
    56         <UnitName Value="UMainForm"/>
    57         <WindowIndex Value="0"/>
    58         <TopLine Value="1"/>
    59         <CursorPos X="29" Y="1"/>
    60         <UsageCount Value="15"/>
     57        <Filename Value="USqlDatabase.pas"/>
     58        <UnitName Value="USqlDatabase"/>
     59        <WindowIndex Value="0"/>
     60        <TopLine Value="330"/>
     61        <CursorPos X="1" Y="347"/>
     62        <UsageCount Value="52"/>
    6163      </Unit1>
    6264      <Unit2>
    63         <Filename Value="uloginform.pas"/>
    64         <ComponentName Value="LoginForm"/>
    65         <ResourceBaseClass Value="Form"/>
    66         <UnitName Value="ULoginForm"/>
    67         <WindowIndex Value="0"/>
    68         <TopLine Value="1"/>
    69         <CursorPos X="37" Y="1"/>
    70         <UsageCount Value="15"/>
    71       </Unit2>
    72       <Unit3>
    73         <Filename Value="USqlDatabase.pas"/>
    74         <UnitName Value="USqlDatabase"/>
    75         <WindowIndex Value="0"/>
    76         <TopLine Value="330"/>
    77         <CursorPos X="1" Y="347"/>
    78         <UsageCount Value="81"/>
    79       </Unit3>
    80       <Unit4>
    8165        <Filename Value="UMainForm.pas"/>
    8266        <ComponentName Value="MainForm"/>
    … …  
    8771        <TopLine Value="118"/>
    8872        <CursorPos X="25" Y="144"/>
    89         <UsageCount Value="135"/>
    90       </Unit4>
    91       <Unit5>
     73        <UsageCount Value="106"/>
     74      </Unit2>
     75      <Unit3>
    9276        <Filename Value="ULoginForm.pas"/>
    9377        <ComponentName Value="LoginForm"/>
    … …  
    9882        <TopLine Value="1"/>
    9983        <CursorPos X="24" Y="14"/>
    100         <UsageCount Value="135"/>
     84        <UsageCount Value="106"/>
     85      </Unit3>
     86      <Unit4>
     87        <Filename Value="Common/UPersistentForm.pas"/>
     88        <IsPartOfProject Value="True"/>
     89        <UnitName Value="UPersistentForm"/>
     90        <WindowIndex Value="0"/>
     91        <TopLine Value="42"/>
     92        <CursorPos X="33" Y="46"/>
     93        <UsageCount Value="264"/>
     94      </Unit4>
     95      <Unit5>
     96        <Filename Value="Common/USqlDatabase.pas"/>
     97        <IsPartOfProject Value="True"/>
     98        <UnitName Value="USqlDatabase"/>
     99        <EditorIndex Value="2"/>
     100        <WindowIndex Value="0"/>
     101        <TopLine Value="264"/>
     102        <CursorPos X="3" Y="307"/>
     103        <UsageCount Value="264"/>
     104        <Loaded Value="True"/>
    101105      </Unit5>
    102106      <Unit6>
    103         <Filename Value="Common/UPersistentForm.pas"/>
    104         <IsPartOfProject Value="True"/>
    105         <UnitName Value="UPersistentForm"/>
    106         <WindowIndex Value="0"/>
    107         <TopLine Value="42"/>
    108         <CursorPos X="33" Y="46"/>
    109         <UsageCount Value="139"/>
     107        <Filename Value="Common/URegistry.pas"/>
     108        <IsPartOfProject Value="True"/>
     109        <UnitName Value="URegistry"/>
     110        <WindowIndex Value="0"/>
     111        <TopLine Value="32"/>
     112        <CursorPos X="21" Y="13"/>
     113        <UsageCount Value="264"/>
    110114      </Unit6>
    111115      <Unit7>
    112         <Filename Value="Common/USqlDatabase.pas"/>
    113         <IsPartOfProject Value="True"/>
    114         <UnitName Value="USqlDatabase"/>
    115         <EditorIndex Value="2"/>
    116         <WindowIndex Value="0"/>
    117         <TopLine Value="385"/>
    118         <CursorPos X="25" Y="373"/>
    119         <UsageCount Value="139"/>
    120         <Loaded Value="True"/>
     116        <Filename Value="Forms/UItemView.pas"/>
     117        <IsPartOfProject Value="True"/>
     118        <ComponentName Value="ItemViewForm"/>
     119        <ResourceBaseClass Value="Form"/>
     120        <UnitName Value="UItemView"/>
     121        <EditorIndex Value="0"/>
     122        <WindowIndex Value="0"/>
     123        <TopLine Value="65"/>
     124        <CursorPos X="41" Y="68"/>
     125        <UsageCount Value="327"/>
     126        <Loaded Value="True"/>
     127        <LoadedDesigner Value="True"/>
    121128      </Unit7>
    122129      <Unit8>
    123         <Filename Value="Common/URegistry.pas"/>
    124         <IsPartOfProject Value="True"/>
    125         <UnitName Value="URegistry"/>
    126         <WindowIndex Value="0"/>
    127         <TopLine Value="32"/>
    128         <CursorPos X="21" Y="13"/>
    129         <UsageCount Value="139"/>
     130        <Filename Value="Forms/UItemEdit.pas"/>
     131        <IsPartOfProject Value="True"/>
     132        <ComponentName Value="ItemEditForm"/>
     133        <ResourceBaseClass Value="Form"/>
     134        <UnitName Value="UItemEdit"/>
     135        <EditorIndex Value="1"/>
     136        <WindowIndex Value="0"/>
     137        <TopLine Value="56"/>
     138        <CursorPos X="23" Y="78"/>
     139        <UsageCount Value="318"/>
     140        <Loaded Value="True"/>
     141        <LoadedDesigner Value="True"/>
    130142      </Unit8>
    131143      <Unit9>
    132         <Filename Value="Forms/UItemView.pas"/>
    133         <IsPartOfProject Value="True"/>
    134         <ComponentName Value="ItemViewForm"/>
    135         <ResourceBaseClass Value="Form"/>
    136         <UnitName Value="UItemView"/>
    137         <EditorIndex Value="0"/>
    138         <WindowIndex Value="0"/>
    139         <TopLine Value="82"/>
    140         <CursorPos X="27" Y="112"/>
    141         <UsageCount Value="35"/>
    142         <Loaded Value="True"/>
     144        <Filename Value="Forms/ULoginForm.pas"/>
     145        <IsPartOfProject Value="True"/>
     146        <HasResources Value="True"/>
     147        <UnitName Value="ULoginForm"/>
     148        <UsageCount Value="317"/>
    143149      </Unit9>
    144150      <Unit10>
    145         <Filename Value="Forms/UItemEdit.pas"/>
    146         <IsPartOfProject Value="True"/>
    147         <ComponentName Value="ItemEditForm"/>
    148         <ResourceBaseClass Value="Form"/>
    149         <UnitName Value="UItemEdit"/>
    150         <EditorIndex Value="1"/>
    151         <WindowIndex Value="0"/>
    152         <TopLine Value="125"/>
    153         <CursorPos X="16" Y="137"/>
    154         <UsageCount Value="26"/>
    155         <Loaded Value="True"/>
     151        <Filename Value="Forms/UMainForm.pas"/>
     152        <IsPartOfProject Value="True"/>
     153        <ComponentName Value="MainForm"/>
     154        <HasResources Value="True"/>
     155        <ResourceBaseClass Value="Form"/>
     156        <UnitName Value="UMainForm"/>
     157        <IsVisibleTab Value="True"/>
     158        <EditorIndex Value="3"/>
     159        <WindowIndex Value="0"/>
     160        <TopLine Value="235"/>
     161        <CursorPos X="28" Y="245"/>
     162        <UsageCount Value="317"/>
     163        <Loaded Value="True"/>
     164        <LoadedDesigner Value="True"/>
    156165      </Unit10>
    157166      <Unit11>
    158         <Filename Value="Forms/ULoginForm.pas"/>
    159         <IsPartOfProject Value="True"/>
    160         <HasResources Value="True"/>
    161         <UnitName Value="ULoginForm"/>
    162         <UsageCount Value="25"/>
     167        <Filename Value="Common/UTreeState.pas"/>
     168        <IsPartOfProject Value="True"/>
     169        <UnitName Value="UTreeState"/>
     170        <UsageCount Value="314"/>
    163171      </Unit11>
    164172      <Unit12>
    165         <Filename Value="Forms/UMainForm.pas"/>
    166         <IsPartOfProject Value="True"/>
    167         <ComponentName Value="MainForm"/>
    168         <HasResources Value="True"/>
    169         <ResourceBaseClass Value="Form"/>
    170         <UnitName Value="UMainForm"/>
    171         <EditorIndex Value="3"/>
    172         <WindowIndex Value="0"/>
    173         <TopLine Value="77"/>
    174         <CursorPos X="33" Y="92"/>
    175         <UsageCount Value="25"/>
    176         <Loaded Value="True"/>
     173        <Filename Value="Forms/UItemAdd.pas"/>
     174        <IsPartOfProject Value="True"/>
     175        <ComponentName Value="ItemAddForm"/>
     176        <ResourceBaseClass Value="Form"/>
     177        <UnitName Value="UItemAdd"/>
     178        <EditorIndex Value="4"/>
     179        <WindowIndex Value="0"/>
     180        <TopLine Value="47"/>
     181        <CursorPos X="6" Y="48"/>
     182        <UsageCount Value="313"/>
     183        <Loaded Value="True"/>
     184        <LoadedDesigner Value="True"/>
    177185      </Unit12>
    178       <Unit13>
    179         <Filename Value="../../../lazarus/trunk/lcl/controls.pp"/>
    180         <UnitName Value="Controls"/>
    181         <WindowIndex Value="0"/>
    182         <TopLine Value="1399"/>
    183         <CursorPos X="14" Y="1418"/>
    184         <SyntaxHighlighter Value="FreePascal"/>
    185         <UsageCount Value="10"/>
    186         <DefaultSyntaxHighlighter Value="Text"/>
    187       </Unit13>
    188       <Unit14>
    189         <Filename Value="../../../lazarus/trunk/lcl/spin.pp"/>
    190         <UnitName Value="Spin"/>
    191         <WindowIndex Value="0"/>
    192         <TopLine Value="129"/>
    193         <CursorPos X="3" Y="148"/>
    194         <SyntaxHighlighter Value="FreePascal"/>
    195         <UsageCount Value="10"/>
    196         <DefaultSyntaxHighlighter Value="Text"/>
    197       </Unit14>
    198       <Unit15>
    199         <Filename Value="Common/UTreeState.pas"/>
    200         <IsPartOfProject Value="True"/>
    201         <UnitName Value="UTreeState"/>
    202         <UsageCount Value="22"/>
    203         <DefaultSyntaxHighlighter Value="Text"/>
    204       </Unit15>
    205       <Unit16>
    206         <Filename Value="Forms/UItemAdd.pas"/>
    207         <IsPartOfProject Value="True"/>
    208         <ComponentName Value="ItemAddForm"/>
    209         <ResourceBaseClass Value="Form"/>
    210         <UnitName Value="UItemAdd"/>
    211         <IsVisibleTab Value="True"/>
    212         <EditorIndex Value="4"/>
    213         <WindowIndex Value="0"/>
    214         <TopLine Value="116"/>
    215         <CursorPos X="27" Y="130"/>
    216         <UsageCount Value="21"/>
    217         <Loaded Value="True"/>
    218       </Unit16>
    219186    </Units>
    220187    <JumpHistory Count="30" HistoryIndex="29">
    221188      <Position1>
    222         <Filename Value="Forms/UItemEdit.pas"/>
    223         <Caret Line="78" Column="1" TopLine="57"/>
     189        <Filename Value="Forms/UItemAdd.pas"/>
     190        <Caret Line="51" Column="33" TopLine="31"/>
    224191      </Position1>
    225192      <Position2>
    226         <Filename Value="Forms/UItemEdit.pas"/>
    227         <Caret Line="79" Column="1" TopLine="57"/>
     193        <Filename Value="Forms/UItemAdd.pas"/>
     194        <Caret Line="57" Column="32" TopLine="38"/>
    228195      </Position2>
    229196      <Position3>
    230         <Filename Value="Forms/UItemEdit.pas"/>
    231         <Caret Line="81" Column="1" TopLine="57"/>
     197        <Filename Value="Forms/UItemAdd.pas"/>
     198        <Caret Line="23" Column="1" TopLine="5"/>
    232199      </Position3>
    233200      <Position4>
    234         <Filename Value="Forms/UItemEdit.pas"/>
    235         <Caret Line="85" Column="1" TopLine="57"/>
     201        <Filename Value="Forms/UItemAdd.pas"/>
     202        <Caret Line="88" Column="1" TopLine="81"/>
    236203      </Position4>
    237204      <Position5>
    238         <Filename Value="Forms/UItemEdit.pas"/>
    239         <Caret Line="86" Column="1" TopLine="57"/>
     205        <Filename Value="Forms/UItemAdd.pas"/>
     206        <Caret Line="121" Column="27" TopLine="97"/>
    240207      </Position5>
    241208      <Position6>
    242         <Filename Value="Forms/UItemEdit.pas"/>
    243         <Caret Line="87" Column="1" TopLine="57"/>
     209        <Filename Value="Forms/UItemAdd.pas"/>
     210        <Caret Line="124" Column="31" TopLine="97"/>
    244211      </Position6>
    245212      <Position7>
    246         <Filename Value="Forms/UItemEdit.pas"/>
    247         <Caret Line="89" Column="1" TopLine="57"/>
     213        <Filename Value="Forms/UItemAdd.pas"/>
     214        <Caret Line="125" Column="32" TopLine="104"/>
    248215      </Position7>
    249216      <Position8>
    250         <Filename Value="Forms/UItemEdit.pas"/>
    251         <Caret Line="90" Column="1" TopLine="58"/>
     217        <Filename Value="Forms/UItemAdd.pas"/>
     218        <Caret Line="126" Column="32" TopLine="105"/>
    252219      </Position8>
    253220      <Position9>
    254         <Filename Value="Forms/UItemEdit.pas"/>
    255         <Caret Line="91" Column="1" TopLine="59"/>
     221        <Filename Value="Forms/UItemAdd.pas"/>
     222        <Caret Line="125" Column="32" TopLine="104"/>
    256223      </Position9>
    257224      <Position10>
    258         <Filename Value="Forms/UMainForm.pas"/>
    259         <Caret Line="237" Column="22" TopLine="220"/>
     225        <Filename Value="Forms/UItemEdit.pas"/>
     226        <Caret Line="148" Column="1" TopLine="112"/>
    260227      </Position10>
    261228      <Position11>
    262         <Filename Value="Forms/UMainForm.pas"/>
    263         <Caret Line="241" Column="14" TopLine="224"/>
     229        <Filename Value="Forms/UItemEdit.pas"/>
     230        <Caret Line="9" Column="50" TopLine="1"/>
    264231      </Position11>
    265232      <Position12>
    266         <Filename Value="Forms/UMainForm.pas"/>
    267         <Caret Line="230" Column="40" TopLine="208"/>
     233        <Filename Value="Forms/UItemAdd.pas"/>
     234        <Caret Line="9" Column="27" TopLine="1"/>
    268235      </Position12>
    269236      <Position13>
    270237        <Filename Value="Forms/UItemAdd.pas"/>
    271         <Caret Line="11" Column="15" TopLine="1"/>
     238        <Caret Line="138" Column="28" TopLine="116"/>
    272239      </Position13>
    273240      <Position14>
    274         <Filename Value="Forms/UItemAdd.pas"/>
    275         <Caret Line="14" Column="15" TopLine="1"/>
     241        <Filename Value="Forms/UItemEdit.pas"/>
     242        <Caret Line="137" Column="16" TopLine="125"/>
    276243      </Position14>
    277244      <Position15>
    278         <Filename Value="Forms/UItemAdd.pas"/>
    279         <Caret Line="15" Column="15" TopLine="1"/>
     245        <Filename Value="Forms/UItemEdit.pas"/>
     246        <Caret Line="78" Column="23" TopLine="56"/>
    280247      </Position15>
    281248      <Position16>
    282         <Filename Value="Forms/UItemAdd.pas"/>
    283         <Caret Line="38" Column="9" TopLine="3"/>
     249        <Filename Value="Forms/UMainForm.pas"/>
     250        <Caret Line="339" Column="43" TopLine="214"/>
    284251      </Position16>
    285252      <Position17>
    286253        <Filename Value="Forms/UMainForm.pas"/>
    287         <Caret Line="191" Column="10" TopLine="189"/>
     254        <Caret Line="340" Column="43" TopLine="317"/>
    288255      </Position17>
    289256      <Position18>
    290         <Filename Value="Forms/UItemAdd.pas"/>
    291         <Caret Line="9" Column="25" TopLine="1"/>
     257        <Filename Value="Forms/UMainForm.pas"/>
     258        <Caret Line="341" Column="43" TopLine="318"/>
    292259      </Position18>
    293260      <Position19>
    294         <Filename Value="Forms/UItemAdd.pas"/>
    295         <Caret Line="51" Column="33" TopLine="31"/>
     261        <Filename Value="Forms/UMainForm.pas"/>
     262        <Caret Line="342" Column="43" TopLine="319"/>
    296263      </Position19>
    297264      <Position20>
    298         <Filename Value="Forms/UItemAdd.pas"/>
    299         <Caret Line="57" Column="32" TopLine="38"/>
     265        <Filename Value="Forms/UMainForm.pas"/>
     266        <Caret Line="343" Column="43" TopLine="320"/>
    300267      </Position20>
    301268      <Position21>
    302         <Filename Value="Forms/UItemAdd.pas"/>
    303         <Caret Line="23" Column="1" TopLine="5"/>
     269        <Filename Value="Forms/UMainForm.pas"/>
     270        <Caret Line="344" Column="43" TopLine="321"/>
    304271      </Position21>
    305272      <Position22>
    306         <Filename Value="Forms/UItemAdd.pas"/>
    307         <Caret Line="88" Column="1" TopLine="81"/>
     273        <Filename Value="Forms/UMainForm.pas"/>
     274        <Caret Line="345" Column="43" TopLine="322"/>
    308275      </Position22>
    309276      <Position23>
    310         <Filename Value="Forms/UItemAdd.pas"/>
    311         <Caret Line="121" Column="27" TopLine="97"/>
     277        <Filename Value="Forms/UMainForm.pas"/>
     278        <Caret Line="346" Column="43" TopLine="323"/>
    312279      </Position23>
    313280      <Position24>
    314         <Filename Value="Forms/UItemAdd.pas"/>
    315         <Caret Line="124" Column="31" TopLine="97"/>
     281        <Filename Value="Forms/UMainForm.pas"/>
     282        <Caret Line="345" Column="43" TopLine="322"/>
    316283      </Position24>
    317284      <Position25>
    318         <Filename Value="Forms/UItemAdd.pas"/>
    319         <Caret Line="125" Column="32" TopLine="104"/>
     285        <Filename Value="Forms/UMainForm.pas"/>
     286        <Caret Line="344" Column="43" TopLine="321"/>
    320287      </Position25>
    321288      <Position26>
    322         <Filename Value="Forms/UItemAdd.pas"/>
    323         <Caret Line="126" Column="32" TopLine="105"/>
     289        <Filename Value="Forms/UMainForm.pas"/>
     290        <Caret Line="345" Column="43" TopLine="322"/>
    324291      </Position26>
    325292      <Position27>
    326         <Filename Value="Forms/UItemAdd.pas"/>
    327         <Caret Line="125" Column="32" TopLine="104"/>
     293        <Filename Value="Forms/UMainForm.pas"/>
     294        <Caret Line="352" Column="43" TopLine="329"/>
    328295      </Position27>
    329296      <Position28>
    330         <Filename Value="Forms/UItemEdit.pas"/>
    331         <Caret Line="148" Column="1" TopLine="112"/>
     297        <Filename Value="Forms/UMainForm.pas"/>
     298        <Caret Line="218" Column="1" TopLine="195"/>
    332299      </Position28>
    333300      <Position29>
    334         <Filename Value="Forms/UItemEdit.pas"/>
    335         <Caret Line="9" Column="50" TopLine="1"/>
     301        <Filename Value="Forms/UMainForm.pas"/>
     302        <Caret Line="79" Column="21" TopLine="67"/>
    336303      </Position29>
    337304      <Position30>
    338         <Filename Value="Forms/UItemAdd.pas"/>
    339         <Caret Line="9" Column="27" TopLine="1"/>
     305        <Filename Value="Forms/UMainForm.pas"/>
     306        <Caret Line="81" Column="21" TopLine="69"/>
    340307      </Position30>
    341308    </JumpHistory>
    342309  </ProjectOptions>
    343310  <CompilerOptions>
    344     <Version Value="8"/>
     311    <Version Value="9"/>
    345312    <Target>
    346313      <Filename Value="chronis"/>
    347314    </Target>
    348315    <SearchPaths>
    349       <IncludeFiles Value="$(ProjOutDir)/"/>
     316      <IncludeFiles Value="$(ProjOutDir)"/>
    350317      <Libraries Value="/usr/lib/mysql/;/usr/lib64/mysql/"/>
    351       <OtherUnitFiles Value="Common/;Forms/"/>
     318      <OtherUnitFiles Value="Common;Forms"/>
    352319      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    353320    </SearchPaths>
    354     <Parsing>
    355       <SyntaxOptions>
    356         <UseAnsiStrings Value="True"/>
    357       </SyntaxOptions>
    358     </Parsing>
    359321    <CodeGeneration>
    360322      <Checks>
Note: See TracChangeset for help on using the changeset viewer.