TJvTFDays

type TJvTFDays = class(TJvTFControl)

protected

  FState: TJvTFDaysState;

  FHint: TJvTFHint;

  FNeedCheckSBParams: Boolean;

  PaintBuffer: TBitmap;

  FWeekendFillPic: TBitmap;

  FBeginDraggingCoord: TJvTFDaysCoord;

  FDraggingCoord: TJvTFDaysCoord;

  FSelAppt: TJvTFAppt;

  FSelStart: TPoint;

  FSelEnd: TPoint;

  FFromToSel: Boolean;

  FSaveFocCol: Integer;

  FHScrollBar: TScrollBar;

  FVScrolLBar: TScrollBar;

  FAutoScrollDir: TJvTFAutoScrollDir;

  FLiveTimer: Boolean;

  FMouseMovePt: TPoint;

  FMouseMoveState: TShiftState;

  procedure SetDateFormat(); override;

  procedure ReqSchedNotification(); override;

  procedure RelSchedNotification(); override;

  procedure CreateParams(); override;

  function GetFocusedSchedule;

  procedure SetSelAppt();

  procedure Paint; override;

  procedure DrawDataCell();

  procedure DrawEmptyColHdr();

  procedure DrawAppt();

  procedure DrawApptDetail();

  procedure DrawApptBar();

  function CalcTimeStampRect();

  procedure DrawTimeStamp();

  procedure DrawPics();

  procedure CreatePicDrawList();

  procedure FilterPicDrawList();

  procedure ClearPicDrawList();

  procedure DrawListPics();

  procedure DrawGrabLines();

  procedure DrawGrabHandle();

  procedure DrawCorner();

  procedure DrawRowHdr();

  function GetTallestColTitle();

  procedure GetApptDrawInfo();

  procedure DrawFrame();

  procedure DrawAppts();

  procedure AdjustForMargins();

  procedure CanDrawWhat();

  procedure ManualFocusRect();

  procedure DrawFancyRowHdrs();

  procedure DrawMinor();

  function GetMinorLabel();

  function GetMinorTickLength; virtual;

  function GetMajorTickLength; virtual;

  procedure DrawGroupHdrs();

  procedure DrawColGroupHdr();

  procedure DrawBlockHdr();

  procedure FillBlockHdrDeadSpace();

  procedure Resize; override;

  procedure WMEraseBkgnd(); message;

  procedure WMSetCursor(); message;

  procedure WMNCHitTest(); message;

  procedure CMDesignHitTest(); message;

  procedure CNRequestRefresh(); message;

  procedure WMTimer(); message;

  procedure CMFontChanged(); message;

  procedure CMEnabledChanged(); message;

  procedure CMMouseLeave(); message;

  procedure Loaded; override;

  procedure RefreshControl; override;

  procedure UpdateDesigner;

  procedure CheckSBParams;

  procedure ScrollBarScroll();

  property VisibleScrollBars: TJvTFVisibleScrollBars; [rw]

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure DblClick; override;

  procedure DoApptHint();

  procedure DoCellHint();

  procedure DoStartDrag(); override;

  procedure DragOver(); override;

  procedure DoEndDrag(); override;

  procedure DropAppt();

  procedure BeginDragging();

  procedure DrawDrag();

  procedure ContinueDragging();

  procedure EndDragging();

  function CanDragWhat();

  procedure CalcSizeEndTime();

  procedure CalcMoveStartEnd();

  procedure KillAutoScrollTimer;

  procedure EnsureCol();

  procedure EnsureRow();

  procedure KeyDown(); override;

  procedure KeyPress(); override;

  procedure DoInsertSchedule; dynamic;

  procedure DoInsertAppt; dynamic;

  procedure DoDeleteAppt; dynamic;

  procedure DoDeleteSchedule; dynamic;

  function DoMouseWheelDown(); override;

  function DoMouseWheelUp(); override;

  procedure DestroyApptNotification(); override;

  procedure Navigate(); override;

  procedure DoEnter; override;

  procedure DoExit; override;

  function GetSelStart;

  function GetSelEnd;

  procedure SetSelStart();

  procedure SetSelEnd();

  procedure QuickEntry(); virtual;

  procedure EnsureBlockRules();

  function ValidateBlockRules();

  class function GetControlClassDefaultSize; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetTFHintClass; dynamic;

  function GetTopGrabHandleRect();

  function GetBottomGrabHandleRect();

  function PtInTopHandle();

  function PtInBottomHandle();

  function GetAdjClientRect;

  function GetDataAreaRect;

  function GetDataWidth;

  function GetDataHeight;

  function PtToCell();

  function CellRect();

  function VirtualCellRect();

  function GetApptRect();

  function LocateDivCol();

  function CalcGroupHdrHeight;

  function CalcGroupColHdrsHeight;

  function VirtualGroupHdrRect();

  procedure GetGroupStartEndCols();

  function RowToTimeBlock();

  procedure GetTimeBlockStartEnd();

  function CalcBlockHdrWidth;

  function CalcBlockRowHdrsWidth;

  procedure GetBlockStartEndRows();

  function VirtualBlockHdrRect();

  procedure EditAppt();

  procedure FinishEditAppt;

  function Editing;

  function CanEdit; dynamic;

  function RowsPerHour;

  function RowCount;

  function PossVisibleRows;

  function VisibleRows;

  function FullVisibleRows;

  function VisibleCols;

  function FullVisibleCols;

  function RowToTime();

  function TimeToRow();

  procedure TimeToTop();

  function AdjustEndTime(); dynamic;

  function RowStartsHour();

  function RowEndsHour();

  function RowEndTime();

  function RowToHour();

  function HourStartRow();

  function HourEndRow();

  property State: TJvTFDaysState; [r]

  function BottomRow;

  function RightCol;

  property SelAppt: TJvTFAppt; [rw]

  property FocusedSchedule: TJvTFSched; [r]

  procedure DragDrop(); override;

  procedure CalcStartEndRows();

  function IsWeekend();

  function CurrentDate;

  procedure PrevDate;

  procedure NextDate;

  procedure GotoDate();

  procedure ScrollDays();

  procedure ScrollMonths();

  procedure ScrollYears();

  procedure ReleaseSchedule(); override;

  procedure RowInView();

  procedure ColInView();

  property FocusedCol: Integer; [rw]

  property FocusedRow: Integer; [rw]

  property SelStart: TPoint; [rw]

  property SelEnd: TPoint; [rw]

  function CellIsSelected();

  function ColIsSelected();

  function RowIsSelected();

  procedure ClearSelection;

  function ValidSelection;

  procedure SelFirstAppt;

  procedure SelPrevAppt;

  procedure SelNextAppt;

  procedure SelLastAppt;

  procedure SelFirstApptNextCol;

  procedure SelFirstApptPrevCol;

  procedure ApptInView();

  procedure SelApptCell();

  function GroupHdrIsSelected();

  function BlockHdrIsSelected();

  function EnumSelCells;

  function EnumSelCols;

  function EnumSelRows;

  function GetApptDispColor();

