Class TbhChDate (unit bhChDate) |
Inherits from
TWinControl
constructor Create(AOwner : TComponent);
-
1/1/98.
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.
property FormatOfDayName : DayFormat
property RequiredDayName : boolean
dayName : TMaskEdit;
dayStr : string;
DecBtn : TButton;
FDay : DayFormat;
FUseDayName : boolean;
IncBtn : TButton;
theDate : TbhDate;
constructor Create(AOwner : TComponent);
1/1/98.
Layout the pieces of the component.
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.
property FormatOfDayName : DayFormat
property RequiredDayName : boolean
dayName : TMaskEdit;
dayStr : string;
DecBtn : TButton;
FDay : DayFormat;
FUseDayName : boolean;
IncBtn : TButton;
theDate : TbhDate;