TTprxDBEditDateTimePickerForm

Descripción

El objeto TTprxDBEditDateTimePickerForm (Selección de una fecha desde el control de edición.) se usa para seleccionar una fecha desde el control de edición TprxDBEditDateTime.

Selección de una fecha.

Identidad

• Ancestro: TTprxForm
• Carpeta: C:\DevelopPrx\library
• Archivo: prxDBEditDateTimePickerForm.pas

Declaración

type
  TTprxDBEditDateTimePickerForm = class(TTprxForm)
    Panel1: TPanel;
    Panel3: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    SpeedButtonANTERIOR: TSpeedButton;
    SpeedButtonSIGUIENTE: TSpeedButton;
    EditMES_EN_CURSO: TEdit;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button01: TButton;
    Button02: TButton;
    Button03: TButton;
    Button04: TButton;
    Button05: TButton;
    Button06: TButton;
    Button07: TButton;
    Button08: TButton;
    Button09: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    Button35: TButton;
    Button36: TButton;
    Button37: TButton;
    Button38: TButton;
    Button39: TButton;
    Button40: TButton;
    Button41: TButton;
    Button42: TButton;
    Panel4: TPanel;
    CheckBoxSELECCIONDIRECTA: TCheckBox;
    ButtonAPLICAR: TButton;
    MesAnterior: TAction;
    MesSiguiente: TAction;
    SeleccionDirecta: TAction;
    Hoy: TAction;
    Salir: TAction;
    Seleccionar: TAction;
    ButtonCANCELAR: TButton;
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MesAnteriorExecute(Sender: TObject);
    procedure MesSiguienteExecute(Sender: TObject);
    procedure SeleccionDirectaExecute(Sender: TObject);
    procedure HoyExecute(Sender: TObject);
    procedure SalirExecute(Sender: TObject);
    procedure ButtonFechasClick(Sender: TObject);
    procedure ButtonAPLICARClick(Sender: TObject);
    procedure ButtonCANCELARClick(Sender: TObject);
  private
    FFecha: TDateTime;
  protected
    procedure   SetFecha(aValue: TDateTime);
    procedure   SetButtonCaption(aButtonNbr: Integer; aCaption: Integer);
    procedure   SetButtonFocus(aDayNbr: Integer);
  public
    property    Fecha: TDateTime read FFecha write SetFecha;
  end;

Implementación

procedure FormShow(Sender: TObject)

Setea la fecha del día y los hints de los botones de mes anterior y mes siguiente.

procedure MesAnteriorExecute(Sender: TObject)

Decrementa el mes en curso de la fecha seleccionada.

procedure MesSiguienteExecute(Sender: TObject)

Incrementa el mes en cusro de la fecha seleccionada.

procedure SeleccionDirectaExecute(Sender: TObject)

Si marcamos el check de "Selección directa" cuando elijamos la fecha el form se cierra, sino tenemos que elegir la fecha y picar "Aplicar".

procedure SetButtonFocus(aDayNbr: Integer)

Dibuja el número de día en cada botón.

procedure ButtonFechasClick(Sender: TObject)

El usuario picó un botón de alguno de los días del form.

procedure ButtonAPLICARClick(Sender: TObject)

El usuario picó el botón de "Aplicar".

procedure ButtonCANCELARClick(Sender: TObject)

El usuario picó el botón de "Cancelar".