published

  property DitheredBackground: Boolean; [rw]

  property AutoSizeCols: Boolean; [rw]

  property Granularity: Integer; [rw]

  property ColHdrHeight: Integer; [rws]

  property Cols: TJvTFDaysCols; [rw]

  property DefColWidth: Integer; [rws]

  property MinColWidth: Integer; [rws]

  property MinRowHeight: Integer; [rws]

  property Options: TJvTFDaysOptions; [rw]

  property RowHdrWidth: Integer; [rws]

  property RowHeight: Integer; [rws]

  property ShowFocus: Boolean; [rw]

  property Template: TJvTFDaysTemplate; [rw]

  property Grouping: TJvTFDaysGrouping; [rw]

  property GroupHdrHeight: Integer; [rws]

  property GridStartTime: TTime; [rw]

  property GridEndTime: TTime; [rw]

  property TimeBlocks: TJvTFDaysTimeBlocks; [rw]

  property TimeBlockProps: TJvTFDaysBlockProps; [rw]

  property ApptAttr: TJvTFDaysApptAttr; [rw]

  property SelApptAttr: TJvTFDaysApptAttr; [rw]

  property HdrAttr: TJvTFDaysHdrAttr; [rw]

  property SelHdrAttr: TJvTFDaysHdrAttr; [rw]

  property FancyRowHdrAttr: TJvTFDaysFancyRowHdrAttr; [rw]

  property SelFancyRowHdrAttr: TJvTFDaysFancyRowHdrAttr; [rw]

  property SelCellAttr: TJvTFSelCellAttr; [rw]

  property ApptBar: TJvTFDaysApptBar; [rw]

  property ApptBuffer: Integer; [rw]

  property ColTitleStyle: TJvTFColTitleStyle; [rw]

  property GrabHandles: TJvTFDaysGrabHandles; [rw]

  property GridLineColor: TColor; [rw]

  property PrimeTime: TJvTFDaysPrimeTime; [rw]

  property RowHdrType: TJvTFRowHdrType; [rw]

  property Thresholds: TJvTFDaysThresholds; [rw]

  property HintProps: TJvTFHintProps; [rw]

  property GroupHdrAttr: TJvTFDaysHdrAttr; [rw]

  property SelGroupHdrAttr: TJvTFDaysHdrAttr; [rw]

  property Weekend: TTFDaysOfWeek; [rw]

  property WeekendColor: TColor; [rw]

  property LeftCol: Integer; [rw]

  property TopRow: Integer; [rw]

  property OnDropAppt: TJvTFDropApptEvent; [rw]

  property OnSizeAppt: TJvTFSizeApptEvent; [rw]

  property OnSizeCol: TJvTFDragRowColEvent; [rw]

  property OnSizeRow: TJvTFDragRowColEvent; [rw]

  property OnSizeColHdr: TJvTFDragRowColEvent; [rw]

  property OnSizeRowHdr: TJvTFDragRowColEvent; [rw]

  property OnMoveCol: TJvTFDragRowColEvent; [rw]

  property OnDateChanging: TJvTFDateChangingEvent; [rw]

  property OnDateChanged: TNotifyEvent; [rw]

  property OnGranularityChanging: TJvTFGranChangingEvent; [rw]

  property OnGranularityChanged: TNotifyEvent; [rw]

  property OnDrawAppt: TJvTFDrawApptEvent; [rw]

  property OnDrawApptBar: TJvTFDrawApptBarEvent; [rw]

  property OnDrawColHdr: TJvTFDrawHdrEvent; [rw]

  property OnDrawCorner: TJvTFDrawCornerEvent; [rw]

  property OnDrawDataCell: TJvTFDrawDataCellEvent; [rw]

  property OnDrawGrabHandle: TJvTFDrawGrabHandleEvent; [rw]

  property OnDrawMajorRowHdr: TJvTFDrawHdrEvent; [rw]

  property OnDrawMinorRowHdr: TJvTFDrawHdrEvent; [rw]

  property OnDrawRowHdr: TJvTFDrawHdrEvent; [rw]

  property OnDrawGroupHdr: TJvTFDrawHdrEvent; [rw]

  property OnShadeCell: TJvTFShadeCellEvent; [rw]

  property OnGetApptDrawInfo: TJvTFGetDaysApptDrawInfoEvent; [rw]

  property OnFailEditor: TJvTFFailEditorEvent; [rw]

  property OnInsertAppt: TNotifyEvent; [rw]

  property OnInsertSchedule: TNotifyEvent; [rw]

  property OnDeleteAppt: TNotifyEvent; [rw]

  property OnDeleteSchedule: TNotifyEvent; [rw]

  property OnCreateQuickEntry: TJvTFCreateQuickEntryEvent; [rw]

  property OnQuickEntry: TNotifyEvent; [rw]

  property OnBeginEdit: TJvTFBeginEditEvent; [rw]

  property OnShowHint: TJvTFShowHintEvent; [rw]

  property OnSelectingAppt: TJvTFVarApptEvent; [rw]

  property OnSelectAppt: TJvTFSelecTJvTFApptEvent; [rw]

  property OnSelectedAppt: TNotifyEvent; [rw]

  property OnUpdateColTitles: TJvTFUpdateTitlesEvent; [rw]

  property OnFocusedRowChanged: TNotifyEvent; [rw]

  property OnFocusedColChanged: TNotifyEvent; [rw]

  property DateFormat: string;

  property TimeFormat: string;

  property Align;

  property BorderSpacing;

  property BorderStyle;

  property Color;

  property ParentColor;

  property Font;

  property ParentFont;

  property TabStop;

  property TabOrder;

  property Anchors;

  property Constraints;

  property DragKind;

  property DragCursor;

  property DragMode;

  property Enabled;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property Visible;

  property OnClick;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnEndDock;

  property OnStartDock;

  property OnStartDrag;

end;

TJvTFDays

TJvTFControl

TJvExCustomControl

TObject