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

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