| Class TODCalendarDialog (unit ODPopCal) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function Execute: Boolean;
function GetAbout: string;
function GetDisplayDate: TDateTime;
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 TODCalendarDialog.
| Properties |
property About : string
property AutoPage : Boolean
property BevelEdge : TPanelBevel
property Caption : string
property DateFont : TFont
property DateFormat : string
property DayColor : TColor
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;
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 : TColorproperty 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;