Unit DtMisc97

Classes

TAboutMeProperty - ********* tAboutMeProperty
TButtonsShortCut -
TCalendarColors -
tDateObject -
TDayName -
TMonthName -

Functions

Types

PDayArray
PMonthArray
PTDateTime
TCalendarButtons
TDateBtnStyle
TDateOption
TDateOptions
TDay
TDayArray
TDayOfWeek
TMonth
TMonthArray
TNewMonthEvent

Constants

DaysPerMonth
ErrDateTooShort
IdsFrom
IdsTo
IdsValAbout
IdsValNone
IdsVersion

Variables


Functions


Types


PDayArray=^TDayArray

PMonthArray = ^TMonthArray

PTDateTime = ^TDateTime

TCalendarButtons = (cbtNone, cbtPrevYear, cbtPrevMonth, cbtNextMonth, cbtNextYear);

TDateBtnStyle = (btsDropDown, btsCalendar);

TDateOption = (doButtonTabStop, doCanClear, doCanPopup, doCanValidate,
                 doEmptyAsToday, doFocusOnError,
                 doIsMasked, doIsModal, doPopupToday,
                 doShowNumWeek, doShowToday);
tNotifyEvent
TDateOptions = set of TDateOption

TDay = string[2]

TDayArray = array[1..7] of TDay;

TDayOfWeek = 1..7

TMonth = string[15]

TMonthArray = array[1..12] of TMonth;

TNewMonthEvent = procedure(Sender: TObject;FromDate,TillDate:TDateTime) of Object

Constants

DaysPerMonth = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

English ressources} { IdsValAbout = '(about)'; IdsValNone = '(none)'; ErrDateTooShort = 'Date too short'; IdsFrom = 'From'; IdsTo = 'To';

ErrDateTooShort = 'Date trop courte'

IdsFrom = 'Du'

IdsTo = 'Au'

IdsValAbout = '(a propos)'

Ressources françaises

IdsValNone = '(aucune)'

IdsVersion = 'v4.1'

***************************************************************************** Misc. types and Constants for TDateEdit97 Author name=BOURMAD Mehdi Author E-mail=bourmad@mygale.org Author URL=www.mygale.org/~bourmad

Variables