Class TODCalendarDialog (unit ODPopCal) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- TODCalendarDialog
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.
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
event OnChange : TNotifyEvent
event OnDayDblClick : TODDateEvent
event OnFinishClick : TODSelectDateEvent
event OnSelectYear : TODSelectYearEvent
event OnSetupDay : TODSetupDayEvent
event OnStartClick : TODSelectDateEvent
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;
constructor Create(AOwner: TComponent);
TODCalendarDialog
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;
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
event OnChange : TNotifyEvent
event OnDayDblClick : TODDateEvent
event OnFinishClick : TODSelectDateEvent
event OnSelectYear : TODSelectYearEvent
event OnSetupDay : TODSetupDayEvent
event OnStartClick : TODSelectDateEvent
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;