pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix incomplete painting of thick edit frame around focused event in DayView.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4827 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-24 19:37:53 +00:00
parent 4f2302a941
commit b0d583d8a9
1 changed files with 21 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -79,6 +79,7 @@ type
procedure DrawAllDays;
procedure DrawCells(R: TRect; ColDate: TDateTime; Col: Integer);
procedure DrawColHeader(R: TRect; ARenderDate: TDateTime; Col: Integer);
procedure DrawEditFrame(R: TRect; AGutter: Integer; AColor: TColor);
procedure DrawEvents(ARenderDate: TDateTime; Col: Integer);
procedure DrawIcons(AIconRect: TRect);
procedure DrawRowHeader(R: TRect);
@ -680,6 +681,20 @@ begin
end;
end;
{ paint extra borders around the editor }
procedure TVpDayViewPainter.DrawEditFrame(R: TRect; AGutter: Integer;
AColor: TColor);
begin
RenderCanvas.Pen.Color := clWindowFrame;
RenderCanvas.Brush.Color := AColor;
with R do begin
TPSFillRect(RenderCanvas, Angle, RenderIn, Rect(Left, Top-AGutter, Right, Top));
TPSFillRect(RenderCanvas, Angle, RenderIn, Rect(Left-AGutter, Top, Left, Bottom));
TPSFillRect(RenderCanvas, Angle, RenderIn, Rect(Left, Bottom, Right, Bottom + AGutter));
TPSFillRect(RenderCanvas, Angle, RenderIn, Rect(Right, Top, Right+AGutter, Bottom));
end;
end;
procedure TVpDayViewPainter.DrawEvents(ARenderDate: TDateTime; Col: Integer);
var
I,J, StartPixelOffset, EndPixelOffset: Integer;
@ -1193,45 +1208,20 @@ begin
Inc(EventCount);
end;
{ paint extra borders around the editor }
OKToDrawEditFrame := True;
if Assigned(FDayView.ActiveEvent) then
OKToDrawEditFrame := not (FDayView.ActiveEvent.AllDayEvent);
if (TVpDayViewOpener(FDayView).dvInPlaceEditor <> nil) and
TVpDayViewOpener(FDayView).dvInplaceEditor.Visible and
OKToDrawEditFrame then
begin
{ paint extra borders around the editor }
if Assigned(FDayView.DataStore) then
RenderCanvas.Brush.Color := FDayView.DataStore.CategoryColorMap.GetColor(FDayView.ActiveEvent.Category);
RenderCanvas.Pen.Color := clWindowFrame;
with TVpDayViewOpener(FDayView) do begin
TPSFillRect(RenderCanvas, Angle, RenderIn,
Rect(dvActiveEventRec.Left, dvActiveEventRec.Top - GutterWidth, dvActiveEventRec.Right, dvActiveEventRec.Top)
);
TPSPolyline(RenderCanvas, Angle, RenderIn, [
Point(dvActiveEventRec.Left, dvActiveEventRec.Top),
Point(dvActiveEventRec.Left, dvActiveEventRec.Top - FDayView.GutterWidth),
Point(dvActiveEventRec.Right, dvActiveEventRec.Top - FDayView.GutterWidth),
Point(dvActiveEventRec.Right, dvActiveEventRec.Top)
]);
TPSFillRect(RenderCanvas, Angle, RenderIn, Rect(
dvActiveEventRec.Left,
dvActiveEventRec.Bottom,
dvActiveEventRec.Right,
dvActiveEventRec.Bottom + FDayView.GutterWidth
));
TPSPolyline(RenderCanvas, Angle, RenderIn, [
Point(dvActiveEventRec.Left, dvActiveEventRec.Bottom),
Point(dvActiveEventRec.Left, dvActiveEventRec.Bottom + FDayView.GutterWidth),
Point(dvActiveEventRec.Right, dvActiveEventRec.Bottom + FDayView.GutterWidth),
Point(dvActiveEventRec.Right, dvActiveEventRec.Bottom)
]);
end;
end;
OKToDrawEditFrame
then
with TVpDayViewOpener(FDayView) do
DrawEditFrame(dvActiveEventRec, GutterWidth, Datastore.CategoryColorMap.GetColor(ActiveEvent.Category));
{ Clean Up }
finally
{ Clean Up }
try
SetLength(EventArray, 0);
FreeBitmaps;