object frPrincipal: TfrPrincipal Left = 0 Top = 0 Width = 775 Height = 450 Align = alClient Constraints.MinHeight = 450 Constraints.MinWidth = 775 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 0 OnResize = RdxFrameResize object Shape1: TShape Left = 0 Top = 70 Width = 775 Height = 1 Align = alTop end object BarraEstado: TStatusBar Left = 0 Top = 431 Width = 775 Height = 19 Panels = < item Width = 150 end> SimplePanel = False end object pnlBarraSuperior: TRdxGradientePanel Left = 0 Top = 0 Width = 775 Height = 70 Align = alTop BevelOuter = bvNone BiDiMode = bdRightToLeftReadingOnly Color = clNone ParentBiDiMode = False TabOrder = 1 BackGroundEffect = bdDown ColorEnd = 12228760 ColorShadow = clNone ColorStart = 7884880 object imgFondo: TImage Left = -17 Top = 0 Width = 792 Height = 70 Align = alRight AutoSize = True end object bEmpresas: TFourthImage Left = 23 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True Action = actEmpresas Options.AutoChangePictures = True end object JzLabel1: TLabel Left = 21 Top = 51 Width = 46 Height = 13 Alignment = taCenter Caption = 'Empresas' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object JzLabel4: TLabel Left = 150 Top = 51 Width = 40 Height = 13 Alignment = taCenter Caption = 'Almacén' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object bProveedores: TFourthImage Left = 343 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True Transparent = True Action = actCompras Options.AutoChangePictures = True end object bClientes: TFourthImage Left = 407 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True Transparent = True Action = actVentas Options.AutoChangePictures = True end object bCartas: TFourthImage Left = 471 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True PopupMenu = menuCartas Transparent = True OnClick = bCartasClick Options.AutoChangePictures = True end object bDatos: TFourthImage Left = 278 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True Transparent = True Action = actDatos Options.AutoChangePictures = True Options.DisabledPicture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000002000 0000200804000000D973B27F0000000774494D45000000000000000973942E00 0000097048597300000B1200000B1201D2DD7EFC0000000467414D410000B18F 0BFC61050000036E4944415478DAA5955B4854511486FF338E69A52693996992 76D1824A33A48242D0225F2AA31E2A12EDF2E243292245113AF5A01421A5285D 908408025393142A89EE6517B168AC4C65B29BA65DBC8C4EE3CC38FD677B3A6A DE265B8739337B9FFD7F6BAFB5D75923E13F4D1AEBA15770A771C280593AD319 CF2D53735A0E77992700F08F351564F96FC439E4D759124C4FFE09E0391927C3 934E497E62D480FDF6972770141627011E91932FA68526C2A6CED890876C832D 1E2F9C00782685E45CD0CE452FAC8310402D52ACAF77E0CAF83B282D8E5B0F2D E532C2AE4E7F472932F40C647C40615C2802315D41F471CACE3C7CC61B643A0B 58C02F2F422481E8C06BF470E61F01800601F0A0CC0887183B0598BFA8B9222F 78813AFEC14BA3FC1E17E02979274FC9B2BB1FC100E02B4CEA8237B850EBBECD 68180510142815AE884EC541240C02B412001550864ECB8C63EF8E9BECC300C1 3BB5B9A9DEABF92B8DF2ED2300ECB8C4FB1A54A2BECA91F8B56E102040E77676 E9D6744C12C9EA4226DA7108DE4300CD38CB5389617D00EF516E7639D491D3E1 F8B3838C147D26CC5CDAAD144E254E2389DE803602E5F14D6C4290EAF33BF2D1 230D849071401F8595A4CB088BE23119F3F8E9C6079C870EB1CA5237B8A306D5 A883692860215C1181391474B3681C78465903838AC1352C27C88D602BD7B4F3 6578CF83AD1F0E90CD1F911C7E610FA811DB375110899958C670FCB8F11B3C87 5ECA25BC1B1900FAF4412E655A5E3F2931D37F38FD0321B8832A2196787F3B1A 0064DF15722D37DD44C00666BFDF4A845C23CE9D80757808F38880FB42AE1107 66C66EB594AFAA7201D03329D5788C4E0252F58B55403D1E30592E62612B7E61 9BFAA44C95CB55D9AD57EAEBBA84B5D38A12BDC354C0230264AFDF60E8F3D3C4 73D46FD714B98DA1FD343022B95518502689F417AC89DDCE33965B6815FDF731 948F463A5DA88BD9ECDA9F8572716F4793D95A01F99572E01E33AB6025ECD565 EFF15884463C61F5BDB2F5DC22492E561F296ED5EC6866A59CFBFD84B64626A3 4B6CA44C6006F5832014C64445A018C6664709CB40B6E7BC34D8E59BBED9ED2E 8C564B259E8A79132EB3CB6128406E42FB5C32EDD5B82DE2B330EC5AE54998A6 B06F06FBEA37316AA1BCE3AF7EA09A0F42B184E5D78222B6A3017385AF7819E5 17C2C882C468807ED3A173C8DFC2182639B76C74FB0D6AA13E68B61A56BF0000 000049454E44AE426082} end object bOpciones: TFourthImage Left = 619 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True PopupMenu = MenuOpciones Transparent = True OnClick = bOpcionesClick Options.AutoChangePictures = True end object JzLabel7: TLabel Left = 284 Top = 51 Width = 28 Height = 13 Alignment = taCenter Caption = 'Datos' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object JzLabel8: TLabel Left = 342 Top = 51 Width = 42 Height = 13 Alignment = taCenter Caption = 'Compras' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object JzLabel9: TLabel Left = 411 Top = 51 Width = 33 Height = 13 Alignment = taCenter Caption = 'Ventas' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object JzLabel10: TLabel Left = 475 Top = 51 Width = 32 Height = 13 Alignment = taCenter Caption = 'Cartas' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object JzLabel11: TLabel Left = 534 Top = 51 Width = 43 Height = 13 Alignment = taCenter Caption = 'Informes' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object JzLabel12: TLabel Left = 617 Top = 51 Width = 44 Height = 13 Alignment = taCenter Caption = 'Opciones' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object bInformes: TFourthImage Left = 535 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True Transparent = True Action = actInformes Options.AutoChangePictures = True end object bAlmacen: TFourthImage Left = 150 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True Transparent = True Action = actAlmacen Options.AutoChangePictures = True end object eNombreEmpresa: TLabel Left = 681 Top = 8 Width = 193 Height = 52 Alignment = taRightJustify AutoSize = False Color = clNone Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Verdana' Font.Style = [] ParentColor = False ParentFont = False Transparent = True Layout = tlBottom WordWrap = True end object bObras: TFourthImage Left = 214 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True Transparent = True Action = actObras Options.AutoChangePictures = True Options.DisabledPicture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000002000 0000200804000000D973B27F0000000774494D45000000000000000973942E00 0000097048597300000B1200000B1201D2DD7EFC0000000467414D410000B18F 0BFC61050000036E4944415478DAA5955B4854511486FF338E69A52693996992 76D1824A33A48242D0225F2AA31E2A12EDF2E243292245113AF5A01421A5285D 908408025393142A89EE6517B168AC4C65B29BA65DBC8C4EE3CC38FD677B3A6A DE265B8739337B9FFD7F6BAFB5D75923E13F4D1AEBA15770A771C280593AD319 CF2D53735A0E77992700F08F351564F96FC439E4D759124C4FFE09E0391927C3 934E497E62D480FDF6972770141627011E91932FA68526C2A6CED890876C832D 1E2F9C00782685E45CD0CE452FAC8310402D52ACAF77E0CAF83B282D8E5B0F2D E532C2AE4E7F472932F40C647C40615C2802315D41F471CACE3C7CC61B643A0B 58C02F2F422481E8C06BF470E61F01800601F0A0CC0887183B0598BFA8B9222F 78813AFEC14BA3FC1E17E02979274FC9B2BB1FC100E02B4CEA8237B850EBBECD 68180510142815AE884EC541240C02B412001550864ECB8C63EF8E9BECC300C1 3BB5B9A9DEABF92B8DF2ED2300ECB8C4FB1A54A2BECA91F8B56E102040E77676 E9D6744C12C9EA4226DA7108DE4300CD38CB5389617D00EF516E7639D491D3E1 F8B3838C147D26CC5CDAAD144E254E2389DE803602E5F14D6C4290EAF33BF2D1 230D849071401F8595A4CB088BE23119F3F8E9C6079C870EB1CA5237B8A306D5 A883692860215C1181391474B3681C78465903838AC1352C27C88D602BD7B4F3 6578CF83AD1F0E90CD1F911C7E610FA811DB375110899958C670FCB8F11B3C87 5ECA25BC1B1900FAF4412E655A5E3F2931D37F38FD0321B8832A2196787F3B1A 0064DF15722D37DD44C00666BFDF4A845C23CE9D80757808F38880FB42AE1107 66C66EB594AFAA7201D03329D5788C4E0252F58B55403D1E30592E62612B7E61 9BFAA44C95CB55D9AD57EAEBBA84B5D38A12BDC354C0230264AFDF60E8F3D3C4 73D46FD714B98DA1FD343022B95518502689F417AC89DDCE33965B6815FDF731 948F463A5DA88BD9ECDA9F8572716F4793D95A01F99572E01E33AB6025ECD565 EFF15884463C61F5BDB2F5DC22492E561F296ED5EC6866A59CFBFD84B64626A3 4B6CA44C6006F5832014C64445A018C6664709CB40B6E7BC34D8E59BBED9ED2E 8C564B259E8A79132EB3CB6128406E42FB5C32EDD5B82DE2B330EC5AE54998A6 B06F06FBEA37316AA1BCE3AF7EA09A0F42B184E5D78222B6A3017385AF7819E5 17C2C882C468807ED3A173C8DFC2182639B76C74FB0D6AA13E68B61A56BF0000 000049454E44AE426082} end object Label1: TLabel Left = 220 Top = 51 Width = 29 Height = 13 Alignment = taCenter Caption = 'Obras' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object Label2: TLabel Left = 683 Top = 51 Width = 52 Height = 13 Alignment = taCenter Caption = 'Sincronizar' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = True Layout = tlCenter end object bSincronizacion: TFourthImage Left = 685 Top = 10 Width = 41 Height = 40 Cursor = crHandPoint Center = True PopupMenu = MenuOpciones Transparent = True Action = actSincronizacion Options.AutoChangePictures = True end end object menuCartas: TPopupMenu2000 BiDiMode = bdLeftToRight ParentBiDiMode = False ShowHint = True ParentShowHint = False ParentFont = True SystemFont = False Options.Colors.Border = 7884880 Options.Colors.Bevel = 12228760 Options.Colors.BevelShadow = 12228760 Options.Colors.Menu = 7884880 Options.Colors.MenuText = clWhite Options.Colors.Highlight = 12228760 Options.Colors.HighlightText = clWhite Options.Colors.DisabledText = clGray Options.Colors.DisabledShadow = clNone Options.Colors.Line = 12228760 Options.Colors.LineShadow = clNone Options.Colors.Frame = 12228760 Options.Colors.FrameShadow = 12228760 Options.Margins.Border = 2 Options.Margins.Bevel = 1 Options.Margins.Frame = 1 Options.Title.Font.Charset = DEFAULT_CHARSET Options.Title.Font.Color = clWhite Options.Title.Font.Height = -11 Options.Title.Font.Name = 'Tahoma' Options.Title.Font.Style = [fsBold] Options.Title.ColorBegin = clNone Options.Title.ColorEnd = clNone Options.Title.Width = 20 Options.Flags = [mfDropShadow, mfNoBitmapRect] Ctl3D = False Left = 554 Top = 131 object Cliente: TMenuItem2000 Caption = 'Cliente' OnClick = ClienteClick end object N1: TMenuItem2000 Caption = '-' end object Proveedor: TMenuItem2000 Caption = 'Proveedor' OnClick = ProveedorClick end end object MenuOpciones: TPopupMenu2000 BiDiMode = bdLeftToRight ParentBiDiMode = False ShowHint = True ParentShowHint = False ParentFont = True SystemFont = False Options.Colors.Border = 7884880 Options.Colors.Bevel = 12228760 Options.Colors.BevelShadow = 12228760 Options.Colors.Menu = 7884880 Options.Colors.MenuText = clWhite Options.Colors.Highlight = 12228760 Options.Colors.HighlightText = clWhite Options.Colors.DisabledText = clGray Options.Colors.DisabledShadow = clNone Options.Colors.Line = 12228760 Options.Colors.LineShadow = clNone Options.Colors.Frame = 12228760 Options.Colors.FrameShadow = 12228760 Options.Margins.Border = 2 Options.Margins.Bevel = 1 Options.Margins.Frame = 1 Options.Title.Font.Charset = DEFAULT_CHARSET Options.Title.Font.Color = clWhite Options.Title.Font.Height = -11 Options.Title.Font.Name = 'Tahoma' Options.Title.Font.Style = [fsBold] Options.Title.ColorBegin = clNone Options.Title.ColorEnd = clNone Options.Title.Width = 20 Options.Flags = [mfDropShadow, mfNoBitmapRect] Ctl3D = False Left = 586 Top = 131 object Contadores: TMenuItem2000 Caption = 'Contadores' OnClick = ContadoresClick end end object actPrincipal: TActionList Left = 336 Top = 120 object actAlmacen: TAction Caption = 'Almacén' OnExecute = actAlmacenExecute OnUpdate = actAlmacenUpdate end object actObras: TAction Caption = 'Obras' OnExecute = actObrasExecute OnUpdate = actDatosUpdate end object actDatos: TAction Caption = 'Datos' OnExecute = actDatosExecute OnUpdate = actDatosUpdate end object actCompras: TAction Caption = 'Compras' OnExecute = actComprasExecute OnUpdate = actDatosUpdate end object actVentas: TAction Caption = 'Ventas' OnExecute = actVentasExecute OnUpdate = actDatosUpdate end object actEmpresas: TAction Caption = 'Empresas' OnExecute = actEmpresasExecute end object actInformes: TAction Caption = 'Informes' OnExecute = actInformesExecute end object actSincronizacion: TAction Caption = 'Sincronizar' OnExecute = actSincronizacionExecute end end end