object FormWUdalosti: TFormWUdalosti
  Left = 291
  Top = 159
  BorderStyle = bsDialog
  Caption = 'Nov� ud�lost'
  ClientHeight = 212
  ClientWidth = 331
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 313
    Height = 165
    Shape = bsFrame
  end
  object LabelPlus8: TLabelPlus
    Left = 76
    Top = 68
    Width = 29
    Height = 13
    Caption = '��&slo'
    FocusControl = EditCislo
    Attached = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelPlus1: TLabelPlus
    Left = 76
    Top = 120
    Width = 57
    Height = 13
    Caption = '&Typ ud�losti'
    FocusControl = EditTyp
    Attached = True
  end
  object Image1: TImage
    Left = 24
    Top = 24
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.ico>}
  end
  object Label1: TLabel
    Left = 76
    Top = 24
    Width = 237
    Height = 41
    AutoSize = False
    Caption = 
      'Zde p�i�a�te nov� �d�losti ��slo. Pokud zvol�te i typ, p�ednasta' +
      'v� se nov� ud�lost podle n�j.'
    WordWrap = True
  end
  object Grabber: TBrowserDataGrabber
    Left = 15
    Top = 117
    Width = 37
    Height = 45
    FieldNames.Strings = (
      'priorita'
      'timing'
      'konfig')
    GroupIndex = 0
  end
  object BtnOk: TButton
    Left = 167
    Top = 180
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    Enabled = False
    TabOrder = 2
    OnClick = BtnOkClick
  end
  object BtnCancel: TButton
    Left = 247
    Top = 180
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Storno'
    ModalResult = 2
    TabOrder = 3
  end
  object EditCislo: TBrowserCounterEdit
    Left = 76
    Top = 84
    Width = 121
    Height = 21
    Separator = #0
    AllowNull = False
    FieldName = 'id'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    InputFilter = ifAlphaNumeric
    LookupBrowser = DMmain.BrRady
    LookupDatabase = 'BRAIN_'
    MaxLength = 25
    ParentFont = False
    Purpose = 'Ud�losti'
    TabOrder = 0
    OnChange = EditCisloChange
  end
  object EditTyp: TBrowserLookupEdit
    Left = 76
    Top = 136
    Width = 121
    Height = 21
    Separator = #0
    AllVisible = False
    BrowserOnly = False
    ButtonHint = 'Vybrat z ��seln�ku'
    FieldName = 'typ'
    InputFilter = ifAlphaNumeric
    LookupBrowser = DMmain.BrEventsTypes
    LookupDatabase = 'BRAIN_'
    LookupField = 'id'
    LookupSQL.Strings = (
      'SELECT id, popis'
      'FROM typy_ukolu'
      'ORDER BY id')
    MaxLength = 0
    Params = <>
    TabOrder = 1
  end
  object Qry: TQuery
    DatabaseName = 'BRAIN_'
    SQL.Strings = (
      'SELECT priorita, timing, konfig'
      'FROM typy_ukolu'
      'WHERE id = :id')
    Left = 12
    Top = 180
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptUnknown
      end>
  end
end