Class TODCalendarDialog (unit ODPopCal)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

TODCalendarDialog


Functions

destructor Destroy;

FFramed := True;

function Execute: Boolean;


function GetAbout: string;


function GetDisplayDate: TDateTime;

OnStartChange := FOnStartChange; OnFinishChange := FOnFinishChange;

procedure SetAbout(Value: string);


procedure SetDateFont(Value: TFont);


procedure SetDisplayDate(Value: TDateTime);


procedure SetDisplayMonth(Value: Integer);


procedure SetDisplayYear(Value: Integer);


procedure SetFinishFont(Value: TFont);


procedure SetStartFont(Value: TFont);


procedure SetTitleFont(Value: TFont);

procedure SetDisplayWeek(Value: Integer);

procedure TODCalendarDialog.


Properties

property About : string


property AutoPage : Boolean


property BevelEdge : TPanelBevel


property Caption : string


property DateFont : TFont


property DateFormat : string


property DayColor : TColor

property DisplayWeek: Integer read FDisplayWeek write SetDisplayWeek;

property DialogHeight : Integer


property DialogWidth : Integer


property DisplayMonth : Integer


property DisplayYear : Integer


property FinishFont : TFont


property Headers : TODCalendarHeaders


property RangeColor : TColor


property ShowStatus : Boolean


property SingleDate : Boolean


property StartFont : TFont


property StartOnMonday : Boolean


property TitleFont : TFont


property TodayColor : TColor


property WeekColor : TColor


property DisplayDate : TDateTime


property FinishDate : TDateTime


property StartDate : TDateTime


Events

event OnChange : TNotifyEvent


event OnDayDblClick : TODDateEvent


event OnFinishClick : TODSelectDateEvent


event OnSelectYear : TODSelectYearEvent


event OnSetupDay : TODSetupDayEvent


event OnStartClick : TODSelectDateEvent


Variables

FAutoPage : Boolean;


FBevelEdge : TPanelBevel;


FCaption : string;


FDateFont : TFont;


FDateFormat : string;


FDayColor : TColor;

, FDisplayWeek

FDialogHeight : Integer;


FDialogWidth : Integer;


FDisplayMonth : Integer;


FDisplayYear : Integer;


FFinishDate : TDateTime;


FFinishFont : TFont;


FForm : TODCalendarForm;


FHeaders : TODCalendarHeaders;


FOnChange : TNotifyEvent;


FOnDayDblClick : TODDateEvent;


FOnFinishClick : TODSelectDateEvent;


FOnSelectYear : TODSelectYearEvent;


FOnSetupDay : TODSetupDayEvent;


FOnStartClick : TODSelectDateEvent;


FRangeColor : TColor;


FShowStatus : Boolean;


FSingleDate : Boolean;


FStartDate : TDateTime;


FStartFont : TFont;


FStartOnMonday : Boolean;


FTitleFont : TFont;


FTodayColor : TColor;


FWeekColor : TColor;



Constructors


constructor Create(AOwner: TComponent);

TODCalendarDialog


Functions


destructor Destroy;

FFramed := True;


function Execute: Boolean;


function GetAbout: string;


function GetDisplayDate: TDateTime;

OnStartChange := FOnStartChange; OnFinishChange := FOnFinishChange;


procedure SetAbout(Value: string);


procedure SetDateFont(Value: TFont);


procedure SetDisplayDate(Value: TDateTime);


procedure SetDisplayMonth(Value: Integer);


procedure SetDisplayYear(Value: Integer);


procedure SetFinishFont(Value: TFont);


procedure SetStartFont(Value: TFont);


procedure SetTitleFont(Value: TFont);

procedure SetDisplayWeek(Value: Integer);

procedure TODCalendarDialog.SetDisplayWeek(Value: Integer); var tw: Integer; begin tw := FCalendar.WeeksInYear(FDisplayYear); if Value < 1 then Value := 1 else if Value > tw then Value := tw; FDisplayMonth := FForm.Calendar.WeekToMonth(Value); end;


Properties


property About : string


property AutoPage : Boolean


property BevelEdge : TPanelBevel


property Caption : string


property DateFont : TFont


property DateFormat : string


property DayColor : TColor

property DisplayWeek: Integer read FDisplayWeek write SetDisplayWeek;


property DialogHeight : Integer


property DialogWidth : Integer


property DisplayMonth : Integer


property DisplayYear : Integer


property FinishFont : TFont


property Headers : TODCalendarHeaders


property RangeColor : TColor


property ShowStatus : Boolean


property SingleDate : Boolean


property StartFont : TFont


property StartOnMonday : Boolean


property TitleFont : TFont


property TodayColor : TColor


property WeekColor : TColor


property DisplayDate : TDateTime


property FinishDate : TDateTime


property StartDate : TDateTime


Events


event OnChange : TNotifyEvent


event OnDayDblClick : TODDateEvent


event OnFinishClick : TODSelectDateEvent


event OnSelectYear : TODSelectYearEvent


event OnSetupDay : TODSetupDayEvent


event OnStartClick : TODSelectDateEvent


Variables


FAutoPage : Boolean;


FBevelEdge : TPanelBevel;


FCaption : string;


FDateFont : TFont;


FDateFormat : string;


FDayColor : TColor;

, FDisplayWeek


FDialogHeight : Integer;


FDialogWidth : Integer;


FDisplayMonth : Integer;


FDisplayYear : Integer;


FFinishDate : TDateTime;


FFinishFont : TFont;


FForm : TODCalendarForm;


FHeaders : TODCalendarHeaders;


FOnChange : TNotifyEvent;


FOnDayDblClick : TODDateEvent;


FOnFinishClick : TODSelectDateEvent;


FOnSelectYear : TODSelectYearEvent;


FOnSetupDay : TODSetupDayEvent;


FOnStartClick : TODSelectDateEvent;


FRangeColor : TColor;


FShowStatus : Boolean;


FSingleDate : Boolean;


FStartDate : TDateTime;


FStartFont : TFont;


FStartOnMonday : Boolean;


FTitleFont : TFont;


FTodayColor : TColor;


FWeekColor : TColor;