object FormUser: TFormUser
  Left = 488
  Top = 575
  Width = 681
  Height = 351
  Caption = 'U'#382'ivatelsk'#253' slovn'#237'k'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 16
  object UserTable: TTntDBGrid
    Left = 0
    Top = 34
    Width = 673
    Height = 256
    HelpContext = 100
    Align = alClient
    DataSource = DataSource1
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnDblClick = UserTableDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'T1.Term'
        Title.Caption = 'anglicky'
        Width = 272
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'T2.Term'
        Title.Caption = #269'esky'
        Title.Caption_UTF7 = '+AQ0-esky'
        Width = 268
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Comment'
        Title.Caption = 'pozn'#225'mka'
        Title.Caption_UTF7 = 'pozn+AOE-mka'
        Width = 110
        Visible = True
      end>
  end
  object TBDock1: TTBDock
    Left = 0
    Top = 0
    Width = 673
    Height = 34
    object TBToolbar1: TTBToolbar
      Left = 0
      Top = 0
      Caption = 'TBToolbar1'
      DockableTo = [dpTop]
      DockMode = dmCannotFloat
      DragHandleStyle = dhNone
      FullSize = True
      Images = FormDictionary.ToolbarImages24
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      DockTextAlign = taLeftJustify
      object TBItem3: TTBItem
        Action = FormDictionary.UserImport
      end
      object TBItem2: TTBItem
        Action = FormDictionary.UserExport
      end
      object TBSeparatorItem2: TTBSeparatorItem
      end
      object TBItem5: TTBItem
        Action = ShowHelp
      end
      object TBSeparatorItem1: TTBSeparatorItem
      end
      object EditTermbButon: TTBItem
        Action = EditRecord
      end
      object TBItem4: TTBItem
        Action = AddNewRecord
      end
      object DeleteTermButton: TTBItem
        Action = DeleteRecord
      end
      object TBItem6: TTBItem
        Action = DeleteAll
      end
      object TBSeparatorItem3: TTBSeparatorItem
      end
      object TBItem9: TTBItem
        Action = RefreshDataset
      end
      object SortByMenu: TTBSubmenuItem
        Caption = 'Se'#345'adit z'#225'znamy'
        DropdownCombo = True
        Hint = 'Se'#345'adit z'#225'znamy'
        ImageIndex = 61
        object SortByW1Item: TTBItem
          Action = SortByW1
          Images = FormDictionary.ToolbarImages16
        end
        object SortByW2Item: TTBItem
          Action = SortByW2
          Images = FormDictionary.ToolbarImages16
        end
      end
    end
  end
  object DBNavigator: TDBNavigator
    Left = 344
    Top = 8
    Width = 200
    Height = 25
    DataSource = DataSource1
    ConfirmDelete = False
    TabOrder = 2
    Visible = False
  end
  object UserStatusBar: TabfStatusBar
    Left = 0
    Top = 290
    Width = 673
    Height = 28
    Panels = <
      item
        LockKeyStyle.Caption = 'NUM'
        Name = 'InfoPanel'
        Progress = 0
        ProgressBarStyle.Caption = '%d%%'
        Width = 140
      end>
    SimplePanel = False
  end
  object DataSource1: TDataSource
    DataSet = UserADODataSet
    Left = 608
  end
  object UserADODataSet: TADODataSet
    CursorType = ctStatic
    AfterDelete = UserADODataSetAfterDelete
    AfterScroll = UserADODataSetAfterScroll
    AfterRefresh = UserADODataSetAfterDelete
    CommandText = 
      'SELECT T.ID, T1.Term, T2.Term, T.Reference, T.Profession, T.Arti' +
      'cle1, T.Article2, T.Key1, T.Key2, T.Comment, T.Modified'#13#10'FROM [T' +
      'ranslation] AS T, Term1 AS T1, Term2 AS T2'#13#10'WHERE (((T.Modified)' +
      '=true) AND ((T1.ID)=[T].[Term1]) AND ((T2.ID)=[T].[Term2]));'
    ParamCheck = False
    Parameters = <>
    Left = 584
  end
  object ActionList1: TActionList
    Images = FormDictionary.ToolbarImages24
    Left = 632
    object AddNewRecord: TAction
      Caption = 'Nov'#253
      Hint = 'P'#345'idat nov'#253' z'#225'znam'
      ImageIndex = 41
      ShortCut = 16466
      OnExecute = AddNewRecordExecute
    end
    object DeleteRecord: TAction
      Caption = 'Odstranit'
      Enabled = False
      Hint = 'Odstranit vybran'#253' z'#225'znam'
      ImageIndex = 40
      OnExecute = DeleteRecordExecute
    end
    object EditRecord: TAction
      Caption = 'Upravit'
      Enabled = False
      Hint = 'Upravit vybran'#253' z'#225'znam'
      ImageIndex = 42
      ShortCut = 16453
      OnExecute = EditRecordExecute
    end
    object RefreshDataset: TAction
      Caption = 'Obnovit'
      Hint = 'Obnovit'
      ImageIndex = 59
      ShortCut = 116
      OnExecute = RefreshDatasetExecute
    end
    object ShowHelp: TAction
      Caption = 'N'#225'pov'#283'da'
      Hint = 'N'#225'pov'#283'da'
      ImageIndex = 33
      OnExecute = ShowHelpExecute
    end
    object DeleteAll: TAction
      Caption = 'Odstranit v'#353'e'
      Enabled = False
      Hint = 'Odstranit v'#353'echny z'#225'znamy z u'#382'ivatelsk'#233'ho slovn'#237'ku'
      ImageIndex = 51
      OnExecute = DeleteAllExecute
    end
    object SortByW1: TAction
      Caption = 'Anglicky'
      ImageIndex = 1
      OnExecute = SortByW1Execute
    end
    object SortByW2: TAction
      Caption = #268'esky'
      ImageIndex = 0
      OnExecute = SortByW2Execute
    end
  end
  object UserDeleteAllQuery: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password=pajapa;User ID=pavel;D' +
      'ata Source=C:\Work\Delphi\Mill6\Data\PROF_AC2.dic;Persist Securi' +
      'ty Info=True;Jet OLEDB:System database=c:\work\delphi\mill6\mill' +
      '6.inf;Jet OLEDB:Database Password=*tylpyhea*'
    DataSource = DataSource1
    ParamCheck = False
    Parameters = <>
    SQL.Strings = (
      'DELETE Translation.*'
      'FROM [Translation]'
      'WHERE (((Translation.Profession)=0));')
    Left = 552
  end
end