inherited frViewArticulo: TfrViewArticulo Width = 451 Height = 304 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy OnShow = CustomViewShow ExplicitWidth = 451 ExplicitHeight = 304 object dxLayoutControlArticulo: TdxLayoutControl Left = 0 Top = 0 Width = 451 Height = 393 Align = alTop ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth] ExplicitWidth = 869 DesignSize = ( 451 393) object PngSpeedButton2: TPngSpeedButton Left = 546 Top = 28 Width = 23 Height = 22 Action = actAnadir PngImage.Data = { 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 610000000970485973000017120000171201679FD252000001EB4944415478DA A5D34B68135114C6F1FF746692462D24D5A8F5B52B81B448501475E142D4EAA2 3420E8C68A0A45345BC19DE24A74D50AE2424A11041105DD28A8881411174A70 E58BA4149A1A0D8D1D9B669E997B9D14B1A44491E6C2D9DDF3BB1F877B94DB8F 5E4B5A384A1D3831B06759CDDB0E9D5B04865FD9CD6F49C95A374B4ADC20AAE4 9936B6F244CF70299DFA3F40F5AB1C74CEB225FE1C654E4796DA7963A6D977F2 FABF81E061EAC3D1EC0247C531A27A017E846026CC844890CC3CFE3B506F1641 D9025CCFA4DF384FD27F419BA1231C9D67917ED267AE3507A414E4BF8DD3B1AA 07A97562F92A31EB037B8D313658137CD292DC5D719A7B83C9E640AEF892F1DC 454A5FABEC4E5D21BEBE0FD397411217E15599911D547C8DEC60A411B8FC34C7 C3F7C71710BD73927CB686E785D87FE01D22483267FDC45156620A0DAB069F4F B53702A9ABBB08AF2E20DB7C1CB386517698FE52A56BE31136272EF0F16D1F44 7610EF7D802554A68696003B6F6D42517DAC6A0D3B006CCB67B6686356248944 0F8635C9F7A90A91F800E1EE51CA99D81260B40B27C8F607307DECF91AF38687 A6AB74A7A2940A26E5A28B164FE38CDC67FBE1CC22D03BB226007E2708202700 5CAB5E62E14344D785084734664B0EBE8CE18D951A81967661F8E69DE56FA394 2D6D33BF00C89C2C72EBA3BC190000000049454E44AE426082} PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object PngSpeedButton1: TPngSpeedButton Left = 546 Top = 56 Width = 23 Height = 22 Action = actEliminar PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object eReferencia: TcxDBTextEdit Left = 103 Top = 28 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' DataBinding.DataSource = dsViewArticulo Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = 14745599 Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 Width = 164 end object eDescripcion: TcxDBTextEdit Left = 103 Top = 109 DataBinding.DataField = 'DESCRIPCION' DataBinding.DataSource = dsViewArticulo Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = 14745599 Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 Width = 108 end object eNoComisionable: TcxDBCheckBox Left = 103 Top = 136 Caption = 'Art'#237'culo no comisionable' DataBinding.DataField = 'COMISIONABLE' DataBinding.DataSource = dsViewArticulo Enabled = False Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 0 Properties.ValueUnchecked = 1 Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 4 Width = 144 end object eImagen: TcxImage Left = 447 Top = 28 Properties.GraphicClassName = 'TJPEGImage' Properties.ImmediatePost = True Properties.PopupMenuLayout.MenuItems = [] Properties.Stretch = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 6 Height = 100 Width = 140 end object cbFamilia: TcxDBComboBox Left = 103 Top = 55 DataBinding.DataField = 'FAMILIA' DataBinding.DataSource = dsViewArticulo Properties.DropDownRows = 16 Properties.ImmediatePost = True Properties.OnInitPopup = cbFamiliaPropertiesInitPopup Properties.OnValidate = cbFamiliaPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 Width = 70 end inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor Left = 219 Top = 193 Width = 350 Height = 202 Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 14 ReadOnly = False ExplicitLeft = 219 ExplicitTop = 193 inherited dxLayoutControl1: TdxLayoutControl inherited edtNIFCIF: TcxDBTextEdit ExplicitWidth = 562 Width = 562 end inherited edtCalle: TcxDBTextEdit ExplicitWidth = 562 Width = 562 end inherited edtPoblacion: TcxDBTextEdit ExplicitWidth = 177 Width = 177 end inherited edtProvincia: TcxDBTextEdit ExplicitWidth = 327 Width = 327 end end end object eReferenciaProv: TcxDBTextEdit Left = 103 Top = 193 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataSource = dsViewArticulo Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = 14745599 Style.HotTrack = False Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 7 Width = 86 end object ePrecioCoste: TcxDBCurrencyEdit Left = 103 Top = 220 DataBinding.DataField = 'PRECIO_COSTE' DataBinding.DataSource = dsViewArticulo Properties.Alignment.Horz = taRightJustify Properties.AssignedValues.DisplayFormat = True Properties.UseLeftAlignmentOnEditing = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 8 Width = 86 end object eDescuento: TcxDBSpinEdit Left = 103 Top = 247 DataBinding.DataField = 'DESCUENTO' DataBinding.DataSource = dsViewArticulo Enabled = False Properties.Alignment.Horz = taRightJustify Properties.ImmediatePost = True Properties.MaxValue = 100.000000000000000000 Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.ButtonStyle = bts3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 9 Width = 86 end object ePrecioNeto: TcxDBCurrencyEdit Left = 103 Top = 274 DataBinding.DataField = 'PRECIO_NETO' DataBinding.DataSource = dsViewArticulo Enabled = False Properties.Alignment.Horz = taRightJustify Properties.ReadOnly = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clBtnFace Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.TextColor = clWindowText StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 10 Width = 86 end object ePrecioPorte: TcxDBCurrencyEdit Left = 103 Top = 301 DataBinding.DataField = 'PRECIO_PORTE' DataBinding.DataSource = dsViewArticulo Enabled = False Properties.Alignment.Horz = taRightJustify Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 11 Width = 86 end object cbNoInventariable: TcxDBCheckBox Left = 265 Top = 136 Caption = 'Art'#237'culo no inventariable' DataBinding.DataField = 'INVENTARIABLE' DataBinding.DataSource = dsViewArticulo Enabled = False Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 0 Properties.ValueUnchecked = 1 Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 5 Width = 144 end object ePrecioPVP: TcxDBCurrencyEdit Left = 103 Top = 328 DataBinding.DataField = 'PRECIO_PVP' DataBinding.DataSource = dsViewArticulo Enabled = False Properties.Alignment.Horz = taRightJustify Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 12 Width = 288 end object cbSubfamilia: TcxDBComboBox Left = 103 Top = 82 DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataSource = dsViewArticulo Properties.DropDownRows = 16 Properties.ImmediatePost = True Properties.OnInitPopup = cbSubfamiliaPropertiesInitPopup Properties.OnValidate = cbSubfamiliaPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 Width = 448 end object ePrecioPVP2: TcxCurrencyEdit Left = 103 Top = 355 Enabled = False Properties.Alignment.Horz = taRightJustify Properties.ReadOnly = False Properties.UseLeftAlignmentOnEditing = False TabOrder = 13 Width = 121 end object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControlArticuloGroup7: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControlArticuloGroup1: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'Datos del art'#237'culo' object dxLayoutControlArticuloItem3: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end object dxLayoutControlArticuloGroup4: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControlArticuloItem4: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Familia:' Control = cbFamilia ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem10: TdxLayoutItem Caption = 'Subfamilia:' Control = cbSubfamilia ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem8: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Descripci'#243'n:' Control = eDescripcion ControlOptions.ShowBorder = False end object dxLayoutControlArticuloGroup8: TdxLayoutGroup Enabled = False ShowCaption = False Visible = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControlArticuloItem1: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = ' ' Control = eNoComisionable ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem7: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = ' ' ShowCaption = False Control = cbNoInventariable ControlOptions.ShowBorder = False end end end end object dxLayoutControlArticuloGroup2: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'Imagen' Visible = False LayoutDirection = ldHorizontal object dxLayoutControlArticuloItem6: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Control = eImagen ControlOptions.ShowBorder = False end object dxLayoutControlArticuloGroup5: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControlArticuloItem2: TdxLayoutItem ShowCaption = False Control = PngSpeedButton2 ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem5: TdxLayoutItem ShowCaption = False Control = PngSpeedButton1 ControlOptions.ShowBorder = False end end end end object dxLayoutControlArticuloGroup3: TdxLayoutGroup Caption = 'New Group' ShowCaption = False LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControlArticuloGroup11: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Datos del proveedor para el art'#237'culo' object dxLayoutControlArticuloItem15: TdxLayoutItem Caption = 'Ref. del prov:' Enabled = False Visible = False Control = eReferenciaProv ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem16: TdxLayoutItem Caption = 'Puntos:' Control = ePrecioCoste ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem17: TdxLayoutItem Caption = 'Dto (%):' Enabled = False Visible = False Control = eDescuento ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem18: TdxLayoutItem Caption = 'Precio neto:' Enabled = False Visible = False Control = ePrecioNeto ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem19: TdxLayoutItem Caption = 'Coste de envio:' Enabled = False Visible = False Control = ePrecioPorte ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem9: TdxLayoutItem Caption = 'Precio PVP:' Enabled = False Visible = False Control = ePrecioPVP ControlOptions.ShowBorder = False end object dxLayoutControlArticuloItem11: TdxLayoutItem Caption = 'Precio PVP:' Control = ePrecioPVP2 ControlOptions.ShowBorder = False end end object dxLayoutControlArticuloGroup12: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahRight Caption = 'Proveedor para el art'#237'culo' Enabled = False Visible = False object dxLayoutControlArticuloItem14: TdxLayoutItem Control = frViewDatosYSeleccionProveedor1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end end end end object dsViewArticulo: TDADataSource Left = 64 Top = 32 end object OpenDialog1: TOpenDialog Left = 24 Top = 32 end object SmallImages: TPngImageList PngImages = < item PngImage.Data = { 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 610000000970485973000017120000171201679FD252000001EB4944415478DA A5D34B68135114C6F1FF746692462D24D5A8F5B52B81B448501475E142D4EAA2 3420E8C68A0A45345BC19DE24A74D50AE2424A11041105DD28A8881411174A70 E58BA4149A1A0D8D1D9B669E997B9D14B1A44491E6C2D9DDF3BB1F877B94DB8F 5E4B5A384A1D3831B06759CDDB0E9D5B04865FD9CD6F49C95A374B4ADC20AAE4 9936B6F244CF70299DFA3F40F5AB1C74CEB225FE1C654E4796DA7963A6D977F2 FABF81E061EAC3D1EC0247C531A27A017E846026CC844890CC3CFE3B506F1641 D9025CCFA4DF384FD27F419BA1231C9D67917ED267AE3507A414E4BF8DD3B1AA 07A97562F92A31EB037B8D313658137CD292DC5D719A7B83C9E640AEF892F1DC 454A5FABEC4E5D21BEBE0FD397411217E15599911D547C8DEC60A411B8FC34C7 C3F7C71710BD73927CB686E785D87FE01D22483267FDC45156620A0DAB069F4F B53702A9ABBB08AF2E20DB7C1CB386517698FE52A56BE31136272EF0F16D1F44 7610EF7D802554A68696003B6F6D42517DAC6A0D3B006CCB67B6686356248944 0F8635C9F7A90A91F800E1EE51CA99D81260B40B27C8F607307DECF91AF38687 A6AB74A7A2940A26E5A28B164FE38CDC67FBE1CC22D03BB226007E2708202700 5CAB5E62E14344D785084734664B0EBE8CE18D951A81967661F8E69DE56FA394 2D6D33BF00C89C2C72EBA3BC190000000049454E44AE426082} Name = 'PngImage0' Background = clWindow end item PngImage.Data = { 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 5538F0EAB25B380000000049454E44AE426082} Name = 'PngImage1' Background = clWindow end> PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] Left = 27 Top = 64 Bitmap = {} end object ActionList1: TActionList Images = SmallImages Left = 56 Top = 64 object actAnadir: TAction Hint = 'Cambiar la imagen del producto' ImageIndex = 0 OnExecute = actAnadirExecute end object actEliminar: TAction Hint = 'Quitar la imagen del producto' ImageIndex = 1 OnExecute = actEliminarExecute end end end