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

tvplanit: Use some margin when drawing the day view event icons.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4847 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-27 23:00:17 +00:00
parent 5bbb50a408
commit cf5e6362ef
1 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -75,11 +75,9 @@ type
OldFont: TFont;
protected
function BuildEventString(AEvent: TVpEvent;
const AEventRect, AIconRect: TRect): String;
function BuildEventString(AEvent: TVpEvent; const AEventRect, AIconRect: TRect): String;
procedure CalcRowHeadRect(out ARect: TRect);
function CountOverlappingEvents(Event: TVpEvent;
const EArray: TVpDvEventArray): Integer;
function CountOverlappingEvents(Event: TVpEvent; const EArray: TVpDvEventArray): Integer;
procedure CreateBitmaps;
function DetermineIconRect(AEventRect: TRect): TRect;
function GetMaxOLEvents(Event: TVpEvent; const EArray: TVpDvEventArray): Integer;
@ -124,6 +122,9 @@ uses
StrUtils,
VpCanvasUtils, VpMisc;
const
ICON_MARGIN = 4;
type
TVpDayViewOpener = class(TVpDayView);
@ -223,14 +224,14 @@ begin
Result.Left := AEventRect.Left;
Result.Top := AEventRect.Top;
Result.Bottom := AEventRect.Bottom;
Result.Right := AEventRect.Left + AlarmW + RecurringW + CategoryW + CustomW + 2;
Result.Right := AEventRect.Left + AlarmW + RecurringW + CategoryW + CustomW + ICON_MARGIN + 2;
MaxHeight := AlarmH;
if RecurringH > MaxHeight then
MaxHeight := AlarmH + ICON_MARGIN;
if RecurringH + ICON_MARGIN > MaxHeight then
MaxHeight := dvBmpRecurring.Height;
if CategoryH > MaxHeight then
if CategoryH + ICON_MARGIN > MaxHeight then
MaxHeight := dvBmpCategory.Height;
if CustomH > MaxHeight then
if CustomH + ICON_MARGIN > MaxHeight then
MaxHeight := dvBmpCustom.Height;
if MaxHeight > AEventRect.Bottom - AEventRect.Top then
MaxHeight := AEventRect.Bottom - AEventRect.Top;
@ -1032,7 +1033,7 @@ var
begin
bmp.Transparent := True;
R := Rect(0, 0, w, h);
OffsetRect(R, AIconRect.Left + 1, AIconRect.Top + 1);
OffsetRect(R, AIconRect.Left + ICON_MARGIN, AIconRect.Top + ICON_MARGIN);
RenderCanvas.StretchDraw(R, bmp);
{
RenderCanvas.CopyRect( // wp: was FDayview.Canvas -- does not look correct...
@ -1042,7 +1043,7 @@ var
);
}
if IncDrawPos then
inc(DrawPos, w);
inc(DrawPos, w + ICON_MARGIN);
end;
end;