Unit PickDate

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { Copyright (c) 1997, 1998 Master-Bank } { } {

Classes

Functions

CreatePopupCalendar - Popup calendar
PopupDate - The ScaleBy method does not scale the font well, so set the font back to the original info.
SelectDate - Calendar dialog
SelectDateStr -
SetupPopupCalendar - The ScaleBy method does not scale the font well, so set the font back to the original info.

Types

Constants

PopupCalendarSize

Variables


Functions


function CreatePopupCalendar(AOwner: TComponent): TWinControl;

Popup calendar

function PopupDate(var Date: TDateTime; Edit: TWinControl): Boolean;

The ScaleBy method does not scale the font well, so set the font back to the original info.

function SelectDate(var Date: TDateTime; const DlgCaption: TCaption; AStartOfWeek: TDayOfWeekName; AWeekends: TDaysOfWeek; AWeekendColor: TColor; BtnHints: TStrings): Boolean;

Calendar dialog

function SelectDateStr(var StrDate: string; const DlgCaption: TCaption; AStartOfWeek: TDayOfWeekName; AWeekends: TDaysOfWeek; AWeekendColor: TColor; BtnHints: TStrings): Boolean;


procedure SetupPopupCalendar(PopupCalendar: TWinControl; AStartOfWeek: TDayOfWeekName; AWeekends: TDaysOfWeek; AWeekendColor: TColor; BtnHints: TStrings; FourDigitYear: Boolean);

The ScaleBy method does not scale the font well, so set the font back to the original info.

Types


Constants

PopupCalendarSize = (X: 187; Y: 124)


Variables