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

tvplanit: Cosmetic changes in vpcanvasutils.pas

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4843 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-26 20:44:06 +00:00
parent e85a111716
commit b108ef2f7a
2 changed files with 842 additions and 1232 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2068
components/tvplanit/source/vpcanvasutils.pas
View File

File diff suppressed because it is too large Load Diff

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

@ -91,7 +91,7 @@ type
procedure DrawEvent(AEvent: TVpEvent; AEventRec: TVpDvEventRec;
ARenderDate: TDateTime; Col: Integer);
procedure DrawEvents(ARenderDate: TDateTime; Col: Integer);
procedure DrawEventString(const AText: String; const AEventRect, AIconRect: TRect;
procedure DrawEventText(const AText: String; const AEventRect, AIconRect: TRect;
ALevel: Integer; AEventIsEditing: Boolean);
procedure DrawIcons(AIconRect: TRect);
procedure DrawNavBtns;
@ -879,7 +879,7 @@ begin
EventString := BuildEventString(AEvent, EventRect, IconRect);
{ draw the event string }
DrawEventString(EventString, EventRect, IconRect, AEventRec.Level, EventIsEditing);
DrawEventText(EventString, EventRect, IconRect, AEventRec.Level, EventIsEditing);
{ paint the borders around the event text area }
TPSPolyline(RenderCanvas, Angle, RenderIn, [
@ -1055,7 +1055,7 @@ begin
DrawIcon(dvBmpRecurring, RecurringW, RecurringH, false);
end;
procedure TVpDayViewPainter.DrawEventString(const AText: String;
procedure TVpDayViewPainter.DrawEventText(const AText: String;
const AEventRect, AIconRect: TRect; ALevel: Integer; AEventIsEditing: Boolean);
var
WorkRegion1: HRGN;