339 lines
9.6 KiB
Plaintext
339 lines
9.6 KiB
Plaintext
|
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
|