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

tvplanit: Add hint support for contact grid.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5184 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-19 22:58:13 +00:00
parent afebf9b206
commit dcfee2e807
20 changed files with 455 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -265,7 +265,7 @@ type
property EventDayStyle: TFontStyles read FEventDayStyle write SetEventDayStyle;
property EventFont: TVpFont read FEventFont write SetEventFont;
property HeadAttributes: TVpMvHeadAttr read FHeadAttr write FHeadAttr;
property HintMode: TVpHintMode read FHintMode write FHintMode default hmEventHint;
property HintMode: TVpHintMode read FHintMode write FHintMode default hmPlannerHint;
property LineColor: TColor read FLineColor write SetLineColor;
property TimeFormat: TVpTimeFormat read FTimeFormat write SetTimeFormat;
property TodayAttributes: TVpMvTodayAttr read FTodayAttr write FTodayAttr;
@@ -926,7 +926,7 @@ var
list: TList;
R: TRect;
begin
if FHintMode = hmEventHint then
if FHintMode = hmPlannerHint then
begin
if (ADate = 0) or ((Datastore = nil) or (Datastore.Resource = nil)) then
begin
@@ -980,7 +980,7 @@ end;
procedure TVpMonthView.HideHintWindow;
begin
case FHintMode of
hmEventHint: FreeAndNil(FHintWindow);
hmPlannerHint: FreeAndNil(FHintWindow);
hmComponentHint: Application.CancelHint;
end;
end;