Anonymous | Login | Signup for a new account | 2019-02-18 08:25 CET |
Main | My View | View Issues | Change Log | Roadmap | Docs |
Viewing Issue Simple Details [ Jump to Notes ] | [ View Advanced ] [ Issue History ] [ Print ] | |||||||||||
ID | Category | Severity | Reproducibility | Date Submitted | Last Update | |||||||
0006579 | [JEDI VCL] 00 JVCL Components | minor | always | 2017-07-18 19:57 | 2018-07-18 15:54 | |||||||
Reporter | stjcottbus | View Status | public | |||||||||
Assigned To | ||||||||||||
Priority | normal | Resolution | open | |||||||||
Status | feedback | Product Version | Daily / GIT | |||||||||
Summary | 0006579: JvTFGlance adds an annoying empty line in Hint if ShowSchedNamesInHint is False. | |||||||||||
Description |
In TJvTFCustomGlance.CheckApptHint is the variable ExtraDesc not initialized (may be unneeded) but is unconditionally expanded with CRLF. It should more or less look like this: procedure TJvTFCustomGlance.CheckApptHint(Info: TJvTFGlanceCoord); var ExtraDesc: string; Handled: Boolean; begin if Assigned(FViewer) and FViewer.ShowSchedNamesInHint then begin ExtraDesc := StringsToStr(SchedNames, ', ', False); ExtraDesc := ExtraDesc + 0000013#10; end else ExtraDesc := ''; Handled := False; if Assigned(OnApptHint) then FOnApptHint(Self, Info.Appt, Handled); if not Handled then FHint.ApptHint(Info.Appt, Info.AbsX + 8, Info.AbsY + 8, not Assigned(FViewer) or FViewer.ShowStartEndTimeInHint, True, False, ExtraDesc); end; |
|||||||||||
Additional Information | ||||||||||||
Tags | No tags attached. | |||||||||||
Attached Files | ||||||||||||
|
Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group |