inherited frViewDocumentosAsociados: TfrViewDocumentosAsociados Width = 721 Height = 487 ParentFont = True OnDestroy = CustomViewDestroy object Panel10: TPanel Left = 0 Top = 0 Width = 721 Height = 487 Align = alClient BevelOuter = bvNone BorderWidth = 10 Caption = ' ' Color = clWhite ParentBackground = True TabOrder = 0 object Panel11: TPanel Left = 10 Top = 40 Width = 701 Height = 437 Align = alClient BevelOuter = bvNone BorderWidth = 5 Caption = ' ' ParentBackground = True ParentColor = True TabOrder = 0 object explo: TcxShellListView Left = 5 Top = 5 Width = 691 Height = 427 Align = alClient DragDropSettings.DefaultDropEffect = deCopy DragDropSettings.DropEffect = [] IconOptions.WrapText = False MultiSelect = True Options.ShowFolders = False Options.ContextMenus = False Options.TrackShellChanges = False Options.ShowToolTip = False Options.AutoNavigate = False ParentFont = False PopupMenu = GridPopupMenu Root.BrowseFolder = bfCustomPath Style.Font.Charset = DEFAULT_CHARSET Style.Font.Color = clBlack Style.Font.Height = -11 Style.Font.Name = 'Tahoma' Style.Font.Style = [] Style.IsFontAssigned = True TabOrder = 0 OnDblClick = exploDblClick end end object pnlBarraDocumentos: TPanel Left = 10 Top = 10 Width = 701 Height = 30 Align = alTop AutoSize = True BevelOuter = bvNone BorderWidth = 5 Caption = ' ' ParentBackground = True ParentColor = True TabOrder = 1 object Button1: TButton Left = 8 Top = 5 Width = 116 Height = 20 Action = actAnadirDocumento TabOrder = 0 end object Button2: TButton Left = 129 Top = 5 Width = 116 Height = 20 Action = actElliminarDocumento TabOrder = 1 end end end object OpenDialog1: TOpenDialog Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] Left = 392 Top = 8 end object ActionList1: TActionList Left = 312 Top = 8 object actAnadirDocumento: TAction Caption = 'A'#241'adir documento' OnExecute = actAnadirDocumentoExecute end object actElliminarDocumento: TAction Caption = 'Eliminar documento' OnExecute = actElliminarDocumentoExecute OnUpdate = actElliminarDocumentoUpdate end object actAbrirDocumento: TAction Caption = 'Abrir' OnExecute = actAbrirDocumentoExecute OnUpdate = actAbrirDocumentoUpdate end end object GridPopupMenu: TPopupMenu Left = 432 Top = 8 object Modificar1: TMenuItem Action = actAbrirDocumento end object N1: TMenuItem Caption = '-' end object Nuevo1: TMenuItem Action = actAnadirDocumento end object Previsualizar1: TMenuItem Action = actElliminarDocumento end end object JvChangeNotify1: TJvChangeNotify Notifications = < item end> FreeOnTerminate = False OnChangeNotify = JvChangeNotify1ChangeNotify Left = 352 Top = 8 end end