TJvTFDaysPrinter

type TJvTFDaysPrinter = class(TJvTFPrinter)

protected

  FPageInfoList: TStringList;

  FApptsDrawn: Integer;

  FValidPageInfo: Boolean;

  procedure SetMeasure(); override;

  procedure DrawBody(); override;

  procedure Loaded; override;

  procedure DrawCorner();

  procedure DrawFrame();

  procedure DrawEmptyColHdr();

  procedure DrawColGroupHdr();

  procedure DrawRowHdr();

  procedure DrawGroupHdrs();

  procedure DrawFancyRowHdrs();

  procedure DrawMinor();

  function GetMinorLabel();

  function GetMinorTickLength(); virtual;

  function GetMajorTickLength; virtual;

  procedure DrawDataCell();

  procedure DrawAppts();

  procedure PrintBitmap();

  procedure DrawAppt();

  procedure DrawApptDetail();

  procedure DrawApptBar();

  function CalcTimeStampRect();

  procedure DrawTimeStamp();

  procedure GetApptDrawInfo();

  procedure CreatePicDrawList();

  procedure FilterPicDrawList();

  procedure CanDrawWhat();

  procedure DrawListPics();

  procedure ClearPicDrawList();

  function GetDataWidth();

  function GetDataHeight();

  procedure EnsureRow();

  procedure CreateLayout; override;

  procedure ClearPageInfo;

  procedure CalcPageInfo; dynamic;

  procedure CalcPageRowInfo();

  procedure CalcPageColInfo();

  function GetPageLayout;

  procedure SetPageLayout();

  procedure CreateDoc; override;

  function GetPageInfo();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetProperties(); dynamic;

  function RowCount;

  function TimeToRow();

  function RowToTime();

  function RowToHour();

  function RowStartsHour();

  function RowEndsHour();

  function HourStartRow();

  function HourEndRow();

  function RowEndTime();

  function AdjustEndTime();

  function DaysPageLayout;

  function CellRect();

  function GetApptRect();

  function GetApptDispColor();

  procedure CalcStartEndRows();

  procedure Prepare; dynamic;

  property ApptCount: Integer; [r]

  property PageInfo []: TJvTFDaysPageInfo; [r]

  procedure FreeDoc; override;

  procedure PrintDirect; virtual;

  function CalcGroupHdrHeight;

  function CalcGroupColHdrsHeight;

  function VirtualGroupHdrRect();

  procedure GetGroupStartEndCols();

published

  property PageLayout: TJvTFDaysPrinterPageLayout; [rw]

  property ApptAttr: TJvTFDaysApptAttr; [rw]

  property ApptBar: TJvTFDaysApptBar; [rw]

  property ApptBuffer: Integer; [rw]

  property ColHdrHeight: Integer; [rw]

  property Color: TColor; [rw]

  property Cols: TJvTFDaysCols; [rw]

  property ColTitleStyle: TJvTFColTitleStyle; [rw]

  property DateFormat: string;

  property FancyRowHdrAttr: TJvTFDaysFancyRowHdrAttr; [rw]

  property FormattedDesc: Boolean; [rw]

  property Granularity: Integer; [rw]

  property GridLineColor: TColor; [rw]

  property GroupHdrAttr: TJvTFDaysHdrAttr; [rw]

  property GroupHdrHeight: Integer; [rw]

  property Grouping: TJvTFDaysGrouping; [rw]

  property HdrAttr: TJvTFDaysHdrAttr; [rw]

  property MinColWidth: Integer; [rw]

  property MinRowHeight: Integer; [rw]

  property PrimeTime: TJvTFDaysPrimeTime; [rw]

  property RowHdrType: TJvTFRowHdrType; [rw]

  property RowHdrWidth: Integer; [rw]

  property RowHeight: Integer; [rw]

  property ShowPics: Boolean; [rw]

  property ShowText: Boolean; [rw]

  property Thresholds: TJvTFDaysThresholds; [rw]

  property TimeFormat: string;

  property OnDrawCorner: TJvTFDrawCornerEvent; [rw]

  property OnDrawGroupHdr: TJvTFDrawHdrEvent; [rw]

  property OnDrawMinorRowHdr: TJvTFDrawHdrEvent; [rw]

  property OnDrawMajorRowHdr: TJvTFDrawHdrEvent; [rw]

  property OnUpdateColTitles: TJvTFUpdateTitlesEvent; [rw]

  property OnDrawColHdr: TJvTFDrawHdrEvent; [rw]

  property OnDrawRowHdr: TJvTFDrawHdrEvent; [rw]

  property OnDrawDataCell: TJvTFDrawDataCellEvent; [rw]

  property OnDrawAppt: TJvTFDrawApptEvent; [rw]

  property OnDrawApptBar: TJvTFDrawApptBarEvent; [rw]

  property OnGetApptDrawInfo: TJvTFGetDaysApptDrawInfoEvent; [rw]

  property OnShadeCell: TJvTFShadeCellEvent; [rw]

  property OnApptProgress: TJvTFProgressEvent; [rw]

  property GridStartTime: TTime; [rw]

  property GridEndTime: TTime; [rw]

end;

TJvTFDaysPrinter

TJvTFPrinter

TJvTFComponent

TObject