138 lines
3.5 KiB
Plaintext
138 lines
3.5 KiB
Plaintext
|
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
|