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

Text File | 1999-04-22 | 7.8 KB | 342 lines

inherited ProhlizeniVsechParZakazekForm: TProhlizeniVsechParZakazekForm
  Left = 201
  Top = 124
  Caption = 'V�sledky p�rov�n�'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter: TSplitter
    Left = 199
    Top = 26
    Height = 262
  end
  inherited LeftPanel: TPanel
    Top = 26
    Width = 129
    Height = 262
    object RightInLeftPanel: TPanel
      Left = 126
      Top = 0
      Width = 3
      Height = 258
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
    end
    object LeftInLeftPanel: TPanel
      Left = 0
      Top = 0
      Width = 8
      Height = 258
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 1
    end
    object BottomInLeftPanel: TPanel
      Left = 0
      Top = 258
      Width = 129
      Height = 4
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 0
      Width = 118
      Height = 258
      Align = alClient
      DataSource = MasterDS
      Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          FieldName = 'CisloZakazky'
          Title.Caption = '��slo zak�zky'
          Width = 97
        end>
    end
  end
  inherited BottomRightPanel: TPanel
    Left = 203
    Top = 26
    Width = 419
    Height = 262
    inherited DBGrid: TDrDBGrid
      Width = 418
      Height = 168
      Columns = <
        item
          FieldName = 'CisloZakazky'
          PickList.Strings = ()
          Title.Caption = '��slo'
          Width = 41
        end
        item
          FieldName = 'Datum'
          PickList.Strings = ()
          Width = 60
        end
        item
          FieldName = 'TypObjektu'
          PickList.Strings = ()
          Title.Caption = 'Kategorie objektu'
          Width = 113
        end
        item
          FieldName = 'TypZakazky'
          PickList.Strings = ()
          Width = 96
        end
        item
          FieldName = 'Obec'
          PickList.Strings = ()
          Width = 105
        end
        item
          ButtonStyle = cbsEllipsis
          FieldName = 'CheckMark'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '�'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -11
          Title.Font.Name = 'Wingdings'
          Title.Font.Style = []
          Width = 15
        end>
    end
    inherited RightPanel: TPanel
      Left = 418
      Height = 168
    end
    inherited BottomPanel: TPanel
      Top = 190
      Width = 419
      inherited BottomBottomRightPanel: TPanel
        Left = 323
        inherited CancelBtn: TBitBtn
          Left = 381
        end
      end
    end
    inherited TopPanel: TPanel
      Width = 419
      object MasterLabel: TLabel [0]
        Left = 8
        Top = 7
        Width = 96
        Height = 13
        Caption = 'Seznamzak�zek:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      inherited TopLeftPanel: TPanel
        inherited Label1: TLabel
          Left = 130
        end
      end
      inherited TopRightPanel: TPanel
        Left = 242
      end
    end
  end
  object ProhlizeniParCoolBar: TCoolBar [4]
    Left = 0
    Top = 0
    Width = 622
    Height = 26
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 589
      end>
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 614
      Height = 22
      Align = alBottom
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      HotImages = PomocneDM.BtnHotImages
      Images = PomocneDM.BtnImages
      TabOrder = 0
      object EditovatSBtn: TToolButton
        Left = 0
        Top = 0
        Width = 23
        Height = 22
        Hint = 'ToolButton2'
        Caption = 'Opravit'
        ImageIndex = 1
        OnClick = EditovatSBtnClick
      end
      object UkazatSBtn: TToolButton
        Left = 23
        Top = 0
        Width = 23
        Height = 22
        Hint = 'ToolButton3'
        Caption = 'Uk�zat'
        ImageIndex = 2
        OnClick = UkazatSBtnClick
      end
      object VymazatSBtn: TToolButton
        Left = 46
        Top = 0
        Width = 23
        Height = 22
        Hint = 'ToolButton4'
        Caption = 'Do arch�vu'
        ImageIndex = 15
        OnClick = VymazatSBtnClick
      end
      object ToolButton1: TToolButton
        Left = 69
        Top = 0
        Width = 8
        Height = 22
        Caption = 'ToolButton1'
        ImageIndex = 5
        Style = tbsDivider
      end
      object HledatSBtn: TToolButton
        Left = 77
        Top = 0
        Width = 23
        Height = 22
        Hint = 'ToolButton1'
        Caption = 'Hledat'
        ImageIndex = 4
        OnClick = HledatSBtnClick
      end
    end
  end
  inherited BottomLeftPanel: TPanel
    Left = 129
    Top = 26
    Height = 262
    inherited AutoOutLookBar: TAutoOutLookBar
      Height = 262
    end
  end
  inherited ZakazkyTbl: TTable
    Active = True
    IndexFieldNames = ''
    IndexName = 'NabidkaPoptavka_Ind'
    TableName = 'Zakazky.DB'
  end
  inherited ProhlizeniMenu: TMainMenu
    inherited AktZakazkaMnI: TMenuItem
      object Presun1MnI: TMenuItem [3]
        Caption = 'P�esunout do &arch�vu'
        OnClick = Presun1MnIClick
      end
      inherited _PresunoutDoSlozkyMnI: TMenuItem
        Visible = False
      end
    end
    inherited OperaceMnI: TMenuItem
      object PresunMnI: TMenuItem
        Caption = 'P�esunout do &arch�vu'
        OnClick = PresunMnIClick
      end
    end
    inherited NastrojeMni: TMenuItem
      inherited NastrojeSep: TMenuItem
        Visible = False
      end
      inherited FiltrovatMnI: TMenuItem
        Visible = False
      end
      inherited ZrusitFiltrovaniMnI: TMenuItem
        Visible = False
      end
    end
    inherited SlozkyMnI: TMenuItem
      inherited ZobrazitSlozkyMnI: TMenuItem
        Visible = False
      end
    end
  end
  inherited PopupMenu: TPopupMenu
    inherited PresunoutDoSlozkyMnI: TMenuItem
      Visible = False
    end
  end
  object MasterTbl: TTable
    Active = True
    DatabaseName = 'RealityDB'
    IndexName = 'NabidkaPoptavka_Ind'
    TableName = 'Zakazky.DB'
    Left = 88
    Top = 144
    object MasterTblCisloZakazky: TStringField
      FieldName = 'CisloZakazky'
      Required = True
      Size = 30
    end
    object MasterTblClassID: TStringField
      FieldName = 'ClassID'
      Required = True
    end
    object MasterTblNabidkaPoptavka: TStringField
      FieldName = 'NabidkaPoptavka'
      Required = True
      Size = 1
    end
    object MasterTblCisloZakaznika: TStringField
      FieldName = 'CisloZakaznika'
      Required = True
      Size = 10
    end
    object MasterTblTypZakazky: TStringField
      FieldName = 'TypZakazky'
      Required = True
      Size = 40
    end
    object MasterTblDatum: TDateField
      FieldName = 'Datum'
    end
    object MasterTblObjectData: TBlobField
      FieldName = 'ObjectData'
      BlobType = ftBlob
      Size = 240
    end
    object MasterTblUlice: TStringField
      FieldName = 'Ulice'
      Size = 100
    end
    object MasterTblObec: TStringField
      FieldName = 'Obec'
      Size = 60
    end
    object MasterTblPSC: TStringField
      FieldName = 'PSC'
      Size = 6
    end
  end
  object MasterDS: TDataSource
    DataSet = MasterTbl
    OnDataChange = MasterSourceDataChange
    Left = 32
    Top = 144
  end
end