object frElegirEmpresa: TfrElegirEmpresa
  Left = 0
  Top = 0
  Width = 594
  Height = 370
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentColor = False
  ParentFont = False
  TabOrder = 0
  OnShow = RdxFrameEmpresasShow
  object Shape1: TShape
    Left = 0
    Top = 60
    Width = 594
    Height = 1
    Align = alTop
  end
  object Image6: TImage
    Left = 0
    Top = 61
    Width = 594
    Height = 10
    Align = alTop
    AutoSize = True
    Picture.Data = {
[encoded data, 6674 characters]
      00000000000070F3055D4F456D7A09CCBF0000000049454E44AE426082}
  end
  object DBCtrlGrid1: TDBCtrlGrid
    Left = 24
    Top = 80
    Width = 550
    Height = 240
    AllowDelete = False
    AllowInsert = False
    Color = 15726583
    DataSource = dsEmpresas
    PanelBorder = gbNone
    PanelHeight = 60
    PanelWidth = 533
    ParentColor = False
    TabOrder = 0
    RowCount = 4
    SelectedColor = 12775679
    OnDblClick = actAbrirExecute
    object DBText1: TDBText
      Left = 169
      Top = 6
      Width = 267
      Height = 17
      DataField = 'NOMBRECOMERCIAL'
      DataSource = dsEmpresas
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnDblClick = actAbrirExecute
    end
    object DBText2: TDBText
      Left = 170
      Top = 24
      Width = 266
      Height = 28
      DataSource = dsEmpresas
      Transparent = True
      Visible = False
      OnDblClick = actAbrirExecute
    end
    object FourthStandardButton1: TFourthStandardButton
      Left = 438
      Top = 8
      Width = 90
      Height = 20
      Action = actModificar
      Caption = 'Modificar'
      Options.Alignment = taLeftJustify
      Options.BackgroundColor = 14280169
      Options.DisabledFont.Charset = DEFAULT_CHARSET
      Options.DisabledFont.Color = clBtnShadow
      Options.DisabledFont.Height = -11
      Options.DisabledFont.Name = 'Tahoma'
      Options.DisabledFont.Style = []
      Options.DrawLeftLine = True
      Options.DrawRightLine = True
      Options.Font.Charset = DEFAULT_CHARSET
      Options.Font.Color = clBlack
      Options.Font.Height = -11
      Options.Font.Name = 'Tahoma'
      Options.Font.Style = []
      Options.HotTrackCursor = crDefault
      Options.HotTrackFont.Charset = DEFAULT_CHARSET
      Options.HotTrackFont.Color = clBtnText
      Options.HotTrackFont.Height = -11
      Options.HotTrackFont.Name = 'Tahoma'
      Options.HotTrackFont.Style = []
      Options.Level1LightColor = 8623776
      Options.Level1ShadowColor = 8623776
      Options.Level2LightColor = 8623776
      Options.Level2ShadowColor = 8623776
      Options.Level3Color = 15726583
      Options.SeparatorStyle = ssRectangle
      Options.Transparent = False
      Options.VertLineColor = 8623776
    end
    object FourthStandardButton2: TFourthStandardButton
      Left = 438
      Top = 33
      Width = 90
      Height = 20
      Action = actEliminar
      Caption = 'Eliminar'
      Options.Alignment = taLeftJustify
      Options.BackgroundColor = 14280169
      Options.DisabledFont.Charset = DEFAULT_CHARSET
      Options.DisabledFont.Color = clBtnShadow
      Options.DisabledFont.Height = -11
      Options.DisabledFont.Name = 'Tahoma'
      Options.DisabledFont.Style = []
      Options.DrawLeftLine = True
      Options.DrawRightLine = True
      Options.Font.Charset = DEFAULT_CHARSET
      Options.Font.Color = clBlack
      Options.Font.Height = -11
      Options.Font.Name = 'Tahoma'
      Options.Font.Style = []
      Options.HotTrackCursor = crDefault
      Options.HotTrackFont.Charset = DEFAULT_CHARSET
      Options.HotTrackFont.Color = clBtnText
      Options.HotTrackFont.Height = -11
      Options.HotTrackFont.Name = 'Tahoma'
      Options.HotTrackFont.Style = []
      Options.Level1LightColor = 8623776
      Options.Level1ShadowColor = 8623776
      Options.Level2LightColor = 8623776
      Options.Level2ShadowColor = 8623776
      Options.Level3Color = 15726583
      Options.SeparatorStyle = ssRectangle
      Options.Transparent = False
      Options.VertLineColor = 8623776
    end
    object DBImage1: TDBImage
      Left = 6
      Top = 8
      Width = 154
      Height = 44
      BorderStyle = bsNone
      DataField = 'Logotipo'
      DataSource = dsEmpresas
      ReadOnly = True
      Stretch = True
      TabOrder = 2
      OnDblClick = actAbrirExecute
    end
  end
  object pnlBarraSuperior: TRdxGradientePanel
    Left = 0
    Top = 0
    Width = 594
    Height = 60
    Align = alTop
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    BackGroundEffect = bdFlat
    ColorEnd = clBtnFace
    ColorShadow = clBtnFace
    ColorStart = clBtnFace
    object imgFondo: TImage
      Left = -1406
      Top = 0
      Width = 2000
      Height = 60
      Align = alRight
      AutoSize = True
    end
    object Image1: TImage
      Left = 13
      Top = 13
      Width = 36
      Height = 36
      AutoSize = True
      Picture.Data = {
[encoded data, 4526 characters]
        016DF07504D0BA55770000000049454E44AE426082}
    end
    object Label1: TLabel
      Left = 61
      Top = 12
      Width = 125
      Height = 21
      Caption = 'Lista de empresas'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Franklin Gothic Medium'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 62
      Top = 33
      Width = 235
      Height = 13
      Caption = 'Seleccione la empresa con la que desea trabajar.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
  end
  object brDoble: TRdxBarraInferior
    Left = 0
    Top = 320
    Width = 594
    Height = 50
    Caption = ' '
    ParentColor = True
    ColorHighLight = 8623776
    ColorShadow = 8623776
    Align = alBottom
    TabOrder = 2
    UseDockManager = True
    Margen = 10
    object bSeleccionar: TRdxBoton
      Left = 397
      Top = 17
      Width = 90
      Height = 25
      Action = actAbrir
      Alignment = taLeftJustify
      Color = 14280169
      ColorFocused = 12775679
      ColorDown = 14280169
      ColorBorder = 8623776
      ColorHighLight = 8623776
      ColorShadow = 8623776
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = clWindowText
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = []
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000E0000000D0000000100
        04000000000068000000220B0000220B000010000000100000000000000000FF
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222022222
        2200222220102222220022220110222222002220111102222200220111110222
        2200201100111022220001002201102222002022222011022200222222220110
        2200222222222011020022222222220110002222222222201000222222222222
        0200}
      Margin = 5
      ParentFont = False
      ParentColor = False
      TabStop = True
      TabOrder = 1
      Spacing = 6
    end
    object bCancelar: TRdxBoton
      Left = 494
      Top = 17
      Width = 90
      Height = 25
      Cancel = True
      Alignment = taLeftJustify
      Color = 14280169
      ColorFocused = 12775679
      ColorDown = 14280169
      ColorBorder = 8623776
      ColorHighLight = 8623776
      ColorShadow = 8623776
      Caption = 'Cancelar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = clBlack
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = []
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000220B0000220B0000100000001000000000009C006363
        9C00C6C6C6000000CE003131CE000000FF000063FF00319CFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222
        2222222222222222222222022222222225222450222222222222247502222222
        5222224632222225222222235022225022222222350225022222222223505022
        2222222222350222222222222350302222222222350223022222223550222230
        2222237502222223022221312222222223222222222222222222}
      Margin = 5
      ParentFont = False
      ParentColor = False
      TabStop = True
      TabOrder = 2
      Spacing = 6
      ModalResult = 2
    end
    object bAnadirEmpresa: TRdxBoton
      Left = 9
      Top = 17
      Width = 176
      Height = 25
      Action = actAnadir
      Alignment = taLeftJustify
      Color = 14280169
      ColorFocused = 12775679
      ColorDown = 14280169
      ColorBorder = 8623776
      ColorHighLight = 8623776
      ColorShadow = 8623776
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = clWindowText
      FontDown.Height = -11
      FontDown.Name = 'Tahoma'
      FontDown.Style = []
      FontDisabled.Charset = DEFAULT_CHARSET
      FontDisabled.Color = clWindowText
      FontDisabled.Height = -11
      FontDisabled.Name = 'MS Sans Serif'
      FontDisabled.Style = []
      Margin = 5
      ParentFont = False
      ParentColor = False
      TabStop = True
      TabOrder = 0
      Spacing = 6
    end
  end
  object dsEmpresas: TDataSource
    Left = 48
    Top = 280
  end
  object Acciones: TActionList
    Left = 288
    Top = 320
    object actAnadir: TAction
      Caption = 'A'#241'adir una empresa nueva...'
      OnExecute = actAnadirExecute
    end
    object actModificar: TAction
      Caption = 'Modificar'
      OnExecute = actModificarExecute
      OnUpdate = actModificarUpdate
    end
    object actEliminar: TAction
      Caption = 'Eliminar'
      OnExecute = actEliminarExecute
      OnUpdate = actModificarUpdate
    end
    object actConsultar: TAction
      Caption = 'Consultar'
    end
    object actCancelar: TAction
      Caption = 'Cancelar'
    end
    object actAbrir: TAction
      Caption = 'Seleccionar'
      OnExecute = actAbrirExecute
      OnUpdate = actModificarUpdate
    end
    object actCerrar: TAction
      Caption = 'Cerrar'
    end
  end
end
