AlonsoYSal_FactuGES/Modulos/Presupuestos/Cliente/uViewContenido.dfm

inherited frViewContenido: TfrViewContenido
  Width = 634
  Height = 349
  object cxGrid: TcxGrid
    Left = 0
    Top = 24
    Width = 634
    Height = 325
    Align = alClient
    TabOrder = 0
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.NativeStyle = True
    object cxGridView: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      OnCustomDrawCell = cxGridViewCustomDrawCell
      DataController.DataSource = DADataSource
      DataController.Filter.Options = [fcoCaseInsensitive]
      DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoFocusTopRowAfterSorting]
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = ',0.00 '#8364';-,0.00 '#8364
          Kind = skSum
          Column = cxGridViewIMPORTETOTAL
        end>
      DataController.Summary.SummaryGroups = <>
      Filtering.Visible = fvNever
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusCellOnTab = True
      OptionsBehavior.GoToNextCellOnEnter = True
      OptionsBehavior.FocusCellOnCycle = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsCustomize.DataRowSizing = True
      OptionsData.Appending = True
      OptionsSelection.InvertSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.CellEndEllipsis = True
      OptionsView.CellAutoHeight = True
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GridLineColor = cl3DLight
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle
      object cxGridViewRecID: TcxGridDBColumn
        DataBinding.FieldName = 'RecID'
        Visible = False
        Width = 49
      end
      object cxGridViewCODIGOPRESUPUESTO: TcxGridDBColumn
        DataBinding.FieldName = 'CODIGOPRESUPUESTO'
        Visible = False
        Width = 157
      end
      object cxGridViewNUMCONCEPTO: TcxGridDBColumn
        DataBinding.FieldName = 'NUMCONCEPTO'
        Visible = False
        Width = 119
      end
      object cxGridViewPOSICION: TcxGridDBColumn
        DataBinding.FieldName = 'POSICION'
        Visible = False
        SortIndex = 0
        SortOrder = soAscending
        Width = 93
      end
      object cxGridViewTIPO: TcxGridDBColumn
        DataBinding.FieldName = 'TIPO'
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.DropDownListStyle = lsFixedList
        Properties.ImmediatePost = True
        Properties.Items.Strings = (
          'A'
          'C'
          'S')
        Width = 120
      end
      object cxGridViewDESCRIPCION: TcxGridDBColumn
        DataBinding.FieldName = 'DESCRIPCION'
        PropertiesClassName = 'TcxTextEditProperties'
        Width = 101
      end
      object cxGridViewCANTIDAD: TcxGridDBColumn
        DataBinding.FieldName = 'CANTIDAD'
        PropertiesClassName = 'TcxSpinEditProperties'
        Properties.Alignment.Horz = taRightJustify
        Width = 77
      end
      object cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
        DataBinding.FieldName = 'IMPORTEUNIDAD'
        PropertiesClassName = 'TcxCurrencyEditProperties'
        Properties.Alignment.Horz = taRightJustify
        Properties.UseThousandSeparator = True
        Width = 124
      end
      object cxGridViewIMPORTETOTAL: TcxGridDBColumn
        DataBinding.FieldName = 'IMPORTETOTAL'
        PropertiesClassName = 'TcxCurrencyEditProperties'
        Properties.Alignment.Horz = taRightJustify
        Properties.ReadOnly = True
        Properties.UseThousandSeparator = True
        Options.Editing = False
        Options.Focusing = False
        Options.Moving = False
        Styles.Content = cxStyle_IMPORTETOTAL
        Width = 107
      end
    end
    object cxGridLevel: TcxGridLevel
      GridView = cxGridView
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 634
    Height = 24
    AutoSize = True
    ButtonWidth = 85
    Caption = 'ToolBar1'
    EdgeBorders = [ebBottom]
    Flat = True
    Images = ContenidoImageList
    List = True
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 1
    Transparent = True
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = actAnadir
      AutoSize = True
      ImageIndex = 0
    end
    object ToolButton2: TToolButton
      Left = 62
      Top = 0
      Action = actEliminar
      AutoSize = True
      ImageIndex = 1
    end
    object ToolButton4: TToolButton
      Left = 129
      Top = 0
      Action = RichEditBold1
      AutoSize = True
    end
    object ToolButton5: TToolButton
      Left = 180
      Top = 0
      Action = RichEditItalic1
    end
    object ToolButton6: TToolButton
      Left = 265
      Top = 0
      Action = RichEditStrikeOut1
    end
    object ToolButton3: TToolButton
      Left = 350
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 358
      Top = 0
      Action = RichEditUnderline1
    end
    object ToolButton8: TToolButton
      Left = 443
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 451
      Top = 0
      Caption = 'ToolButton9'
      ImageIndex = 5
      OnClick = ToolButton9Click
    end
  end
  object ActionListContenido: TActionList
    Images = ContenidoImageList
    Left = 8
    Top = 104
    object actAnadir: TAction
      Caption = 'A'#241'adir'
      OnExecute = actAnadirExecute
    end
    object actEliminar: TAction
      Caption = 'Eliminar'
      OnExecute = actEliminarExecute
    end
    object RichEditBold1: TRichEditBold
      Category = 'Formato'
      AutoCheck = True
      Caption = '&Bold'
      Hint = 'Bold'
      ImageIndex = 2
      ShortCut = 16450
    end
    object RichEditItalic1: TRichEditItalic
      Category = 'Formato'
      AutoCheck = True
      Caption = '&Italic'
      Hint = 'Italic'
      ImageIndex = 3
      ShortCut = 16457
    end
    object RichEditUnderline1: TRichEditUnderline
      Category = 'Formato'
      AutoCheck = True
      Caption = '&Underline'
      Hint = 'Underline'
      ImageIndex = 4
      ShortCut = 16469
    end
    object RichEditStrikeOut1: TRichEditStrikeOut
      Category = 'Formato'
      AutoCheck = True
      Caption = '&Strikeout'
      Hint = 'Strikeout'
      ImageIndex = 5
    end
  end
  object DADataSource: TDADataSource
    DataTable = dmPresupuestos.tbl_DetallesPresupuestos
    Left = 8
    Top = 136
  end
  object ContenidoImageList: TPngImageList
    PngImages = <
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000000970485973000017120000171201679FD252000000D04944415478DA
          6364C0062630FCC72A5EC0C0882EC488CB80191909706EDDBA750CAF767D6260
          5830240DF8F9FB3743EBE6CD780CC011602003409A7F0071EF8E1D10030C30D5
          31A23B1706609AB1E23F7FC0F4FA2967B01B408CE6A3B76E815D856100319ABF
          FFFAC570EEC103540340218D0C92EDECE01AD79E398335ACE106305CC0942CAC
          77871BB0F5E2454820620138A331D3CB09EEECBD57AF929E0E629DADC106FCF9
          F70F1E602419106A67C6F01DE40260805D7AFC9874037C2C0D194EDDBD8B1260
          241900A6D103178B01000648ED7B1FCA93F30000000049454E44AE426082}
        Name = 'PngImage0'
        Background = clWindow
      end
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
          610000000970485973000017120000171201679FD2520000006E4944415478DA
          63FCFFFF3F03258071D40006C6397A1214990036203925952CCD73E7CCC66100
          C85BBF7F32307CFDC4C0F0FD2B03C33710FD05487F46E0374F19E6FE964032E0
          CF6F840120CD200D5F3F43357E42F0416C90013FBFA119B0B099742FC00CA028
          10073E1D0C7D030077CE5E397DD56C480000000049454E44AE426082}
        Name = 'PngImage1'
        Background = clWindow
      end>
    Left = 264
    Top = 40
    Bitmap = {}
  end
  object cxStyleRepository1: TcxStyleRepository
    Left = 264
    Top = 80
    object cxStyle_IMPORTETOTAL: TcxStyle
      AssignedValues = [svColor]
      Color = 16053492
    end
    object cxStyle_SUBTOTAL: TcxStyle
      AssignedValues = [svFont, svTextColor]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clHighlight
    end
  end
end