Project JEDI - Issue Tracker - JEDI VCL
Viewing Issue Advanced Details
6579 00 JVCL Components minor always 2017-07-18 19:57 2018-07-18 15:54
stjcottbus  
 
normal  
feedback Daily / GIT  
open  
none    
none  
0006579: JvTFGlance adds an annoying empty line in Hint if ShowSchedNamesInHint is False.
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;
Issue History
2017-07-18 19:57 stjcottbus New Issue
2017-07-20 07:50 stjcottbus Issue Monitored: stjcottbus
2018-07-18 15:54 obones Note Added: 0021524
2018-07-18 15:54 obones Status new => feedback

Notes
(0021524)
obones   
2018-07-18 15:54   
Could you check if the issue is still present in the latest GIT content? If yes, please provide the zipped sources of an application showing this.