Class TODPopupCalendar (unit ODPopCal) |
Inherits from
TCustomPanel
constructor Create(AOwner: TComponent);
- TODPopupCalendar
destructor Destroy;
procedure Loaded;
procedure ButtonClick(Sender: TObject);
procedure Change(Sender: TObject);
procedure DefineProperties(Filer: TFiler);
procedure FinishClick(Sender: TObject; var ADate: TDateTime);
procedure Resize;
procedure SelectYear(Sender: TObject; Year: Integer;
var YearStart, YearFinish: TDateTime);
procedure SetText;
procedure SetupDay(Sender: TObject; ADate: TDateTime;
var AColor: TColor; var AHint: string);
procedure StartClick(Sender: TObject; var ADate: TDateTime);
procedure TextChange(Sender: TObject);
DisplayWeek := FDisplayWeek;
function GetAbout: string;
function GetDisplayDate: TDateTime;
function GetEnabled: Boolean;
function GetGlyph: TBitmap;
function GetText: string;
procedure ReadFinishDate(Reader: TReader);
procedure ReadStartDate(Reader: TReader);
procedure SetAbout(Value: string);
procedure SetDateFont(Value: TFont);
procedure SetDateFormat(const Value: string);
procedure SetDisplayDate(Value: TDateTime);
procedure SetDisplayMonth(Value: Integer);
procedure SetDisplayYear(Value: Integer);
procedure SetEnabled(Value: Boolean);
procedure SetFinishDate(Value: TDateTime);
procedure SetFinishFont(Value: TFont);
procedure SetGlyph(Value: TBitmap);
procedure SetSeperator(const Value: string);
procedure SetSingleDate(Value: Boolean);
procedure SetStartDate(Value: TDateTime);
procedure SetStartFont(Value: TFont);
procedure SetTitleFont(Value: TFont);
procedure SetDisplayWeek(Value: Integer);
procedure TODPopupCalendar.
procedure WriteFinishDate(Writer: TWriter);
procedure WriteStartDate(Writer: TWriter);
property About : string
property AutoPage : Boolean
property BevelEdge : TPanelBevel
property Color :
property DateFont : TFont
property DateFormat : string
property DayColor : TColor
property DisplayWeek: Integer read FDisplayWeek write SetDisplayWeek;
property DisplayMonth : Integer
property DisplayYear : Integer
property Enabled : Boolean
property FinishFont : TFont
property Font :
property Glyph : TBitmap
property Headers : TODCalendarHeaders
property ParentColor :
property ParentFont :
property ParentCtl3D;
property ParentShowHint :
property PopupCaption : string
property PopupHeight : Integer
property PopupWidth : Integer
property RangeColor : TColor
property Seperator : string
property ShowHint :
property ShowStatus : Boolean
property SingleDate : Boolean
property StartFont : TFont
property StartOnMonday : Boolean
property TabOrder :
property TabStop :
property TitleFont : TFont
property TodayColor : TColor
property Visible :
property WeekColor : TColor
property DisplayDate : TDateTime
property FinishDate : TDateTime
property StartDate : TDateTime
property Text : string
event OnChange : TNotifyEvent
event OnDayDblClick : TODDateEvent
event OnEnter :
event OnExit :
event OnFinishClick : TODSelectDateEvent
event OnPopup : TNotifyEvent
event OnResize :
event OnSelectYear : TODSelectYearEvent
event OnSetupDay : TODSetupDayEvent
event OnStartClick : TODSelectDateEvent
StoreDates : Boolean;
FAutoPage : Boolean;
FBevelEdge : TPanelBevel;
FButton : TSpeedButton;
FDateFont : TFont;
FDateFormat : string;
FDayColor : TColor;
, FDisplayWeek
FDisplayMonth : Integer;
FDisplayYear : Integer;
FFinishDate : TDateTime;
FFinishFont : TFont;
FForm : TODCalendarForm;
FHeaders : TODCalendarHeaders;
FLabel : TLabel;
FOnChange : TNotifyEvent;
FOnDayDblClick : TODDateEvent;
FOnFinishClick : TODSelectDateEvent;
FOnPopup : TNotifyEvent;
FOnSelectYear : TODSelectYearEvent;
FOnSetupDay : TODSetupDayEvent;
FOnStartClick : TODSelectDateEvent;
FPopupCaption : string;
FPopupHeight : Integer;
FPopupWidth : Integer;
FRangeColor : TColor;
FSeperator : string;
FShowStatus : Boolean;
FSingleDate : Boolean;
FStartDate : TDateTime;
FStartFont : TFont;
FStartOnMonday : Boolean;
FText : TEdit;
FTitleFont : TFont;
FTodayColor : TColor;
FWeekColor : TColor;
constructor Create(AOwner: TComponent);
TODPopupCalendar
destructor Destroy;
procedure Loaded;
procedure ButtonClick(Sender: TObject);
procedure Change(Sender: TObject);
procedure DefineProperties(Filer: TFiler);
procedure FinishClick(Sender: TObject; var ADate: TDateTime);
procedure Resize;
procedure SelectYear(Sender: TObject; Year: Integer;
var YearStart, YearFinish: TDateTime);
procedure SetText;
procedure SetupDay(Sender: TObject; ADate: TDateTime;
var AColor: TColor; var AHint: string);
procedure StartClick(Sender: TObject; var ADate: TDateTime);
procedure TextChange(Sender: TObject);
DisplayWeek := FDisplayWeek;
function GetAbout: string;
function GetDisplayDate: TDateTime;
function GetEnabled: Boolean;
function GetGlyph: TBitmap;
function GetText: string;
procedure ReadFinishDate(Reader: TReader);
procedure ReadStartDate(Reader: TReader);
procedure SetAbout(Value: string);
procedure SetDateFont(Value: TFont);
procedure SetDateFormat(const Value: string);
procedure SetDisplayDate(Value: TDateTime);
procedure SetDisplayMonth(Value: Integer);
procedure SetDisplayYear(Value: Integer);
procedure SetEnabled(Value: Boolean);
procedure SetFinishDate(Value: TDateTime);
procedure SetFinishFont(Value: TFont);
procedure SetGlyph(Value: TBitmap);
procedure SetSeperator(const Value: string);
procedure SetSingleDate(Value: Boolean);
procedure SetStartDate(Value: TDateTime);
procedure SetStartFont(Value: TFont);
procedure SetTitleFont(Value: TFont);
procedure SetDisplayWeek(Value: Integer);
procedure TODPopupCalendar.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;
procedure WriteFinishDate(Writer: TWriter);
procedure WriteStartDate(Writer: TWriter);
property About : string
property AutoPage : Boolean
property BevelEdge : TPanelBevel
property Color :
property DateFont : TFont
property DateFormat : string
property DayColor : TColor
property DisplayWeek: Integer read FDisplayWeek write SetDisplayWeek;
property DisplayMonth : Integer
property DisplayYear : Integer
property Enabled : Boolean
property FinishFont : TFont
property Font :
property Glyph : TBitmap
property Headers : TODCalendarHeaders
property ParentColor :
property ParentFont :
property ParentCtl3D;
property ParentShowHint :
property PopupCaption : string
property PopupHeight : Integer
property PopupWidth : Integer
property RangeColor : TColor
property Seperator : string
property ShowHint :
property ShowStatus : Boolean
property SingleDate : Boolean
property StartFont : TFont
property StartOnMonday : Boolean
property TabOrder :
property TabStop :
property TitleFont : TFont
property TodayColor : TColor
property Visible :
property WeekColor : TColor
property DisplayDate : TDateTime
property FinishDate : TDateTime
property StartDate : TDateTime
property Text : string
event OnChange : TNotifyEvent
event OnDayDblClick : TODDateEvent
event OnEnter :
event OnExit :
event OnFinishClick : TODSelectDateEvent
event OnPopup : TNotifyEvent
event OnResize :
event OnSelectYear : TODSelectYearEvent
event OnSetupDay : TODSetupDayEvent
event OnStartClick : TODSelectDateEvent
StoreDates : Boolean;
FAutoPage : Boolean;
FBevelEdge : TPanelBevel;
FButton : TSpeedButton;
FDateFont : TFont;
FDateFormat : string;
FDayColor : TColor;
, FDisplayWeek
FDisplayMonth : Integer;
FDisplayYear : Integer;
FFinishDate : TDateTime;
FFinishFont : TFont;
FForm : TODCalendarForm;
FHeaders : TODCalendarHeaders;
FLabel : TLabel;
FOnChange : TNotifyEvent;
FOnDayDblClick : TODDateEvent;
FOnFinishClick : TODSelectDateEvent;
FOnPopup : TNotifyEvent;
FOnSelectYear : TODSelectYearEvent;
FOnSetupDay : TODSetupDayEvent;
FOnStartClick : TODSelectDateEvent;
FPopupCaption : string;
FPopupHeight : Integer;
FPopupWidth : Integer;
FRangeColor : TColor;
FSeperator : string;
FShowStatus : Boolean;
FSingleDate : Boolean;
FStartDate : TDateTime;
FStartFont : TFont;
FStartOnMonday : Boolean;
FText : TEdit;
FTitleFont : TFont;
FTodayColor : TColor;
FWeekColor : TColor;