| Class TbhChDate (unit bhChDate) |
TWinControl
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
destructor Destroy;
function GetDateAsDate : TDateTime;
function GetDateAsJulianDate : JulianDate;
function GetDateAsString : string;
function GetDay : string;
procedure SetDateByDate(const Value : TDateTime);
procedure SetDateByJulianDate(const Value : JulianDate);
function SetDateByString(const Value : string) : boolean;
procedure CalculateDay;
procedure CMExit(var Msg: TCMExit);
function CreateButton(cap : string) : TButton;
function CreateDate : TbhDate;
function CreateDayName : TMaskEdit;
procedure DoIncDec(Sender : TObject);
procedure SetDayFormat(Value : DayFormat);
procedure SetRequiredDayName(Value : boolean);| 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;