You've already forked lazarus-ccr
tvplanit: Add missing VpTaskListPainter and VpMonthViewPainter to repository.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4820 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
900
components/tvplanit/source/vpmonthviewpainter.pas
Normal file
900
components/tvplanit/source/vpmonthviewpainter.pas
Normal file
@ -0,0 +1,900 @@
|
||||
{$I vp.inc}
|
||||
|
||||
unit VpMonthViewPainter;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, LCLType, LCLIntf, Types,
|
||||
Classes, Graphics, VpConst, VPBase, VpData, VpMonthView, VpBasePainter;
|
||||
|
||||
type
|
||||
TVpMonthViewPainter = class(TVpBasePainter)
|
||||
private
|
||||
FMonthView: TVpMonthView;
|
||||
// local parameters of the old TVpMonthView method
|
||||
HeadRect: TRect;
|
||||
DisplayDate: TDateTime;
|
||||
RealColor: TColor;
|
||||
BevelHighlight: TColor;
|
||||
BevelShadow: TColor;
|
||||
BevelDarkShadow: TColor;
|
||||
BevelFace: TColor;
|
||||
DayHeadAttrColor: TColor;
|
||||
RealLineColor: TColor;
|
||||
RealOffDayColor: TColor;
|
||||
RealSelDayColor: TColor;
|
||||
EventFontColor: TColor;
|
||||
DotDotDotColor: TColor;
|
||||
|
||||
protected
|
||||
procedure Clear;
|
||||
procedure DrawBorders;
|
||||
procedure DrawDayHead;
|
||||
procedure DrawDays;
|
||||
procedure DrawHeader;
|
||||
procedure InitColors;
|
||||
procedure SetMeasurements; override;
|
||||
|
||||
public
|
||||
constructor Create(AMonthView: TVpMonthView; ARenderCanvas: TCanvas);
|
||||
procedure RenderToCanvas(ARenderIn: TRect; AAngle: TVpRotationAngle;
|
||||
AScale: Extended; ARenderDate: TDateTime; AStartLine, AStopLine: Integer;
|
||||
AUseGran: TVpGranularity; ADisplayOnly: Boolean); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
VpCanvasUtils, VpMisc;
|
||||
|
||||
type
|
||||
TVpMonthViewOpener = class(TVpMonthView);
|
||||
|
||||
constructor TVpMonthViewPainter.Create(AMonthView: TVpMonthView;
|
||||
ARenderCanvas: TCanvas);
|
||||
begin
|
||||
inherited Create(ARenderCanvas);
|
||||
FMonthView := AMonthView;
|
||||
end;
|
||||
|
||||
procedure TVpMonthViewPainter.Clear;
|
||||
begin
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
RenderCanvas.FillRect(RenderIn);
|
||||
end;
|
||||
|
||||
procedure TVpMonthViewPainter.DrawBorders;
|
||||
var
|
||||
R: TRect;
|
||||
begin
|
||||
R := Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1);
|
||||
if FMonthView.DrawingStyle = dsFlat then begin
|
||||
{ draw an outer and inner bevel }
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, R),
|
||||
BevelShadow,
|
||||
BevelShadow
|
||||
);
|
||||
end else
|
||||
if FMonthView.DrawingStyle = ds3d then begin
|
||||
{ draw a 3d bevel }
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, R),
|
||||
BevelShadow,
|
||||
BevelHighlight
|
||||
);
|
||||
InflateRect(R, -1, -1);
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, R),
|
||||
BevelDarkShadow,
|
||||
BevelFace
|
||||
);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVpMonthViewPainter.DrawDayHead;
|
||||
var
|
||||
dhRect: TRect;
|
||||
I: Integer;
|
||||
DayTag: Integer;
|
||||
Str: string;
|
||||
StrL: Integer;
|
||||
begin
|
||||
{ clear day head area }
|
||||
RenderCanvas.Font.Assign(FMonthView.DayHeadAttributes.Font);
|
||||
RenderCanvas.Brush.Color := DayHeadAttrColor;
|
||||
|
||||
{ build rect }
|
||||
if FMonthView.DrawingStyle = ds3D then begin
|
||||
dhRect.Left := RealLeft + 1;
|
||||
dhRect.Top := RealTop + TVpMonthViewOpener(FMonthView).mvDayHeadHeight + 3;
|
||||
dhRect.Right := RealRight - 3;
|
||||
dhRect.Bottom := dhRect.Top + TVpMonthViewOpener(FMonthView).mvDayHeadHeight;
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, dhRect);
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, dhRect),
|
||||
BevelHighlight,
|
||||
BevelDarkShadow
|
||||
);
|
||||
end else begin
|
||||
dhRect.Left := RealLeft + 1;
|
||||
dhRect.Top := RealTop + TVpMonthViewOpener(FMonthView).mvDayHeadHeight + 2;
|
||||
dhRect.Right := RealRight - 1;
|
||||
dhRect.Bottom := dhRect.Top + TVpMonthViewOpener(FMonthView).mvDayHeadHeight;
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, dhRect);
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, dhRect),
|
||||
BevelHighlight,
|
||||
BevelShadow
|
||||
);
|
||||
end;
|
||||
|
||||
DayTag := Ord(FMonthView.WeekStartsOn);
|
||||
dhRect.Right := dhRect.Left + TVpMonthViewOpener(FMonthView).mvColWidth;
|
||||
for I := 0 to 6 do begin
|
||||
{ draw the little vertical lines between each day }
|
||||
if I < 6 then
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect(dhRect.Right, dhRect.Top + 3, dhRect.Right + 1, dhRect.Bottom - 3)),
|
||||
BevelShadow,
|
||||
BevelHighlight
|
||||
);
|
||||
|
||||
{$IFDEF LCL}
|
||||
case FMonthView.DayNameStyle of
|
||||
dsLong : { Draw each day's full caption... }
|
||||
str := FormatSettings.LongDayNames[DayTag+1];
|
||||
dsShort: { Draw each day's abbreviated caption... }
|
||||
str := FormatSettings.ShortDayNames[DayTag+1];
|
||||
dsLetter: { Draw each day's first letter only }
|
||||
str := FormatSettings.ShortDayNames[DayTag+1, 1];
|
||||
end;
|
||||
{$ELSE}
|
||||
case FMontheView.DayNameStyle of
|
||||
dsLong: { Draw each day's full caption... }
|
||||
case DayTag of
|
||||
0: str := RSSunday;
|
||||
1: str := RSMonday;
|
||||
2: str := RSTuesday;
|
||||
3: str := RSWednesday;
|
||||
4: str := RSThursday;
|
||||
5: str := RSFriday;
|
||||
6: str := RSSaturday;
|
||||
end
|
||||
dsShort: { Draw each day's abbreviated caption... }
|
||||
case DayTag of
|
||||
0: str := RSASunday;
|
||||
1: str := RSAMonday;
|
||||
2: str := RSATuesday;
|
||||
3: str := RSAWednesday;
|
||||
4: str := RSAThursday;
|
||||
5: str := RSAFriday;
|
||||
6: str := RSASaturday;
|
||||
end
|
||||
dsLetter: { Draw each day's first letter only }
|
||||
case DayTag of
|
||||
0: str := RSLSunday;
|
||||
1: str := RSLMonday;
|
||||
2: str := RSLTuesday;
|
||||
3: str := RSLWednesday;
|
||||
4: str := RSLThursday;
|
||||
5: str := RSLFriday;
|
||||
6: str := RSLSaturday;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ Fix Header String }
|
||||
StrL := RenderCanvas.TextWidth(Str);
|
||||
if (StrL > TVpMonthViewOpener(FMonthView).mvColWidth - TextMargin * 2) then
|
||||
Str := GetDisplayString(RenderCanvas, Str, 0, TVpMonthViewOpener(FMonthView).mvColWidth - TextMargin * 2);
|
||||
StrL := RenderCanvas.TextWidth(Str);
|
||||
|
||||
TPSTextOut(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
dhRect.Left + (dhRect.Right - dhRect.Left) div 2 - Strl div 2,
|
||||
dhRect.Top + TextMargin - 1,
|
||||
Str
|
||||
);
|
||||
|
||||
if DayTag = 6 then
|
||||
DayTag := 0
|
||||
else
|
||||
Inc(DayTag);
|
||||
dhRect.Left := dhRect.Right;
|
||||
dhRect.Right := dhRect.Left + TVpMonthViewOpener(FMonthView).mvColWidth;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVpMonthViewPainter.DrawDays;
|
||||
var
|
||||
TextRect: TRect;
|
||||
Col, Row: Integer;
|
||||
DayNumber: Integer;
|
||||
M, D, Y, Tmp: Word;
|
||||
MonthStartsOn: Integer;
|
||||
DayTag: Integer;
|
||||
DayOffset: Integer;
|
||||
StartingDate: TDateTime;
|
||||
ThisDate: TDateTime;
|
||||
Str: string;
|
||||
StrLn: Integer;
|
||||
I, J: Integer;
|
||||
EventList: TList;
|
||||
Drawn: Boolean;
|
||||
TextAdjust: Integer;
|
||||
FontStyle: TFontStyles;
|
||||
OldBrush: TBrush;
|
||||
OldPen: TPen;
|
||||
OldFont: TFont;
|
||||
begin
|
||||
{ initialize the MonthDayArray }
|
||||
with TVpMonthViewOpener(FMonthView) do
|
||||
for I := 0 to Pred(Length(mvMonthDayArray)) do begin
|
||||
mvMonthDayArray[I].Rec := Rect(-1, -1, -1, -1);
|
||||
mvMonthDayArray[I].Date := 0.0;
|
||||
end;
|
||||
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
|
||||
with TVpMonthViewOpener(FMonthView) do begin
|
||||
mvRowHeight := (RealHeight - mvDayHeadHeight * 2 - 4) div 6;
|
||||
TextRect.TopLeft := Point(
|
||||
RealLeft + 1,
|
||||
RealTop + mvDayHeadHeight * 2 + 4
|
||||
);
|
||||
TextRect.BottomRight := Point(
|
||||
TextRect.Left + mvColWidth,
|
||||
TextRect.Top + mvRowHeight
|
||||
);
|
||||
end;
|
||||
|
||||
{ Determine the starting date and offset }
|
||||
DecodeDate(DisplayDate, Y, M, D);
|
||||
StartingDate := EncodeDate(Y, M, 1);
|
||||
MonthStartsOn := DayOfWeek(StartingDate);
|
||||
DayTag := Ord(FMonthView.WeekStartsOn);
|
||||
DayOffset := DayTag - MonthStartsOn;
|
||||
|
||||
I := 0;
|
||||
DayNumber := DayOffset + 1;
|
||||
|
||||
// iterate through each column row by row, drawing each day in numerical order.
|
||||
OldBrush := TBrush.Create;
|
||||
try
|
||||
OldPen := TPen.Create;
|
||||
try
|
||||
OldFont := TFont.Create;
|
||||
try
|
||||
for Row := 0 to 5 do begin
|
||||
for Col := 0 to 6 do begin
|
||||
if (Col = 6) then begin
|
||||
{ draws the far right day for this week }
|
||||
ThisDate := trunc(StartingDate + DayNumber);
|
||||
DecodeDate(ThisDate, Y, Tmp, D);
|
||||
|
||||
{ Allow the user to draw the day }
|
||||
Drawn := false;
|
||||
if Assigned(FMonthView.OwnerDrawCells) then begin
|
||||
{ wp: Using Canvas here does not seem correct ...
|
||||
OldBrush.Assign(Canvas.Brush);
|
||||
OldPen.Assign(Canvas.Pen);
|
||||
OldFont.Assign(Canvas.Font); }
|
||||
OldBrush.Assign(RenderCanvas.Brush);
|
||||
OldPen.Assign(RenderCanvas.Pen);
|
||||
OldFont.Assign(RenderCanvas.Font);
|
||||
try
|
||||
FMonthView.OwnerDrawCells(self, RenderCanvas, TextRect, D, Drawn);
|
||||
if Drawn then continue;
|
||||
finally
|
||||
{ wp: Again, using Canvas here does not seem correct ...
|
||||
Canvas.Brush.Assign (OldBrush);
|
||||
Canvas.Pen.Assign (OldPen);
|
||||
Canvas.Font.Assign (OldFont); }
|
||||
RenderCanvas.Brush.Assign (OldBrush);
|
||||
RenderCanvas.Pen.Assign (OldPen);
|
||||
RenderCanvas.Font.Assign (OldFont);
|
||||
end;
|
||||
end;
|
||||
|
||||
TextRect.Right := TextRect.Right + 8;
|
||||
if Tmp <> M then begin
|
||||
RenderCanvas.Brush.Color := RealOffDayColor;
|
||||
if TextRect.Bottom > RealBottom then
|
||||
TPSFillRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(TextRect.Left, TextRect.Top, RealRight, RealBottom)
|
||||
)
|
||||
else
|
||||
TPSFillRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(TextRect.Left, TextRect.Top, RealRight, TextRect.Bottom)
|
||||
);
|
||||
end else
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
|
||||
{ draw bottom line }
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, TextRect.Left, TextRect.Bottom);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, RealRight - 2, TextRect.Bottom);
|
||||
|
||||
{ Paint the day number }
|
||||
Str := FormatDateTime('d', ThisDate);
|
||||
|
||||
{ set the proper font and style }
|
||||
RenderCanvas.Font.Assign(FMonthView.DayNumberFont);
|
||||
if (DisplayDate = ThisDate) then begin
|
||||
if FMonthView.Focused then begin
|
||||
TPSDrawFocusRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(TextRect.Left - 2, TextRect.Top - 2, TextRect.Right + 2, TextRect.Bottom + 2)
|
||||
);
|
||||
TPSDrawFocusRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(TextRect.Left + 2, TextRect.Top + 2, TextRect.Right - 2, TextRect.Bottom - 2)
|
||||
);
|
||||
end;
|
||||
RenderCanvas.Font.Color := RealSelDayColor;
|
||||
RenderCanvas.Font.Style := FMonthView.DayNumberFont.Style + [fsBold];
|
||||
if (FMonthView.EventDayStyle <> []) and (FMonthView.DataStore.Resource <> nil) and
|
||||
(FMonthView.DataStore.Resource.Schedule.EventCountByDay(ThisDate) > 0)
|
||||
then
|
||||
RenderCanvas.Font.Style := RenderCanvas.Font.Style + FMonthView.EventDayStyle;
|
||||
end else begin
|
||||
{ Set the font style for days which have events. }
|
||||
if (FMonthView.EventDayStyle <> []) and (FMonthView.DataStore.Resource <> nil) and
|
||||
(FMonthView.DataStore.Resource.Schedule.EventCountByDay(ThisDate) > 0)
|
||||
then
|
||||
RenderCanvas.Font.Style := RenderCanvas.Font.Style + FMonthView.EventDayStyle
|
||||
else begin
|
||||
RenderCanvas.Font.Color := EventFontColor;
|
||||
RenderCanvas.Font.Style := FMonthView.DayNumberFont.Style;
|
||||
end;
|
||||
end;
|
||||
|
||||
FontStyle := RenderCanvas.Font.Style;
|
||||
RenderCanvas.Font.Style := [fsBold, fsItalic];
|
||||
TextAdjust := RenderCanvas.TextWidth(Str);
|
||||
RenderCanvas.Font.Style := FontStyle;
|
||||
if Tmp <> M then
|
||||
RenderCanvas.Font.Color := FMonthView.OffDayFontColor;
|
||||
|
||||
{ write the day number at the top of the square. }
|
||||
if fsItalic in RenderCanvas.Font.Style then
|
||||
TPSTextOut(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
TextRect.Left + TVpMonthViewOpener(FMonthView).mvColWidth - TextAdjust - TextMargin - 2,
|
||||
TextRect.Top + TextMargin div 2,
|
||||
Str
|
||||
)
|
||||
else
|
||||
TPSTextOut(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
TextRect.Left + TVpMonthViewOpener(FMonthView).mvColWidth - TextAdjust - TextMargin,
|
||||
TextRect.Top + TextMargin div 2,
|
||||
Str
|
||||
);
|
||||
|
||||
{ Update MonthDayArray }
|
||||
with TVpMonthViewOpener(FMonthView) do begin
|
||||
mvMonthDayArray[I].Rec := TextRect;
|
||||
mvMonthDayArray[I].Date := ThisDate;
|
||||
mvMonthDayArray[I].OffDay := Tmp <> M;
|
||||
end;
|
||||
Inc(DayNumber);
|
||||
Inc(I);
|
||||
|
||||
{ drop rect down one row and all the way to the left }
|
||||
TextRect.TopLeft := Point(
|
||||
RealLeft + 1,
|
||||
TextRect.Bottom + 1
|
||||
);
|
||||
TextRect.BottomRight := Point(
|
||||
TextRect.Left + TVpMonthViewOpener(FMonthView).mvColWidth,
|
||||
TextRect.Top + TVpMonthViewOpener(FMonthView).mvRowHeight
|
||||
);
|
||||
end // if Col = 6 ...
|
||||
else begin
|
||||
{ draws all days for the week, except the far right one }
|
||||
ThisDate := Trunc(StartingDate + DayNumber);
|
||||
DecodeDate(ThisDate, Y, Tmp, D);
|
||||
|
||||
{ Allow the user to draw the day }
|
||||
Drawn := false;
|
||||
if Assigned(FMonthView.OwnerDrawCells) then begin
|
||||
{ wp: Using Canvas here does not look correct...
|
||||
OldBrush.Assign (Canvas.Brush);
|
||||
OldPen.Assign (Canvas.Pen);
|
||||
OldFont.Assign (Canvas.Font); }
|
||||
OldBrush.Assign(RenderCanvas.Brush);
|
||||
OldPen.Assign(RenderCanvas.Pen);
|
||||
OldFont.Assign(RenderCanvas.Font);
|
||||
try
|
||||
FMonthView.OwnerDrawCells(self, RenderCanvas, TextRect, D, Drawn);
|
||||
if Drawn then continue;
|
||||
finally
|
||||
{ wp: Using Canvas here does not look correct...
|
||||
Canvas.Brush.Assign (OldBrush);
|
||||
Canvas.Pen.Assign (OldPen);
|
||||
Canvas.Font.Assign (OldFont); }
|
||||
RenderCanvas.Brush.Assign(OldBrush);
|
||||
RenderCanvas.Pen.Assign(OldPen);
|
||||
RenderCanvas.Font.Assign(OldFont);
|
||||
end;
|
||||
end;
|
||||
|
||||
if Tmp <> M then begin
|
||||
RenderCanvas.Brush.Color := RealOffDayColor;
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, TextRect);
|
||||
end else
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
|
||||
{ draw right side and bottom lines }
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, TextRect.Right, TextRect.top);
|
||||
if TextRect.Bottom > RealBottom then begin
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, TextRect.Right, RealBottom);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, TextRect.Left - 1, RealBottom);
|
||||
end else begin
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, TextRect.Right, TextRect.Bottom);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, TextRect.Left - 1, TextRect.Bottom);
|
||||
end;
|
||||
|
||||
{ paint the day number }
|
||||
Str := FormatDateTime('d', ThisDate);
|
||||
|
||||
{ set the proper font and style }
|
||||
RenderCanvas.Font.Assign(FMonthView.DayNumberFont);
|
||||
if (DisplayDate = ThisDate) then begin
|
||||
if FMonthView.Focused then begin
|
||||
TPSDrawFocusRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(TextRect.Left - 2, TextRect.Top - 2, TextRect.Right + 2, TextRect.Bottom + 2)
|
||||
);
|
||||
TPSDrawFocusRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(TextRect.Left + 2, TextRect.Top + 2, TextRect.Right - 2, TextRect.Bottom - 2)
|
||||
);
|
||||
end;
|
||||
RenderCanvas.Font.Color := RealSelDayColor;
|
||||
RenderCanvas.Font.Style := FMonthView.DayNumberFont.Style + [fsBold];
|
||||
if (FMonthView.EventDayStyle <> []) and (FMonthView.DataStore.Resource <> nil) and
|
||||
(FMonthView.DataStore.Resource.Schedule.EventCountByDay(ThisDate) > 0)
|
||||
then
|
||||
RenderCanvas.Font.Style := RenderCanvas.Font.Style + FMonthView.EventDayStyle;
|
||||
end else begin
|
||||
{ Set the font style for days which have events. }
|
||||
if (FMonthView.EventDayStyle <> []) and (FMonthView.DataStore.Resource <> nil) and
|
||||
(FMonthView.DataStore.Resource.Schedule.EventCountByDay(ThisDate) > 0)
|
||||
then
|
||||
RenderCanvas.Font.Style := RenderCanvas.Font.Style + FMonthView.EventDayStyle
|
||||
else begin
|
||||
RenderCanvas.Font.Color := EventFontColor;
|
||||
RenderCanvas.Font.Style := FMonthView.DayNumberFont.Style;
|
||||
end;
|
||||
end;
|
||||
|
||||
FontStyle := RenderCanvas.Font.Style;
|
||||
RenderCanvas.Font.Style := [fsBold, fsItalic];
|
||||
TextAdjust := RenderCanvas.TextWidth (Str);
|
||||
RenderCanvas.Font.Style := FontStyle;
|
||||
if Tmp <> M then
|
||||
RenderCanvas.Font.Color := FMonthView.OffdayFontColor;
|
||||
|
||||
if fsItalic in RenderCanvas.Font.Style then
|
||||
TPSTextOut(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
TextRect.Right - TextAdjust - TextMargin - 2,
|
||||
TextRect.Top + TextMargin div 2,
|
||||
Str
|
||||
)
|
||||
else
|
||||
TPSTextOut(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
TextRect.Right - TextAdjust - TextMargin,
|
||||
TextRect.Top + TextMargin div 2,
|
||||
Str
|
||||
);
|
||||
|
||||
{ Update Array }
|
||||
with TVpMonthViewOpener(FMonthView) do begin
|
||||
mvMonthDayArray[I].Rec := TextRect;
|
||||
mvMonthDayArray[I].Date := ThisDate;
|
||||
mvMonthDayArray[I].OffDay := Tmp <> M;
|
||||
end;
|
||||
Inc(DayNumber);
|
||||
Inc(I);
|
||||
|
||||
{ slide rect one column to the right }
|
||||
TextRect.Left := TextRect.Right + 1;
|
||||
TextRect.Right := TextRect.Right + TVpMonthViewOpener(FMonthView).mvColWidth;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
finally
|
||||
OldFont.Free;
|
||||
end;
|
||||
finally
|
||||
OldPen.Free;
|
||||
end;
|
||||
finally
|
||||
OldBrush.Free;
|
||||
end;
|
||||
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
RenderCanvas.Pen.Style := psSolid;
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
|
||||
{ write the events }
|
||||
if (FMonthView.DataStore <> nil) and FMonthVIew.ShowEvents and
|
||||
(FMonthView.DataStore.Resource <> nil) and
|
||||
(FMonthView.DataStore.Resource.Schedule.EventCount <> 0)
|
||||
then begin
|
||||
EventList := TList.Create;
|
||||
try
|
||||
for I := 0 to 43 do begin
|
||||
EventList.Clear;
|
||||
FMonthVIew.DataStore.Resource.Schedule.EventsByDate(TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Date, EventList);
|
||||
if EventList.Count > 0 then begin
|
||||
{ there are events scheduled for this day }
|
||||
|
||||
{ initialize TextRect for this day }
|
||||
TextRect.TopLeft := Point(
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Left,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Top
|
||||
);
|
||||
TextRect.BottomRight := Point(
|
||||
TextRect.Left + TVpMonthViewOpener(FMonthView).mvColWidth,
|
||||
TextRect.Top + TVpMonthViewOpener(FMonthView).mvEventTextHeight + TextMargin div 2
|
||||
);
|
||||
|
||||
{ set canvas color }
|
||||
if TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].OffDay
|
||||
then RenderCanvas.Brush.Color := RealOffDayColor
|
||||
else RenderCanvas.Brush.Color := RealColor;
|
||||
|
||||
{ spin through the events and paint them }
|
||||
for J := 0 to Pred(EventList.Count) do begin
|
||||
if (TextRect.Bottom > TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Bottom) and
|
||||
(J <= Pred(EventList.Count))
|
||||
then begin
|
||||
{ draw a little red square with a (...) at the bottom right }
|
||||
{ corner of the day to indicate that there are more events }
|
||||
{ than can be listed in the available space. }
|
||||
RenderCanvas.Brush.Color := DotDotDotColor;
|
||||
|
||||
{ draw dot dot dot }
|
||||
TPSFillRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Right - 20,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Bottom - 7,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Right - 17,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Bottom - 4
|
||||
)
|
||||
);
|
||||
TPSFillRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Right - 13,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Bottom - 7,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Right - 10,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Bottom - 4
|
||||
)
|
||||
);
|
||||
TPSFillRect(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
Rect(
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Right - 6,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Bottom - 7,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Right - 3,
|
||||
TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].Rec.Bottom - 4
|
||||
)
|
||||
);
|
||||
Break;
|
||||
end;
|
||||
|
||||
{ shorten events that are next to the day number, in order }
|
||||
{ to give the day number enough room }
|
||||
with TVpMonthViewOpener(FMonthView) do
|
||||
if (TextRect.Top < mvMonthDayArray[I].Rec.Top + mvDayNumberHeight + TextMargin div 2)
|
||||
then
|
||||
TextRect.Right := TextRect.Left + mvColWidth - mvDayNumberHeight - TextMargin
|
||||
else
|
||||
TextRect.Right := TextRect.Left + mvColWidth;
|
||||
|
||||
{ format the display text }
|
||||
if FMonthView.ShowEventTime then begin
|
||||
if (FMonthView.TimeFormat = tf24Hour) then
|
||||
Str := FormatDateTime('hh:nn',
|
||||
TVpEvent(EventList.List^[j]).StartTime)
|
||||
else
|
||||
Str := FormatDateTime('hh:nn AM/PM',
|
||||
TVpEvent(EventList.List^[j]).StartTime);
|
||||
Str := Str + ' - ' + TVpEvent(EventList.List^[j]).Description;
|
||||
end else
|
||||
Str := TVpEvent(EventList.List^[j]).Description;
|
||||
|
||||
{ set the event font }
|
||||
RenderCanvas.Font.Assign(FMonthView.EventFont);
|
||||
if TVpMonthViewOpener(FMonthView).mvMonthDayArray[I].OffDay then
|
||||
RenderCanvas.Font.Color := FMonthView.OffDayFontColor;
|
||||
|
||||
StrLn := RenderCanvas.TextWidth(Str);
|
||||
if (StrLn > TextRect.Right - TextRect.Left - TextMargin * 2) then
|
||||
begin
|
||||
Str := GetDisplayString(
|
||||
RenderCanvas,
|
||||
Str,
|
||||
0,
|
||||
TextRect.Right - TextRect.Left - TextMargin * 2
|
||||
);
|
||||
end;
|
||||
|
||||
{ write the event text }
|
||||
TPSTextOut(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
TextRect.Left + TextMargin div 2,
|
||||
TextRect.Top + TextMargin div 2,
|
||||
Str
|
||||
);
|
||||
|
||||
{ - begin block}
|
||||
with TVpMonthViewOpener(FMonthView) do begin
|
||||
Inc(mvVisibleEvents);
|
||||
mvEventArray[mvVisibleEvents - 1].Rec := TextRect;
|
||||
mvEventArray[mvVisibleEvents - 1].Event := TVpEvent(EventList.List^[j]);
|
||||
end;
|
||||
{ - end block}
|
||||
|
||||
{ Move TextRect down one line for the next item... }
|
||||
TextRect.Top := TextRect.Bottom + 1;
|
||||
TextRect.Bottom := TextRect.Top + TVpMonthViewOpener(FMonthView).mvLineHeight;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
EventList.Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVpMonthViewPainter.DrawHeader;
|
||||
var
|
||||
HeadTextRect: TRect;
|
||||
HeadStr: string;
|
||||
HeadStrLen : Integer;
|
||||
dayHeadHeight: Integer;
|
||||
begin
|
||||
RenderCanvas.Brush.Color := DayHeadAttrColor;
|
||||
|
||||
dayHeadHeight := TVpMonthViewOpener(FMonthView).mvDayHeadHeight;
|
||||
|
||||
{ draw the header cell and borders }
|
||||
if FMonthView.DrawingStyle = dsFlat then begin
|
||||
{ draw an outer and inner bevel }
|
||||
HeadRect.Left := RealLeft + 1;
|
||||
HeadRect.Top := RealTop + 1;
|
||||
HeadRect.Right := RealRight - 1;
|
||||
HeadRect.Bottom := RealTop + dayHeadHeight;
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, HeadRect),
|
||||
BevelHighlight,
|
||||
BevelShadow
|
||||
);
|
||||
end else
|
||||
if FMonthView.DrawingStyle = ds3d then begin
|
||||
{ draw a 3d bevel }
|
||||
HeadRect.Left := RealLeft + 2;
|
||||
HeadRect.Top := RealTop + 2;
|
||||
HeadRect.Right := RealRight - 3;
|
||||
HeadRect.Bottom := RealTop + dayHeadHeight;
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, HeadRect),
|
||||
BevelHighlight,
|
||||
BevelDarkShadow
|
||||
);
|
||||
end
|
||||
else begin
|
||||
HeadRect.Left := RealLeft + 1;
|
||||
HeadRect.Top := RealTop + 1;
|
||||
HeadRect.Right := RealRight - 1;
|
||||
HeadRect.Bottom := RealTop + dayHeadHeight;
|
||||
end;
|
||||
|
||||
{ Acquire startdate and end date }
|
||||
HeadStr := FormatDateTime(FMonthView.DateLabelFormat, DisplayDate);
|
||||
{$IF FPC_FULLVERSION < 30000}
|
||||
HeadStr := SysToUTF8(HeadStr);
|
||||
{$ENDIF}
|
||||
|
||||
{ draw the text }
|
||||
if DisplayOnly and (RenderCanvas.TextWidth (HeadStr) >= RealWidth) then
|
||||
HeadTextRect.TopLeft:= Point(
|
||||
RealLeft + TextMargin * 2,
|
||||
HeadRect.Top
|
||||
)
|
||||
else
|
||||
if DisplayOnly then
|
||||
HeadTextRect.TopLeft := Point(
|
||||
RealLeft + (RealWidth - RenderCanvas.TextWidth (HeadStr)) div 2,
|
||||
HeadRect.Top
|
||||
)
|
||||
else
|
||||
HeadTextRect.TopLeft := Point(
|
||||
RealLeft + 30 + TextMargin * 2,
|
||||
HeadRect.Top
|
||||
);
|
||||
HeadTextRect.BottomRight := HeadRect.BottomRight;
|
||||
|
||||
{ Fix Header String }
|
||||
HeadStrLen := RenderCanvas.TextWidth(HeadStr);
|
||||
|
||||
if HeadStrLen > HeadTextRect.Right - HeadTextRect.Left then begin
|
||||
HeadStr := GetDisplayString(
|
||||
RenderCanvas,
|
||||
HeadStr,
|
||||
0,
|
||||
HeadTextRect.Right - HeadTextRect.Left - TextMargin
|
||||
);
|
||||
end;
|
||||
|
||||
{ position the spinner }
|
||||
with TVpMonthViewOpener(FMonthView) do begin
|
||||
mvSpinButtons.Height := Trunc(mvDayHeadHeight * 0.8);
|
||||
mvSpinButtons.Width := mvSpinButtons.Height * 2;
|
||||
mvSpinButtons.Left := TextMargin;
|
||||
mvSpinButtons.Top := (mvDayHeadHeight - mvSpinButtons.Height) div 2 + 2;
|
||||
end;
|
||||
|
||||
RenderCanvas.Font.Assign(FMonthView.DayHeadAttributes.Font);
|
||||
TPSTextOut(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
RealLeft + TVpMonthViewOpener(FMonthView).mvSpinButtons.Width + TextMargin * 2,
|
||||
HeadTextRect.Top + TextMargin,
|
||||
HeadStr
|
||||
);
|
||||
end;
|
||||
|
||||
procedure TVpMonthViewPainter.InitColors;
|
||||
begin
|
||||
if DisplayOnly then begin
|
||||
BevelHighlight := clBlack;
|
||||
BevelShadow := clBlack;
|
||||
BevelDarkShadow := clBlack;
|
||||
BevelFace := clBlack;
|
||||
RealColor := clWhite;
|
||||
DayHeadAttrColor := clSilver;
|
||||
RealLineColor := clBlack;
|
||||
RealOffDayColor := clSilver;
|
||||
RealSelDayColor := clWhite;
|
||||
EventFontColor := clBlack;
|
||||
end else begin
|
||||
BevelHighlight := clBtnHighlight;
|
||||
BevelShadow := clBtnShadow;
|
||||
BevelDarkShadow := cl3DDkShadow;
|
||||
BevelFace := clBtnFace;
|
||||
RealColor := FMonthView.Color;
|
||||
DayHeadAttrColor := FMonthView.DayHeadAttributes.Color;
|
||||
RealLineColor := FMonthView.LineColor;
|
||||
RealOffDayColor := FMonthView.OffDayColor;
|
||||
RealSelDayColor := FMonthView.SelectedDayColor;
|
||||
EventFontColor := FMonthView.DayNumberFont.Color;
|
||||
end;
|
||||
DotDotDotColor := clBlack;
|
||||
end;
|
||||
|
||||
procedure TVpMonthViewPainter.RenderToCanvas(ARenderIn: TRect;
|
||||
AAngle: TVpRotationAngle; AScale: Extended; ARenderDate: TDateTime;
|
||||
AStartLine, AStopLine: Integer; AUseGran: TVpGranularity; ADisplayOnly: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
InitColors;
|
||||
SavePenBrush;
|
||||
InitPenBrush;
|
||||
|
||||
Rgn := CreateRectRgn(RenderIn.Left, RenderIn.Top, RenderIn.Right, RenderIn.Bottom);
|
||||
try
|
||||
SelectClipRgn(RenderCanvas.Handle, Rgn);
|
||||
|
||||
{ clear client area }
|
||||
Clear;
|
||||
|
||||
{ measure the row heights }
|
||||
SetMeasurements;
|
||||
|
||||
{ draw headers }
|
||||
DrawHeader;
|
||||
DrawDayHead;
|
||||
|
||||
{ draw days }
|
||||
TVpMonthViewOpener(FMonthView).mvVisibleEvents := 0;
|
||||
DrawDays;
|
||||
|
||||
{ draw the borders }
|
||||
DrawBorders;
|
||||
|
||||
finally
|
||||
SelectClipRgn(RenderCanvas.Handle, 0);
|
||||
DeleteObject(Rgn);
|
||||
end;
|
||||
|
||||
{ reinstate canvas settings}
|
||||
RestorePenBrush;
|
||||
end;
|
||||
|
||||
procedure TVpMonthViewPainter.SetMeasurements;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if RenderDate = 0 then
|
||||
DisplayDate := Date
|
||||
else
|
||||
DisplayDate := RenderDate;
|
||||
|
||||
{ we use the VpProductName because is is a good representation of some }
|
||||
{ generic text }
|
||||
RenderCanvas.Font.Assign(FMonthView.DayHeadAttributes.Font);
|
||||
with TVpMonthViewOpener(FMonthView) do
|
||||
mvDayHeadHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin + 2;
|
||||
|
||||
RenderCanvas.Font.Assign(FMonthView.DayNumberFont);
|
||||
with TVpMonthViewOpener(FMonthView) do
|
||||
mvDayNumberHeight := RenderCanvas.TextHeight('00');
|
||||
|
||||
RenderCanvas.Font.Assign(FMonthView.EventFont);
|
||||
with TVpMonthViewOpener(FMonthView) do
|
||||
mvEventTextHeight := RenderCanvas.TextHeight(VpProductName);
|
||||
|
||||
RenderCanvas.Font.Assign(FMonthView.Font);
|
||||
with TVpMonthViewOpener(FMonthView) do begin
|
||||
mvLineHeight := RenderCanvas.TextHeight(VpProductName) + 2;
|
||||
mvColWidth := (RealWidth - 4) div 7;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
552
components/tvplanit/source/vptasklistpainter.pas
Normal file
552
components/tvplanit/source/vptasklistpainter.pas
Normal file
@ -0,0 +1,552 @@
|
||||
unit VpTasklistPainter;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, LCLType, LCLIntf,
|
||||
//SysUtils, LCLType, LCLIntf, Types,
|
||||
Classes, Graphics,
|
||||
//VpConst,
|
||||
VPBase, //VpData,
|
||||
VpTaskList, VpBasePainter;
|
||||
|
||||
type
|
||||
TVpTaskListPainter = class(TVpBasePainter)
|
||||
private
|
||||
FTaskList: TVpTaskList;
|
||||
|
||||
// local parameters of the old TVpTaskList method
|
||||
HeadRect: TRect;
|
||||
Bmp: Graphics.TBitmap;
|
||||
RowHeight: Integer;
|
||||
Rgn: HRGN;
|
||||
RealColor: TColor;
|
||||
BackgroundSelHighlight: TColor;
|
||||
ForegroundSelHighlight: TColor;
|
||||
BevelShadow: TColor;
|
||||
BevelHighlight: TColor;
|
||||
BevelDarkShadow: TColor;
|
||||
BevelFace: TColor;
|
||||
RealLineColor: TColor;
|
||||
RealCheckBgColor: TColor;
|
||||
RealCheckBoxColor: TColor;
|
||||
RealCheckColor: TColor;
|
||||
RealCompleteColor: TColor;
|
||||
RealOverdueColor: TColor;
|
||||
RealNormalColor: TColor;
|
||||
TaskHeadAttrColor: TColor;
|
||||
|
||||
protected
|
||||
procedure Clear;
|
||||
function DrawCheck(Rec: TRect; Checked: Boolean): TRect;
|
||||
procedure DrawBorders;
|
||||
procedure DrawHeader;
|
||||
procedure DrawLines;
|
||||
procedure DrawTasks;
|
||||
procedure InitColors;
|
||||
procedure MeasureRowHeight;
|
||||
|
||||
public
|
||||
constructor Create(ATaskList: TVpTaskList; ARenderCanvas: TCanvas);
|
||||
procedure RenderToCanvas(ARenderIn: TRect; AAngle: TVpRotationAngle;
|
||||
AScale: Extended; ARenderDate: TDateTime; AStartLine, AStopLine: Integer;
|
||||
AUseGran: TVpGranularity; ADisplayOnly: Boolean); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
VpConst, VpData, VpMisc, VpCanvasUtils, VpSR;
|
||||
|
||||
type
|
||||
TVpTaskListOpener = class(TVpTaskList);
|
||||
|
||||
constructor TVpTaskListPainter.Create(ATaskList: TVpTaskList; ARenderCanvas: TCanvas);
|
||||
begin
|
||||
inherited Create(ARenderCanvas);
|
||||
FTaskList := ATaskList;
|
||||
end;
|
||||
|
||||
procedure TVpTaskListPainter.Clear;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
RenderCanvas.FillRect(RenderIn);
|
||||
|
||||
{ Clear the LineRect }
|
||||
with TVpTasklistOpener(FTaskList) do
|
||||
for I := 0 to pred(Length(tlVisibleTaskArray)) do begin
|
||||
tlVisibleTaskArray[I].Task := nil;
|
||||
tlVisibleTaskArray[I].LineRect := Rect(0, 0, 0, 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
{ draws the check box and returns it's rectangle }
|
||||
function TVpTaskListPainter.DrawCheck(Rec: TRect; Checked: Boolean): TRect;
|
||||
var
|
||||
CR: TRect; // checbox rectangle
|
||||
W: Integer; // width of the checkbox
|
||||
X, Y: Integer; // Coordinates
|
||||
dx, dy: Integer;
|
||||
begin
|
||||
X := Rec.Left + TextMargin;
|
||||
Y := Rec.Top + TextMargin;
|
||||
W := RowHeight - TextMargin * 2; // correct: The checkbox is square, its width is determined by the row height
|
||||
|
||||
{ draw check box }
|
||||
case FTaskList.DrawingStyle of
|
||||
dsFlat:
|
||||
begin
|
||||
RenderCanvas.Brush.Color := RealCheckBgColor;
|
||||
RenderCanvas.Pen.Color := RealCheckBoxColor;
|
||||
TPSRectangle(RenderCanvas, Angle, RenderIn, Rect(X, Y, X + W, Y + W));
|
||||
end;
|
||||
ds3d:
|
||||
begin
|
||||
// complete box, rather bright
|
||||
RenderCanvas.Pen.Color := RGB(192, 204, 216);
|
||||
RenderCanvas.Brush.Color := RealCheckBgColor;
|
||||
TPSRectangle(RenderCanvas, Angle, RenderIn, Rect(X, Y, X + W, Y + W));
|
||||
// left and top lines
|
||||
RenderCanvas.Pen.Color := RGB(80, 100, 128);
|
||||
TPSPolyLine(RenderCanvas, Angle, RenderIn, [
|
||||
Point(X, Y + W - 2),
|
||||
Point(X, Y),
|
||||
Point(X + W - 1, Y)
|
||||
]);
|
||||
// left and top lines
|
||||
RenderCanvas.Pen.Color := RealCheckBoxColor;
|
||||
TPSPolyLine(RenderCanvas, Angle, RenderIn, [
|
||||
Point(X + 1, Y + W - 3),
|
||||
Point(X + 1, Y + 1),
|
||||
Point(X + W - 2, Y + 1)
|
||||
]);
|
||||
// right and bottom lines
|
||||
RenderCanvas.Pen.Color := RGB(128, 152, 176);
|
||||
TPSPolyLine(RenderCanvas, Angle, RenderIn, [
|
||||
Point(X + 1, Y + W - 2),
|
||||
Point(X + W - 2, Y + W - 2),
|
||||
Point(X+W-2, Y)
|
||||
]);
|
||||
end;
|
||||
end;
|
||||
|
||||
{ build check rect }
|
||||
CR := Rect(X + 3, Y + 3, X + W - 3, Y + W - 3);
|
||||
if Checked then begin
|
||||
RenderCanvas.Pen.Color := RealCheckColor;
|
||||
case FTaskList.DisplayOptions.CheckStyle of
|
||||
csX: {X}
|
||||
begin
|
||||
with RenderCanvas do begin
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left, CR.Top);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right, CR.Bottom);
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left, CR.Top+1);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right-1, CR.Bottom);
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left+1, CR.Top);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right, CR.Bottom-1);
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left, CR.Bottom-1);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right, CR.Top-1);
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left, CR.Bottom-2);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right-1, CR.Top-1);
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left+1, CR.Bottom-1);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right, CR.Top);
|
||||
end;
|
||||
end;
|
||||
csCheck: {check}
|
||||
begin
|
||||
dx := WidthOf(CR) div 4;
|
||||
dy := HeightOf(CR) div 4;
|
||||
with RenderCanvas do begin
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left, CR.Bottom - dy);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Left + dx, CR.Bottom);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right, CR.Top + 2);
|
||||
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left, CR.Bottom - dy - 1);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Left + dx, CR.Bottom - 1);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right, CR.Top + 1);
|
||||
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, CR.Left, CR.Bottom - dy - 2);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Left + dx, CR.Bottom - 2);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, CR.Right, CR.Top);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end; {if checked}
|
||||
result := CR;
|
||||
end;
|
||||
|
||||
procedure TVpTaskListPainter.DrawBorders;
|
||||
var
|
||||
R: TRect;
|
||||
begin
|
||||
R := Rect(RenderIn.Left, RenderIn.Top, RenderIn.Right - 1, RenderIn.Bottom - 1);
|
||||
case FTasklist.DrawingStyle of
|
||||
dsFlat:
|
||||
begin
|
||||
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
|
||||
{ wp: above line replaces the following code, no bevel in flat mode
|
||||
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
|
||||
InflateRect(R, -1, -1);
|
||||
DrawBevelRect(RenderCanvas, R, BevelHighlight, BevelShadow); }
|
||||
end;
|
||||
ds3d:
|
||||
begin
|
||||
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
|
||||
InflateRect(R, -1, -1);
|
||||
DrawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace);
|
||||
end;
|
||||
end;
|
||||
(*
|
||||
if FDrawingStyle = dsFlat then begin
|
||||
{ draw an outer and inner bevel }
|
||||
DrawBevelRect(
|
||||
RenderCanvas,
|
||||
Rect(RenderIn.Left, RenderIn.Top, RenderIn.Right - 1, RenderIn.Bottom - 1),
|
||||
BevelShadow,
|
||||
BevelHighlight
|
||||
);
|
||||
DrawBevelRect (RenderCanvas,
|
||||
Rect (RenderIn.Left + 1,
|
||||
RenderIn.Top + 1,
|
||||
RenderIn.Right - 2,
|
||||
RenderIn.Bottom - 2),
|
||||
BevelHighlight,
|
||||
BevelShadow);
|
||||
end else if FDrawingStyle = ds3d then begin
|
||||
{ draw a 3d bevel }
|
||||
DrawBevelRect (RenderCanvas,
|
||||
Rect (RenderIn.Left, RenderIn.Top,
|
||||
RenderIn.Right - 1, RenderIn.Bottom - 1),
|
||||
BevelShadow,
|
||||
BevelHighlight);
|
||||
DrawBevelRect (RenderCanvas,
|
||||
Rect (RenderIn.Left + 1,
|
||||
RenderIn.Top + 1,
|
||||
RenderIn.Right - 2,
|
||||
RenderIn.Bottom - 2),
|
||||
BevelDarkShadow,
|
||||
BevelFace);
|
||||
end;
|
||||
*)
|
||||
end;
|
||||
|
||||
procedure TVpTaskListPainter.DrawHeader;
|
||||
var
|
||||
GlyphRect: TRect;
|
||||
HeadStr: string;
|
||||
delta: Integer;
|
||||
begin
|
||||
RenderCanvas.Brush.Color := TaskHeadAttrColor;
|
||||
RenderCanvas.Font.Assign(FTaskList.TaskHeadAttributes.Font);
|
||||
|
||||
if FTaskList.DrawingStyle = dsFlat then delta := 1 else delta := 2;
|
||||
HeadRect.Left := RealLeft + delta;
|
||||
HeadRect.Left := RealLeft + delta;
|
||||
HeadRect.Top := RealTop + delta;
|
||||
HeadRect.Right := RealRight - delta;
|
||||
HeadRect.Bottom := RealTop + RenderCanvas.TextHeight('YyGg0') + TextMargin * 2;
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
|
||||
{ draw the header cell borders }
|
||||
case FTaskList.DrawingStyle of
|
||||
dsFlat:
|
||||
begin { draw an outer and inner bevel }
|
||||
{ wp: no bevel in flat style!
|
||||
HeadRect.Left := HeadRect.Left - 1;
|
||||
HeadRect.Top := HeadRect.Top - 1;
|
||||
DrawBevelRect(RenderCanvas, TPSRotateRectangle(Angle, RenderIn, HeadRect), BevelShadow, BevelShadow);
|
||||
}
|
||||
end;
|
||||
ds3d:
|
||||
begin { draw a 3d bevel }
|
||||
HeadRect.Right := HeadRect.Right - 1;
|
||||
DrawBevelRect(RenderCanvas, TPSRotateRectangle(Angle, RenderIn, HeadRect), BevelHighlight, BevelDarkShadow);
|
||||
end;
|
||||
end;
|
||||
|
||||
if FTaskList.ShowIcon then begin
|
||||
{ Draw the glyph }
|
||||
Bmp := Graphics.TBitmap.Create;
|
||||
try
|
||||
Bmp.LoadFromResourceName(HINSTANCE, 'VPCHECKPAD'); //soner changed: Bmp.Handle := LoadBaseBitmap('VPCHECKPAD');
|
||||
{ load and return the handle to bitmap resource}
|
||||
if Bmp.Height > 0 then begin
|
||||
GlyphRect := Rect(
|
||||
HeadRect.Left + TextMargin,
|
||||
HeadRect.Top + TextMargin,
|
||||
GlyphRect.Left + Bmp.Width,
|
||||
GlyphRect.Top + Bmp.Height
|
||||
);
|
||||
{
|
||||
GlyphRect.TopLeft := Point(HeadRect.Left + TextMargin, HeadRect.Top + TextMargin);
|
||||
GlyphRect.BottomRight := Point(GlyphRect.Left + Bmp.Width, GlyphRect.Top + Bmp.Height);
|
||||
}
|
||||
//TODO: RenderCanvas.BrushCopy (TPSRotateRectangle (Angle, RenderIn, GlyphRect),
|
||||
// Bmp, Rect(0, 0, Bmp.Width, Bmp.Height),
|
||||
// Bmp.Canvas.Pixels[0, Bmp.Height - 1]);
|
||||
RenderCanvas.Draw(GlyphRect.TopLeft.x, GlyphRect.TopLeft.y, Bmp); //soner added
|
||||
HeadRect.Left := HeadRect.Left + Bmp.Width + TextMargin;
|
||||
end;
|
||||
finally
|
||||
Bmp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ draw the text }
|
||||
with FTaskList do begin
|
||||
if ShowResourceName and (DataStore <> nil) and (DataStore.Resource <> nil) then
|
||||
HeadStr := RSTaskTitleResource + DataStore.Resource.Description
|
||||
else
|
||||
HeadStr := RSTaskTitleNoResource;
|
||||
RenderCanvas.Font.Assign(TaskHeadAttributes.Font);
|
||||
TPSTextOut(
|
||||
RenderCanvas,
|
||||
Angle,
|
||||
RenderIn,
|
||||
HeadRect.Left + TextMargin,
|
||||
HeadRect.Top + TextMargin,
|
||||
HeadStr
|
||||
);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVpTasklistPainter.DrawLines;
|
||||
var
|
||||
LinePos: Integer;
|
||||
begin
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
RenderCanvas.Pen.Style := psSolid;
|
||||
LinePos := HeadRect.Bottom + RowHeight;
|
||||
while LinePos < RealBottom do begin
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn, RealLeft, LinePos);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn, RealRight - 2, LinePos);
|
||||
Inc(LinePos, RowHeight);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVpTaskListPainter.DrawTasks;
|
||||
var
|
||||
I: Integer;
|
||||
Task: TVpTask;
|
||||
LineRect: TRect;
|
||||
CheckRect: TRect;
|
||||
DisplayStr: string;
|
||||
begin
|
||||
with TVpTaskListOpener(FTaskList) do begin
|
||||
if (DataStore = nil) or
|
||||
(DataStore.Resource = nil) or
|
||||
(DataStore.Resource.Tasks.Count = 0)
|
||||
then begin
|
||||
if Focused then begin
|
||||
LineRect.TopLeft := Point(RealLeft + 2, HeadRect.Bottom);
|
||||
LineRect.BottomRight := Point(LineRect.Left + RealWidth - 4, LineRect.Top + RowHeight);
|
||||
RenderCanvas.Brush.Color := BackgroundSelHighlight;
|
||||
RenderCanvas.FillRect(LineRect);
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
end;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
LineRect.TopLeft := Point(RealLeft + 2, HeadRect.Bottom);
|
||||
LineRect.BottomRight := Point(LineRect.Left + RealWidth - 4, LineRect.Top + RowHeight);
|
||||
|
||||
tlVisibleItems := 0;
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
|
||||
tlAllTaskList.Clear;
|
||||
|
||||
{ Make sure the tasks are properly sorted }
|
||||
DataStore.Resource.Tasks.Sort;
|
||||
|
||||
for I := 0 to pred(DataStore.Resource.Tasks.Count) do begin
|
||||
if DisplayOptions.ShowAll then
|
||||
{ Get all tasks regardless of their status and due date }
|
||||
tlAllTaskList.Add(DataStore.Resource.Tasks.GetTask(I))
|
||||
else begin
|
||||
{ get all tasks which are incomplete, or were just completed today.}
|
||||
Task := DataStore.Resource.Tasks.GetTask(I);
|
||||
if not Task.Complete then
|
||||
tlAllTaskList.Add(Task)
|
||||
else
|
||||
if FDisplayOptions.ShowCompletedTasks and SameDate(Task.CompletedOn, now) then
|
||||
tlAllTaskList.Add(Task);
|
||||
end;
|
||||
end;
|
||||
|
||||
RenderCanvas.Font.Assign(Font);
|
||||
for I := StartLine to pred(tlAllTaskList.Count) do begin
|
||||
Task := tlAllTaskList[I];
|
||||
if (LineRect.Top + Trunc(RowHeight * 0.5) <= RealBottom) then begin
|
||||
{ if this is the selected task and we are not in edit mode, }
|
||||
{ then set background selection }
|
||||
if (Task = FActiveTask) and
|
||||
((tlInPlaceEditor = nil) or not tlInplaceEditor.Visible) and
|
||||
(not DisplayOnly) and Focused
|
||||
then begin
|
||||
RenderCanvas.Brush.Color := BackgroundSelHighlight;
|
||||
RenderCanvas.FillRect(LineRect);
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
end;
|
||||
|
||||
{ draw the checkbox }
|
||||
CheckRect := DrawCheck(LineRect, Task.Complete);
|
||||
|
||||
if Task.Complete then begin
|
||||
{ complete task }
|
||||
RenderCanvas.Font.Style := RenderCanvas.Font.Style + [fsStrikeout];
|
||||
RenderCanvas.Font.Color := RealCompleteColor;
|
||||
end else begin
|
||||
{ incomplete task }
|
||||
RenderCanvas.Font.Style := RenderCanvas.Font.Style - [fsStrikeout];
|
||||
if (Trunc(Task.DueDate) < Trunc(Now)) and (Trunc(Task.DueDate) <> 0) then
|
||||
{ overdue task }
|
||||
RenderCanvas.Font.Color := RealOverdueColor
|
||||
else
|
||||
RenderCanvas.Font.Color := RealNormalColor;
|
||||
end;
|
||||
|
||||
{ if this is the selected task, set highlight text color }
|
||||
if (Task = FActiveTask) and
|
||||
((tlInPlaceEditor = nil) or not tlInplaceEditor.Visible) and
|
||||
(not DisplayOnly) and Focused
|
||||
then
|
||||
RenderCanvas.Font.Color := ForegroundSelHighlight;
|
||||
|
||||
{ build display string }
|
||||
DisplayStr := '';
|
||||
if (FDisplayOptions.ShowDueDate) and (Trunc(Task.DueDate) <> 0) then
|
||||
DisplayStr := FormatDateTime(FDisplayOptions.DueDateFormat, Task.DueDate) + ' - ';
|
||||
DisplayStr := DisplayStr + Task.Description;
|
||||
|
||||
{ Adjust display string - If the string is too long for the available }
|
||||
{ space, Chop the end off and replace it with an ellipses. }
|
||||
DisplayStr := GetDisplayString(RenderCanvas, DisplayStr, 3, WidthOf(LineRect) - CheckRect.Right - TextMargin);
|
||||
|
||||
{ paint the text }
|
||||
TPSTextOut(RenderCanvas, Angle, RenderIn, CheckRect.Right + TextMargin * 2, LineRect.Top + TextMargin, DisplayStr);
|
||||
|
||||
{ store the tasks drawing details }
|
||||
tlVisibleTaskArray[tlVisibleItems].Task := Task;
|
||||
tlVisibleTaskArray[tlVisibleItems].LineRect := Rect(
|
||||
CheckRect.Right + TextMargin,
|
||||
LineRect.Top,
|
||||
LineRect.Right,
|
||||
LineRect.Bottom
|
||||
);
|
||||
tlVisibleTaskArray[tlVisibleItems].CheckRect := CheckRect;
|
||||
LineRect.Top := LineRect.Bottom;
|
||||
LineRect.Bottom := LineRect.Top + RowHeight;
|
||||
Inc(tlVisibleItems);
|
||||
end else
|
||||
if (LineRect.Bottom - TextMargin > RealBottom) then begin
|
||||
FLastPrintLine := I;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
if tlVisibleItems + tlItemsBefore = tlAllTaskList.Count then begin
|
||||
FLastPrintLine := -2;
|
||||
tlItemsAfter := 0;
|
||||
end else begin
|
||||
tlItemsAfter := tlAllTaskList.Count - tlItemsBefore - tlVisibleItems;
|
||||
end;
|
||||
|
||||
{ these are for the syncing the scrollbar }
|
||||
if StartLine < 0 then
|
||||
tlItemsBefore := 0
|
||||
else
|
||||
tlItemsBefore := StartLine;
|
||||
end; // with TVpTaskListOpener(FTaskList)...
|
||||
end;
|
||||
|
||||
procedure TVpTaskListPainter.InitColors;
|
||||
begin
|
||||
if DisplayOnly then begin
|
||||
RealColor := clWhite;
|
||||
BackgroundSelHighlight := clBlack;
|
||||
ForegroundSelHighlight := clWhite;
|
||||
BevelShadow := clBlack;
|
||||
BevelHighlight := clBlack;
|
||||
BevelDarkShadow := clBlack;
|
||||
BevelFace := clBlack;
|
||||
RealLineColor := clBlack;
|
||||
RealCheckBgColor := clWhite;
|
||||
RealCheckBoxColor := clBlack;
|
||||
RealCheckColor := clBlack;
|
||||
RealCompleteColor := clBlack;
|
||||
RealOverdueColor := clBlack;
|
||||
RealNormalColor := clBlack;
|
||||
TaskHeadAttrColor := clSilver;
|
||||
end else begin
|
||||
RealColor := FTaskList.Color;
|
||||
BackgroundSelHighlight := clHighlight;
|
||||
ForegroundSelHighlight := clHighlightText;
|
||||
BevelShadow := clBtnShadow;
|
||||
BevelHighlight := clBtnHighlight;
|
||||
BevelDarkShadow := cl3DDkShadow;
|
||||
BevelFace := clBtnFace;
|
||||
RealLineColor := FTaskList.LineColor;
|
||||
RealCheckBgColor := FTaskList.DisplayOptions.CheckBGColor;
|
||||
RealCheckBoxColor := FTaskList.DisplayOptions.CheckColor;
|
||||
RealCheckColor := FTaskList.DisplayOptions.CheckColor;
|
||||
RealCompleteColor := FTaskList.DisplayOptions.CompletedColor;
|
||||
RealOverdueColor := FTaskList.DisplayOptions.OverdueColor;
|
||||
RealNormalColor := FTaskList.DisplayOptions.NormalColor;
|
||||
TaskHeadAttrColor := FTaskList.TaskHeadAttributes.Color;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVpTaskListPainter.MeasureRowHeight;
|
||||
begin
|
||||
RenderCanvas.Font.Assign(FTaskList.Font);
|
||||
RowHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin * 2;
|
||||
end;
|
||||
|
||||
procedure TVpTaskListPainter.RenderToCanvas(ARenderIn: TRect;
|
||||
AAngle: TVpRotationAngle; AScale: Extended; ARenderDate: TDateTime;
|
||||
AStartLine, AStopLine: Integer; AUseGran: TVpGranularity; ADisplayOnly: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
InitColors;
|
||||
SavePenBrush;
|
||||
InitPenBrush;
|
||||
|
||||
Rgn := CreateRectRgn(RenderIn.Left, RenderIn.Top, RenderIn.Right, RenderIn.Bottom);
|
||||
try
|
||||
SelectClipRgn(RenderCanvas.Handle, Rgn);
|
||||
|
||||
if StartLine < 0 then
|
||||
StartLine := 0;
|
||||
|
||||
{ clear client area }
|
||||
Clear;
|
||||
|
||||
SetMeasurements;
|
||||
|
||||
{ measure the row height }
|
||||
MeasureRowHeight;
|
||||
|
||||
{ draw header }
|
||||
DrawHeader;
|
||||
|
||||
{ draw lines }
|
||||
DrawLines;
|
||||
|
||||
{ draw the tasks }
|
||||
DrawTasks;
|
||||
|
||||
{ draw the borders }
|
||||
DrawBorders;
|
||||
|
||||
TVpTaskListOpener(FTaskList).tlSetVScrollPos;
|
||||
|
||||
finally
|
||||
SelectClipRgn(RenderCanvas.Handle, 0);
|
||||
DeleteObject(Rgn);
|
||||
RestorePenBrush;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user