TJvTFWeeks

type TJvTFWeeks = class(TJvTFCustomGlance)

protected

  procedure ConfigCells; override;

  procedure SetStartOfWeek(); override;

  procedure DWNamesChange();

  procedure Navigate(); override;

  function GetSplitParentDay;

  function GetCellTitleText(); override;

  procedure DrawTitle(); override;

  procedure UpdateTitle;

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetDataTop; override;

  function DisplayDayCount;

  procedure PrevWeek;

  procedure NextWeek;

published

  property DisplayDate: TDate; [rw]

  property DisplayDays: TTFDaysOfWeek; [rw]

  property DisplayOrder: TJvTFDispOrder; [rw]

  property DWNames: TJvTFDWNames; [rw]

  property DWTitleAttr: TJvTFGlanceTitle; [rw]

  property IgnoreSplit: Boolean; [rw]

  property SplitDay: TTFDayOfWeek; [rw]

  property WeekCount: Integer; [rw]

  property OnDrawDWTitle: TJvTFDrawDWTitleEvent; [rw]

  property OnUpdateTitle: TJvTFUpdateTitleEvent; [rw]

  property StartOfWeek: TTFDayOfWeek;

end;

TJvTFWeeks

TJvTFCustomGlance

TJvTFControl

TJvExCustomControl

TObject