ConstruccionesCNJ_FactuGES/Base/Documentos asociados/uViewDocumentosAsociados.dfm

inherited frViewDocumentosAsociados: TfrViewDocumentosAsociados
  Width = 692
  Height = 370
  OnDestroy = CustomViewDestroy
  OnHide = CustomViewHide
  OnShow = CustomViewShow
  ExplicitWidth = 692
  ExplicitHeight = 370
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 692
    Height = 370
    Align = alClient
    ParentBackground = True
    TabOrder = 0
    AutoContentSizes = [acsWidth, acsHeight]
    DesignSize = (
      692
      370)
    object Panel10: TPanel
      Left = 10
      Top = 41
      Width = 721
      Height = 417
      Align = alClient
      BevelOuter = bvNone
      Caption = ' '
      TabOrder = 2
      object Splitter1: TSplitter
        Left = 0
        Top = 0
        Height = 417
        Beveled = True
        ExplicitLeft = 185
      end
      object Panel11: TPanel
        Left = 3
        Top = 0
        Width = 718
        Height = 417
        Align = alClient
        BevelOuter = bvNone
        Caption = ' '
        ParentColor = True
        TabOrder = 0
        ExplicitWidth = 669
        ExplicitHeight = 319
        object explo: TcxShellListView
          Left = 0
          Top = 19
          Width = 718
          Height = 398
          Align = alClient
          DragDropSettings.DefaultDropEffect = deCopy
          DragDropSettings.DropEffect = []
          MultiSelect = True
          Options.ShowFolders = False
          Options.ContextMenus = False
          Options.TrackShellChanges = False
          Options.ShowToolTip = False
          Options.AutoNavigate = False
          ParentShowHint = False
          PopupMenu = GridPopupMenu
          Root.BrowseFolder = bfCustomPath
          ShowHint = True
          Style.LookAndFeel.NativeStyle = True
          StyleDisabled.LookAndFeel.NativeStyle = True
          StyleFocused.LookAndFeel.NativeStyle = True
          StyleHot.LookAndFeel.NativeStyle = True
          StyleHot.TextStyle = []
          TabOrder = 0
          ViewStyle = vsList
          OnDblClick = exploDblClick
          ExplicitWidth = 669
          ExplicitHeight = 300
        end
        object ToolBar1: TToolBar
          Left = 0
          Top = 0
          Width = 718
          Height = 19
          AutoSize = True
          ButtonHeight = 19
          ButtonWidth = 104
          Caption = 'ToolBar1'
          EdgeInner = esNone
          EdgeOuter = esNone
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          List = True
          ParentFont = False
          ShowCaptions = True
          TabOrder = 1
          ExplicitWidth = 669
          object ToolButton1: TToolButton
            Left = 0
            Top = 0
            Action = actAnadirDocumento
          end
          object ToolButton4: TToolButton
            Left = 104
            Top = 0
            Action = actCopiarDocumento
          end
          object ToolButton2: TToolButton
            Left = 208
            Top = 0
            Action = actEliminarDocumento
          end
          object ToolButton3: TToolButton
            Left = 312
            Top = 0
            Width = 8
            Caption = 'ToolButton3'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton5: TToolButton
            Left = 320
            Top = 0
            Action = actAbrirDocumento
          end
        end
      end
    end
    object edtlDirectorio: TcxTextEdit
      Left = 70
      Top = 10
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      ParentFont = False
      Properties.ReadOnly = True
      Properties.UseLeftAlignmentOnEditing = False
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.LookAndFeel.Kind = lfStandard
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.Kind = lfStandard
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.TextColor = clActiveCaption
      StyleFocused.LookAndFeel.Kind = lfStandard
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 0
      Height = 21
      Width = 400
    end
    object Button1: TButton
      Left = 582
      Top = 10
      Width = 100
      Height = 25
      Caption = 'Abrir carpeta ...'
      TabOrder = 1
      OnClick = Button1Click
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object dxLayoutControl1Group1: TdxLayoutGroup
        AutoAligns = [aaHorizontal]
        AlignVert = avClient
        Caption = 'Documentos'
        ShowCaption = False
        ShowBorder = False
        object dxLayoutControl1Group2: TdxLayoutGroup
          ShowCaption = False
          Hidden = True
          LayoutDirection = ldHorizontal
          ShowBorder = False
          object dxLayoutControl1Item2: TdxLayoutItem
            AutoAligns = [aaVertical]
            AlignHorz = ahClient
            Caption = 'Directorio:'
            Offsets.Left = 5
            Offsets.Right = 5
            Control = edtlDirectorio
            ControlOptions.ShowBorder = False
          end
          object dxLayoutControl1Item3: TdxLayoutItem
            Caption = 'Button1'
            ShowCaption = False
            Control = Button1
            ControlOptions.ShowBorder = False
          end
        end
        object dxLayoutControl1Item1: TdxLayoutItem
          AutoAligns = [aaHorizontal]
          AlignVert = avClient
          Caption = 'New Item'
          ShowCaption = False
          Control = Panel10
          ControlOptions.AutoColor = True
          ControlOptions.ShowBorder = False
        end
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 344
    Top = 8
  end
  object ActionList1: TActionList
    Left = 312
    Top = 8
    object actAnadirDocumento: TAction
      Category = 'Archivos'
      Caption = 'A'#241'adir documento'
      ShortCut = 45
      OnExecute = actAnadirDocumentoExecute
      OnUpdate = actAnadirDocumentoUpdate
    end
    object actEliminarDocumento: TAction
      Category = 'Archivos'
      Caption = 'Eliminar documento'
      ShortCut = 46
      OnExecute = actEliminarDocumentoExecute
      OnUpdate = actEliminarDocumentoUpdate
    end
    object actAbrirDocumento: TAction
      Category = 'Archivos'
      Caption = 'Abrir documento'
      OnExecute = actAbrirDocumentoExecute
      OnUpdate = actAbrirDocumentoUpdate
    end
    object actAnadirDir: TAction
      Category = 'Directorios'
      Caption = 'A'#241'adir'
    end
    object actEliminarDir: TAction
      Category = 'Directorios'
      Caption = 'Eliminar'
    end
    object actCopiarDocumento: TAction
      Category = 'Archivos'
      Caption = 'Copiar documento'
      OnExecute = actCopiarDocumentoExecute
      OnUpdate = actCopiarDocumentoUpdate
    end
  end
  object GridPopupMenu: TPopupMenu
    Left = 536
    Top = 64
    object Modificar1: TMenuItem
      Action = actAbrirDocumento
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Nuevo1: TMenuItem
      Action = actAnadirDocumento
    end
    object Copiar1: TMenuItem
      Action = actCopiarDocumento
    end
    object Previsualizar1: TMenuItem
      Action = actEliminarDocumento
    end
  end
  object PopupMenuDir: TPopupMenu
    Left = 128
    Top = 64
    object MenuItem1: TMenuItem
      Action = actAnadirDir
    end
    object MenuItem3: TMenuItem
      Action = actEliminarDir
    end
  end
end