Error: Adding Custom Legend

[Matt Venkat]

Hi,

When I added Custom Legend from Editing Chart tools, I got the following error.


http://oi45.tinypic.com/2l9o3ly.jpg

Something wrong with my installation?

Thanks in advance.

[Yeray]

Hi Matt,

I've been able to reproduce the problem here. I've added it to the defect list to be fixed (TV52016177).

[Karlsson]

When can we expect to have a solution for this problem?
Is there any workaround to fix the problem temporarily?

[Yeray]

Hello,

We've just fixed it for the next maintenance release.
If you are a Source Code customer, I can tell you the change to apply.

[bosse]

Hello,

I shall upgrade to be a source code customer so you can tell me how to do the changes.
Do you know the date for next maintenance release?

Thanks in advance,

[Narcís]

Hi bosse,

I shall upgrade to be a source code customer so you can tell me how to do the changes.

Sure, open TeeToolsGalleryDemos.pas, go to the TToolDemos.CreateGallery method and at its bottom implement TCustomLegendTool related code like this:

Code: Select all

  if tmp=TCustomLegendTool then
    with CreateChart(tmp,'Customizable legend grid',TBarSeries) do
    begin
      with Tools[0] as TCustomLegendTool do
      begin
        with Shape do
        begin
          RoundSize := 15;
          Pen.Width:= 2;
          Font.Style := [{$IFDEF FMX}TFontStyle.{$ENDIF}fsItalic];
          ShapeStyle:=fosRoundRectangle
        end;

        with Grid do
        begin
          RowCount := 2;
          
          {$IFNDEF FMX}
          ColCount := 1;
          RowHeights[0] := 20;
          RowHeights[1] := 20;
          ColWidths[0] := 70;
          {$ENDIF}

          Height := 40;
          Width := 70;

          {$IFDEF FMX}
          Cells[0,0]:='  Series 1';
          Cells[0,1]:='  Series 2';
          {$ELSE}
          Rows[0].Text := '  Series 1';
          Rows[1].Text := '  Series 2';
          {$ENDIF}
        end;
      end;
    end
    ;

which basically moves the line:

Code: Select all

          RowCount := 2;

before the following section.

Code: Select all

          {$IFNDEF FMX}
          ColCount := 1;
          RowHeights[0] := 20;
          RowHeights[1] := 20;
          ColWidths[0] := 70;
          {$ENDIF}

Do you know the date for next maintenance release?

A date hasn't been fixed yet. You should follow any of the Steema Software communication channels (this forum, Steema's home page, Steema's RSS feed, twitter or facebook) for new release announcements and what's implemented on them at the release notes accompanying the news.