Class TbhChDate (unit bhChDate)

Inherits from

TWinControl

Constructors


constructor Create(AOwner : TComponent);

1/1/98.


Functions

destructor Destroy;

.

function GetDateAsDate : TDateTime;

5/1/98.

function GetDateAsJulianDate : JulianDate;

5/1/98.

function GetDateAsString : string;

5/1/98.

function GetDay : string;

4/1/98.

procedure SetDateByDate(const Value : TDateTime);

5/1/98.

procedure SetDateByJulianDate(const Value : JulianDate);

5/1/98.

function SetDateByString(const Value : string) : boolean;

5/1/98.

procedure CalculateDay;

4/1/98.

procedure CMExit(var Msg: TCMExit);

4/1/98.

function CreateButton(cap : string) : TButton;

3/1/98.

function CreateDate : TbhDate;


function CreateDayName : TMaskEdit;


procedure DoIncDec(Sender : TObject);

1/1/98.

procedure SetDayFormat(Value : DayFormat);

4/1/97.

procedure SetRequiredDayName(Value : boolean);

3/1/98.

Properties

property FormatOfDayName : DayFormat


property RequiredDayName : boolean


Events

Variables

dayName : TMaskEdit;


dayStr : string;


DecBtn : TButton;


FDay : DayFormat;


FUseDayName : boolean;


IncBtn : TButton;


theDate : TbhDate;



Constructors


constructor Create(AOwner : TComponent);

1/1/98. Layout the pieces of the component.


Functions


destructor Destroy;

...and so on.


function GetDateAsDate : TDateTime;

5/1/98.


function GetDateAsJulianDate : JulianDate;

5/1/98.


function GetDateAsString : string;

5/1/98.


function GetDay : string;

4/1/98.


procedure SetDateByDate(const Value : TDateTime);

5/1/98.


procedure SetDateByJulianDate(const Value : JulianDate);

5/1/98.


function SetDateByString(const Value : string) : boolean;

5/1/98.


procedure CalculateDay;

4/1/98.


procedure CMExit(var Msg: TCMExit);

4/1/98.


function CreateButton(cap : string) : TButton;

3/1/98. Create a TButton object, set its properties in the context of this component.


function CreateDate : TbhDate;


function CreateDayName : TMaskEdit;


procedure DoIncDec(Sender : TObject);

1/1/98. Set increment, decrement.


procedure SetDayFormat(Value : DayFormat);

4/1/97.


procedure SetRequiredDayName(Value : boolean);

3/1/98.


Properties


property FormatOfDayName : DayFormat


property RequiredDayName : boolean


Events


Variables


dayName : TMaskEdit;


dayStr : string;


DecBtn : TButton;


FDay : DayFormat;


FUseDayName : boolean;


IncBtn : TButton;


theDate : TbhDate;