TJvTFCustomGlance

type TJvTFCustomGlance = class(TJvTFControl)

protected

  FCreatingControl: Boolean;

  FPaintBuffer: TBitmap;

  FSelAnchor: TJvTFGlanceCell;

  FMouseCell: TJvTFGlanceCell;

  FImageChangeLink: TChangeLink;

  FHint: TJvTFHint;

  procedure SetColCount(); virtual;

  procedure SetStartOfWeek(); virtual;

  procedure EnsureCol();

  procedure EnsureRow();

  procedure EnsureCell();

  function ValidCol();

  function ValidRow();

  function ValidCell();

  procedure WMEraseBkgnd(); message;

  procedure Loaded; override;

  procedure Notification(); override;

  procedure ImageListChange();

  procedure Notify(); override;

  procedure GlanceTitleChange();

  procedure ScrollBtnChange();

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure DblClick; override;

  procedure Click; override;

  procedure CheckApptHint(); virtual;

  procedure DoStartDrag(); override;

  procedure DragOver(); override;

  procedure DoEndDrag(); override;

  procedure DropAppt();

  procedure UpdateSelection;

  procedure SelChange(); virtual;

  property SelOrder: TJvTFGlanceSelOrder; [rw]

  procedure InternalSelectCell(); virtual;

  procedure InternalDeselectCell(); virtual;

  procedure Paint; override;

  procedure DrawTitle(); virtual;

  procedure DrawCells();

  procedure DrawCell();

  procedure DrawCellTitle();

  procedure DrawCellTitleFrame();

  procedure DrawCellFrame();

  procedure DrawScrollButtons();

  procedure Draw3DFrame();

  function PicsToDraw();

  procedure GetPicsWidthHeight();

  function ValidPicIndex();

  procedure DoDrawTitle(); virtual;

  procedure DoDrawCell(); virtual;

  procedure ConfigCells; virtual;

  procedure DoConfigCells; virtual;

  procedure SetCellDate();

  procedure UpdateCellTitles;

  procedure UpdateCellTitleText();

  function GetCellTitleText(); virtual;

  procedure CreateParams(); override;

  procedure SchedNamesChange();

  property SelAppt: TJvTFAppt; [rw]

  property AllowCustomDates: Boolean; [rw]

  property RowCount: Integer; [rw]

  property ColCount: Integer; [rw]

  property StartDate: TDate; [rw]

  property OriginDate: TDate; [rw]

  property OnConfigCells: TNotifyEvent; [rw]

  property StartOfWeek: TTFDayOfWeek; [rw]

public

  function GetTFHintClass; dynamic;

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  procedure ReleaseSchedule(); override;

  procedure SafeReleaseSchedule();

  function GetDataTop; dynamic;

  function GetDataLeft; dynamic;

  function GetDataWidth; dynamic;

  function GetDataHeight; dynamic;

  procedure SplitRects();

  function CellRect();

  function WholeCellRect();

  function TitleRect;

  function CellTitleRect();

  function CellBodyRect();

  function CellScrollBtnRect();

  function CalcCellTitleRect();

  function CalcCellBodyRect();

  function PtToCell();

  property Sel: TJvTFGlanceSelList; [rw]

  function DateIsSelected();

  function CellIsSelected();

  procedure SelectCell(); virtual;

  procedure DeselectCell(); virtual;

  procedure BeginSelUpdate;

  procedure EndSelUpdate;

  property UpdatingSel: Boolean; [r]

  function GetCellAttr(); virtual;

  procedure CheckViewerApptHint();

  procedure DragDrop(); override;

  procedure ReconfigCells;

  procedure SplitCell();

  procedure CombineCell();

published

  property Cells: TJvTFGlanceCells; [rw]

  property BorderStyle: TBorderStyle; [rw]

  property GapSize: Integer; [rw]

  property TitleAttr: TJvTFGlanceMainTitle; [rw]

  property CellAttr: TJvTFGlanceCellAttr; [rw]

  property SelCellAttr: TJvTFGlanceCellAttr; [rw]

  property ScrollBtnAttr: TJvTFScrollBtnAttr; [rw]

  property CellPics: TCustomImageList; [rw]

  property Viewer: TJvTFGlanceViewer; [rw]

  property HintProps: TJvTFHintProps; [rw]

  property SchedNames: TStrings; [rw]

  property OnDrawTitle: TJvTFGlanceDrawTitleEvent; [rw]

  property OnDrawCell: TJvTFGlanceDrawCellEvent; [rw]

  property OnSelChanged: TNotifyEvent; [rw]

  property OnDropAppt: TJvTFGlanceDropApptEvent; [rw]

  property OnUpdateCellTitleText: TJvTFUpdateCellTitleTextEvent; [rw]

  property OnApptHint: TJvApptHintEvent; [rw]

  property DateFormat: string;

  property TimeFormat: string;

  property Align;

  property Color;

  property ParentColor;

  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;

TJvTFCustomGlance

TJvTFControl

TJvExCustomControl

TObject