inherited frViewDocumentosAsociados: TfrViewDocumentosAsociados Width = 692 Height = 370 OnDestroy = CustomViewDestroy OnShow = CustomViewShow 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 = ' ' ParentBackground = True TabOrder = 2 object Splitter1: TSplitter Left = 185 Top = 0 Height = 417 Beveled = True end object Panel11: TPanel Left = 188 Top = 0 Width = 533 Height = 417 Align = alClient BevelOuter = bvNone Caption = ' ' ParentBackground = True ParentColor = True TabOrder = 0 object explo: TcxShellListView Left = 0 Top = 19 Width = 533 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 end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 533 Height = 19 AutoSize = True ButtonHeight = 19 ButtonWidth = 104 Caption = 'ToolBar1' EdgeBorders = [] EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] List = True ParentFont = False ShowCaptions = True TabOrder = 1 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 object Panel1: TPanel Left = 0 Top = 0 Width = 185 Height = 417 Align = alLeft BevelOuter = bvNone Caption = 'Panel1' ParentBackground = True ParentColor = True TabOrder = 1 object TreeExplo: TcxShellTreeView Left = 0 Top = 19 Width = 185 Height = 398 Align = alClient DragDropSettings.AllowDragObjects = False Indent = 19 Options.ShowNonFolders = False Options.ContextMenus = False PopupMenu = PopupMenuDir RightClickSelect = True Root.BrowseFolder = bfCustomPath ShellListView = explo Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 end object ToolBar2: TToolBar Left = 0 Top = 0 Width = 185 Height = 19 AutoSize = True ButtonHeight = 19 ButtonWidth = 48 Caption = 'ToolBar1' EdgeBorders = [] EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] List = True ParentFont = False ShowCaptions = True TabOrder = 1 object ToolButton6: TToolButton Left = 0 Top = 0 Action = actAnadirDir end object ToolButton7: TToolButton Left = 48 Top = 0 Action = actEliminarDir 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' OnExecute = actAnadirDocumentoExecute OnUpdate = actAnadirDocumentoUpdate end object actEliminarDocumento: TAction Category = 'Archivos' Caption = 'Eliminar documento' 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' OnExecute = actAnadirDirExecute end object actEliminarDir: TAction Category = 'Directorios' Caption = 'Eliminar' OnExecute = actEliminarDirExecute OnUpdate = actEliminarDirUpdate 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