object frPropiedades: TfrPropiedades Left = 0 Top = 0 Width = 786 Height = 545 Color = 16383743 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 0 object BarraPropiedades: TRdxBarraSuperior Left = 0 Top = 0 Width = 786 Height = 25 Caption = 'Propiedades' Font.Charset = DEFAULT_CHARSET Font.Color = 14470061 Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [fsBold] Color = 8934690 ColorHighLight = 8623776 ColorShadow = 8623776 Align = alTop Alignment = taRightJustify TabOrder = 0 UseDockManager = True Margen = 5 object imgSombra: TImage Left = 0 Top = 0 Width = 786 Height = 8 Align = alTop end end object pnlCuerpo: TPanel Left = 0 Top = 25 Width = 786 Height = 520 Align = alClient BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 1 object brOperacion: TRdxBarraInferior Left = 10 Top = 460 Width = 766 Height = 50 Caption = ' ' ParentColor = True ColorHighLight = clBtnFace ColorShadow = clBtnFace Align = alBottom TabOrder = 0 UseDockManager = True Margen = 10 object bAceptar: TRdxBoton Left = 10 Top = 20 Width = 75 Height = 25 Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Caption = 'Aceptar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText 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 = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFAFAFAEBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDCA8A8A898 9898A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFAFAFADCDCDC7DB90C75AC0E75AC0E848484A8A8A8EBEBEBFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDC7AB40D7DB90C84C50B7D B90C75AC0E949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA DCDCDC7AB40D71A61084C50B84C50B87C90A89CD09848484A8A8A8EBEBEBFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEB7AB40D71A61084C50B8CD2077AB40D7D B90C80BF0B89CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFF7AB40D 71A61092DB058CD20775AC0EDCDCDC80BF0B84C50B89CD09848484A8A8A8EBEB EBFFFFFFFFFFFFFFFFFFFFFFFF6EA11198E60375AC0E6EA111DCDCDCFAFAFAFF FFFF84C50B89CD0989CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF618D13 75AC0E659212EBEBEBFAFAFAFFFFFFFFFFFF87C90A8CD20784C50B848484A8A8 A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF8CD20792DB0587C90A949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF90D70692DB0584C50B8484 84A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF96E30498E60387C90A949494D7D7D7FAFAFAFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF96E3049AEA0284C5 0B848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF9AEA0292DB0584C50BADADADEBEBEBFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF92DB057AB4 0D92DB05EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 6 OnClick = bAceptarClick end object bCancelar: TRdxBoton Left = 95 Top = 20 Width = 75 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 = clWindowText 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 = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000130B0000130B00000000000000000000FFFFFFFAFAFA EBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFAFAFAEBEBEBEBEBEBFAFAFAFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEBADADAD989898ADADADEBEBEBFFFFFFFA FAFADCDCDCA8A8A8A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF1B1BCB 0807BE0807BE949494D7D7D7F5F5F5DCDCDC0505BC0505BC848484A8A8A8EBEB EBFFFFFFFFFFFFFFFFFFFFFFFF393ADF5F5FF84B4CEA848484A3A3A3C8C8C813 13C56867FD6B6BFF2827D3989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFF4F4EEC 6363F96A6AFE4343E58484841313C55B5BF56A6AFE6A6AFE3839DE999999E6E6 E6FFFFFFFFFFFFFFFFFFFFFFFF393ADE5A5AF45A5AF46766FC4343E55B5BF563 63F96766FC5E5EF7201FCDA8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 393ADE5251EE5454F05F5EF76363F95555F16363F94A4BE9201FCCD7D7D7FAFA FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF393ADE4F4EEC5251EE5454F063 63F94B4CEA201FCD989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF4A4BE94242E44A4BE94A4BE94B4CEA201FCD949494D7D7D7FAFA FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA4343E53839DE4242E442 42E44A4BE94343E5848484A3A3A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFEBEBEB4F4EEC2D2DD63637DC3839DE4242E44242E41B1BCB848484A3A3 A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFAFAFA3434DB3434DB2C2CD53333DA34 34DB3434DB3C3CE04242E41313C5848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFF EBEBEB3434DB3333DA2222CF2827D3504FEC4242E43434DB3637DC3738DD1313 C5999999E6E6E6FFFFFFFFFFFFFFFFFF5251EE393ADF1B1BCB3434DB3C3CE0A8 A8A82D2DD53C3CE03434DB4242E41313C5ADADADEBEBEBFFFFFFFFFFFFFFFFFF 504FEC4343E54343E54343E53434DADCDCDCFAFAFA2222CE393ADE3D3DE02D2D D5EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF504FED4B4CEA4B4CEAEBEBEBFA FAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 6 OnClick = bCancelarClick end end object Panel1: TPanel Left = 10 Top = 10 Width = 255 Height = 450 Align = alLeft BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 1 object gridPropiedades: TcxGrid Left = 10 Top = 10 Width = 235 Height = 430 Align = alClient BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object VistaPropiedades: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsPropiedades DataController.KeyFieldNames = 'CODIGO' DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsBehavior.ImmediateEditor = False OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnMoving = False OptionsCustomize.ColumnSorting = False OptionsData.Appending = True OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsSelection.HideFocusRectOnExit = False OptionsSelection.InvertSelect = False OptionsSelection.UnselectFocusedRecordOnExit = False OptionsView.CellEndEllipsis = True OptionsView.ColumnAutoWidth = True OptionsView.Footer = True OptionsView.GridLineColor = 14280169 OptionsView.GridLines = glNone OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.RowSeparatorColor = 14280169 Styles.StyleSheet = dmConfiguracion.StyleSheetGrid end object gridPropiedadesLevel1: TcxGridLevel GridView = VistaPropiedades end end end object Panel2: TPanel Left = 265 Top = 10 Width = 511 Height = 450 Align = alClient BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 2 object pnlOpciones: TGroupBox Left = 10 Top = 38 Width = 491 Height = 402 Align = alClient Caption = 'Valores para la propiedad' Color = 15726583 ParentColor = False TabOrder = 0 object pnlGridValores: TRdxPanel Left = 2 Top = 137 Width = 487 Height = 263 Caption = ' ' BorderWidth = 10 ParentColor = True ColorHighLight = 8623776 ColorShadow = 8623776 Align = alClient TabOrder = 0 UseDockManager = True object gridValores: TcxGrid Left = 10 Top = 10 Width = 382 Height = 243 Align = alClient BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object VistaValores: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsValores DataController.KeyFieldNames = 'CODIGO;CODIGOPROPIEDAD' DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusFirstCellOnNewRecord = True OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnGrouping = False OptionsData.Appending = True OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsSelection.HideFocusRectOnExit = False OptionsSelection.InvertSelect = False OptionsSelection.UnselectFocusedRecordOnExit = False OptionsView.CellEndEllipsis = True OptionsView.ShowEditButtons = gsebAlways OptionsView.ColumnAutoWidth = True OptionsView.GridLineColor = 14280169 OptionsView.GridLines = glHorizontal OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.Indicator = True OptionsView.RowSeparatorColor = 14280169 Styles.StyleSheet = dmConfiguracion.StyleSheetGrid end object gridValoresLevel1: TcxGridLevel GridView = VistaValores end end object RdxPanel1: TRdxPanel Left = 392 Top = 10 Width = 85 Height = 243 Caption = ' ' BorderWidth = 10 ParentColor = True ColorHighLight = 8623776 ColorShadow = 8623776 Align = alRight TabOrder = 1 UseDockManager = True object bAnadirValor: TRdxBoton Left = 10 Top = 0 Width = 75 Height = 19 Action = actAnadirValor Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText 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 = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object bEliminarValor: TRdxBoton Left = 10 Top = 26 Width = 75 Height = 19 Action = actEliminarValor Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText 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 = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 0 end object bImagen: TRdxBotonMenu Left = 10 Top = 69 Width = 75 Height = 19 Alignment = taCenter Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Caption = 'Imagen' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] 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 = { C6010000424DC60100000000000036000000280000000A0000000A0000000100 2000000000009001000000000000000000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00} Layout = blGlyphRight Margin = 5 ParentFont = False ParentColor = False PopupMenu = MenuOpcionesImg TabOrder = 2 Spacing = 0 end end end object RdxPanel2: TRdxPanel Left = 2 Top = 15 Width = 487 Height = 122 Caption = ' ' BorderWidth = 10 ParentColor = True ColorHighLight = 8623776 ColorShadow = 8623776 Align = alTop TabOrder = 1 UseDockManager = True object Op2: TRdxRadioButton Left = 16 Top = 56 Width = 289 Height = 17 Transparent = True Color = 16383743 ColorFocused = clWhite ColorDown = clWhite ColorDot = clBlack ColorBorder = clBtnShadow GroupIndex = 1 ParentColor = False TabOrder = 0 Action = actOpc2 end object Op3: TRdxRadioButton Left = 16 Top = 88 Width = 257 Height = 17 Transparent = True Color = 16383743 ColorFocused = clWhite ColorDown = clWhite ColorDot = clBlack ColorBorder = clBtnShadow GroupIndex = 1 ParentColor = False TabOrder = 1 Action = actOpc3 end object Op1: TRdxRadioButton Left = 16 Top = 24 Width = 233 Height = 17 Transparent = True Color = 16383743 ColorFocused = clWhite ColorDown = clWhite ColorDot = clBlack ColorBorder = clBtnShadow GroupIndex = 1 ParentColor = False TabOrder = 2 Action = actOpc1 end object cbxPropiedad: TcxComboBox Left = 304 Top = 54 Width = 138 Height = 21 Enabled = False ParentFont = False Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.ReadOnly = False Properties.OnValidate = cbxPropiedadPropertiesValidate TabOrder = 3 end end end object Panel3: TPanel Left = 10 Top = 10 Width = 491 Height = 28 Align = alTop BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 1 object bAnadir: TRdxBoton Left = 1 Top = 1 Width = 131 Height = 21 Action = actAnadirProp Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText 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 = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object bEliminar: TRdxBoton Left = 139 Top = 1 Width = 133 Height = 21 Action = actEliminarProp Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText 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 = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 0 end end end end object dsPropiedades: TDataSource Left = 58 Top = 403 end object dsValores: TDataSource Left = 26 Top = 403 end object Acciones: TActionList Left = 560 Top = 43 object actAnadirProp: TAction Caption = 'A&'#241'adir una propiedad' OnExecute = actAnadirPropExecute OnUpdate = actAnadirPropUpdate end object actEliminarProp: TAction Caption = '&Eliminar esta propiedad' OnExecute = actEliminarPropExecute OnUpdate = actEliminarPropUpdate end object actOpc1: TAction Category = 'RadioButtons' Caption = 'La propiedad puede tener cualquier valor.' OnExecute = actOpc1Execute end object actOpc2: TAction Category = 'RadioButtons' Caption = 'La propiedad usar'#225' los mismos valores que la propiedad:' OnExecute = actOpc2Execute end object actOpc3: TAction Category = 'RadioButtons' Caption = 'La propiedad s'#243'lo admite los siguientes valores:' OnExecute = actOpc3Execute end object actAnadirValor: TAction Caption = 'A'#241'a&dir' OnExecute = actAnadirValorExecute OnUpdate = actAnadirValorUpdate end object actEliminarValor: TAction Caption = 'E&liminar' OnExecute = actEliminarValorExecute OnUpdate = actAnadirValorUpdate end end object MenuOpcionesImg: TPopupMenu2000 BiDiMode = bdLeftToRight ParentBiDiMode = False ShowHint = True ParentShowHint = False ParentFont = True SystemFont = False Options.Colors.Border = 6052956 Options.Colors.Bevel = 14280169 Options.Colors.BevelShadow = 14280169 Options.Colors.Menu = 6052956 Options.Colors.MenuText = 15726583 Options.Colors.Highlight = 14280169 Options.Colors.HighlightText = clBlack Options.Colors.DisabledText = clGray Options.Colors.DisabledShadow = clNone Options.Colors.Line = 14280169 Options.Colors.LineShadow = clNone Options.Colors.Frame = 15726583 Options.Colors.FrameShadow = 15726583 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 = 5755391 Options.Title.ColorEnd = 5755391 Options.Title.Width = 20 Options.Flags = [mfNoBitmapRect] Ctl3D = False Left = 682 Top = 336 object mInsertar: TMenuItem2000 Action = actInsertar Caption = 'Insertar' end object mGuardar: TMenuItem2000 Action = actGuardar Caption = 'Guardar como' end object MenuItem1: TMenuItem2000 Caption = '-' end object mCortar: TMenuItem2000 Action = actCortar Caption = 'Cortar' end object mCopiar: TMenuItem2000 Action = actCopiar Caption = 'Copiar' end object mPegar: TMenuItem2000 Action = actPegar Caption = 'Pegar' end object mEliminar: TMenuItem2000 Action = actEliminar Caption = 'Eliminar' end end object ActionList1: TActionList Left = 712 Top = 336 object actInsertar: TAction Caption = 'Insertar' OnExecute = actInsertarExecute end object actCopiar: TAction Caption = 'Copiar' OnExecute = actCopiarExecute end object actCortar: TAction Caption = 'Cortar' OnExecute = actCortarExecute end object actPegar: TAction Caption = 'Pegar' OnExecute = actPegarExecute end object actEliminar: TAction Caption = 'Eliminar' OnExecute = actEliminarExecute end object actGuardar: TAction Caption = 'Guardar como' OnExecute = actGuardarExecute end end end