inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 858 Height = 524 ExplicitWidth = 858 ExplicitHeight = 524 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 858 Height = 524 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 DesignSize = ( 858 524) object eReferencia: TcxDBTextEdit Left = 136 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 0 Width = 268 end object eSituacion: TcxDBTextEdit Left = 136 Top = 111 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'SITUACION' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 4 Width = 268 end object edtFechaVencimiento: TcxDBDateEdit Left = 308 Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 3 Width = 268 end object eFechaEmision: TcxDBTextEdit Left = 565 Top = 360 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 12 Width = 260 end object eImporteTotal: TcxDBCurrencyEdit Left = 565 Top = 441 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataSource = DADataSource Enabled = False ParentFont = False Properties.Alignment.Horz = taRightJustify Properties.ReadOnly = True Properties.UseLeftAlignmentOnEditing = False Properties.UseThousandSeparator = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.Font.Charset = DEFAULT_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -11 Style.Font.Name = 'Tahoma' Style.Font.Style = [fsBold] Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' Style.TextColor = clWindowText Style.IsFontAssigned = True StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 15 Height = 21 Width = 260 end object eNombreCliente: TcxDBTextEdit Left = 565 Top = 414 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 14 Width = 260 end object eRemesa: TcxDBTextEdit Left = 136 Top = 138 Anchors = [akLeft, akTop, akRight] DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 5 Width = 268 end object edtFechaEmision: TcxDBDateEdit Left = 136 Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_EMISION' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 2 Width = 268 end object eReferenciaProveedor: TcxDBTextEdit Left = 136 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_PROVEEDOR' DataBinding.DataSource = DADataSource Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 1 Width = 268 end object rReferenciaFacturaProv: TcxDBTextEdit Left = 565 Top = 333 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 11 Width = 260 end object rRefReciboCompensado: TcxDBTextEdit Left = 136 Top = 216 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 7 Width = 268 end inline frViewTienda1: TfrViewTienda Left = 136 Top = 267 Width = 268 Height = 41 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 8 ReadOnly = False ExplicitLeft = 136 ExplicitTop = 267 ExplicitWidth = 268 inherited dxLayoutControl1: TdxLayoutControl Width = 268 ExplicitWidth = 268 inherited cbTienda: TcxComboBox Left = 10 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 10 ExplicitWidth = 248 Width = 248 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Item1: TdxLayoutItem Caption = '' end end end end object eDescripcion: TcxDBTextEdit Left = 136 Top = 165 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'DESCRIPCION' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 6 Width = 268 end object eNifCif: TcxDBTextEdit Left = 565 Top = 387 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 13 Width = 260 end inline frViewProveedorRecibo1: TfrViewProveedorRecibo Left = 457 Top = 30 Width = 379 Height = 278 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 10 ReadOnly = False ExplicitLeft = 457 ExplicitTop = 30 ExplicitWidth = 379 ExplicitHeight = 278 inherited dxLayoutControl1: TdxLayoutControl Width = 379 ExplicitWidth = 379 inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = DADataSource Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 224 Width = 224 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = DADataSource Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 276 Width = 276 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = DADataSource Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 276 Width = 276 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = DADataSource Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 158 Width = 158 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = DADataSource Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 276 Width = 276 end inherited edtCodigoPostal: TcxDBTextEdit Left = 287 DataBinding.DataSource = DADataSource Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 287 end inherited Button3: TBitBtn Left = 171 ExplicitLeft = 171 end inherited cxDBTextEdit1: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end end end inline frViewObservaciones1: TfrViewObservaciones Left = 22 Top = 338 Width = 521 Height = 150 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 9 ReadOnly = False ExplicitLeft = 22 ExplicitTop = 338 inherited memObservaciones: TcxDBMemo DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource end end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Group2: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient ShowCaption = False Hidden = True ShowBorder = False object dxLayoutControl1Group1: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Datos del recibo' object dxLayoutControl1Item1: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end object dxLayoutControl1Item20: TdxLayoutItem Caption = 'Referencia proveedor:' Visible = False Control = eReferenciaProveedor ControlOptions.ShowBorder = False end object dxLayoutControl1Group4: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Item19: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Fecha emisi'#243'n:' Control = edtFechaEmision ControlOptions.ShowBorder = False end object dxLayoutControl1Item3: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Vencimiento:' Control = edtFechaVencimiento ControlOptions.ShowBorder = False end end object dxLayoutControl1Item2: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Situaci'#243'n:' Control = eSituacion ControlOptions.ShowBorder = False end object dxLayoutControl1Item16: TdxLayoutItem Caption = 'Ref. remesa:' Enabled = False Visible = False Control = eRemesa ControlOptions.ShowBorder = False end object dxLayoutControl1Item18: TdxLayoutItem Caption = 'Descripcion:' Control = eDescripcion ControlOptions.ShowBorder = False end end object dxLayoutControl1Group9: TdxLayoutGroup Caption = 'Compensado en recibo' Visible = False object dxLayoutControl1Item4: TdxLayoutItem Caption = 'Ref. recibo:' Control = rRefReciboCompensado ControlOptions.ShowBorder = False end end object dxLayoutControl1Group3: TdxLayoutGroup Caption = 'El recibo pertenece a la tienda' Visible = False object dxLayoutControl1Item17: TdxLayoutItem Caption = 'Tienda:' Control = frViewTienda1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end object dxLayoutControl1Group7: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Observaciones' object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient AlignVert = avClient Caption = 'New Item' ShowCaption = False Control = frViewObservaciones1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end end object dxLayoutControl1Group8: TdxLayoutGroup Caption = 'New Group' ShowCaption = False ShowBorder = False object dxLayoutControlProveedorModif: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Datos del proveedor' object dxLayoutControl1Item6: TdxLayoutItem Control = frViewProveedorRecibo1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControlFactura: TdxLayoutGroup Caption = 'Datos de la factura' object dxLayoutControl1Item21: TdxLayoutItem Caption = 'Ref. factura prov.:' Control = rReferenciaFacturaProv ControlOptions.ShowBorder = False end object dxLayoutControl1Item7: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Fecha emisi'#243'n:' Control = eFechaEmision ControlOptions.ShowBorder = False end object dxLayoutControl1Item8: TdxLayoutItem Caption = 'NIF/CIF:' Control = eNifCif ControlOptions.ShowBorder = False end object dxLayoutControl1Item10: TdxLayoutItem Caption = 'Nombre:' Control = eNombreCliente ControlOptions.ShowBorder = False end object dxLayoutControl1Item9: TdxLayoutItem Caption = 'Total factura:' Control = eImporteTotal ControlOptions.ShowBorder = False end end end end end end object DADataSource: TDADataSource Left = 56 Top = 16 end object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList Left = 24 Top = 16 object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET GroupOptions.CaptionOptions.Font.Color = clWindowText GroupOptions.CaptionOptions.Font.Height = -11 GroupOptions.CaptionOptions.Font.Name = 'Tahoma' GroupOptions.CaptionOptions.Font.Style = [fsBold] GroupOptions.CaptionOptions.TextColor = clHighlight GroupOptions.CaptionOptions.UseDefaultFont = False end end end