Joined: 22 Feb 2017, 08:07 Posts: 1
|
when open pvoHighlightTodayEh Option PrintService.Preview is error.
change it for this.
{1 remark} // TPlannerViewTimeCellDrawArgsEh = class(TPlannerViewCellDrawArgsEh) // public // DrawMonthDay: Boolean; // DrawTopToDayLine: Boolean; // MonthDay: String; // MonthDayFontStyle: TFontStyles; // end;
{ TPlannerViewDayNamesCellDrawArgsEh }
// TPlannerViewDayNamesCellDrawArgsEh = class(TPlannerViewCellDrawArgsEh) // public // DrawTimeLine: Boolean; // DrawTimeRect: TRect; // HoursFontSize: Integer; // HoursStr: String; // MinutesFontSize: Integer; // MinutesStr: String; // Time: TTime; // end;
{2 add the property in TPlannerViewCellDrawArgsEh } TPlannerViewCellDrawArgsEh = class(TObject) public DrawTimeLine: Boolean; DrawTimeRect: TRect; HoursFontSize: Integer; HoursStr: String; MinutesFontSize: Integer; MinutesStr: String; Time: TTime;
DrawMonthDay: Boolean; DrawTopToDayLine: Boolean; MonthDay: String; MonthDayFontStyle: TFontStyles;
{3 replace all TPlannerViewTimeCellDrawArgsEh and TPlannerViewDayNamesCellDrawArgsEh to TPlannerViewCellDrawArgsEh }
in joy it!
|
|