Class TpvlOvcTCCustomDateEdit (unit DateCell)

Inherits from

TOvcTCBaseString

Constructors


constructor Create(AOwner : TComponent);



Functions

destructor Destroy;

--------

function EditHandle : THandle;


procedure EditHide;

--------

procedure EditMove(CellRect : TRect);

--------

procedure SaveEditedData(Data : pointer);

--------

procedure StartEditing(RowNum : TRowNum; ColNum : TColNum; CellRect : TRect; const CellAttr : TOvcCellAttributes; CellStyle: TOvcTblEditorStyle; Data : pointer);

--------} {--------

procedure StopEditing(SaveValue : boolean; Data : pointer);

--------

function GetCellEditor : TControl;

--------

function getmaxday : word;


function getmaxMonth : word;


function getmaxYear : word;


function getminday : word;


function getminMonth : word;


function getminYear : word;


function getnullday : word;

--------

function getnullMonth : word;


function getnullYear : word;


procedure loaded;


procedure SetCalFont(f: TFont);

====================================================================} {===TpvlOvcTCCustomDateEdit=============================================

procedure SetDayHeadings(s: TStrings);


procedure setmaxday(num : word);


procedure setmaxMonth(num : word);


procedure setmaxYear(num : word);


procedure setminday(num : word);


procedure setminMonth(num : word);


procedure setminYear(num : word);


procedure setnullday(num : word);


procedure setnullMonth(num : word);


procedure setnullYear(num : word);


procedure tcPaint(TableCanvas : TCanvas; const CellRect : TRect; RowNum : TRowNum; ColNum : TColNum; const CellAttr : TOvcCellAttributes; Data : pointer);

--------

Properties

property AutoAdvanceChar : boolean


property AutoAdvanceLeftRight : boolean


property CalendarColors : TPvlGridColors


property CalendarFont : TFont


property DayHeadings : TStrings


property DisplayFormat : TDateDisplayFormat


property DisplayFormatMask : String


property EditFormat : TDateEditFormat


property EditFormatMask : String


property HighlightDays : TPvlDaySet


property InvalidDays : TPvlDaySet


property Max : TDateTime


property MaxDay : word


property MaxMonth : word


property MaxYear : word


property Min : TDateTime


property MinDay : word


property MinMaxHandler : TMinMaxHandler


property MinMaxString : String


property MinMonth : word


property MinYear : word


property Monthheading : String


property Nulldate : TDateTime


property NullDay : word


property NullMonth : word


property NullYear : word


property QuickChangeType : TQuickChangeType


property QuickChangeWrap : Boolean


property StartofWeek : TDayOfWeek


property SubAlign : TSubalign


property UseNullDate : Boolean


property Yearheading : String


Events

event OnChange : TNotifyEvent


event OnDateChange : TNotifyEvent


event OnMinmaxError : TMinMaxDateEvent


event OnWantForm : TWantFormEvent


Variables

FAutoAdvanceChar : boolean;


FAutoAdvanceLeftRight : boolean;


fCalFont : TFont;


FColors : TPvlGridColors;


fDayHeadings : TStrings;


fDisplayFormat : TDateDisplayFormat;


fDisplayFormatMask : String;


fEditFormat : TDateEditFormat;


fEditFormatMask : String;


FEditor : TpvlOvcDateEditEdit;


fHighLightDays : TPvlDaySet;


fInvalidDays : TPvlDaySet;


fmax : TDateTime;


fmaxday : Word;


fmaxmonth : Word;


fmaxyear : Word;


fmin : TDateTime;

private

fminday : Word;


fminmaxhandler : TMinMaxhandler;


fMinMaxString : String;


fminmonth : Word;


fminyear : Word;


fMonthHeading : String;


fnulldate : tdatetime;


fnullday : Word;


fnullmonth : Word;


fnullyear : Word;


FOnChange : TNotifyEvent;


FOnDateChange : TNotifyEvent;


fOnMinmaxError : TMinMaxDateEvent;


fQuickChangeType : TQuickChangeType;


fQuickChangeWrap : Boolean;


fStartOfWeek : TDayOfWeek;


fSubAlign : TSubAlign;


fusenulldate : Boolean;


fWantFormEvent : TWantFormEvent;


fYearHeading : String;



Constructors


constructor Create(AOwner : TComponent);


Functions


destructor Destroy;

--------


function EditHandle : THandle;


procedure EditHide;

--------


procedure EditMove(CellRect : TRect);

--------


procedure SaveEditedData(Data : pointer);

--------


procedure StartEditing(RowNum : TRowNum; ColNum : TColNum; CellRect : TRect; const CellAttr : TOvcCellAttributes; CellStyle: TOvcTblEditorStyle; Data : pointer);

--------} {--------


procedure StopEditing(SaveValue : boolean; Data : pointer);

--------


function GetCellEditor : TControl;

--------


function getmaxday : word;


function getmaxMonth : word;


function getmaxYear : word;


function getminday : word;


function getminMonth : word;


function getminYear : word;


function getnullday : word;

--------


function getnullMonth : word;


function getnullYear : word;


procedure loaded;


procedure SetCalFont(f: TFont);

====================================================================} {===TpvlOvcTCCustomDateEdit=============================================


procedure SetDayHeadings(s: TStrings);


procedure setmaxday(num : word);


procedure setmaxMonth(num : word);


procedure setmaxYear(num : word);


procedure setminday(num : word);


procedure setminMonth(num : word);


procedure setminYear(num : word);


procedure setnullday(num : word);


procedure setnullMonth(num : word);


procedure setnullYear(num : word);


procedure tcPaint(TableCanvas : TCanvas; const CellRect : TRect; RowNum : TRowNum; ColNum : TColNum; const CellAttr : TOvcCellAttributes; Data : pointer);

--------


Properties


property AutoAdvanceChar : boolean


property AutoAdvanceLeftRight : boolean


property CalendarColors : TPvlGridColors


property CalendarFont : TFont


property DayHeadings : TStrings


property DisplayFormat : TDateDisplayFormat


property DisplayFormatMask : String


property EditFormat : TDateEditFormat


property EditFormatMask : String


property HighlightDays : TPvlDaySet


property InvalidDays : TPvlDaySet


property Max : TDateTime


property MaxDay : word


property MaxMonth : word


property MaxYear : word


property Min : TDateTime


property MinDay : word


property MinMaxHandler : TMinMaxHandler


property MinMaxString : String


property MinMonth : word


property MinYear : word


property Monthheading : String


property Nulldate : TDateTime


property NullDay : word


property NullMonth : word


property NullYear : word


property QuickChangeType : TQuickChangeType


property QuickChangeWrap : Boolean


property StartofWeek : TDayOfWeek


property SubAlign : TSubalign


property UseNullDate : Boolean


property Yearheading : String


Events


event OnChange : TNotifyEvent


event OnDateChange : TNotifyEvent


event OnMinmaxError : TMinMaxDateEvent


event OnWantForm : TWantFormEvent


Variables


FAutoAdvanceChar : boolean;


FAutoAdvanceLeftRight : boolean;


fCalFont : TFont;


FColors : TPvlGridColors;


fDayHeadings : TStrings;


fDisplayFormat : TDateDisplayFormat;


fDisplayFormatMask : String;


fEditFormat : TDateEditFormat;


fEditFormatMask : String;


FEditor : TpvlOvcDateEditEdit;


fHighLightDays : TPvlDaySet;


fInvalidDays : TPvlDaySet;


fmax : TDateTime;


fmaxday : Word;


fmaxmonth : Word;


fmaxyear : Word;


fmin : TDateTime;

private


fminday : Word;


fminmaxhandler : TMinMaxhandler;


fMinMaxString : String;


fminmonth : Word;


fminyear : Word;


fMonthHeading : String;


fnulldate : tdatetime;


fnullday : Word;


fnullmonth : Word;


fnullyear : Word;


FOnChange : TNotifyEvent;


FOnDateChange : TNotifyEvent;


fOnMinmaxError : TMinMaxDateEvent;


fQuickChangeType : TQuickChangeType;


fQuickChangeWrap : Boolean;


fStartOfWeek : TDayOfWeek;


fSubAlign : TSubAlign;


fusenulldate : Boolean;


fWantFormEvent : TWantFormEvent;


fYearHeading : String;