Class TODPopupCalendar (unit ODPopCal)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner: TComponent);

TODPopupCalendar


Functions

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);


Properties

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


Events

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


Variables

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;



Constructors


constructor Create(AOwner: TComponent);

TODPopupCalendar


Functions


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);


Properties


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


Events


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


Variables


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;