This repository has been archived on 2024-12-02. You can view files and clone it, but cannot push or open issues or pull requests.
FactuGES/Datos/Propiedades.dfm
2007-06-26 08:08:27 +00:00

774 lines
27 KiB
Plaintext

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