This repository has been archived on 2024-12-02. You can view files and clone it, but cannot push or open issues or pull requests.
AlonsoYSal_FactuGES/Modulos/Documentos asociados/uViewDocumentosAsociados.dfm
2007-06-21 16:02:50 +00:00

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