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 end object DBCtrlGrid1: TDBCtrlGrid Left = 24 Top = 80 Width = 550 Height = 240 AllowDelete = False AllowInsert = False ColCount = 1 Color = 15726583 DataSource = dsEmpresas PanelBorder = gbNone PanelHeight = 60 PanelWidth = 533 ParentColor = False TabOrder = 0 RowCount = 4 SelectedColor = 12775679 OnDblClick = actAbrirExecute object DBText1: TDBText Left = 64 Top = 6 Width = 360 Height = 17 DataField = 'NOMBRE' 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 = 64 Top = 24 Width = 361 Height = 28 DataField = 'CALLE' DataSource = dsEmpresas Transparent = True 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 = 5 Width = 50 Height = 50 BorderStyle = bsNone DataField = 'Logotipo' DataSource = dsEmpresas 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 = 2 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 Center = True Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000002400 0000240806000000E1009898000000097048597300000B1300000B1301009A9C 180000000467414D410000B18E7CFB51930000076C4944415478DABD9809509C E519C7FFEFB21C0BCB994DB82140219433218018A86626B5D15093386A6A66AC 9DB166B4338E3A1393CED0F16A2771AA36A6EAD04E469BDA9C4A48C6D86A1095 2BC89540C2B5B09C3120A7105816D86F977DFBBC7B905D12C295F19DFDCFBEDF B7EFF73EBF7D9EE7BD3EC63987288C312CB1DC47BA48322DF5C1DB95598E6502 3D42FA17A989F42EE9DC4AC15602B45326931D7B25E78F4AB5BA05673FFB9C1B 8DC67CBAFF12A9F7A706DAE3E4E474F8E5979E571C783D074E4CC64ACBCBF92B 6FBC898B9535632693E93FD4E6ADE5802D1548467AD17F8DEAADF7DF39207F74 FB362E9AD3C38C5357A69919545FAAC507473E46DEF92F6F180CC64FA97D2EA9 41D8BADB407EA4F74283039EF8ECE487B20D8971F48C890B3B66205137F7216E 9970F94A03728F9E6667FEFBF5B47642574C3F1C227D8305726CB140C233F90A 85DBCEC2FCA3C84CDF60356C316E83B80974F37E7D93062FBCFA0E4A2AEAC48F 47482F90A4950009980FA2D6863E77EEDF8759C2CFA3B930660993C52BF6757B 2F3108CF71F3FD0B45DF21E7ED0F71A5B9A39D1AFC9D748C34BE54A0B5A44F13 D645A5167E928B80D5BE560376C66085B3D61D80CCAC96B08A6B4A769C2EACC3 337BFFC2A6F5D22E6A98B714202F52656458506C49FE3F10ECBF0A96FCB57A05 A6D97F6F5FB70F9F05DA064472F54267EF08D21EFA2D1BD54E2D0948453ABA39 637DF6B17773101CA072347087BA7D0EDDF4227D9C95E819955092978BE7738B D8D8A461D140DB44CE6CDB92B9F6D4DFF6C2D343015B286CC3FB660ECD09DF6C 82DB03D195FB6A74F78FA18C3CADD78D63FF89862501BD465FAF5F38FD4FFCEA BE74305D1F6094AC508083515BCE388C34C03E97B83208DD4393B8782617D313 37CC36F61DAFC792818EE63CC6EFDFBC05AA88447838937774FD6033D2AD730F E68C32DBFCC7640413CC5A3A7BF8A582530433366B74591EFA68DF769E14E50F E62487A77F2402A23742E94A13B3AE9F43D2CD86C30C4485DB3A304F14724CBB 87A2B6BA82B5561570A3A47730BA6CA0087F770C0F0D232222024ECEAEF00D4F 66FE5189DCCD3008A6ED9B85980B34E31389F2922268AA0B1937996E5932960D 14E22B47716909941E4A24252621303090C9155E7C75742A56F9873017699843 37609D0EA803F28CD12B12B5359568283E27563747CFDD0DA0AE9E7E6CDDB11B 05E73FC1606F375B17B38E0B8FB928BC984F581C5F131E0385F106E353A35CEB 1288D22FF2D0A7A91330B786724540FBB723C4D7191DDFF7E2D1DDBF875E92D0 D7D787A22FCFD0A8D3232D351DDEDEDE7051FA62754C06BCD684E3AB138730D4 ADC6426559A3CCE6214DD77564EFD885D1BE2EC8159E8CB978F2B6D646B4D4D7 302FA53B4F888F87A79737D34E9B785B632DEC1D72773D640552B777E3810777 A0B0B41285973AD8639BE3F986B89F41EEEECBAE75B7F1B6AB95C8CAFA051B1C 18E0D7AF5F77E87C01A067A9FA3149BF38206BC84ACBCA90B9290BAA552A5CD6 FC80F7CE56E1775BD7E397A951301A67505353817B3336617070103D73801608 D99B542D245D836567A95F9487EA1A1AE1EDB30A266912EB626299938B828F68 A710EEEFC32449E2B575979071CFBDCBF1D041AA16C3B2051925F5932638374F FBF30375F70EE0A9E75EC677C51728A1CFB1B0B0709E9C940CDA53338341E275 75B5484FBF6725405A9258537E14DFD4DC70472031EC773FB507D2F424260D60 755565BCB3E50A428243584040206F6A6A445A5ADAA2816EE80C7835AF89E90D A6E5003913501F1ED9F524DA5B9AE0EEE6C23CBC7CB9C49DD1A6AE67DD9A06EE E62227A0F445010D8DEB71E87F6D189990AAE8F27D71CB0E6850846E76F6BF1D 50A89F0B9A35EDC8FEF54E34A8DB71F0D8B72C32C88F3FBD6D2382028398C1C4 F9E5F2AF919292B22050EFC8140E7FD186F129E329BA3C09CB2A6CB002D19602 DF5B727A9EA43EB2F7611E1FEE87AB57AF605C3B8EF4B40C3111B2829A763EA5 376047662CE59081373737223979FD1D817ED44A78FB730D467592387588132E B30219AD23AC853433DF281313D69F83549E317BB253F0406A2426C6C7D0417B 73575737161E1ECE692284DC9CD406AE5637232929695EA0D61FB4FCA3A22E91 3B3574EBAFA4693BA01E588EE133B667E6DBC2BA92C4CEF10D95B77BC2E39BE3 F0F8FD713019A6181935370D0D0D631E1E1E5CA369454242C22D40144D94A987 D9D9EA5EC3B4C124CEFC2254B6E30FB38648C0389CD3163A7528494F935E5B1B E0E3B7FF894CA4C404627464189D9D9D7077F7009DEF114FCBC7DC89F1ABFA01 E457F58A889DB4C2D8976E921AB739342EF6A01846FA934CC69E4C8F0D563CFB F046C486FAB1A1A121AED3E9101D1DEDE0A18AB6111C2FBBA637CEF0137479DE 9A2BB6D241D2609EA3F552CFF601A4679C64ECC5E4A800D5EE2D093C2B310CCE 7227335067D7359CA9EE15A19A9A3171B134D4CD31DC6A059AB72CF7ED4734E9 10B5CDDE9A16C5F6FD6613F493E33870FC22CA5B874547E21C5F34E719E1BEFA 853A5EC9FB21D1308B74D0D5599E951CA9E2D5ADFD624E11135E85D533A28DC8 13B180B660112FB356FA06CD06964AFA03A9009684B52F6234F52DB6331BC7FF 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 = 1 UseDockManager = True Margen = 10 object bSeleccionar: TRdxBoton Left = 397 Top = 17 Width = 90 Height = 25 Default = True 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 = [] 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 = [] 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 bGestionar: 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 = [] Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 6 end end object dsEmpresas: TDataSource Left = 40 Top = 272 end object Acciones: TActionList Left = 288 Top = 320 object actAnadir: TAction Caption = 'Aņadir una empresa nueva...' OnExecute = actAnadirExecute end object actModificar: TAction Caption = 'Modificar' OnExecute = actModificarExecute end object actEliminar: TAction Caption = 'Eliminar' OnExecute = actEliminarExecute end object actConsultar: TAction Caption = 'Consultar' end object actCancelar: TAction Caption = 'Cancelar' end object actAbrir: TAction Caption = 'Seleccionar' OnExecute = actAbrirExecute end object actCerrar: TAction Caption = 'Cerrar' end end end