roberto
33a99cb3e7
version 2.0.4 git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@13 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
689 lines
22 KiB
Plaintext
689 lines
22 KiB
Plaintext
inherited fEditorObra: TfEditorObra
|
|
Left = 474
|
|
Top = 258
|
|
Width = 952
|
|
Height = 573
|
|
HorzScrollBar.Visible = False
|
|
VertScrollBar.Visible = False
|
|
Caption = 'Obra'
|
|
Scaled = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
|
Width = 944
|
|
Caption = 'Obra'
|
|
inherited Image1: TImage
|
|
Left = 917
|
|
end
|
|
end
|
|
inherited TBXDock: TTBXDock
|
|
Width = 944
|
|
inherited tbxMain: TTBXToolbar
|
|
inherited TBXItem2: TTBXItem
|
|
Visible = False
|
|
end
|
|
end
|
|
inherited tbxMenu: TTBXToolbar
|
|
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
|
Caption = 'Archivo'
|
|
inherited TBXItem8: TTBXItem
|
|
Visible = False
|
|
end
|
|
inherited TBXSeparatorItem5: TTBXSeparatorItem
|
|
Visible = False
|
|
end
|
|
end
|
|
inherited TBXSubmenuItem5: TTBXSubmenuItem
|
|
Caption = 'Edici'#243'n'
|
|
end
|
|
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
|
Caption = 'Buscar'
|
|
end
|
|
inherited TBXSubmenuItem6: TTBXSubmenuItem
|
|
Caption = 'Ver'
|
|
end
|
|
inherited TBXSubmenuItem7: TTBXSubmenuItem
|
|
Caption = 'Ayuda'
|
|
end
|
|
end
|
|
end
|
|
inherited pgPaginas: TPageControl
|
|
Width = 944
|
|
Height = 444
|
|
ActivePage = pagNormativas
|
|
OnChanging = pgPaginasChanging
|
|
inherited pagGeneral: TTabSheet
|
|
inline frViewObra: TfrViewObra
|
|
Left = 0
|
|
Top = 0
|
|
Width = 936
|
|
Height = 416
|
|
Align = alClient
|
|
AutoSize = True
|
|
Constraints.MinWidth = 600
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
ReadOnly = False
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 936
|
|
Height = 416
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
inherited frViewDatosObra: TfrViewDatosObra
|
|
Width = 436
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 436
|
|
ParentBackground = True
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
inherited edtFecIni: TcxDBDateEdit
|
|
Left = 99
|
|
end
|
|
inherited edtFecFin: TcxDBDateEdit
|
|
Left = 99
|
|
end
|
|
inherited edtNombre: TcxDBTextEdit
|
|
Left = 99
|
|
Properties.OnValidate = frViewDatosObraedtNombrePropertiesValidate
|
|
Width = 311
|
|
end
|
|
inherited edtDimensiones: TcxDBTextEdit
|
|
Left = 320
|
|
Width = 90
|
|
end
|
|
inherited cbTipoObra: TcxDBComboBox
|
|
Left = 99
|
|
Width = 311
|
|
end
|
|
end
|
|
end
|
|
inherited frViewDireccion: TfrViewDireccion
|
|
Left = 452
|
|
Width = 473
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 473
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
inherited eProvincia: TcxDBTextEdit
|
|
Left = 272
|
|
Width = 70
|
|
end
|
|
inherited eCalle: TcxDBTextEdit
|
|
Left = 94
|
|
Width = 272
|
|
end
|
|
inherited ePoblacion: TcxDBTextEdit
|
|
Left = 94
|
|
Width = 272
|
|
end
|
|
inherited eCodigoPostal: TcxDBTextEdit
|
|
Left = 94
|
|
end
|
|
end
|
|
end
|
|
inherited frViewCalculoHonorarios: TfrViewCalculoHonorarios
|
|
Left = 452
|
|
Width = 474
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 474
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
DesignSize = (
|
|
474
|
|
207)
|
|
inherited Bevel2: TBevel
|
|
Left = 20
|
|
Width = 420
|
|
end
|
|
inherited edtHonorarios: TcxDBSpinEdit
|
|
Left = 160
|
|
Width = 153
|
|
end
|
|
inherited cxDBRadioGroup1: TcxDBRadioGroup
|
|
Left = 160
|
|
Width = 153
|
|
end
|
|
inherited edtPresupuestosIni: TcxDBTextEdit
|
|
Left = 160
|
|
Width = 153
|
|
end
|
|
inherited edtPresupuestosFin: TcxDBTextEdit
|
|
Left = 160
|
|
Width = 153
|
|
end
|
|
inherited edtImporteHonorarios: TcxDBTextEdit
|
|
Left = 160
|
|
Enabled = False
|
|
Width = 153
|
|
end
|
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
|
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
|
inherited dxLayoutControl1Group4: TdxLayoutGroup
|
|
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
|
inherited dxLayoutControl1Item6: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
end
|
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
end
|
|
end
|
|
end
|
|
inherited dxLayoutControl1Item5: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited frViewClienteObra: TfrViewDatosYSeleccionContacto
|
|
Width = 436
|
|
Height = 214
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 436
|
|
Height = 214
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
inherited edtlNombre: TcxDBTextEdit
|
|
Left = 95
|
|
Width = 344
|
|
end
|
|
inherited edtTrabajo: TcxDBTextEdit
|
|
Left = 95
|
|
end
|
|
inherited edtParticular: TcxDBTextEdit
|
|
Left = 95
|
|
end
|
|
inherited edtMovil: TcxDBTextEdit
|
|
Left = 284
|
|
Width = 121
|
|
end
|
|
inherited edtCorreo: TcxDBTextEdit
|
|
Left = 95
|
|
Width = 344
|
|
end
|
|
inherited edtFax: TcxDBTextEdit
|
|
Left = 284
|
|
Width = 121
|
|
end
|
|
inherited ToolBar1: TToolBar
|
|
Left = 20
|
|
Width = 385
|
|
end
|
|
inherited ToolBar2: TToolBar
|
|
Left = 234
|
|
end
|
|
inherited edtNIFCIF: TcxDBTextEdit
|
|
Left = 95
|
|
Width = 310
|
|
end
|
|
end
|
|
end
|
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
|
AlignVert = avClient
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object pagNormativas: TTabSheet
|
|
Caption = 'Normativas'
|
|
ImageIndex = 4
|
|
inline frViewDocumentosAsociados: TfrViewDocumentosAsociados
|
|
Left = 0
|
|
Top = 0
|
|
Width = 936
|
|
Height = 416
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
ReadOnly = False
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 936
|
|
Height = 416
|
|
inherited Panel10: TPanel
|
|
Top = 37
|
|
Width = 721
|
|
Height = 417
|
|
inherited Splitter1: TSplitter
|
|
Width = 5
|
|
Height = 417
|
|
Beveled = False
|
|
end
|
|
inherited Panel11: TPanel
|
|
Left = 190
|
|
Width = 531
|
|
Height = 417
|
|
inherited explo: TcxShellListView
|
|
Width = 531
|
|
Height = 398
|
|
end
|
|
inherited ToolBar1: TToolBar
|
|
Width = 531
|
|
end
|
|
end
|
|
inherited Panel1: TPanel
|
|
Height = 417
|
|
inherited TreeExplo: TcxShellTreeView
|
|
Height = 398
|
|
end
|
|
inherited ToolBar2: TToolBar
|
|
ButtonWidth = 88
|
|
inherited ToolButton6: TToolButton
|
|
Caption = 'Crear carpeta'
|
|
end
|
|
inherited ToolButton7: TToolButton
|
|
Left = 88
|
|
Caption = 'Eliminar carpeta'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited edtlDirectorio: TcxTextEdit
|
|
Width = 400
|
|
end
|
|
inherited Button1: TButton
|
|
Left = 826
|
|
Height = 21
|
|
end
|
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
|
Caption = 'Normativas'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object pagContactos: TTabSheet
|
|
Caption = 'Contactos asociados'
|
|
ImageIndex = 1
|
|
object dxLayoutControl1: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 936
|
|
Height = 416
|
|
Align = alClient
|
|
ParentBackground = True
|
|
TabOrder = 0
|
|
AutoContentSizes = [acsWidth, acsHeight]
|
|
inline frViewContactosObra: TfrViewContactosObra
|
|
Left = 10
|
|
Top = 10
|
|
Width = 936
|
|
Height = 281
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
ReadOnly = False
|
|
inherited cxGrid: TcxGrid
|
|
Width = 936
|
|
Height = 253
|
|
inherited cxGridView: TcxGridDBTableView
|
|
PopupMenu = MenuContactos
|
|
OnCellDblClick = frViewContactosObracxGridViewCellDblClick
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Format = 'Total: 0 contactos asociados'
|
|
Kind = skCount
|
|
Column = frViewContactosObra.cxGridViewNOMBRE
|
|
end>
|
|
end
|
|
end
|
|
inherited ToolBar1: TToolBar
|
|
Width = 936
|
|
end
|
|
inherited ActionList1: TActionList
|
|
inherited actAnadir: TAction
|
|
OnExecute = frViewContactosObraactAnadirExecute
|
|
end
|
|
inherited actEliminar: TAction
|
|
OnExecute = frViewContactosObraactEliminarExecute
|
|
end
|
|
inherited actEliminarTodo: TAction
|
|
OnExecute = frViewContactosObraactEliminarTodoExecute
|
|
end
|
|
inherited actEditar: TAction
|
|
OnExecute = frViewContactosObraactEditarExecute
|
|
end
|
|
end
|
|
inherited dxComponentPrinter: TdxComponentPrinter
|
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
ReportDocument.CreationDate = 38831.540631446760000000
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Contactos'
|
|
ShowCaption = False
|
|
ShowBorder = False
|
|
object dxLayoutControl1Item1: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Contactos'
|
|
ShowCaption = False
|
|
Control = frViewContactosObra
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object pagPresupuestos: TTabSheet
|
|
Caption = 'Presupuestos'
|
|
ImageIndex = 2
|
|
inline frViewPresupuestosObra: TfrViewPresupuestosObra
|
|
Left = 0
|
|
Top = 0
|
|
Width = 936
|
|
Height = 416
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
ReadOnly = False
|
|
inherited dxLayoutControl1: TdxLayoutControl
|
|
Width = 936
|
|
Height = 416
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
inherited ToolBar1: TToolBar
|
|
Left = 20
|
|
Width = 782
|
|
end
|
|
inherited ToolBar2: TToolBar
|
|
Left = 20
|
|
Top = 229
|
|
Width = 782
|
|
end
|
|
inherited frViewPresupuestosPreDec: TfrViewPresupuestosBase
|
|
Left = 20
|
|
Top = 257
|
|
Height = 300
|
|
inherited cxGrid: TcxGrid
|
|
Height = 300
|
|
inherited cxGridView: TcxGridDBTableView
|
|
PopupMenu = frViewPresupuestosObra.MenuPreDec
|
|
DataController.DataSource = frViewPresupuestosObra.DADataSourcePreDec
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Format = 'Total: 0 presupuestos de decoraci'#243'n'
|
|
Kind = skCount
|
|
Column = frViewPresupuestosObra.frViewPresupuestosPreDec.cxGridViewNOMBRE
|
|
end>
|
|
inherited cxGridViewACEPTADO: TcxGridDBColumn
|
|
IsCaptionAssigned = True
|
|
end
|
|
end
|
|
end
|
|
inherited dxComponentPrinter: TdxComponentPrinter
|
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
end
|
|
inherited frViewPresupuestosPreObr: TfrViewPresupuestosBase
|
|
Left = 20
|
|
Height = 300
|
|
inherited cxGrid: TcxGrid
|
|
Height = 300
|
|
inherited cxGridView: TcxGridDBTableView
|
|
PopupMenu = frViewPresupuestosObra.MenuPreObr
|
|
DataController.DataSource = frViewPresupuestosObra.DADataSourcePreObr
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Format = 'Total: 0 presupuestos de obra'
|
|
Kind = skCount
|
|
Column = frViewPresupuestosObra.frViewPresupuestosPreObr.cxGridViewNOMBRE
|
|
end>
|
|
inherited cxGridViewACEPTADO: TcxGridDBColumn
|
|
IsCaptionAssigned = True
|
|
end
|
|
end
|
|
end
|
|
inherited dxComponentPrinter: TdxComponentPrinter
|
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
end
|
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
|
Caption = 'Presupuestos de obra'
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
end
|
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
|
Caption = 'Presupuestos de decoraci'#243'n'
|
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
end
|
|
end
|
|
end
|
|
inherited ActionList1: TActionList
|
|
inherited actAnadirPreObr: TAction
|
|
OnExecute = frViewPresupuestosObraactAnadirPreObrExecute
|
|
end
|
|
inherited actAnadirPreDec: TAction
|
|
OnExecute = frViewPresupuestosObraactAnadirPreDecExecute
|
|
end
|
|
inherited actEditarPreObr: TAction
|
|
OnExecute = frViewPresupuestosObraactEditarPreObrExecute
|
|
end
|
|
inherited actEditarPreDec: TAction
|
|
OnExecute = frViewPresupuestosObraactEditarPreDecExecute
|
|
end
|
|
inherited actEliminarPreObr: TAction [4]
|
|
end
|
|
inherited actEliminarPreDec: TAction [5]
|
|
end
|
|
end
|
|
inherited dxComponentPrinter: TdxComponentPrinter
|
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
inherited MenuPreObr: TPopupMenu
|
|
Top = 119
|
|
end
|
|
inherited MenuPreDec: TPopupMenu
|
|
Left = 424
|
|
Top = 392
|
|
end
|
|
end
|
|
end
|
|
object pagTrabajos: TTabSheet
|
|
Caption = 'Trabajos'
|
|
ImageIndex = 3
|
|
object dxLayoutControl2: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 936
|
|
Height = 416
|
|
Align = alClient
|
|
ParentBackground = True
|
|
TabOrder = 0
|
|
AutoContentSizes = [acsWidth, acsHeight]
|
|
inline frViewTrabajosObra: TfrViewTrabajosObra
|
|
Left = 10
|
|
Top = 10
|
|
Width = 936
|
|
Height = 257
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
ReadOnly = False
|
|
inherited ToolBar1: TToolBar
|
|
Width = 936
|
|
end
|
|
inherited frViewTrabajos: TfrViewPresupuestosBase
|
|
Width = 936
|
|
Height = 229
|
|
inherited cxGrid: TcxGrid
|
|
Width = 936
|
|
Height = 229
|
|
inherited cxGridView: TcxGridDBTableView
|
|
PopupMenu = MenuTrabajos
|
|
OnCellDblClick = frViewTrabajoscxGridViewCellDblClick
|
|
DataController.DataSource = frViewTrabajosObra.DADataSource
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
Column = frViewTrabajosObra.frViewTrabajos.cxGridViewPRESUPUESTOINICIAL
|
|
end
|
|
item
|
|
Format = 'Total: 0 trabajos'
|
|
Kind = skCount
|
|
Column = frViewTrabajosObra.frViewTrabajos.cxGridViewNOMBRE
|
|
end>
|
|
end
|
|
end
|
|
inherited dxComponentPrinter: TdxComponentPrinter
|
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
end
|
|
inherited ActionList1: TActionList
|
|
inherited actEditar: TAction
|
|
OnExecute = frViewTrabajosObraactEditarExecute
|
|
end
|
|
inherited actAnadir: TAction
|
|
OnExecute = frViewTrabajosObraactAnadirExecute
|
|
end
|
|
end
|
|
inherited dxComponentPrinter: TdxComponentPrinter
|
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl2Group_Root: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl2Group1: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Trabajos'
|
|
ShowCaption = False
|
|
ShowBorder = False
|
|
object dxLayoutControl2Item1: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Control = frViewTrabajosObra
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited StatusBar: TStatusBar
|
|
Top = 520
|
|
Width = 944
|
|
end
|
|
inherited EditorActionList: TActionList
|
|
Left = 0
|
|
Top = 120
|
|
inherited actModificar: TAction
|
|
Visible = False
|
|
end
|
|
inherited actConfPagina: TAction
|
|
Visible = False
|
|
end
|
|
inherited actPrevisualizar: TAction
|
|
Visible = False
|
|
end
|
|
inherited actImprimir: TAction
|
|
Visible = False
|
|
end
|
|
end
|
|
inherited SmallImages: TPngImageList
|
|
Top = 112
|
|
end
|
|
inherited LargeImages: TPngImageList
|
|
Top = 112
|
|
end
|
|
inherited JvFormStorage: TJvFormStorage
|
|
Top = 136
|
|
end
|
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage
|
|
Top = 144
|
|
end
|
|
inherited dsDataTable: TDADataSource
|
|
OnDataChange = dsDataTableDataChange
|
|
Left = 32
|
|
Top = 120
|
|
end
|
|
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
|
end
|
|
end
|
|
object MenuTrabajos: TPopupMenu
|
|
Left = 624
|
|
Top = 272
|
|
object MenuItem1: TMenuItem
|
|
Action = frViewTrabajosObra.actAnadir
|
|
end
|
|
object MenuItem2: TMenuItem
|
|
Action = frViewTrabajosObra.actEliminar
|
|
end
|
|
object MenuItem3: TMenuItem
|
|
Action = frViewTrabajosObra.actEliminarTodo
|
|
end
|
|
object MenuItem4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object MenuItem5: TMenuItem
|
|
Action = frViewTrabajosObra.actEditar
|
|
end
|
|
end
|
|
object MenuContactos: TPopupMenu
|
|
Left = 320
|
|
Top = 224
|
|
object MenuItem6: TMenuItem
|
|
Action = frViewContactosObra.actAnadir
|
|
end
|
|
object MenuItem7: TMenuItem
|
|
Action = frViewContactosObra.actEliminar
|
|
end
|
|
object MenuItem8: TMenuItem
|
|
Action = frViewContactosObra.actEliminarTodo
|
|
end
|
|
object MenuItem9: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object MenuItem10: TMenuItem
|
|
Action = frViewContactosObra.actEditar
|
|
end
|
|
end
|
|
end
|