inherited frViewObraRelacionada: TfrViewObraRelacionada Width = 462 Height = 106 Constraints.MinHeight = 90 Constraints.MinWidth = 360 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 462 Height = 106 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 462 106) object edtlNombre: TcxDBTextEdit Left = 85 Top = 56 Anchors = [akLeft, akTop, akRight] AutoSize = False DataBinding.DataField = 'NOMBRE' DataBinding.DataSource = DADataSource ParentFont = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.TextColor = clActiveCaption StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 Height = 21 Width = 438 end object ToolBar1: TToolBar Left = 22 Top = 28 Width = 433 Height = 22 Align = alClient ButtonWidth = 99 Caption = 'ToolBar1' EdgeBorders = [] EdgeInner = esNone EdgeOuter = esNone Flat = True Images = PngImageList List = True ParentShowHint = False ShowCaptions = True ShowHint = True TabOrder = 0 Transparent = True Wrapable = False object ToolButton1: TToolButton Left = 0 Top = 0 Action = actElegirObra AutoSize = True end object ToolButton3: TToolButton Left = 103 Top = 0 Width = 8 Caption = 'ToolButton3' ImageIndex = 1 Style = tbsSeparator end object ToolButton2: TToolButton Left = 111 Top = 0 Action = actVerObra end end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group1: TdxLayoutGroup Caption = 'Obra relacionada' object dxLayoutControl1Item1: TdxLayoutItem ShowCaption = False Control = ToolBar1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Descripci'#243'n:' Control = edtlNombre ControlOptions.ShowBorder = False end end end end object ActionList1: TActionList Images = PngImageList Left = 256 object actElegirObra: TAction Caption = 'Elegir una obra' ImageIndex = 1 OnExecute = actElegirObraExecute end object actVerObra: TAction Caption = 'Ver obra...' ImageIndex = 1 OnExecute = actVerObraExecute OnUpdate = actVerObraUpdate end end object PngImageList: TPngImageList PngImages = < item PngImage.Data = { 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 610000000970485973000017120000171201679FD252000001774944415478DA 63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F 192CBCB3192EEE99856A80C35E4B14C5079C8F836964F1ED368718662EDFC530 7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB0815586BB18966D3A84 DB0098B341E01F50EECF9F7F709B034F3B312CD3DDC1B06ADB11FC06C05CB2CB EE0883DB211BB8CD61E7DD18166A6E6558BFEB387E03D06DFEFDE70F981F75D9 8361AEEA2686CDFB4EE136609FD33106A77D56605BD79BEE033B1B044036C75F F76698AEB88161E7A133B80D00391BDDE69FBFFE30FC028AA5DFF567E8975CCD 70F0D4454C0372623D195C0E58A384F862ED6D0CB157BDC0EC2972EB18721E05 317489AE643876EE32A601E9916E605BFEFCFE07B639E2A23BC37CF52D60B1DF BF21B8F0792843ABE03286D397AE611A9018EA0CD70CF202CC6674D0C0BB98E1 C2B59B9806C40638C23583FC8D6CF36F688C80F0BF7FFF192EDDB8856940848F 2DC38A2D8789CE89180680044805200300115980F04CC063740000000049454E 44AE426082} Name = 'PngImage1' Background = clWindow end item PngImage.Data = { 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 610000000970485973000017120000171201679FD252000001774944415478DA 63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F 192CBCB3192EEE99856A80C35E4B14C5079C8F836964F1ED368718662EDFC530 7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB0815586BB18966D3A84 DB0098B341E01F50EECF9F7F709B034F3B312CD3DDC1B06ADB11FC06C05CB2CB EE0883DB211BB8CD61E7DD18166A6E6558BFEB387E03D06DFEFDE70F981F75D9 8361AEEA2686CDFB4EE136609FD33106A77D56605BD79BEE033B1B044036C75F F76698AEB88161E7A133B80D00391BDDE69FBFFE30FC028AA5DFF567E8975CCD 70F0D4454C0372623D195C0E58A384F862ED6D0CB157BDC0EC2972EB18721E05 317489AE643876EE32A601E9916E605BFEFCFE07B639E2A23BC37CF52D60B1DF BF21B8F0792843ABE03286D397AE611A9018EA0CD70CF202CC6674D0C0BB98E1 C2B59B9806C40638C23583FC8D6CF36F688C80F0BF7FFF192EDDB8856940848F 2DC38A2D8789CE89180680044805200300115980F04CC063740000000049454E 44AE426082} Name = 'PngImage2' Background = clWindow end> Left = 288 Bitmap = {} end object DADataSource: TDADataSource Left = 320 end end