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