Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/pantheon.exe/0/RCDATA/TROOTEDITFORM/TROOTEDITFORM.txt

Text File | 1999-04-22 | 15.7 KB | 559 lines

object RootEditForm: TRootEditForm
  Left = 291
  Top = 140
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 389
  ClientWidth = 571
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = ZakazkyMainMenu
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MainPC: TPageControl
    Left = 0
    Top = 0
    Width = 571
    Height = 353
    ActivePage = VseobecneTS
    Align = alTop
    TabOrder = 0
    OnChange = MainPCChange
    object VseobecneTS: TTabSheet
      Caption = 'V�eobecn� �daje'
      object VseobecneGBox: TGroupBox
        Left = 8
        Top = 4
        Width = 193
        Height = 117
        Caption = 'V�eobecn�'
        TabOrder = 0
        object CisloZakRl: TResLabel
          Left = 8
          Top = 24
          Width = 65
          Height = 13
          Caption = '��slo zak�zky'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'CisloZakazky'
          AAPropLink.PopisProperty = '��slo zak�zky'
          AAPropLink.Resourcer = MainForm.RK
        end
        object TypZRl: TResLabel
          Left = 8
          Top = 96
          Width = 60
          Height = 13
          Caption = 'Typ zak�zky'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'TypZakazky'
          AAPropLink.PopisProperty = 'Typ zak�zky'
          AAPropLink.MoznostiProperty.Strings = (
            'prodej'
            'pron�jem'
            'prodej-pron�jem')
          AAPropLink.Resourcer = MainForm.RK
        end
        object DatumRl: TResLabel
          Left = 8
          Top = 48
          Width = 31
          Height = 13
          Caption = 'Datum'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'Datum'
          AAPropLink.PopisProperty = 'Datum'
          AAPropLink.Resourcer = MainForm.RK
        end
        object DAtumUkonceniSmlouvyRl: TResLabel
          Left = 8
          Top = 72
          Width = 79
          Height = 13
          Caption = 'Datum ukon�en�'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'DatumUkonceniSmlouvy'
          AAPropLink.PopisProperty = 'Datum ukon�en�'
          AAPropLink.Resourcer = MainForm.RK
        end
        object CisloZakEP: TEditPanel
          Left = 80
          Top = 16
          Width = 105
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'CisloZakazky'
          AAPropLink.PopisProperty = '��slo zak�zky'
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = True
        end
        object TypZEP: TEditPanel
          Left = 80
          Top = 88
          Width = 105
          Height = 21
          TabOrder = 2
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'TypZakazky'
          AAPropLink.PopisProperty = 'Typ zak�zky'
          AAPropLink.MoznostiProperty.Strings = (
            'prodej'
            'pron�jem'
            'prodej-pron�jem')
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
        object DatumEP: TEditPanel
          Left = 80
          Top = 40
          Width = 105
          Height = 21
          TabOrder = 1
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'Datum'
          AAPropLink.PopisProperty = 'Datum'
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
        object DatumUkonceniDE: TDateEdit
          Left = 80
          Top = 64
          Width = 105
          Height = 21
          ButtonHint = 'Datum ukon�en� smlouvy'
          NumGlyphs = 2
          TabOrder = 3
        end
      end
      object AdresaGBox: TGroupBox
        Left = 8
        Top = 124
        Width = 249
        Height = 91
        Caption = 'Adresa objektu'
        TabOrder = 1
        object UliceRl: TResLabel
          Left = 8
          Top = 24
          Width = 24
          Height = 13
          Caption = 'Ulice'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'Ulice'
          AAPropLink.PopisProperty = 'Ulice'
          AAPropLink.Resourcer = MainForm.RK
        end
        object ObecRl: TResLabel
          Left = 8
          Top = 48
          Width = 26
          Height = 13
          Caption = 'Obec'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'Obec'
          AAPropLink.PopisProperty = 'Obec'
          AAPropLink.Resourcer = MainForm.RK
        end
        object PSCRl: TResLabel
          Left = 8
          Top = 72
          Width = 21
          Height = 13
          Caption = 'PS�'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'PSC'
          AAPropLink.PopisProperty = 'PS�'
          AAPropLink.Resourcer = MainForm.RK
        end
        object PSCSBtn: TSpeedButton
          Left = 128
          Top = 64
          Width = 105
          Height = 21
          Caption = 'Katalog PS�'
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333333333333333300000000000000330FFFFFFFFFF
            FF0330FFFCCCCCCFFF0330FFFFFFFFFFFF0330FFFCCCCCCFFF0330FFFFFFFFFF
            FF0330FFFFFFFFF9970330FCCCFFFFF9970330FFFFFFFFF77703300000000000
            0003333333333333333333333333333333333333333333333333}
          OnClick = PSCSBtnClick
        end
        object UliceEP: TEditPanel
          Left = 48
          Top = 16
          Width = 185
          Height = 21
          TabOrder = 0
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'Ulice'
          AAPropLink.PopisProperty = 'Ulice'
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
        object ObecEP: TEditPanel
          Left = 48
          Top = 40
          Width = 185
          Height = 21
          TabOrder = 1
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'Obec'
          AAPropLink.PopisProperty = 'Obec'
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
        object PSCEP: TEditPanel
          Left = 48
          Top = 64
          Width = 73
          Height = 21
          TabOrder = 2
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'PSC'
          AAPropLink.PopisProperty = 'PS�'
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
      end
      object KlientGBox: TGroupBox
        Left = 208
        Top = 4
        Width = 345
        Height = 117
        Caption = 'Klient'
        TabOrder = 2
        object JmenoLbl: TLabel
          Left = 8
          Top = 24
          Width = 31
          Height = 13
          Caption = 'Jm�no'
        end
        object UliceLbl: TLabel
          Left = 8
          Top = 48
          Width = 24
          Height = 13
          Caption = 'Ulice'
          FocusControl = UliceDBEd
        end
        object ObecLbl: TLabel
          Left = 8
          Top = 72
          Width = 26
          Height = 13
          Caption = 'Obec'
          FocusControl = ObecDBEd
        end
        object PSCLbl: TLabel
          Left = 240
          Top = 72
          Width = 21
          Height = 13
          Caption = 'PS�'
          FocusControl = PSCDBEd
        end
        object ZmenitBtn: TSpeedButton
          Left = 264
          Top = 16
          Width = 65
          Height = 25
          Caption = '&Katalog'
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
            6666666111111111666666619991179166666666111FF7166666666668FFF006
            6666666660FF7F7066666666000FFFF06666666000FFFFF066666660000FFFFF
            066666600000FFC06666666000000FF066666660000000000666666600000000
            0666666660000006666666666666666666666666666666666666}
          OnClick = ZmenitBtnClick
        end
        object UliceDBEd: TDBEdit
          Left = 48
          Top = 40
          Width = 209
          Height = 21
          Color = clBtnFace
          DataField = 'Ulice'
          ReadOnly = True
          TabOrder = 0
        end
        object ObecDBEd: TDBEdit
          Left = 48
          Top = 64
          Width = 177
          Height = 21
          Color = clBtnFace
          DataField = 'Obec'
          ReadOnly = True
          TabOrder = 1
        end
        object PSCDBEd: TDBEdit
          Left = 264
          Top = 64
          Width = 65
          Height = 21
          Color = clBtnFace
          DataField = 'PSC'
          ReadOnly = True
          TabOrder = 2
        end
        object JmenoDbEd: TRxDBLookupCombo
          Left = 48
          Top = 16
          Width = 209
          Height = 21
          DropDownCount = 8
          EscapeClear = False
          LookupField = 'Jmeno'
          LookupDisplay = 'Jmeno'
          LookupSource = ZakazniciDS
          ReadOnly = True
          TabOrder = 3
          OnChange = JmenoDbEdChange
        end
      end
      object CenaGBox: TGroupBox
        Left = 264
        Top = 124
        Width = 289
        Height = 91
        Caption = 'Cena a stav'
        TabOrder = 3
        object RPronRl: TResLabel
          Left = 10
          Top = 48
          Width = 71
          Height = 13
          Caption = 'Cena pron�jem'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'CenaPronajem'
          AAPropLink.PopisProperty = 'Cena pron�jem'
          AAPropLink.Resourcer = MainForm.RK
        end
        object CProdRl: TResLabel
          Left = 10
          Top = 24
          Width = 57
          Height = 13
          Caption = 'Cena prodej'
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'CenaProdej'
          AAPropLink.PopisProperty = 'Cena prodej'
          AAPropLink.Resourcer = MainForm.RK
        end
        object StavObjektuLbl: TLabel
          Left = 10
          Top = 70
          Width = 60
          Height = 13
          Caption = 'Stav objektu'
        end
        object CPronEP: TEditPanel
          Left = 88
          Top = 40
          Width = 97
          Height = 21
          TabOrder = 1
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'CenaPronajem'
          AAPropLink.PopisProperty = 'Cena pron�jem'
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
        object CProdEP: TEditPanel
          Left = 88
          Top = 16
          Width = 97
          Height = 21
          TabOrder = 0
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'CenaProdej'
          AAPropLink.PopisProperty = 'Cena prodej'
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
        object PoznKCProdEP: TEditPanel
          Left = 184
          Top = 16
          Width = 97
          Height = 21
          TabOrder = 2
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'PoznamkaKCeneProdej'
          AAPropLink.PopisProperty = 'Pozn�mka k prodejn� cen�'
          AAPropLink.MoznostiProperty.Strings = (
            'K�'
            'K�/m2')
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
        object PoznKCPronEP: TEditPanel
          Left = 184
          Top = 40
          Width = 97
          Height = 21
          TabOrder = 3
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'PoznamkaKCenePronajem'
          AAPropLink.PopisProperty = 'Pozn�mka k n�jemn� cen�'
          AAPropLink.MoznostiProperty.Strings = (
            'K�/m�s�c'
            'K�/rok'
            'K�/m2/m�s�c'
            'K�/m2/rok')
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
        object StavObjektuRootEditFormPanel: TEditPanel
          Left = 88
          Top = 64
          Width = 193
          Height = 21
          TabOrder = 4
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'Stav'
          AAPropLink.PopisProperty = 'Stav'
          AAPropLink.Resourcer = MainForm.RK
          ReadOnly = False
        end
      end
      object PoznamkaGBox: TGroupBox
        Left = 8
        Top = 216
        Width = 545
        Height = 97
        Caption = 'Pozn�mky k zak�zce'
        TabOrder = 4
        object PoznamkaRM: TResMemo
          Left = 8
          Top = 15
          Width = 529
          Height = 74
          Ctl3D = True
          ParentCtl3D = False
          TabOrder = 0
          AAPropLink.PopisPropertyLD = True
          AAPropLink.JmenoProperty = 'Poznamka'
          AAPropLink.PopisProperty = 'Pozn�mka'
          AAPropLink.Resourcer = MainForm.RK
        end
      end
    end
    object TechnickeTS: TTabSheet
      Caption = 'Technick� parametry'
      object TechnickeParamertryPC: TPageControl
        Left = 8
        Top = 8
        Width = 553
        Height = 345
        ActivePage = ZakladniTS
        TabOrder = 0
        object ZakladniTS: TTabSheet
          Caption = 'Z�kladn� �daje'
        end
      end
    end
  end
  object OKBtn: TButton
    Left = 408
    Top = 360
    Width = 75
    Height = 25
    Caption = 'OK'
    TabOrder = 1
    OnClick = RootOKBtnClick
  end
  object CancelBtn: TButton
    Left = 488
    Top = 360
    Width = 75
    Height = 25
    Caption = 'Storno'
    TabOrder = 2
    OnClick = RootCancelBtnClick
  end
  object ZakazniciTbl: TTable
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'CisloZakaznika'
    TableName = 'Zakaznic.DB'
    Left = 196
    Top = 362
    object ZakazniciTblCisloZakaznika: TStringField
      FieldName = 'CisloZakaznika'
      Required = True
      Size = 10
    end
    object ZakazniciTblJmeno: TStringField
      FieldName = 'Jmeno'
      Required = True
      Size = 60
    end
    object ZakazniciTblUlice: TStringField
      FieldName = 'Ulice'
      Size = 60
    end
    object ZakazniciTblObec: TStringField
      FieldName = 'Obec'
      Size = 60
    end
    object ZakazniciTblPSC: TStringField
      Alignment = taRightJustify
      FieldName = 'PSC'
      EditMask = '000 00;0;_'
      Size = 6
    end
  end
  object ZakazniciDS: TDataSource
    DataSet = ZakazniciTbl
    OnDataChange = ZakazniciDSDataChange
    Left = 244
    Top = 362
  end
  object ZakazkyMainMenu: TMainMenu
    Left = 352
    Top = 360
    object ZakazkaMnI: TMenuItem
      Caption = 'Z&ak�zka'
      object TiskNabListMnI: TMenuItem
        Caption = '&Tisknout nab�dkov� list'
        Visible = False
        OnClick = TiskNabListMnIClick
      end
      object RootEditFormSep1: TMenuItem
        Caption = '-'
        Visible = False
      end
      object ZavritMnI: TMenuItem
        Caption = '&Zav��t'
        OnClick = RootCancelBtnClick
      end
    end
  end
end