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

jvcllaz: Update to include issue #6578 of the JVCL bugtracker.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7135 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-15 17:00:42 +00:00
parent a1ac8efd03
commit 64ce31d116
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/jvcllaz/run/JvTimeFramework/jvtfglance.pas
View File

@ -2994,16 +2994,17 @@ var
ExtraDesc: string = '';
Handled: Boolean;
begin
if Assigned(FViewer) and FViewer.ShowSchedNamesInHint then
ExtraDesc := StringsToStr(SchedNames, ', ', False);
ExtraDesc := ExtraDesc + #13#10;
Handled := False;
if Assigned(OnApptHint) then
FOnApptHint(Self, Info.Appt, Handled);
if not Handled then
if not Handled then begin
if Assigned(FViewer) and FViewer.ShowSchedNamesInHint then
ExtraDesc := StringsToStr(SchedNames, ', ', False) + LineEnding
else
ExtraDesc := '';
FHint.ApptHint(Info.Appt, Info.AbsX + 8, Info.AbsY + 8,
not Assigned(FViewer) or FViewer.ShowStartEndTimeInHint, True, False, ExtraDesc);
end;
end;
procedure TJvTFCustomGlance.CheckViewerApptHint(X, Y: Integer);
@ -3697,6 +3698,7 @@ begin
inherited Create(AOwner);
FRepeatGrouped := True;
FShowSchedNamesInHint := True;
FShowStartEndTimeInHint := True;
FInplaceEdit := True;
end;