You've already forked lazarus-ccr
tvplanit: Move painting code of TVpWeekView to separate unit VpWeekViewPainter
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4806 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -32,7 +32,7 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S
|
||||
|
||||
Contributor(s): "/>
|
||||
<Version Major="1" Release="4"/>
|
||||
<Files Count="65">
|
||||
<Files Count="66">
|
||||
<Item1>
|
||||
<Filename Value="../source/vpalarmdlg.lfm"/>
|
||||
<Type Value="LFM"/>
|
||||
@ -294,6 +294,10 @@ Contributor(s): "/>
|
||||
<Filename Value="../source/vpdayviewpainter.pas"/>
|
||||
<UnitName Value="VpDayViewPainter"/>
|
||||
</Item65>
|
||||
<Item66>
|
||||
<Filename Value="../source/vpweekviewpainter.pas"/>
|
||||
<UnitName Value="VpWeekViewPainter"/>
|
||||
</Item66>
|
||||
</Files>
|
||||
<i18n>
|
||||
<EnableI18N Value="True"/>
|
||||
|
||||
@ -263,7 +263,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils, Math, LazUTF8, Forms, Dialogs, VpEvntEditDlg;
|
||||
SysUtils, Math, LazUTF8, Forms, Dialogs, VpEvntEditDlg, VpWeekViewPainter;
|
||||
|
||||
(*****************************************************************************)
|
||||
{ TVpTGInPlaceEdit }
|
||||
@ -554,622 +554,17 @@ procedure TVpWeekView.RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect;
|
||||
StartLine: Integer; StopLine: Integer; UseGran: TVpGranularity;
|
||||
DisplayOnly: Boolean);
|
||||
var
|
||||
HeadRect: TRect;
|
||||
SaveBrushColor: TColor;
|
||||
SavePenStyle: TPenStyle;
|
||||
SavePenColor: TColor;
|
||||
DayRectHeight: Integer;
|
||||
StrLn: Integer;
|
||||
StartDate: TDateTime;
|
||||
RealWidth: Integer;
|
||||
RealHeight: Integer;
|
||||
RealLeft: Integer;
|
||||
RealRight: Integer;
|
||||
RealTop: Integer;
|
||||
RealBottom: Integer;
|
||||
ADEventsRect: TRect;
|
||||
Rgn: HRGN;
|
||||
|
||||
DotDotDotColor: TColor;
|
||||
BevelHighlightColor: TColor;
|
||||
BevelShadowColor: TColor;
|
||||
BevelDarkShadow: TColor;
|
||||
BevelButtonFace: TColor;
|
||||
RealLineColor: TColor;
|
||||
RealDayHeadAttrColor: TColor;
|
||||
RealColor: TColor;
|
||||
RealHeadAttrColor: TColor;
|
||||
ADBackgroundColor: TColor;
|
||||
ADEventBackgroundColor: TColor;
|
||||
ADEventBorderColor: TColor;
|
||||
|
||||
function DrawAllDayEvents(ADate: TDateTime; DayRect: TRect;
|
||||
var EAIndex: Integer): Boolean;
|
||||
var
|
||||
ADEventsList: TList;
|
||||
TempList: TList;
|
||||
I, J, K: Integer;
|
||||
Event: TVpEvent;
|
||||
ADEventRect: TRect;
|
||||
StartsBeforeRange: Boolean;
|
||||
MaxADEvents: Integer;
|
||||
Skip: Boolean;
|
||||
ADTextHeight: Integer;
|
||||
EventStr: string;
|
||||
begin
|
||||
Result := False;
|
||||
{ initialize the All Day Events area... }
|
||||
ADEventsRect := DayRect;
|
||||
|
||||
if (DataStore = nil) or (DataStore.Resource = nil) then
|
||||
Exit;
|
||||
|
||||
{ Collect all of the events for this range and determine the maximum }
|
||||
{ number of all day events for the range of days covered by the control. }
|
||||
MaxADEvents := 0;
|
||||
|
||||
ADEventsList := TList.Create;
|
||||
try
|
||||
TempList := TList.Create;
|
||||
try
|
||||
{ get the all day events for the day specified by ADate + I }
|
||||
DataStore.Resource.Schedule.AllDayEventsByDate(ADate, TempList);
|
||||
|
||||
{ Iterate through these events and place them in ADEventsList }
|
||||
Skip := false;
|
||||
for J := 0 to pred(TempList.Count) do begin
|
||||
if AdEventsList.Count > 0 then begin
|
||||
for K := 0 to pred(AdEventsList.Count) do begin
|
||||
if TVpEvent(AdEventsList[K]) = TVpEvent(TempList[J]) then begin
|
||||
Skip := true;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
if not Skip then
|
||||
AdEventsList.Add(TempList[J]);
|
||||
end else
|
||||
AdEventsList.Add(TempList[J]);
|
||||
end;
|
||||
|
||||
if TempList.Count > MaxADEvents then
|
||||
MaxADEvents := TempList.Count;
|
||||
finally
|
||||
TempList.Free;
|
||||
end;
|
||||
|
||||
if MaxADEvents > 0 then begin
|
||||
{ Set attributes }
|
||||
RenderCanvas.Brush.Color := ADBackgroundColor;
|
||||
RenderCanvas.Font.Assign(AllDayEventAttributes.Font);
|
||||
|
||||
{ Measure the AllDayEvent TextHeight }
|
||||
ADTextHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin + TextMargin div 2;
|
||||
|
||||
{ Build the AllDayEvent rect based on the value of MaxADEvents }
|
||||
if AdEventsRect.Top + (MaxADEvents * ADTextHeight) + TextMargin * 2 > DayRect.Bottom
|
||||
then
|
||||
ADeventsrect.Bottom := DayRect.Bottom
|
||||
else
|
||||
ADEventsRect.Bottom := AdEventsRect.Top + (MaxADEvents * ADTextHeight) + TextMargin * 2;
|
||||
|
||||
{ Clear the AllDayEvents area }
|
||||
TpsFillRect(RenderCanvas, Angle, RenderIn, ADEventsRect);
|
||||
|
||||
StartsBeforeRange := false;
|
||||
{ Cycle through the all day events and draw them appropriately }
|
||||
for I := 0 to pred(ADEventsList.Count) do begin
|
||||
Event := ADEventsList[I];
|
||||
|
||||
{ set the top of the event's rect }
|
||||
AdEventRect.Top := ADEventsRect.Top + TextMargin + I * ADTextHeight;
|
||||
|
||||
if ADEventsRect.Top + TextMargin + ((I + 1) * ADTextHeight) - TextMargin > DayRect.Bottom
|
||||
then begin
|
||||
RenderCanvas.Brush.Color := DotDotDotColor;
|
||||
{ draw dot dot dot }
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 20, DayRect.Bottom - 7, DayRect.Right - 17, DayRect.Bottom - 4));
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 13, DayRect.Bottom - 7, DayRect.Right - 10, DayRect.Bottom - 4));
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 6, DayRect.Bottom - 7, DayRect.Right - 3, DayRect.Bottom - 4));
|
||||
break;
|
||||
end;
|
||||
|
||||
{ see if the event began before the start of the range }
|
||||
if (Event.StartTime < trunc(RenderDate)) then
|
||||
StartsBeforeRange := true;
|
||||
|
||||
AdEventRect.Bottom := ADEventRect.Top + ADTextHeight;
|
||||
AdEventRect.Left := AdEventsRect.Left + (TextMargin div 2);
|
||||
AdEventRect.Right := DayRect.Right;
|
||||
|
||||
if (StartsBeforeRange) then
|
||||
EventStr := '>> '
|
||||
else
|
||||
EventStr := '';
|
||||
|
||||
EventStr := EventStr + Event.Description;
|
||||
|
||||
RenderCanvas.Brush.Color := ADEventBackgroundColor;
|
||||
RenderCanvas.Pen.Color := ADEventBorderColor;
|
||||
TPSRectangle(RenderCanvas, Angle, RenderIn,
|
||||
ADEventRect.Left + TextMargin,
|
||||
ADEventRect.Top + TextMargin div 2,
|
||||
ADEventRect.Right - TextMargin,
|
||||
ADEventRect.Top + ADTextHeight + TextMargin div 2
|
||||
);
|
||||
TPSTextOut(RenderCanvas,Angle, RenderIn,
|
||||
AdEventRect.Left + TextMargin * 2 + TextMargin div 2,
|
||||
AdEventRect.Top + TextMargin,
|
||||
EventStr
|
||||
);
|
||||
Result := True;
|
||||
wvEventArray[EAIndex].Rec := Rect(
|
||||
ADEventRect.Left + TextMargin,
|
||||
ADEventRect.Top + TextMargin,
|
||||
ADEventRect.Right - TextMargin,
|
||||
ADEventRect.Bottom
|
||||
);
|
||||
wvEventArray[EAIndex].Event := Event;
|
||||
Inc(EAIndex);
|
||||
end; { for I := 0 to pred(ADEventsList.Count) do ... }
|
||||
|
||||
end; { if MaxADEvents > 0 }
|
||||
|
||||
finally
|
||||
ADEventsList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure DrawDays;
|
||||
var
|
||||
DayRect: TRect;
|
||||
TextRect: TRect;
|
||||
I, J, SL: Integer;
|
||||
EAIndex: Integer;
|
||||
DayStr: string;
|
||||
EventList: TList;
|
||||
TodayStartTime: Double;
|
||||
TodayEndTime: Double;
|
||||
begin
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
RenderCanvas.Pen.Style := psSolid;
|
||||
{ initialize WeekdayArray }
|
||||
for I := 0 to pred(Length(wvWeekdayArray)) do begin
|
||||
wvWeekdayArray[I].Rec.TopLeft := Point(-1, -1);
|
||||
wvWeekdayArray[I].Rec.BottomRight := Point(-1, -1);
|
||||
wvWeekdayArray[I].Day := 0;
|
||||
end;
|
||||
|
||||
{ initialize Event Array }
|
||||
EAIndex := 0;
|
||||
for I := 0 to pred(Length(wvEventArray)) do begin
|
||||
wvEventArray[I].Rec.TopLeft := Point(-1, -1);
|
||||
wvEventArray[I].Rec.BottomRight := Point(-1, -1);
|
||||
wvEventArray[I].Event := nil;
|
||||
end;
|
||||
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
{ build the first dayrect }
|
||||
DayRectHeight := (RealBottom - RealTop - wvHeaderHeight) div 3;
|
||||
if DrawingStyle = ds3D then
|
||||
DayRect.TopLeft := Point(RealLeft + 1, RealTop + wvHeaderHeight + 3)
|
||||
else
|
||||
DayRect.TopLeft := Point(RealLeft + 1, RealTop + wvHeaderHeight + 2);
|
||||
DayRect.BottomRight := Point(
|
||||
RealLeft + (RealRight - RealLeft) div 2 + 1,
|
||||
RealTop + wvHeaderHeight + DayRectHeight
|
||||
);
|
||||
|
||||
{ draw the day frames }
|
||||
for I := 0 to 6 do begin
|
||||
{ draw day head}
|
||||
RenderCanvas.Font.Assign(FDayHeadAttributes.Font);
|
||||
RenderCanvas.Brush.Color := RealDayHeadAttrColor;
|
||||
TextRect := Rect(DayRect.Left, DayRect.Top, DayRect.Right, DayRect.Top + wvDayHeadHeight);
|
||||
TPSFillRect (RenderCanvas, Angle, RenderIn, TextRect);
|
||||
if FDayHeadAttributes.Bordered then
|
||||
TPSRectangle (RenderCanvas, Angle, RenderIn, TextRect);
|
||||
{ Fix Header String }
|
||||
{$IF FPC_FULLVERSION >= 30000}
|
||||
DayStr := FormatDateTime(FDayHeadAttributes.DateFormat, StartDate + I);
|
||||
{$ELSE}
|
||||
DayStr := SysToUTF8(FormatDateTime(FDayHeadAttributes.DateFormat, StartDate + I));
|
||||
{$ENDIF}
|
||||
SL := RenderCanvas.TextWidth(DayStr);
|
||||
if SL > TextRect.Right - TextRect.Left then
|
||||
DayStr := GetDisplayString(RenderCanvas, DayStr, 0, TextRect.Right - TextRect.Left - TextMargin);
|
||||
SL := RenderCanvas.TextWidth(DayStr);
|
||||
TextRect.Left := TextRect.Right - SL - TextMargin;
|
||||
TPSTextOut(RenderCanvas, Angle, RenderIn,
|
||||
TextRect.Left, TextRect.Top + TextMargin - 1, DayStr
|
||||
);
|
||||
|
||||
if (DataStore <> nil) and (DataStore.Resource <> nil) and
|
||||
(DataStore.Resource.Schedule.EventCountByDay(StartDate + I) > 0) and
|
||||
(DayRect.Bottom - DayRect.Top >= (TextMargin * 2) + wvDayHeadHeight)
|
||||
then begin
|
||||
{ events exist for this day }
|
||||
EventList := TList.Create;
|
||||
try
|
||||
{ populate the eventlist with events for this day }
|
||||
DataStore.Resource.Schedule.EventsByDate(StartDate + I, EventList);
|
||||
{ initialize TextRect for this day }
|
||||
TextRect.TopLeft := Point(DayRect.Left, DayRect.Top + wvDayHeadHeight);
|
||||
TextRect.BottomRight := Point(DayRect.Right, TextRect.Top + wvRowHeight);
|
||||
|
||||
{ Handle All Day Events }
|
||||
if DrawAllDayEvents (StartDate + I, Rect(TextRect.Left, TextRect.Top, TextRect.Right, DayRect.Bottom), EAIndex)
|
||||
then begin
|
||||
TextRect.Bottom := TextRect.Bottom + ADEventsRect.Bottom - TextRect.Top;
|
||||
TextRect.Top := ADEventsRect.Bottom;
|
||||
end;
|
||||
|
||||
{ Discard AllDayEvents, because they are drawn above. }
|
||||
for J := pred(EventList.Count) downto 0 do
|
||||
if TVpEvent (EventList[J]).AllDayEvent then
|
||||
EventList.Delete(J);
|
||||
|
||||
{ iterate the events, painting them one by one }
|
||||
for J := 0 to pred(EventList.Count) do begin
|
||||
{ if the TextRect extends below the available space then draw a }
|
||||
{ dot dot dot to indicate there are more events than can be drawn }
|
||||
{ in the available space }
|
||||
if TextRect.Bottom - TextMargin > DayRect.Bottom then begin
|
||||
RenderCanvas.Brush.Color := DotDotDotColor;
|
||||
{ draw dot dot dot }
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 20, DayRect.Bottom - 7, DayRect.Right - 17, DayRect.Bottom - 4)
|
||||
);
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 13, DayRect.Bottom - 7, DayRect.Right - 10, DayRect.Bottom - 4)
|
||||
);
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 6, DayRect.Bottom - 7, DayRect.Right - 3, DayRect.Bottom - 4)
|
||||
);
|
||||
break;
|
||||
end;
|
||||
|
||||
{ format the display text }
|
||||
DayStr := '';
|
||||
TodayStartTime := TVpEvent(EventList.List^[j]).StartTime;
|
||||
TodayEndTime := TVpEvent(EventList.List^[j]).EndTime;
|
||||
if trunc(TodayStartTime) < trunc(StartDate + I) then //First Event
|
||||
TodayStartTime := 0;
|
||||
if trunc(TodayEndTime) > trunc(StartDate + I) then //Last Event
|
||||
TodayEndTime := 0.9999;
|
||||
if ShowEventTime then
|
||||
begin
|
||||
if TimeFormat = tf24Hour then
|
||||
DayStr := FormatDateTime('hh:nn',TodayStartTime) + ' - ' +
|
||||
FormatDateTime('hh:nn',TodayEndTime) + ': '
|
||||
else
|
||||
DayStr := FormatDateTime('hh:nn AM/PM',TVpEvent(EventList.List^[j]).StartTime) + ' - ' +
|
||||
FormatDateTime('hh:nn AM/PM',TVpEvent(EventList.List^[j]).EndTime) + ': ';
|
||||
end;
|
||||
if DayStr = '' then
|
||||
DayStr := TVpEvent(EventList.List^[j]).Description
|
||||
else
|
||||
DayStr := DayStr + ' '
|
||||
+ TVpEvent(EventList.List^[j]).Description;
|
||||
|
||||
{ set the event font }
|
||||
RenderCanvas.Font.Assign(FEventFont);
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
|
||||
StrLn := RenderCanvas.TextWidth(DayStr);
|
||||
if (StrLn > TextRect.Right - TextRect.Left - TextMargin) then
|
||||
DayStr := GetDisplayString(RenderCanvas, DayStr, 0, TextRect.Right - TextRect.Left - (TextMargin * 2));
|
||||
|
||||
{ write the event text }
|
||||
TPSTextOut(RenderCanvas, Angle, RenderIn,
|
||||
TextRect.Left + TextMargin, TextRect.Top + (TextMargin div 2),
|
||||
DayStr
|
||||
);
|
||||
|
||||
{ update the EventArray }
|
||||
wvEventArray[EAIndex].Rec := TextRect;
|
||||
wvEventArray[EAIndex].Event := TVpEvent(EventList.List^[j]);
|
||||
Inc(EAIndex);
|
||||
|
||||
TextRect.Top := TextRect.Bottom;
|
||||
TextRect.Bottom := TextRect.Top + wvRowHeight;
|
||||
end; { for loop }
|
||||
finally
|
||||
EventList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ Draw focus rect if this is the current day }
|
||||
|
||||
if (not DisplayOnly) and (StartDate + I = Trunc (FActiveDate)) and Focused
|
||||
then
|
||||
TPSDrawFocusRect(RenderCanvas, Angle, RenderIn, Rect(
|
||||
DayRect.Left + 2,
|
||||
DayRect.Top + wvDayHeadHeight + 2,
|
||||
DayRect.Right - 2,
|
||||
DayRect.Bottom - 2
|
||||
));
|
||||
|
||||
{ update WeekdayArray }
|
||||
wvWeekdayArray[I].Rec := DayRect;
|
||||
wvWeekdayArray[I].Day := StartDate + I;
|
||||
{ adjust the DayRect for the next day }
|
||||
if (I = 2) then begin
|
||||
{ move the dayrect to the top of the next column }
|
||||
if DrawingStyle = ds3D then begin
|
||||
DayRect.TopLeft := Point(
|
||||
RealLeft + (RealRight - RealLeft) div 2,
|
||||
RealTop + wvHeaderHeight + 3
|
||||
);
|
||||
DayRect.BottomRight := Point(
|
||||
RealRight - 2,
|
||||
RealTop + wvHeaderHeight + DayRectHeight
|
||||
);
|
||||
end
|
||||
else begin
|
||||
DayRect.TopLeft := Point(
|
||||
RealLeft + (RealRight - RealLeft) div 2,
|
||||
RealTop + wvHeaderHeight + 2
|
||||
);
|
||||
DayRect.BottomRight := Point(
|
||||
RealRight - 1,
|
||||
RealTop + wvHeaderHeight + DayRectHeight
|
||||
);
|
||||
end;
|
||||
end
|
||||
|
||||
else if (I = 4 {Friday}) then begin
|
||||
{ shrink DayRect for weekend days }
|
||||
DayRectHeight := DayRectHeight div 2;
|
||||
DayRect.Top := DayRect.Bottom;
|
||||
DayRect.Bottom := DayRect.Top + DayRectHeight;
|
||||
end
|
||||
else begin
|
||||
DayRect.Top := DayRect.Bottom;
|
||||
DayRect.Bottom := DayRect.Top + DayRectHeight;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
{ Draw the center vertical line }
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn,
|
||||
RealLeft + (RealRight - RealLeft) div 2, RealTop + wvHeaderHeight + 2
|
||||
);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn,
|
||||
RealLeft + (RealRight - RealLeft) div 2, RealBottom - 1
|
||||
);
|
||||
|
||||
if (DataStore = nil) or (DataStore.Resource = nil) or (DataStore.Resource.Tasks.Count = 0)
|
||||
then Exit;
|
||||
end;
|
||||
{-}
|
||||
|
||||
procedure Clear;
|
||||
begin
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
RenderCanvas.FillRect(RenderIn);
|
||||
end;
|
||||
{-}
|
||||
|
||||
procedure SetMeasurements;
|
||||
begin
|
||||
RealWidth := TPSViewportWidth(Angle, RenderIn);
|
||||
RealHeight := TPSViewportHeight(Angle, RenderIn);
|
||||
RealLeft := TPSViewportLeft(Angle, RenderIn);
|
||||
RealRight := TPSViewportRight(Angle, RenderIn);
|
||||
RealTop := TPSViewportTop(Angle, RenderIn);
|
||||
RealBottom := TPSViewportBottom(Angle, RenderIn);
|
||||
|
||||
if RenderDate = 0 then
|
||||
StartDate := GetStartOfWeek(wvStartDate, FWeekStartsOn)
|
||||
else
|
||||
StartDate := GetStartOfWeek(RenderDate, FWeekStartsOn);
|
||||
|
||||
RenderCanvas.Font.Assign(FDayHeadAttributes.Font);
|
||||
wvDayHeadHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin + 2 ;
|
||||
RenderCanvas.Font.Assign(FEventFont);
|
||||
wvRowHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin div 2;
|
||||
RenderCanvas.Font.Assign(TFont(FHeadAttr.Font));
|
||||
wvHeaderHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin * 2;
|
||||
end;
|
||||
{-}
|
||||
|
||||
procedure DrawHeader;
|
||||
var
|
||||
HeadTextRect: TRect;
|
||||
HeadStr: string;
|
||||
HeadStrLen : Integer;
|
||||
|
||||
function GetWeekOfYear(Datum: TDateTime): byte;
|
||||
var
|
||||
AYear, dummy:word;
|
||||
First: TDateTime;
|
||||
begin
|
||||
DecodeDate(Datum+((8-DayOfWeek(Datum)) mod 7) - 3, AYear, dummy,dummy);
|
||||
First := EncodeDate(AYear, 1, 1);
|
||||
Result := (trunc(Datum-First-3+(DayOfWeek(First)+1) mod 7) div 7) + 1;
|
||||
end;
|
||||
|
||||
begin
|
||||
RenderCanvas.Brush.Color := RealHeadAttrColor;
|
||||
RenderCanvas.Font.Assign(TFont(FHeadAttr.Font));
|
||||
{ draw the header cell and borders }
|
||||
if FDrawingStyle = dsFlat then begin
|
||||
{ draw an outer and inner bevel }
|
||||
HeadRect := Rect(RealLeft, RealTop, RealRight, RealTop + wvHeaderHeight + 2);
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
{ wp: above lines replace the next ones - no bevel in flat style!
|
||||
HeadRect.Left := RealLeft + 1;
|
||||
HeadRect.Top := RealTop + 1;
|
||||
HeadRect.Right := RealRight - 1;
|
||||
HeadRect.Bottom := HeadRect.Top + wvHeaderHeight;
|
||||
TPSFillRect (RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
DrawBevelRect (RenderCanvas,
|
||||
TPSRotateRectangle (Angle, RenderIn, HeadRect),
|
||||
BevelHighlightColor, BevelShadowColor);
|
||||
}
|
||||
end else if FDrawingStyle = ds3d then begin
|
||||
{ draw a 3d bevel }
|
||||
HeadRect.Left := RealLeft + 2;
|
||||
HeadRect.Top := RealTop + 2;
|
||||
HeadRect.Right := RealRight - 3;
|
||||
HeadRect.Bottom := RealTop + wvHeaderHeight;
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
DrawBevelRect(RenderCanvas, TPSRotateRectangle(Angle, RenderIn, HeadRect),
|
||||
BevelHighlightColor, BevelDarkShadow
|
||||
);
|
||||
end else begin
|
||||
HeadRect.Left := RealLeft + 1;
|
||||
HeadRect.Top := RealTop + 1;
|
||||
HeadRect.Right := RealRight - 1;
|
||||
HeadRect.Bottom := HeadRect.Top + wvHeaderHeight;
|
||||
end;
|
||||
|
||||
{ build header caption }
|
||||
HeadStr := HeadStr + Format('%s %s (%s %d)', [
|
||||
RSWeekOf, FormatDateTime(DateLabelFormat, StartDate), RSCalendarWeekAbbr, GetWeekOfYear(StartDate)
|
||||
]);
|
||||
// HeadStr := HeadStr + RSWeekof + ' ' + FormatDateTime(DateLabelFormat, StartDate)+' (KW'+IntToStr(GetWeekOfYear(StartDate))+')';
|
||||
{ draw the text }
|
||||
if DisplayOnly and (RenderCanvas.TextWidth(HeadStr) >= RenderIn.Right - RenderIn.Left)
|
||||
then
|
||||
HeadTextRect.TopLeft:= Point(RealLeft + TextMargin * 2, HeadRect.Top)
|
||||
else
|
||||
if DisplayOnly then
|
||||
HeadTextRect.TopLeft := Point(
|
||||
RealLeft + (RealRight - RealLeft - RenderCanvas.TextWidth(HeadStr)) div 2,
|
||||
HeadRect.Top
|
||||
)
|
||||
else
|
||||
HeadTextRect.TopLeft := Point(
|
||||
RealLeft + Trunc(wvHeaderHeight * 0.8) * 2 + TextMargin * 2,
|
||||
HeadRect.Top
|
||||
);
|
||||
HeadTextRect.BottomRight := HeadRect.BottomRight;
|
||||
{ Fix Header String }
|
||||
HeadStrLen := RenderCanvas.TextWidth(HeadStr);
|
||||
if HeadStrLen > HeadTextRect.Right - HeadTextRect.Left - TextMargin then
|
||||
begin
|
||||
HeadStr := GetDisplayString(RenderCanvas, HeadStr, 0,
|
||||
HeadTextRect.Right - HeadTextRect.Left - TextMargin );
|
||||
end;
|
||||
{ position the spinner }
|
||||
wvSpinButtons.Height := Trunc(wvHeaderHeight * 0.8);
|
||||
wvSpinButtons.Width := wvSpinButtons.Height * 2;
|
||||
wvSpinButtons.Left := TextMargin;
|
||||
wvSpinButtons.Top := (wvHeaderHeight - wvSpinButtons.Height) div 2 + 2;
|
||||
TPSTextOut(RenderCanvas, Angle, RenderIn,
|
||||
HeadTextRect.Left + TextMargin,
|
||||
HeadTextRect.Top + TextMargin,
|
||||
HeadStr
|
||||
);
|
||||
end;
|
||||
{-}
|
||||
|
||||
procedure DrawBorders;
|
||||
begin
|
||||
if FDrawingStyle = dsFlat then begin
|
||||
{ draw an outer and inner bevel }
|
||||
DrawBevelRect(RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1)),
|
||||
BevelShadowColor,
|
||||
BevelHighlightColor
|
||||
);
|
||||
DrawBevelRect(RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft + 1, RealTop + 1, RealRight - 2, RealBottom - 2)),
|
||||
BevelShadowColor,
|
||||
BevelHighlightColor
|
||||
);
|
||||
end else
|
||||
if FDrawingStyle = ds3d then begin
|
||||
{ draw a 3d bevel }
|
||||
DrawBevelRect(RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1)),
|
||||
BevelShadowColor,
|
||||
BevelShadowColor
|
||||
);
|
||||
DrawBevelRect(RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect (RealLeft + 1, RealTop + 1, RealRight - 2, RealBottom - 2)),
|
||||
BevelDarkShadow,
|
||||
BevelButtonFace
|
||||
);
|
||||
end;
|
||||
end;
|
||||
{-}
|
||||
|
||||
painter: TVpWeekViewPainter;
|
||||
begin
|
||||
|
||||
if DisplayOnly then begin
|
||||
BevelHighlightColor := clBlack;
|
||||
BevelShadowColor := clBlack;
|
||||
BevelDarkShadow := clBlack;
|
||||
BevelButtonFace := clBlack;
|
||||
RealLineColor := clBlack;
|
||||
RealColor := clWhite;
|
||||
RealDayHeadAttrColor := clSilver;
|
||||
RealHeadAttrColor := clSilver;
|
||||
ADBackgroundColor := clWhite;
|
||||
ADEventBackgroundColor := clWhite;
|
||||
ADEventBorderColor := clSilver;
|
||||
end else begin
|
||||
BevelHighlightColor := clBtnHighlight;
|
||||
BevelShadowColor := clBtnShadow;
|
||||
BevelDarkShadow := cl3DDkShadow;
|
||||
BevelButtonFace := clBtnFace;
|
||||
RealLineColor := LineColor;
|
||||
RealColor := Color;
|
||||
RealDayHeadAttrColor := FDayHeadAttributes.Color;
|
||||
RealHeadAttrColor := FHeadAttr.Color;
|
||||
ADBackgroundColor := AllDayEventAttributes.BackgroundColor;
|
||||
ADEventBackgroundColor := AllDayEventAttributes.EventBackgroundColor;
|
||||
ADEventBorderColor := AllDayEventAttributes.EventBorderColor;
|
||||
end;
|
||||
DotDotDotColor := clBlack;
|
||||
|
||||
wvPainting := true;
|
||||
SavePenStyle := RenderCanvas.Pen.Style;
|
||||
SaveBrushColor := RenderCanvas.Brush.Color;
|
||||
SavePenColor := RenderCanvas.Pen.Color;
|
||||
|
||||
RenderCanvas.Pen.Style := psSolid;
|
||||
RenderCanvas.Pen.Width := 1;
|
||||
RenderCanvas.Pen.Mode := pmCopy;
|
||||
RenderCanvas.Brush.Style := bsSolid;
|
||||
|
||||
Rgn := CreateRectRgn(RenderIn.Left, RenderIn.Top, RenderIn.Right, RenderIn.Bottom);
|
||||
painter := TVpWeekViewPainter.Create(self, RenderCanvas);
|
||||
try
|
||||
SelectClipRgn(RenderCanvas.Handle, Rgn);
|
||||
|
||||
{ clear client area }
|
||||
Clear;
|
||||
|
||||
{ measure the row heights }
|
||||
SetMeasurements;
|
||||
|
||||
{ draw header }
|
||||
DrawHeader;
|
||||
|
||||
{ draw days }
|
||||
DrawDays;
|
||||
|
||||
{ draw the borders }
|
||||
DrawBorders;
|
||||
|
||||
painter.RenderToCanvas(RenderIn, Angle, Scale, RenderDate, Startline, StopLine, UseGran, DisplayOnly);
|
||||
finally
|
||||
{ reinstate canvas settings}
|
||||
SelectClipRgn(RenderCanvas.Handle, 0);
|
||||
DeleteObject(Rgn);
|
||||
end;
|
||||
|
||||
RenderCanvas.Pen.Style := SavePenStyle;
|
||||
RenderCanvas.Brush.Color := SaveBrushColor;
|
||||
RenderCanvas.Pen.Color := SavePenColor;
|
||||
painter.Free;
|
||||
wvPainting := false;
|
||||
end;
|
||||
end;
|
||||
|
||||
{=====}
|
||||
|
||||
procedure TVpWeekView.wvPopulate;
|
||||
|
||||
702
components/tvplanit/source/vpweekviewpainter.pas
Normal file
702
components/tvplanit/source/vpweekviewpainter.pas
Normal file
@ -0,0 +1,702 @@
|
||||
{$I vp.inc}
|
||||
|
||||
unit VpWeekViewPainter;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, LCLType, LCLIntf, Types,
|
||||
Classes, Graphics, VpConst, VPBase, VpData, VpWeekView;
|
||||
|
||||
type
|
||||
TVpWeekViewPainter = class
|
||||
private
|
||||
FWeekView: TVpWeekView;
|
||||
// Buffered input parameters
|
||||
FRenderCanvas: TCanvas;
|
||||
FAngle: TVpRotationAngle;
|
||||
FScale: Extended;
|
||||
FRenderDate: TDateTime;
|
||||
FRenderIn: TRect;
|
||||
FStartLine: Integer;
|
||||
FStopLine: Integer;
|
||||
FUseGran: TVpGranularity;
|
||||
FDisplayOnly: Boolean;
|
||||
// local parameters of the old TVpWeekView method
|
||||
HeadRect: TRect;
|
||||
SaveBrushColor: TColor;
|
||||
SavePenStyle: TPenStyle;
|
||||
SavePenColor: TColor;
|
||||
DayRectHeight: Integer;
|
||||
StrLn: Integer;
|
||||
StartDate: TDateTime;
|
||||
RealWidth: Integer;
|
||||
RealHeight: Integer;
|
||||
RealLeft: Integer;
|
||||
RealRight: Integer;
|
||||
RealTop: Integer;
|
||||
RealBottom: Integer;
|
||||
ADEventsRect: TRect;
|
||||
Rgn: HRGN;
|
||||
DotDotDotColor: TColor;
|
||||
BevelHighlightColor: TColor;
|
||||
BevelShadowColor: TColor;
|
||||
BevelDarkShadow: TColor;
|
||||
BevelButtonFace: TColor;
|
||||
RealLineColor: TColor;
|
||||
RealDayHeadAttrColor: TColor;
|
||||
RealColor: TColor;
|
||||
RealHeadAttrColor: TColor;
|
||||
ADBackgroundColor: TColor;
|
||||
ADEventBackgroundColor: TColor;
|
||||
ADEventBorderColor: TColor;
|
||||
|
||||
protected
|
||||
// Buffered input parameters as properties
|
||||
property Angle: TVpRotationAngle read FAngle;
|
||||
property DisplayOnly: Boolean read FDisplayOnly;
|
||||
property RenderCanvas: TCanvas read FRenderCanvas;
|
||||
property RenderDate: TDateTime read FRenderDate write FRenderDate;
|
||||
property RenderIn: TRect read FRenderIn;
|
||||
property Scale: Extended read FScale;
|
||||
property StartLine: Integer read FStartLine write FStartLine;
|
||||
property StopLine: Integer read FStopLine;
|
||||
property UseGran: TVpGranularity read FUseGran;
|
||||
|
||||
protected
|
||||
procedure Clear;
|
||||
function DrawAllDayEvents(ADate: TDateTime; DayRect: TRect; var EAIndex: Integer): Boolean;
|
||||
procedure DrawBorders;
|
||||
procedure DrawDays;
|
||||
procedure DrawHeader;
|
||||
procedure SetMeasurements;
|
||||
|
||||
public
|
||||
constructor Create(AWeekView: TVpWeekView; ARenderCanvas: TCanvas);
|
||||
procedure RenderToCanvas(ARenderIn: TRect; AAngle: TVpRotationAngle;
|
||||
AScale: Extended; ARenderDate: TDateTime; AStartLine, AStopLine: Integer;
|
||||
AUseGran: TVpGranularity; ADisplayOnly: Boolean);
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
VpCanvasUtils, VpMisc, VpSR;
|
||||
|
||||
type
|
||||
TVpWeekViewOpener = class(TVpWeekView);
|
||||
|
||||
constructor TVpWeekViewPainter.Create(AWeekView: TVpWeekView;
|
||||
ARenderCanvas: TCanvas);
|
||||
begin
|
||||
FWeekView := AWeekView;
|
||||
FRenderCanvas := ARenderCanvas;
|
||||
end;
|
||||
|
||||
procedure TVpWeekViewPainter.Clear;
|
||||
begin
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
RenderCanvas.FillRect(RenderIn);
|
||||
end;
|
||||
|
||||
function TVpWeekViewPainter.DrawAllDayEvents(ADate: TDateTime; DayRect: TRect;
|
||||
var EAIndex: Integer): Boolean;
|
||||
var
|
||||
ADEventsList: TList;
|
||||
TempList: TList;
|
||||
I, J, K: Integer;
|
||||
Event: TVpEvent;
|
||||
ADEventRect: TRect;
|
||||
StartsBeforeRange: Boolean;
|
||||
MaxADEvents: Integer;
|
||||
Skip: Boolean;
|
||||
ADTextHeight: Integer;
|
||||
EventStr: string;
|
||||
begin
|
||||
Result := False;
|
||||
{ initialize the All Day Events area... }
|
||||
ADEventsRect := DayRect;
|
||||
|
||||
if (FWeekView.DataStore = nil) or (FWeekView.DataStore.Resource = nil) then
|
||||
Exit;
|
||||
|
||||
{ Collect all of the events for this range and determine the maximum }
|
||||
{ number of all day events for the range of days covered by the control. }
|
||||
MaxADEvents := 0;
|
||||
|
||||
ADEventsList := TList.Create;
|
||||
try
|
||||
TempList := TList.Create;
|
||||
try
|
||||
{ get the all day events for the day specified by ADate + I }
|
||||
FWeekView.DataStore.Resource.Schedule.AllDayEventsByDate(ADate, TempList);
|
||||
|
||||
{ Iterate through these events and place them in ADEventsList }
|
||||
Skip := false;
|
||||
for J := 0 to pred(TempList.Count) do begin
|
||||
if AdEventsList.Count > 0 then begin
|
||||
for K := 0 to pred(AdEventsList.Count) do begin
|
||||
if TVpEvent(AdEventsList[K]) = TVpEvent(TempList[J]) then begin
|
||||
Skip := true;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
if not Skip then
|
||||
AdEventsList.Add(TempList[J]);
|
||||
end else
|
||||
AdEventsList.Add(TempList[J]);
|
||||
end;
|
||||
|
||||
if TempList.Count > MaxADEvents then
|
||||
MaxADEvents := TempList.Count;
|
||||
finally
|
||||
TempList.Free;
|
||||
end;
|
||||
|
||||
if MaxADEvents > 0 then begin
|
||||
{ Set attributes }
|
||||
RenderCanvas.Brush.Color := ADBackgroundColor;
|
||||
RenderCanvas.Font.Assign(FWeekView.AllDayEventAttributes.Font);
|
||||
|
||||
{ Measure the AllDayEvent TextHeight }
|
||||
ADTextHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin + TextMargin div 2;
|
||||
|
||||
{ Build the AllDayEvent rect based on the value of MaxADEvents }
|
||||
if AdEventsRect.Top + (MaxADEvents * ADTextHeight) + TextMargin * 2 > DayRect.Bottom
|
||||
then
|
||||
ADeventsrect.Bottom := DayRect.Bottom
|
||||
else
|
||||
ADEventsRect.Bottom := AdEventsRect.Top + (MaxADEvents * ADTextHeight) + TextMargin * 2;
|
||||
|
||||
{ Clear the AllDayEvents area }
|
||||
TpsFillRect(RenderCanvas, Angle, RenderIn, ADEventsRect);
|
||||
|
||||
StartsBeforeRange := false;
|
||||
{ Cycle through the all day events and draw them appropriately }
|
||||
for I := 0 to pred(ADEventsList.Count) do begin
|
||||
Event := ADEventsList[I];
|
||||
|
||||
{ set the top of the event's rect }
|
||||
AdEventRect.Top := ADEventsRect.Top + TextMargin + I * ADTextHeight;
|
||||
|
||||
if ADEventsRect.Top + TextMargin + ((I + 1) * ADTextHeight) - TextMargin > DayRect.Bottom
|
||||
then begin
|
||||
RenderCanvas.Brush.Color := DotDotDotColor;
|
||||
{ draw dot dot dot }
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 20, DayRect.Bottom - 7, DayRect.Right - 17, DayRect.Bottom - 4));
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 13, DayRect.Bottom - 7, DayRect.Right - 10, DayRect.Bottom - 4));
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 6, DayRect.Bottom - 7, DayRect.Right - 3, DayRect.Bottom - 4));
|
||||
break;
|
||||
end;
|
||||
|
||||
{ see if the event began before the start of the range }
|
||||
if (Event.StartTime < trunc(RenderDate)) then
|
||||
StartsBeforeRange := true;
|
||||
|
||||
AdEventRect.Bottom := ADEventRect.Top + ADTextHeight;
|
||||
AdEventRect.Left := AdEventsRect.Left + (TextMargin div 2);
|
||||
AdEventRect.Right := DayRect.Right;
|
||||
|
||||
if (StartsBeforeRange) then
|
||||
EventStr := '>> '
|
||||
else
|
||||
EventStr := '';
|
||||
|
||||
EventStr := EventStr + Event.Description;
|
||||
|
||||
RenderCanvas.Brush.Color := ADEventBackgroundColor;
|
||||
RenderCanvas.Pen.Color := ADEventBorderColor;
|
||||
TPSRectangle(RenderCanvas, Angle, RenderIn,
|
||||
ADEventRect.Left + TextMargin,
|
||||
ADEventRect.Top + TextMargin div 2,
|
||||
ADEventRect.Right - TextMargin,
|
||||
ADEventRect.Top + ADTextHeight + TextMargin div 2
|
||||
);
|
||||
TPSTextOut(RenderCanvas,Angle, RenderIn,
|
||||
AdEventRect.Left + TextMargin * 2 + TextMargin div 2,
|
||||
AdEventRect.Top + TextMargin,
|
||||
EventStr
|
||||
);
|
||||
Result := True;
|
||||
TVpWeekViewOpener(FWeekView).wvEventArray[EAIndex].Rec := Rect(
|
||||
ADEventRect.Left + TextMargin,
|
||||
ADEventRect.Top + TextMargin,
|
||||
ADEventRect.Right - TextMargin,
|
||||
ADEventRect.Bottom
|
||||
);
|
||||
TVpWeekViewOpener(FWeekView).wvEventArray[EAIndex].Event := Event;
|
||||
Inc(EAIndex);
|
||||
end; { for I := 0 to pred(ADEventsList.Count) do ... }
|
||||
|
||||
end; { if MaxADEvents > 0 }
|
||||
|
||||
finally
|
||||
ADEventsList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVpWeekViewPainter.DrawBorders;
|
||||
begin
|
||||
if FWeekView.DrawingStyle = dsFlat then begin
|
||||
{ draw an outer and inner bevel }
|
||||
DrawBevelRect(RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1)),
|
||||
BevelShadowColor,
|
||||
BevelHighlightColor
|
||||
);
|
||||
DrawBevelRect(RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft + 1, RealTop + 1, RealRight - 2, RealBottom - 2)),
|
||||
BevelShadowColor,
|
||||
BevelHighlightColor
|
||||
);
|
||||
end else
|
||||
if FWeekView.DrawingStyle = ds3d then begin
|
||||
{ draw a 3d bevel }
|
||||
DrawBevelRect(RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1)),
|
||||
BevelShadowColor,
|
||||
BevelShadowColor
|
||||
);
|
||||
DrawBevelRect(RenderCanvas,
|
||||
TPSRotateRectangle(Angle, RenderIn, Rect (RealLeft + 1, RealTop + 1, RealRight - 2, RealBottom - 2)),
|
||||
BevelDarkShadow,
|
||||
BevelButtonFace
|
||||
);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVpWeekViewPainter.DrawDays;
|
||||
var
|
||||
DayRect: TRect;
|
||||
TextRect: TRect;
|
||||
I, J, SL: Integer;
|
||||
EAIndex: Integer;
|
||||
DayStr: string;
|
||||
EventList: TList;
|
||||
TodayStartTime: Double;
|
||||
TodayEndTime: Double;
|
||||
begin
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
RenderCanvas.Pen.Style := psSolid;
|
||||
{ initialize WeekdayArray }
|
||||
with TVpWeekViewOpener(FWeekView) do
|
||||
for I := 0 to pred(Length(wvWeekdayArray)) do begin
|
||||
wvWeekdayArray[I].Rec.TopLeft := Point(-1, -1);
|
||||
wvWeekdayArray[I].Rec.BottomRight := Point(-1, -1);
|
||||
wvWeekdayArray[I].Day := 0;
|
||||
end;
|
||||
|
||||
{ initialize Event Array }
|
||||
EAIndex := 0;
|
||||
with TVpWeekViewOpener(FWeekView) do
|
||||
for I := 0 to pred(Length(wvEventArray)) do begin
|
||||
wvEventArray[I].Rec.TopLeft := Point(-1, -1);
|
||||
wvEventArray[I].Rec.BottomRight := Point(-1, -1);
|
||||
wvEventArray[I].Event := nil;
|
||||
end;
|
||||
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
{ build the first dayrect }
|
||||
DayRectHeight := (RealBottom - RealTop - TVpWeekViewOpener(FWeekView).wvHeaderHeight) div 3;
|
||||
if FWeekView.DrawingStyle = ds3D then
|
||||
DayRect.TopLeft := Point(RealLeft + 1, RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + 3)
|
||||
else
|
||||
DayRect.TopLeft := Point(RealLeft + 1, RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + 2);
|
||||
DayRect.BottomRight := Point(
|
||||
RealLeft + (RealRight - RealLeft) div 2 + 1,
|
||||
RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + DayRectHeight
|
||||
);
|
||||
|
||||
{ draw the day frames }
|
||||
for I := 0 to 6 do begin
|
||||
{ draw day head}
|
||||
RenderCanvas.Font.Assign(FWeekView.DayHeadAttributes.Font);
|
||||
RenderCanvas.Brush.Color := RealDayHeadAttrColor;
|
||||
TextRect := Rect(DayRect.Left, DayRect.Top, DayRect.Right, DayRect.Top + TVpWeekViewOpener(FWeekView).wvDayHeadHeight);
|
||||
TPSFillRect (RenderCanvas, Angle, RenderIn, TextRect);
|
||||
if FWeekView.DayHeadAttributes.Bordered then
|
||||
TPSRectangle (RenderCanvas, Angle, RenderIn, TextRect);
|
||||
{ Fix Header String }
|
||||
{$IF FPC_FULLVERSION >= 30000}
|
||||
DayStr := FormatDateTime(FWeekView.DayHeadAttributes.DateFormat, StartDate + I);
|
||||
{$ELSE}
|
||||
DayStr := SysToUTF8(FormatDateTime(FDayHeadAttributes.DateFormat, StartDate + I));
|
||||
{$ENDIF}
|
||||
SL := RenderCanvas.TextWidth(DayStr);
|
||||
if SL > TextRect.Right - TextRect.Left then
|
||||
DayStr := GetDisplayString(RenderCanvas, DayStr, 0, TextRect.Right - TextRect.Left - TextMargin);
|
||||
SL := RenderCanvas.TextWidth(DayStr);
|
||||
TextRect.Left := TextRect.Right - SL - TextMargin;
|
||||
TPSTextOut(RenderCanvas, Angle, RenderIn,
|
||||
TextRect.Left, TextRect.Top + TextMargin - 1, DayStr
|
||||
);
|
||||
|
||||
if (FWeekView.DataStore <> nil) and (FWeekView.DataStore.Resource <> nil) and
|
||||
(FWeekView.DataStore.Resource.Schedule.EventCountByDay(StartDate + I) > 0) and
|
||||
(DayRect.Bottom - DayRect.Top >= TextMargin * 2 + TVpWeekViewOpener(FWeekView).wvDayHeadHeight)
|
||||
then begin
|
||||
{ events exist for this day }
|
||||
EventList := TList.Create;
|
||||
try
|
||||
{ populate the eventlist with events for this day }
|
||||
FWeekView.DataStore.Resource.Schedule.EventsByDate(StartDate + I, EventList);
|
||||
{ initialize TextRect for this day }
|
||||
TextRect.TopLeft := Point(DayRect.Left, DayRect.Top + TVpWeekViewOpener(FWeekView).wvDayHeadHeight);
|
||||
TextRect.BottomRight := Point(DayRect.Right, TextRect.Top + TVpWeekViewOpener(FWeekView).wvRowHeight);
|
||||
|
||||
{ Handle All Day Events }
|
||||
if DrawAllDayEvents (StartDate + I, Rect(TextRect.Left, TextRect.Top, TextRect.Right, DayRect.Bottom), EAIndex)
|
||||
then begin
|
||||
TextRect.Bottom := TextRect.Bottom + ADEventsRect.Bottom - TextRect.Top;
|
||||
TextRect.Top := ADEventsRect.Bottom;
|
||||
end;
|
||||
|
||||
{ Discard AllDayEvents, because they are drawn above. }
|
||||
for J := pred(EventList.Count) downto 0 do
|
||||
if TVpEvent (EventList[J]).AllDayEvent then
|
||||
EventList.Delete(J);
|
||||
|
||||
{ iterate the events, painting them one by one }
|
||||
for J := 0 to pred(EventList.Count) do begin
|
||||
{ if the TextRect extends below the available space then draw a }
|
||||
{ dot dot dot to indicate there are more events than can be drawn }
|
||||
{ in the available space }
|
||||
if TextRect.Bottom - TextMargin > DayRect.Bottom then begin
|
||||
RenderCanvas.Brush.Color := DotDotDotColor;
|
||||
{ draw dot dot dot }
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 20, DayRect.Bottom - 7, DayRect.Right - 17, DayRect.Bottom - 4)
|
||||
);
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 13, DayRect.Bottom - 7, DayRect.Right - 10, DayRect.Bottom - 4)
|
||||
);
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn,
|
||||
Rect(DayRect.Right - 6, DayRect.Bottom - 7, DayRect.Right - 3, DayRect.Bottom - 4)
|
||||
);
|
||||
break;
|
||||
end;
|
||||
|
||||
{ format the display text }
|
||||
DayStr := '';
|
||||
TodayStartTime := TVpEvent(EventList.List^[j]).StartTime;
|
||||
TodayEndTime := TVpEvent(EventList.List^[j]).EndTime;
|
||||
if trunc(TodayStartTime) < trunc(StartDate + I) then //First Event
|
||||
TodayStartTime := 0;
|
||||
if trunc(TodayEndTime) > trunc(StartDate + I) then //Last Event
|
||||
TodayEndTime := 0.9999;
|
||||
if FWeekView.ShowEventTime then
|
||||
begin
|
||||
if FWeekView.TimeFormat = tf24Hour then
|
||||
DayStr := FormatDateTime('hh:nn',TodayStartTime) + ' - ' +
|
||||
FormatDateTime('hh:nn',TodayEndTime) + ': '
|
||||
else
|
||||
DayStr := FormatDateTime('hh:nn AM/PM',TVpEvent(EventList.List^[j]).StartTime) + ' - ' +
|
||||
FormatDateTime('hh:nn AM/PM',TVpEvent(EventList.List^[j]).EndTime) + ': ';
|
||||
end;
|
||||
if DayStr = '' then
|
||||
DayStr := TVpEvent(EventList.List^[j]).Description
|
||||
else
|
||||
DayStr := DayStr + ' '
|
||||
+ TVpEvent(EventList.List^[j]).Description;
|
||||
|
||||
{ set the event font }
|
||||
RenderCanvas.Font.Assign(FWeekView.EventFont);
|
||||
RenderCanvas.Brush.Color := RealColor;
|
||||
|
||||
StrLn := RenderCanvas.TextWidth(DayStr);
|
||||
if (StrLn > TextRect.Right - TextRect.Left - TextMargin) then
|
||||
DayStr := GetDisplayString(RenderCanvas, DayStr, 0, TextRect.Right - TextRect.Left - (TextMargin * 2));
|
||||
|
||||
{ write the event text }
|
||||
TPSTextOut(RenderCanvas, Angle, RenderIn,
|
||||
TextRect.Left + TextMargin, TextRect.Top + (TextMargin div 2),
|
||||
DayStr
|
||||
);
|
||||
|
||||
{ update the EventArray }
|
||||
TVpWeekViewOpener(FWeekView).wvEventArray[EAIndex].Rec := TextRect;
|
||||
TVpWeekViewOpener(FWeekView).wvEventArray[EAIndex].Event := TVpEvent(EventList.List^[j]);
|
||||
Inc(EAIndex);
|
||||
|
||||
TextRect.Top := TextRect.Bottom;
|
||||
TextRect.Bottom := TextRect.Top + TVpWeekViewOpener(FWeekView).wvRowHeight;
|
||||
end; { for loop }
|
||||
finally
|
||||
EventList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ Draw focus rect if this is the current day }
|
||||
|
||||
if (not DisplayOnly) and (StartDate + I = Trunc(FWeekView.Date)) and FWeekView.Focused
|
||||
then
|
||||
TPSDrawFocusRect(RenderCanvas, Angle, RenderIn, Rect(
|
||||
DayRect.Left + 2,
|
||||
DayRect.Top + TVpWeekViewOpener(FWeekView).wvDayHeadHeight + 2,
|
||||
DayRect.Right - 2,
|
||||
DayRect.Bottom - 2
|
||||
));
|
||||
|
||||
{ update WeekdayArray }
|
||||
TVpWeekViewOpener(FWeekView).wvWeekdayArray[I].Rec := DayRect;
|
||||
TVpWeekViewOpener(FWeekView).wvWeekdayArray[I].Day := StartDate + I;
|
||||
{ adjust the DayRect for the next day }
|
||||
if (I = 2) then begin
|
||||
{ move the dayrect to the top of the next column }
|
||||
if FWeekView.DrawingStyle = ds3D then begin
|
||||
DayRect.TopLeft := Point(
|
||||
RealLeft + (RealRight - RealLeft) div 2,
|
||||
RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + 3
|
||||
);
|
||||
DayRect.BottomRight := Point(
|
||||
RealRight - 2,
|
||||
RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + DayRectHeight
|
||||
);
|
||||
end
|
||||
else begin
|
||||
DayRect.TopLeft := Point(
|
||||
RealLeft + (RealRight - RealLeft) div 2,
|
||||
RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + 2
|
||||
);
|
||||
DayRect.BottomRight := Point(
|
||||
RealRight - 1,
|
||||
RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + DayRectHeight
|
||||
);
|
||||
end;
|
||||
end
|
||||
|
||||
else if (I = 4 {Friday}) then begin
|
||||
{ shrink DayRect for weekend days }
|
||||
DayRectHeight := DayRectHeight div 2;
|
||||
DayRect.Top := DayRect.Bottom;
|
||||
DayRect.Bottom := DayRect.Top + DayRectHeight;
|
||||
end
|
||||
else begin
|
||||
DayRect.Top := DayRect.Bottom;
|
||||
DayRect.Bottom := DayRect.Top + DayRectHeight;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
{ Draw the center vertical line }
|
||||
RenderCanvas.Pen.Color := RealLineColor;
|
||||
TPSMoveTo(RenderCanvas, Angle, RenderIn,
|
||||
RealLeft + (RealRight - RealLeft) div 2, RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + 2
|
||||
);
|
||||
TPSLineTo(RenderCanvas, Angle, RenderIn,
|
||||
RealLeft + (RealRight - RealLeft) div 2, RealBottom - 1
|
||||
);
|
||||
|
||||
if (FWeekView.DataStore = nil) or (FWeekView.DataStore.Resource = nil) or
|
||||
(FWeekView.DataStore.Resource.Tasks.Count = 0)
|
||||
then
|
||||
Exit;
|
||||
end;
|
||||
|
||||
procedure TVpWeekViewPainter.DrawHeader;
|
||||
var
|
||||
HeadTextRect: TRect;
|
||||
HeadStr: string;
|
||||
HeadStrLen : Integer;
|
||||
|
||||
function GetWeekOfYear(Datum: TDateTime): byte;
|
||||
var
|
||||
AYear, dummy:word;
|
||||
First: TDateTime;
|
||||
begin
|
||||
DecodeDate(Datum+((8-DayOfWeek(Datum)) mod 7) - 3, AYear, dummy,dummy);
|
||||
First := EncodeDate(AYear, 1, 1);
|
||||
Result := (trunc(Datum-First-3+(DayOfWeek(First)+1) mod 7) div 7) + 1;
|
||||
end;
|
||||
|
||||
begin
|
||||
RenderCanvas.Brush.Color := RealHeadAttrColor;
|
||||
RenderCanvas.Font.Assign(TFont(FWeekView.HeadAttributes.Font));
|
||||
{ draw the header cell and borders }
|
||||
if FWeekView.DrawingStyle = dsFlat then begin
|
||||
{ draw an outer and inner bevel }
|
||||
HeadRect := Rect(RealLeft, RealTop, RealRight, RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + 2);
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
{ wp: above lines replace the next ones - no bevel in flat style!
|
||||
HeadRect.Left := RealLeft + 1;
|
||||
HeadRect.Top := RealTop + 1;
|
||||
HeadRect.Right := RealRight - 1;
|
||||
HeadRect.Bottom := HeadRect.Top + wvHeaderHeight;
|
||||
TPSFillRect (RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
DrawBevelRect (RenderCanvas,
|
||||
TPSRotateRectangle (Angle, RenderIn, HeadRect),
|
||||
BevelHighlightColor, BevelShadowColor);
|
||||
}
|
||||
end else if FWeekView.DrawingStyle = ds3d then begin
|
||||
{ draw a 3d bevel }
|
||||
HeadRect.Left := RealLeft + 2;
|
||||
HeadRect.Top := RealTop + 2;
|
||||
HeadRect.Right := RealRight - 3;
|
||||
HeadRect.Bottom := RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight;
|
||||
TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
|
||||
DrawBevelRect(RenderCanvas, TPSRotateRectangle(Angle, RenderIn, HeadRect),
|
||||
BevelHighlightColor, BevelDarkShadow
|
||||
);
|
||||
end else begin
|
||||
HeadRect.Left := RealLeft + 1;
|
||||
HeadRect.Top := RealTop + 1;
|
||||
HeadRect.Right := RealRight - 1;
|
||||
HeadRect.Bottom := HeadRect.Top + TVpWeekViewOpener(FWeekView).wvHeaderHeight;
|
||||
end;
|
||||
|
||||
{ build header caption }
|
||||
HeadStr := HeadStr + Format('%s %s (%s %d)', [
|
||||
RSWeekOf, FormatDateTime(FWeekView.DateLabelFormat, StartDate), RSCalendarWeekAbbr, GetWeekOfYear(StartDate)
|
||||
]);
|
||||
// HeadStr := HeadStr + RSWeekof + ' ' + FormatDateTime(DateLabelFormat, StartDate)+' (KW'+IntToStr(GetWeekOfYear(StartDate))+')';
|
||||
{ draw the text }
|
||||
if DisplayOnly and (RenderCanvas.TextWidth(HeadStr) >= RenderIn.Right - RenderIn.Left)
|
||||
then
|
||||
HeadTextRect.TopLeft:= Point(RealLeft + TextMargin * 2, HeadRect.Top)
|
||||
else
|
||||
if DisplayOnly then
|
||||
HeadTextRect.TopLeft := Point(
|
||||
RealLeft + (RealRight - RealLeft - RenderCanvas.TextWidth(HeadStr)) div 2,
|
||||
HeadRect.Top
|
||||
)
|
||||
else
|
||||
HeadTextRect.TopLeft := Point(
|
||||
RealLeft + Trunc(TVpWeekViewOpener(FWeekView).wvHeaderHeight * 0.8) * 2 + TextMargin * 2,
|
||||
HeadRect.Top
|
||||
);
|
||||
HeadTextRect.BottomRight := HeadRect.BottomRight;
|
||||
{ Fix Header String }
|
||||
HeadStrLen := RenderCanvas.TextWidth(HeadStr);
|
||||
if HeadStrLen > HeadTextRect.Right - HeadTextRect.Left - TextMargin then
|
||||
begin
|
||||
HeadStr := GetDisplayString(RenderCanvas, HeadStr, 0,
|
||||
HeadTextRect.Right - HeadTextRect.Left - TextMargin );
|
||||
end;
|
||||
{ position the spinner }
|
||||
with TVpWeekViewOpener(FWeekView) do begin
|
||||
wvSpinButtons.Height := Trunc(wvHeaderHeight * 0.8);
|
||||
wvSpinButtons.Width := wvSpinButtons.Height * 2;
|
||||
wvSpinButtons.Left := TextMargin;
|
||||
wvSpinButtons.Top := (wvHeaderHeight - wvSpinButtons.Height) div 2 + 2;
|
||||
end;
|
||||
TPSTextOut(RenderCanvas, Angle, RenderIn,
|
||||
HeadTextRect.Left + TextMargin,
|
||||
HeadTextRect.Top + TextMargin,
|
||||
HeadStr
|
||||
);
|
||||
end;
|
||||
|
||||
procedure TVpWeekViewPainter.RenderToCanvas(ARenderIn: TRect;
|
||||
AAngle: TVpRotationAngle; AScale: Extended; ARenderDate: TDateTime;
|
||||
AStartLine, AStopLine: Integer; AUseGran: TVpGranularity; ADisplayOnly: Boolean);
|
||||
begin
|
||||
// Buffer parameters
|
||||
FRenderIn := ARenderIn;
|
||||
FAngle := AAngle;
|
||||
FScale := AScale;
|
||||
FRenderDate := ARenderDate;
|
||||
FStartLine := AStartLine;
|
||||
FStopLine := AStopLine;
|
||||
FUseGran := AUseGran;
|
||||
FDisplayOnly := ADisplayOnly;
|
||||
|
||||
// Here begins the original routine...
|
||||
if DisplayOnly then begin
|
||||
BevelHighlightColor := clBlack;
|
||||
BevelShadowColor := clBlack;
|
||||
BevelDarkShadow := clBlack;
|
||||
BevelButtonFace := clBlack;
|
||||
RealLineColor := clBlack;
|
||||
RealColor := clWhite;
|
||||
RealDayHeadAttrColor := clSilver;
|
||||
RealHeadAttrColor := clSilver;
|
||||
ADBackgroundColor := clWhite;
|
||||
ADEventBackgroundColor := clWhite;
|
||||
ADEventBorderColor := clSilver;
|
||||
end else begin
|
||||
BevelHighlightColor := clBtnHighlight;
|
||||
BevelShadowColor := clBtnShadow;
|
||||
BevelDarkShadow := cl3DDkShadow;
|
||||
BevelButtonFace := clBtnFace;
|
||||
RealLineColor := FWeekView.LineColor;
|
||||
RealColor := FWeekView.Color;
|
||||
RealDayHeadAttrColor := FWeekView.DayHeadAttributes.Color;
|
||||
RealHeadAttrColor := FWeekView.HeadAttributes.Color;
|
||||
ADBackgroundColor := FWeekView.AllDayEventAttributes.BackgroundColor;
|
||||
ADEventBackgroundColor := FWeekView.AllDayEventAttributes.EventBackgroundColor;
|
||||
ADEventBorderColor := FWeekView.AllDayEventAttributes.EventBorderColor;
|
||||
end;
|
||||
DotDotDotColor := clBlack;
|
||||
|
||||
// wvPainting := true; --- moved to TVpWeekView
|
||||
SavePenStyle := RenderCanvas.Pen.Style;
|
||||
SaveBrushColor := RenderCanvas.Brush.Color;
|
||||
SavePenColor := RenderCanvas.Pen.Color;
|
||||
|
||||
RenderCanvas.Pen.Style := psSolid;
|
||||
RenderCanvas.Pen.Width := 1;
|
||||
RenderCanvas.Pen.Mode := pmCopy;
|
||||
RenderCanvas.Brush.Style := bsSolid;
|
||||
|
||||
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 header }
|
||||
DrawHeader;
|
||||
|
||||
{ draw days }
|
||||
DrawDays;
|
||||
|
||||
{ draw the borders }
|
||||
DrawBorders;
|
||||
|
||||
finally
|
||||
{ reinstate canvas settings}
|
||||
SelectClipRgn(RenderCanvas.Handle, 0);
|
||||
DeleteObject(Rgn);
|
||||
end;
|
||||
|
||||
RenderCanvas.Pen.Style := SavePenStyle;
|
||||
RenderCanvas.Brush.Color := SaveBrushColor;
|
||||
RenderCanvas.Pen.Color := SavePenColor;
|
||||
// wvPainting := false; --- moved to TVpWeekView
|
||||
end;
|
||||
|
||||
procedure TVpWeekViewPainter.SetMeasurements;
|
||||
begin
|
||||
RealWidth := TPSViewportWidth(Angle, RenderIn);
|
||||
RealHeight := TPSViewportHeight(Angle, RenderIn);
|
||||
RealLeft := TPSViewportLeft(Angle, RenderIn);
|
||||
RealRight := TPSViewportRight(Angle, RenderIn);
|
||||
RealTop := TPSViewportTop(Angle, RenderIn);
|
||||
RealBottom := TPSViewportBottom(Angle, RenderIn);
|
||||
|
||||
with TVpWeekViewOpener(FWeekView) do
|
||||
if RenderDate = 0 then
|
||||
StartDate := GetStartOfWeek(wvStartDate, WeekStartsOn)
|
||||
else
|
||||
StartDate := GetStartOfWeek(RenderDate, WeekStartsOn);
|
||||
|
||||
RenderCanvas.Font.Assign(FWeekView.DayHeadAttributes.Font);
|
||||
with TVpWeekViewOpener(FWeekView) do
|
||||
wvDayHeadHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin + 2 ;
|
||||
RenderCanvas.Font.Assign(FWeekView.EventFont);
|
||||
with TVpWeekViewOpener(FWeekView) do
|
||||
wvRowHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin div 2;
|
||||
RenderCanvas.Font.Assign(TFont(FWeekView.HeadAttributes.Font));
|
||||
with TVpWeekViewOpener(FWeekView) do
|
||||
wvHeaderHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin * 2;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user