Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/Pantheon.csy/RCDATA/TNASTAVENIFORM/TNASTAVENIFORM.txt

Text File | 1999-04-22 | 34.4 KB | 1,230 lines

object NastaveniForm: TNastaveniForm
  Left = 227
  Top = 129
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Nastaven�'
  ClientHeight = 321
  ClientWidth = 416
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = UzivateleMainMenu
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 416
    Height = 281
    ActivePage = NastaveniProgramuTS
    Align = alTop
    TabOrder = 0
    OnChange = PageControlChange
    object NastaveniProgramuTS: TTabSheet
      Caption = 'Nastaven� programu'
      object NastaveniCoolBar: TCoolBar
        Left = 0
        Top = 0
        Width = 408
        Height = 26
        Bands = <
          item
            Control = ToolBar3
            ImageIndex = -1
            MinHeight = 22
            Width = 404
          end>
        object ToolBar3: TToolBar
          Left = 0
          Top = 0
          Width = 400
          Height = 22
          EdgeBorders = []
          EdgeInner = esNone
          EdgeOuter = esNone
          Flat = True
          HotImages = PomocneDM.BtnHotImages
          Images = PomocneDM.BtnImages
          TabOrder = 0
          object ObecneNastaveniSaveSBtn: TToolButton
            Left = 0
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Ulo�en� nastaven�'
            Caption = 'Ulo�it'
            ImageIndex = 9
            ParentShowHint = False
            ShowHint = True
            OnClick = ObecneNastaveniSaveSBtnClick
          end
          object ObecneNastaveniLoadSBtn: TToolButton
            Left = 23
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Obnoven� nastaven�'
            Caption = 'Obnovit'
            ImageIndex = 24
            ParentShowHint = False
            ShowHint = True
            OnClick = ObecneNastaveniLoadSBtnClick
          end
          object PrevzitNastaveniSBtn: TToolButton
            Left = 46
            Top = 0
            Width = 23
            Height = 22
            Hint = 'P�evz�t v�eobecn� nastaven�'#13#10'od jin�ho u�ivatele'
            Caption = 'P�evz�t'
            ImageIndex = 25
            ParentShowHint = False
            ShowHint = True
            OnClick = PrevzitNastaveniSBtnClick
          end
        end
      end
      object NastaveniProgramuPanel: TPanel
        Left = 0
        Top = 26
        Width = 408
        Height = 227
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object ObecneGrB: TGroupBox
          Left = 8
          Top = 8
          Width = 169
          Height = 69
          Caption = 'Obecn�'
          TabOrder = 0
          object TlacitkaChB: TCheckBox
            Left = 8
            Top = 18
            Width = 97
            Height = 17
            Caption = 'Velk� tla��tka'
            TabOrder = 0
            OnClick = ObecneNastaveniChanged
          end
          object NeuplneHledaniChB: TCheckBox
            Left = 8
            Top = 40
            Width = 153
            Height = 17
            Caption = 'Hled�n� podle ��sti n�zvu'
            TabOrder = 1
            OnClick = ObecneNastaveniChanged
          end
        end
        object ZalohaGrB: TGroupBox
          Left = 8
          Top = 80
          Width = 393
          Height = 69
          Caption = 'Z�loha dat'
          TabOrder = 1
          object KopieLabel: TLabel
            Left = 8
            Top = 20
            Width = 133
            Height = 13
            Caption = 'Po�et uchov�van�ch z�loh:'
          end
          object AdresarLabel: TLabel
            Left = 8
            Top = 44
            Width = 71
            Height = 13
            Caption = 'C�lov� adres��:'
          end
          object BrowseBtn: TSpeedButton
            Left = 364
            Top = 40
            Width = 21
            Height = 21
            Hint = 'Vybrat slo�ku'
            Flat = True
            Glyph.Data = {
              F6000000424DF600000000000000760000002800000010000000100000000100
              0400000000008000000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
              6666000000000006666600333333333066660B033333333306660FB033333333
              30660BFB0333333333060FBFB000000000000BFBFBFBFB0666660FBFBFBFBF06
              66660BFB00000006666660006666666600066666666666666006666666660666
              0606666666666000666666666666666666666666666666666666}
            ParentShowHint = False
            ShowHint = True
            OnClick = BrowseBtnClick
          end
          object PocetZalohSpinEdit: TRxSpinEdit
            Left = 160
            Top = 14
            Width = 49
            Height = 21
            Alignment = taRightJustify
            Increment = 1.000000000000000000
            MaxValue = 20.000000000000000000
            MinValue = 1.000000000000000000
            TabOrder = 0
            Value = 1.000000000000000000
            OnChange = ObecneNastaveniChanged
          end
          object BackupPathEdit: TEdit
            Left = 160
            Top = 40
            Width = 201
            Height = 21
            TabOrder = 1
            OnChange = ObecneNastaveniChanged
          end
        end
        object ObrazkyGrB: TGroupBox
          Left = 184
          Top = 8
          Width = 217
          Height = 69
          Caption = 'Obr�zky'
          TabOrder = 2
          object ProdlevaLabel: TLabel
            Left = 8
            Top = 44
            Width = 86
            Height = 13
            Caption = 'Prodleva n�hledu:'
          end
          object NahledChB: TCheckBox
            Left = 7
            Top = 18
            Width = 166
            Height = 14
            Alignment = taLeftJustify
            Caption = 'Automaticky ukazovat n�hled'
            TabOrder = 0
            OnClick = ObecneNastaveniChanged
          end
          object ProdlevaSpinEdit: TRxSpinEdit
            Left = 160
            Top = 40
            Width = 49
            Height = 21
            Alignment = taRightJustify
            Decimal = 1
            Increment = 0.100000000000000000
            MaxValue = 10.000000000000000000
            MinValue = 0.100000000000000000
            TabOrder = 1
            ValueType = vtFloat
            Value = 0.100000000000000000
            OnChange = ObecneNastaveniChanged
          end
        end
        object ObnovitGBox: TGroupBox
          Left = 8
          Top = 152
          Width = 393
          Height = 65
          Caption = 'Obnoven� ���ek sloupc�'
          TabOrder = 3
          object NullDBColumnsCBox: TComboBox
            Left = 16
            Top = 24
            Width = 201
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            Items.Strings = (
              'Pro katalog zak�zek'
              'Pro arch�v zak�zek'
              'Pro katalog z�kazn�k�'
              'Pro okno sp�rovan�ch zak�zek')
            TabOrder = 0
            OnChange = NullDBColumnsCBoxChange
          end
          object NullDBColumsBtn: TBitBtn
            Left = 224
            Top = 22
            Width = 161
            Height = 25
            Caption = 'Ob&novit nastaven� sloupc�'
            TabOrder = 1
            OnClick = NullDBColumsBtnClick
            Glyph.Data = {
              46010000424D460100000000000076000000280000001C0000000D0000000100
              040000000000D000000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333FFFFF3333000033333707333333333FF3337733330000333700733333
              3333733337333333000033300733333333337333733333330000337073333333
              3337333F3333333300003300333333333337333F3FFFFFF30000330033300000
              3337333F733333F300003300733370003337333F373333F30000337007370000
              33373333F33333F3000033300000007033337333333373F30000333370007330
              33333733333773F3000033333333333333333377777337330000333333333333
              33333333333333330000}
            NumGlyphs = 2
          end
        end
      end
    end
    object NastaveniProgramuTS2: TTabSheet
      Caption = 'Dal�� mo�nosti'
      object CisloZakazkyGrB: TGroupBox
        Left = 8
        Top = 104
        Width = 393
        Height = 69
        Caption = 'Form�t ��sla zak�zky'
        TabOrder = 0
        object VyzkousejSBtn: TSpeedButton
          Left = 336
          Top = 12
          Width = 49
          Height = 25
          Caption = 'Test!'
          OnClick = VyzkousejSBtnClick
        end
        object Label2: TLabel
          Left = 8
          Top = 19
          Width = 101
          Height = 13
          Caption = 'Form�tovac� �et�zec:'
        end
        object Label3: TLabel
          Left = 8
          Top = 44
          Width = 104
          Height = 13
          Caption = 'P��klad ��sla zak�zky:'
        end
        object NahledNaCisloZakEdit: TEdit
          Left = 160
          Top = 40
          Width = 169
          Height = 21
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 0
        end
        object FormatCislaZakazkyEdit: TComboBox
          Left = 160
          Top = 16
          Width = 169
          Height = 21
          ItemHeight = 13
          Items.Strings = (
            '#C6'
            '#R2-#C4'
            '#C4/#R4'
            'Pha #R2/#C4'
            '')
          TabOrder = 1
          OnChange = FormatCislaZakazkyEditChange
        end
      end
      object CislovaniZakazekGBox: TGroupBox
        Left = 8
        Top = 32
        Width = 393
        Height = 69
        Caption = 'Nastaven� po��tadla zak�zek'
        TabOrder = 1
        object Label6: TLabel
          Left = 8
          Top = 44
          Width = 93
          Height = 13
          Caption = '��slo dal�� zak�zky:'
        end
        object Label7: TLabel
          Left = 243
          Top = 44
          Width = 12
          Height = 13
          Caption = '=>'
        end
        object NulovatCisloChkBox: TCheckBox
          Left = 7
          Top = 18
          Width = 166
          Height = 14
          Alignment = taLeftJustify
          Caption = 'Nulovat ��slo p�i zm�n� roku:'
          TabOrder = 0
          OnClick = ObecneNastaveniChanged
        end
        object CisloZakazkySpinEdit: TRxSpinEdit
          Left = 160
          Top = 40
          Width = 73
          Height = 21
          Alignment = taRightJustify
          Decimal = 0
          Increment = 1.000000000000000000
          MaxValue = 9999.000000000000000000
          MinValue = 1.000000000000000000
          TabOrder = 1
          Value = 1.000000000000000000
          OnChange = CisloZakazkySpinEditChange
        end
        object CisloDalsiEdit: TEdit
          Left = 264
          Top = 40
          Width = 121
          Height = 21
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 2
        end
      end
      object NastaveniCoolBar2: TCoolBar
        Left = 0
        Top = 0
        Width = 0
        Height = 26
        Bands = <
          item
            Control = ToolBar4
            ImageIndex = -1
            MinHeight = 22
            Width = 404
          end>
        object ToolBar4: TToolBar
          Left = 0
          Top = 0
          Width = 0
          Height = 22
          EdgeBorders = []
          EdgeInner = esNone
          EdgeOuter = esNone
          Flat = True
          HotImages = PomocneDM.BtnHotImages
          Images = PomocneDM.BtnImages
          TabOrder = 0
          object ObecneNastaveniSaveSBtn2: TToolButton
            Left = 0
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Ulo�en� nastaven�'
            Caption = 'Ulo�it'
            ImageIndex = 9
            ParentShowHint = False
            ShowHint = True
            OnClick = ObecneNastaveniSaveSBtnClick
          end
          object ObecneNastaveniLoadSBtn2: TToolButton
            Left = 0
            Top = 22
            Width = 23
            Height = 22
            Hint = 'Obnoven� nastaven�'
            Caption = 'Obnovit'
            ImageIndex = 24
            ParentShowHint = False
            ShowHint = True
            OnClick = ObecneNastaveniLoadSBtnClick
          end
        end
      end
    end
    object UzivateleTS: TTabSheet
      Caption = 'Spr�va u�ivatel�'
      object UzivateleCoolBar: TCoolBar
        Left = 0
        Top = 0
        Width = 0
        Height = 26
        Bands = <
          item
            Control = ToolBar1
            ImageIndex = -1
            MinHeight = 22
            Width = 404
          end>
        object ToolBar1: TToolBar
          Left = 0
          Top = 0
          Width = 0
          Height = 22
          EdgeBorders = []
          EdgeInner = esNone
          EdgeOuter = esNone
          Flat = True
          HotImages = PomocneDM.BtnHotImages
          Images = PomocneDM.BtnImages
          TabOrder = 0
          object HesloSBtn: TToolButton
            Left = 0
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Zm�na hesla'
            Caption = 'Heslo'
            ImageIndex = 23
            ParentShowHint = False
            ShowHint = True
            OnClick = HesloSBtnClick
          end
          object ToolButton3: TToolButton
            Left = 0
            Top = 22
            Width = 8
            Height = 8
            Caption = 'ToolButton3'
            ImageIndex = 26
            Style = tbsSeparator
          end
          object NovyUzivatelSBtn: TToolButton
            Left = 0
            Top = 30
            Width = 23
            Height = 22
            Hint = 'Nov� u�ivatel'
            Caption = 'Nov�'
            ImageIndex = 19
            ParentShowHint = False
            ShowHint = True
            OnClick = NovyUzivatelSBtnClick
          end
          object ZrusUzivatelSBtn: TToolButton
            Left = 0
            Top = 52
            Width = 23
            Height = 22
            Hint = 'Zru�it u�ivatelsk� jm�no'
            Caption = 'Zru�it'
            ImageIndex = 20
            ParentShowHint = False
            ShowHint = True
            OnClick = ZrusUzivatelSBtnClick
          end
          object OpravUzivatelSBtn: TToolButton
            Left = 0
            Top = 74
            Width = 23
            Height = 22
            Hint = 'Oprava u�ivatele'
            Caption = 'Opravit'
            ImageIndex = 1
            ParentShowHint = False
            ShowHint = True
            OnClick = OpravUzivatelSBtnClick
          end
          object ToolButton2: TToolButton
            Left = 0
            Top = 96
            Width = 8
            Height = 8
            Caption = 'ToolButton2'
            ImageIndex = 26
            Style = tbsSeparator
          end
          object UlozPravaSBtn: TToolButton
            Left = 0
            Top = 104
            Width = 23
            Height = 22
            Hint = 'Ulo�en� pr�v u�ivatele'
            Caption = 'Ulo�it'
            ImageIndex = 9
            ParentShowHint = False
            ShowHint = True
            OnClick = UlozPravaSBtnClick
          end
          object ObnovPravaSBtn: TToolButton
            Left = 0
            Top = 126
            Width = 23
            Height = 22
            Hint = 'Obnoven� pr�v u�ivatele'
            Caption = 'Obnovit'
            ImageIndex = 24
            ParentShowHint = False
            ShowHint = True
            OnClick = ObnovPravaSBtnClick
          end
          object PrevzitSBtn: TToolButton
            Left = 0
            Top = 148
            Width = 23
            Height = 22
            Hint = 'P�evz�t nastaven� pr�v'#13#10'od jin�ho u�ivatele'
            Caption = 'P�evz�t'
            ImageIndex = 25
            ParentShowHint = False
            ShowHint = True
            OnClick = PrevzitSBtnClick
          end
        end
      end
      object nastaveniMainPanel: TPanel
        Left = 0
        Top = 26
        Width = 408
        Height = 227
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Label1: TLabel
          Left = 136
          Top = 8
          Width = 55
          Height = 13
          Caption = 'Cel� jm�no:'
        end
        object DBGrid1: TDBGrid
          Left = 2
          Top = 8
          Width = 127
          Height = 193
          DataSource = UzivateleDS
          Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              FieldName = 'UserName'
              Title.Caption = 'Seznam u�ivatel�'
              Width = 106
            end>
        end
        object UzivatelskaPravaGrBox: TGroupBox
          Left = 135
          Top = 48
          Width = 266
          Height = 155
          Caption = 'U�ivatelsk� pr�va'
          TabOrder = 1
          object Bevel1: TBevel
            Left = 134
            Top = 6
            Width = 2
            Height = 147
            Shape = bsLeftLine
          end
          object Bevel2: TBevel
            Left = 1
            Top = 51
            Width = 134
            Height = 2
            Shape = bsTopLine
          end
          object Bevel3: TBevel
            Left = 1
            Top = 107
            Width = 134
            Height = 2
            Shape = bsTopLine
          end
          object MoneyChB: TCheckBox
            Left = 142
            Top = 16
            Width = 119
            Height = 17
            Caption = 'Oprava n�klad�'
            TabOrder = 0
            OnClick = UsersChBClick
          end
          object PresunChB: TCheckBox
            Left = 8
            Top = 72
            Width = 121
            Height = 17
            Caption = 'P�esun z/do arch�vu'
            TabOrder = 1
            OnClick = UsersChBClick
          end
          object VymazZakazkuChB: TCheckBox
            Left = 8
            Top = 88
            Width = 121
            Height = 17
            Caption = 'Vymaz�n� zak�zky'
            TabOrder = 2
            OnClick = UsersChBClick
          end
          object VymazZakaznikaChB: TCheckBox
            Left = 8
            Top = 128
            Width = 121
            Height = 17
            Caption = 'Vymaz�n� klienta'
            TabOrder = 3
            OnClick = UsersChBClick
          end
          object EditaceZakazkyChB: TCheckBox
            Left = 8
            Top = 56
            Width = 121
            Height = 17
            Caption = 'Oprava zak�zky'
            TabOrder = 4
            OnClick = UsersChBClick
          end
          object EditaceZakaznikaChB: TCheckBox
            Left = 8
            Top = 112
            Width = 121
            Height = 17
            Caption = 'Oprava klienta'
            TabOrder = 5
            OnClick = UsersChBClick
          end
          object ObnovaDatChB: TCheckBox
            Left = 8
            Top = 32
            Width = 121
            Height = 17
            Caption = 'Obnova dat'
            TabOrder = 6
            OnClick = UsersChBClick
          end
          object UsersChB: TCheckBox
            Left = 8
            Top = 16
            Width = 121
            Height = 17
            Caption = 'Spr�vce syst�mu'
            TabOrder = 7
            OnClick = UsersChBClick
          end
        end
        object DBEdit1: TDBEdit
          Left = 136
          Top = 24
          Width = 265
          Height = 21
          Color = clBtnFace
          DataField = 'CeleJmeno'
          DataSource = UzivateleDS
          TabOrder = 2
        end
      end
    end
    object ResCompTS: TTabSheet
      Caption = 'Polo�ky objekt�'
      object ResCompCoolBar: TCoolBar
        Left = 0
        Top = 0
        Width = 0
        Height = 26
        Bands = <
          item
            Control = ToolBar2
            ImageIndex = -1
            MinHeight = 22
            Width = 404
          end>
        object ToolBar2: TToolBar
          Left = 0
          Top = 0
          Width = 0
          Height = 22
          EdgeBorders = []
          EdgeInner = esNone
          EdgeOuter = esNone
          Flat = True
          HotImages = PomocneDM.BtnHotImages
          Images = PomocneDM.BtnImages
          TabOrder = 0
          object NovaMoznostSBtn: TToolButton
            Left = 0
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Nov� mo�nost'
            Caption = 'Nov�'
            ImageIndex = 26
            ParentShowHint = False
            ShowHint = True
            OnClick = NovaMoznostSBtnClick
          end
          object VymazatMoznostSBtn: TToolButton
            Left = 0
            Top = 22
            Width = 23
            Height = 22
            Hint = 'Vymazat mo�nost'
            Caption = 'Smazat'
            ImageIndex = 27
            ParentShowHint = False
            ShowHint = True
            OnClick = VymazatMoznostSBtnClick
          end
          object OpravitMoznostSBtn: TToolButton
            Left = 0
            Top = 44
            Width = 23
            Height = 22
            Hint = 'Opravit polo�ku'
            Caption = 'Opravit'
            ImageIndex = 1
            ParentShowHint = False
            ShowHint = True
            OnClick = OpravitMoznostSBtnClick
          end
          object ToolButton1: TToolButton
            Left = 0
            Top = 66
            Width = 8
            Height = 8
            Caption = 'ToolButton1'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object NacistNastaveniObjektuSBtn: TToolButton
            Left = 0
            Top = 74
            Width = 23
            Height = 22
            Hint = 'Obnoven� nastaven�'
            Caption = 'Obnoven�'
            ImageIndex = 24
            ParentShowHint = False
            ShowHint = True
            OnClick = NacistNastaveniObjektuSBtnClick
          end
          object UlozitNastaveniObjektuSBtn: TToolButton
            Left = 0
            Top = 96
            Width = 23
            Height = 22
            Hint = 'Ulo�en� nastaven�'
            Caption = 'Ulo�it'
            ImageIndex = 9
            ParentShowHint = False
            ShowHint = True
            OnClick = UlozitNastaveniObjektuSBtnClick
          end
        end
      end
      object ResCompPanel: TPanel
        Left = 0
        Top = 26
        Width = 408
        Height = 227
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object NahoruSBtn: TSpeedButton
          Left = 376
          Top = 160
          Width = 24
          Height = 25
          Hint = 'Nahoru'
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000CE0E0000D80E00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
            DDDDDDDDDD00000DDDDDDDDDDD0EEE0DDDDDDDDDDD0EEE0DDDDDDDDDDD0EEE0D
            DDDDDDDDDD0EEE0DDDDDDDDDDD0EEE0DDDDDDDDDDD0EEE0DDDDDDDDDDD0EEE0D
            DDDDDD00000EEE00000DDDD0EEEEEEEEE0DDDDDD0EEEEEEE0DDDDDDDD0EEEEE0
            DDDDDDDDDD0EEE0DDDDDDDDDDDD0E0DDDDDDDDDDDDDD0DDDDDDD}
          ParentShowHint = False
          ShowHint = True
          OnClick = NahoruSBtnClick
        end
        object DoluSBtn: TSpeedButton
          Left = 376
          Top = 186
          Width = 24
          Height = 25
          Hint = 'Dolu'
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000CE0E0000D80E00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDD0DDD
            DDDDDDDDDDD0E0DDDDDDDDDDDD0EEE0DDDDDDDDDD0EEEEE0DDDDDDDD0EEEEEEE
            0DDDDDD0EEEEEEEEE0DDDD00000EEE00000DDDDDDD0EEE0DDDDDDDDDDD0EEE0D
            DDDDDDDDDD0EEE0DDDDDDDDDDD0EEE0DDDDDDDDDDD0EEE0DDDDDDDDDDD0EEE0D
            DDDDDDDDDD0EEE0DDDDDDDDDDD00000DDDDDDDDDDDDDDDDDDDDD}
          ParentShowHint = False
          ShowHint = True
          OnClick = DoluSBtnClick
        end
        object Label4: TLabel
          Left = 8
          Top = 8
          Width = 88
          Height = 13
          Caption = 'Jm�no polo�ky:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label5: TLabel
          Left = 192
          Top = 8
          Width = 151
          Height = 13
          Caption = 'Mo�nosti vybran� polo�ky:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object SeznamListBox: TListBox
          Left = 8
          Top = 24
          Width = 177
          Height = 193
          ItemHeight = 13
          Sorted = True
          TabOrder = 0
          OnClick = SeznamListBoxClick
        end
        object HodnotyListBox: TListBox
          Left = 192
          Top = 24
          Width = 177
          Height = 193
          DragMode = dmAutomatic
          ItemHeight = 13
          TabOrder = 1
          OnClick = HodnotyListBoxClick
          OnDragDrop = HodnotyListBoxDragDrop
          OnDragOver = HodnotyListBoxDragOver
          OnStartDrag = HodnotyListBoxStartDrag
        end
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 336
    Top = 288
    Width = 75
    Height = 25
    Caption = '&Zav��t'
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      0400000000007000000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
      DD00DDDDD4444DDDDD00DDD44444444DDD00DD444DDDD444DD00DD44DDDDDD44
      DD00D44DDDDDDDD44D00D44DDDDDDDD44D00D44DDDDDDDD44D00D44DDDDDDDD4
      4D00DD44DDDD4D44DD00DD44DDDD4444DD00DDDDDDDD444DDD00DDDDDDDD4444
      DD00DDDDDDDDDDDDDD00}
  end
  object UzivateleTbl: TTable
    DatabaseName = 'RealityDB'
    TableName = 'Uzivatel.DB'
    Left = 292
    Top = 280
    object UzivateleTblUserName: TStringField
      DisplayLabel = 'U�ivatelsk� jm�no'
      FieldName = 'UserName'
    end
    object UzivateleTblCeleJmeno: TStringField
      DisplayLabel = 'Cel� jm�no'
      DisplayWidth = 45
      FieldName = 'CeleJmeno'
      Size = 60
    end
    object UzivateleTblPassword: TStringField
      FieldName = 'Password'
    end
    object UzivateleTblRights: TStringField
      FieldName = 'Rights'
    end
    object UzivateleTblParovaciMaska: TBlobField
      FieldName = 'ParovaciMaska'
      BlobType = ftBlob
      Size = 240
    end
    object UzivateleTblVelkaTlacitka: TBooleanField
      FieldName = 'VelkaTlacitka'
    end
    object UzivateleTblProdlevaNahledu: TFloatField
      FieldName = 'ProdlevaNahledu'
    end
    object UzivateleTblAutomatickyUkazNahled: TBooleanField
      FieldName = 'AutomatickyUkazNahled'
    end
    object UzivateleTblNeuplneHledani: TBooleanField
      FieldName = 'NeuplneHledani'
    end
    object UzivateleTblProhColumns: TBlobField
      FieldName = 'ProhColumns'
      BlobType = ftBlob
      Size = 240
    end
    object UzivateleTblProhAColumns: TBlobField
      FieldName = 'ProhAColumns'
      BlobType = ftBlob
      Size = 240
    end
    object UzivateleTblProhPColumns: TBlobField
      FieldName = 'ProhPColumns'
      BlobType = ftBlob
      Size = 240
    end
    object UzivateleTblProhZakColumns: TBlobField
      FieldName = 'ProhZakColumns'
      BlobType = ftBlob
      Size = 240
    end
    object UzivateleTblZakazkyMRUList: TBlobField
      FieldName = 'ZakazkyMRUList'
      BlobType = ftBlob
      Size = 240
    end
    object UzivateleTblMainPanelLayout: TBlobField
      FieldName = 'MainPanelLayout'
      BlobType = ftBlob
      Size = 240
    end
    object UzivateleTblWindowPositions: TBlobField
      FieldName = 'WindowPositions'
      BlobType = ftBlob
      Size = 240
    end
    object UzivateleTblTiskZakazniku: TBlobField
      FieldName = 'TiskZakazniku'
      BlobType = ftBlob
      Size = 240
    end
  end
  object UzivateleDS: TDataSource
    DataSet = UzivateleTbl
    OnDataChange = UzivateleDSDataChange
    Left = 172
    Top = 280
  end
  object UzivateleMainMenu: TMainMenu
    Left = 56
    Top = 280
    object NastaveniMnI: TMenuItem
      Caption = '&Nastaven� programu'
      object UlozitMnI: TMenuItem
        Caption = '&Ulo�en� nastaven�'
        OnClick = ObecneNastaveniSaveSBtnClick
      end
      object NacistMnI: TMenuItem
        Caption = '&Obnoven� nastaven�'
        OnClick = ObecneNastaveniLoadSBtnClick
      end
      object PrevzitNastaveniMnI: TMenuItem
        Caption = '&P�evzet� nastaven�'
        OnClick = PrevzitNastaveniSBtnClick
      end
    end
    object UzivatelMnI: TMenuItem
      Caption = '&U�ivatel�'
      object HesloMnI: TMenuItem
        Caption = 'Zm�nit &heslo'
        OnClick = HesloSBtnClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object NovyUzivatelMnI: TMenuItem
        Caption = '&Nov� u�ivatel'
        OnClick = NovyUzivatelSBtnClick
      end
      object OpravUzivatelMnI: TMenuItem
        Caption = '&Opravit u�ivatele'
        OnClick = OpravUzivatelSBtnClick
      end
      object ZrusitUzivatelMnI: TMenuItem
        Caption = 'Vyma&zat u�ivatele'
        OnClick = ZrusUzivatelSBtnClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object UlozPravaMnI: TMenuItem
        Caption = 'U&lo�it pr�va'
        OnClick = UlozPravaSBtnClick
      end
      object ObnovPravaMnI: TMenuItem
        Caption = 'Ob&novit pr�va'
        OnClick = ObnovPravaSBtnClick
      end
      object PrevzitPravaMnI: TMenuItem
        Caption = 'P�ev&z�t pr�va'
        OnClick = PrevzitSBtnClick
      end
    end
    object PolozkyObjektuMnI: TMenuItem
      Caption = 'Polo�ky &objekt�'
      object NovaMoznostMnI: TMenuItem
        Caption = '&Nov� mo�nost'
        OnClick = NovaMoznostSBtnClick
      end
      object OpravitMoznostMnI: TMenuItem
        Caption = '&Opravit mo�nost'
        OnClick = OpravitMoznostSBtnClick
      end
      object VymazatMoznostMnI: TMenuItem
        Caption = '&Vymazat mo�nost'
        OnClick = VymazatMoznostSBtnClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object UlozitNastaveniObjektuMnI: TMenuItem
        Caption = '&Ulo�en� nastaven� objekt�'
        OnClick = UlozitNastaveniObjektuSBtnClick
      end
      object NacistNastaveniObjektuMnI: TMenuItem
        Caption = 'O&bnoven� nastaven� objekt�'
        OnClick = NacistNastaveniObjektuSBtnClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object ResetNastaveniResourceKomponentyMnI: TMenuItem
        Caption = 'Vr�tit se k origin�ln�mu nastaven�'
        OnClick = ResetNastaveniResourceKomponentyMnIClick
      end
    end
  end
  object NastaveniTbl: TTable
    DatabaseName = 'RealityDB'
    TableName = 'ObecNast.db'
    Left = 96
    Top = 280
    object NastaveniTblFormatCislaZakazky: TStringField
      FieldName = 'FormatCislaZakazky'
      Size = 30
    end
    object NastaveniTblNulovatPriNovemRoku: TBooleanField
      FieldName = 'NulovatPriNovemRoku'
    end
  end
  object StrHolder: TStrHolder
    Left = 12
    Top = 280
    StrData = (
      ''
      'Left'
      'Top'
      'Name'
      'Tag'
      ''
      'ClassID'
      'CisloZakazky'
      'CisloZakaznika'
      'TypDokladu'
      'CenaProdej'
      'CenaPronajem'
      'Datum'
      'DatumUkonceniSmlouvy'
      ''
      'Oploceni'
      'InzSite'
      'StavbaNaPozemku'
      'Svazitost'
      'Porosty'
      'Parkoviste'
      'Vytah'
      'Sklep'
      'JednotliveKancelare'
      'Telefon'
      'JerabovaDraha'
      'Vyloha'
      'Odstupne'
      'OstatniPlochy'
      'VnitrniVybaveni'
      'SatnaProZamestnance'
      'Elektrina'
      'Prislusenstvi'
      'PodzemniPodlazi'
      'PopisHospCasti'
      'OstatniMistnosti'
      'PopisProvozu'
      'VelikostKancelari'
      'MoznostPudniVestavby'
      'JeKuchyne'
      'BytSpravce'
      'Stravovani'
      'CelkovaPlocha'
      'PodlahovaPlocha'
      'VyrobniPlocha'
      'KancelarskaPlocha'
      'SkladovaciPlocha'
      'ProdejniPlocha'
      'KuchynskaPlocha'
      'PozemekCelkem'
      'ZastavenaPlocha'
      'ZastPlochaObytneCasti'
      'ZastPlochaHospCasti'
      'PlochaSklepa'
      'UzitnaPlocha'
      'VelikostKuchyne'
      'PlochaZemPozemku'
      'PlochaKancelari'
      'PlochaChodeb'
      'PlochaSocZarizeni'
      'Balkon'
      'Podlazi'
      'Kuchyne'
      'PocetPokoju'
      'PocetMistUStolu'
      'PocetUbytovacichMist'
      'PocetMistNaParkovisti'
      'Stari'
      'PocetPodlazi'
      'RekonstrukceVRoce'
      'PocetBytJednotek'
      'PocetKancelari'
      'PocetBytu_1_0'
      'PocetBytu_1_1'
      'PocetBytu_1_2'
      'PocetBytu_1_3'
      'PocetBytu_1_4'
      'PocetBytu_1_5_AVice'
      'PocetSalonku'
      'Jednoluzkovych'
      'Dvojluzkovych'
      'TriAViceLuzkovych'
      'PocetPrislusenstvi'
      'CelkemLuzek'
      'VymeraPozemku'
      'SvetlaVyskaVyrProstoru'
      'SkladovaPlocha'
      'MesicniNaklady'
      'CisloPodlazi'
      'ObytnaPlocha'
      'Prikon'
      'Poznamka')
  end
  object NeprevzitHolder: TStrHolder
    Sorted = True
    Left = 240
    Top = 280
    StrData = (
      ''
      'CELEJMENO'
      'PASSWORD'
      'RIGHTS'
      'USERNAME')
  end
end