object fEditorSituacionMontaje: TfEditorSituacionMontaje Left = 497 Top = 344 BorderStyle = bsDialog Caption = 'Cambiar situaci'#243'n del montaje' ClientHeight = 435 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 montaje') Comments.Strings = ( 'Indique la nueva situaci'#243'n del montaje o pulse en '#39'Cancelar'#39' par' + 'a 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 = 198 Width = 306 Height = 13 Caption = 'Todav'#237'a no se realiza el montaje en las dependencias del cliente' end object Label2: TLabel Left = 56 Top = 250 Width = 170 Height = 13 Caption = 'Se comienzan las tareas de montaje' end object Label3: TLabel Left = 56 Top = 303 Width = 157 Height = 13 Caption = 'Se finalizan las tareas de montaje' end object Label4: TLabel Left = 56 Top = 96 Width = 96 Height = 13 Caption = 'Fecha de inicio: ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 56 Top = 128 Width = 130 Height = 13 Caption = 'Fecha de finalizaci'#243'n: ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 56 Top = 356 Width = 172 Height = 13 Caption = 'El cliente ha pagado todo el montaje' end object pnlSeleccion: TPanel Left = 0 Top = 395 Width = 440 Height = 40 Align = alBottom BevelEdges = [beTop] BevelKind = bkTile BevelOuter = bvNone TabOrder = 0 DesignSize = ( 440 38) object bAceptar: TButton Left = 277 Top = -1 Width = 74 Height = 23 Action = actAceptar Anchors = [akRight] Default = True TabOrder = 0 end object bCancelar: TButton Left = 357 Top = -1 Width = 74 Height = 23 Anchors = [akRight] Cancel = True Caption = '&Cancelar' ModalResult = 2 TabOrder = 1 end end object rbPendiente: TRadioButton Left = 38 Top = 175 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 rbEjecucion: TRadioButton Left = 38 Top = 227 Width = 219 Height = 17 Action = actEjecucion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object rbTerminado: TRadioButton Left = 38 Top = 280 Width = 219 Height = 17 Action = actTerminado Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object edtFechaInicio: TcxDateEdit Left = 273 Top = 232 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 edtFechaFinalizacion: TcxDateEdit Left = 273 Top = 276 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 edtFechaMontajeIni: TEdit Left = 273 Top = 93 Width = 121 Height = 21 ReadOnly = True TabOrder = 6 end object edtFechaMontajeFin: TEdit Left = 273 Top = 125 Width = 121 Height = 21 ReadOnly = True TabOrder = 7 end object rbPagado: TRadioButton Left = 38 Top = 333 Width = 229 Height = 17 Action = actPagado Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 8 end object ActionList1: TActionList Left = 16 Top = 256 object actPendiente: TAction Caption = 'El montaje est'#225' pendiente' OnExecute = actPendienteExecute end object actEjecucion: TAction Caption = 'El montaje est'#225' en ejecuci'#243'n' OnExecute = actEjecucionExecute end object actTerminado: TAction Caption = 'El montaje est'#225' terminado' OnExecute = actTerminadoExecute end object actPagado: TAction Caption = 'El montaje est'#225' terminado y pagado' OnExecute = actPagadoExecute end object actAceptar: TAction Caption = '&Aceptar' OnExecute = actAceptarExecute end end end