View Issue Details

IDProjectCategoryView StatusLast Update
0006579JEDI VCL00 JVCL Componentspublic2019-05-02 08:33
ReporterstjcottbusAssigned Tojfudickar 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in Version 
Summary0006579: JvTFGlance adds an annoying empty line in Hint if ShowSchedNamesInHint is False.
DescriptionIn 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;
TagsNo tags attached.

Activities

obones

2018-07-18 15:54

administrator   ~0021524

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.

mh

2019-04-27 14:35

reporter   ~0021764

Pull request for this one created:
https://github.com/project-jedi/jvcl/pull/100

jfudickar

2019-05-02 08:33

developer   ~0021793

Fixed in Repository

Issue History

Date Modified Username Field Change
2017-07-18 19:57 stjcottbus New Issue
2018-07-18 15:54 obones Note Added: 0021524
2018-07-18 15:54 obones Status new => feedback
2019-04-27 14:35 mh Note Added: 0021764
2019-05-02 08:33 jfudickar Note Added: 0021793
2019-05-02 08:33 jfudickar Status feedback => resolved
2019-05-02 08:33 jfudickar Resolution open => fixed
2019-05-02 08:33 jfudickar Assigned To => jfudickar