object fEditorSituacionPresupuesto: TfEditorSituacionPresupuesto Left = 497 Top = 344 BorderStyle = bsDialog Caption = 'Cambiar situaci'#243'n del presupuesto' ClientHeight = 377 ClientWidth = 440 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter PixelsPerInch = 96 TextHeight = 13 object JvgWizardHeader1: TJvgWizardHeader Left = 0 Top = 0 Width = 440 Height = 73 CaptionFont.Charset = DEFAULT_CHARSET CaptionFont.Color = clWindowText CaptionFont.Height = -11 CaptionFont.Name = 'Tahoma' CaptionFont.Style = [fsBold] CommentFont.Charset = DEFAULT_CHARSET CommentFont.Color = clWindowText CommentFont.Height = -11 CommentFont.Name = 'Tahoma' CommentFont.Style = [] SymbolFont.Charset = DEFAULT_CHARSET SymbolFont.Color = clHighlightText SymbolFont.Height = -35 SymbolFont.Name = 'Wingdings' SymbolFont.Style = [fsBold] Captions.Strings = ( 'Cambiar la situaci'#243'n del presupuesto') Comments.Strings = ( 'Indique la nueva situaci'#243'n del presupuesto o pulse en '#39'Cancelar'#39 + ' para no hacer ning'#250'n cambio.') Gradient.FromColor = clHighlight Gradient.ToColor = clWindow Gradient.Active = True Gradient.Orientation = fgdVertical BufferedDraw = False ExplicitWidth = 491 end object Label1: TLabel Left = 56 Top = 162 Width = 295 Height = 13 Caption = 'El cliente todav'#237'a no ha aceptado o rechazado el presupuesto' end object Label2: TLabel Left = 56 Top = 218 Width = 211 Height = 13 Caption = 'El cliente ha aceptado el presupuesto el d'#237'a:' end object Label3: TLabel Left = 56 Top = 274 Width = 211 Height = 13 Caption = 'El cliente ha aceptado el presupuesto el d'#237'a:' end object Label4: TLabel Left = 56 Top = 96 Width = 138 Height = 13 Caption = 'Fecha del presupuesto: ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object pnlSeleccion: TPanel Left = 0 Top = 337 Width = 440 Height = 40 Align = alBottom BevelEdges = [beTop] BevelKind = bkTile BevelOuter = bvNone TabOrder = 0 DesignSize = ( 440 38) object bAceptar: TButton Left = 277 Top = 2 Width = 74 Height = 23 Action = actAceptar Anchors = [akRight] Default = True TabOrder = 0 end object bCancelar: TButton Left = 357 Top = 2 Width = 74 Height = 23 Anchors = [akRight] Cancel = True Caption = '&Cancelar' ModalResult = 2 TabOrder = 1 end end object rbPendiente: TRadioButton Left = 38 Top = 139 Width = 219 Height = 17 Action = actPendiente Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object rbAceptado: TRadioButton Left = 38 Top = 195 Width = 219 Height = 17 Action = actAceptado Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object rbRechazado: TRadioButton Left = 38 Top = 251 Width = 219 Height = 17 Action = actRechazado Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object edtFechaAceptado: TcxDateEdit Left = 273 Top = 215 Properties.SaveTime = False Properties.ShowTime = 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 = 121 end object edtFechaRechazado: TcxDateEdit Left = 273 Top = 271 Properties.SaveTime = False Properties.ShowTime = 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 = 121 end object edtFechaPresupuesto: TEdit Left = 273 Top = 93 Width = 121 Height = 21 ReadOnly = True TabOrder = 6 end object ActionList1: TActionList Left = 16 Top = 256 object actPendiente: TAction Caption = 'El presupuesto est'#225' pendiente' OnExecute = actPendienteExecute end object actAceptado: TAction Caption = 'El presupuesto est'#225' aceptado' OnExecute = actAceptadoExecute end object actRechazado: TAction Caption = 'El presupuesto est'#225' rechazado' OnExecute = actRechazadoExecute end object actAceptar: TAction Caption = '&Aceptar' OnExecute = actAceptarExecute end end end