Page 1 of 1

Error: Adding Custom Legend

Posted: Thu May 03, 2012 5:36 am
by 9341927
Hi,

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

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

Something wrong with my installation?

Thanks in advance.

Re: Error: Adding Custom Legend

Posted: Fri May 04, 2012 10:37 am
by yeray
Hi Matt,

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

Re: Error: Adding Custom Legend

Posted: Wed Jan 16, 2013 12:19 pm
by 16458663
When can we expect to have a solution for this problem?
Is there any workaround to fix the problem temporarily?

Re: Error: Adding Custom Legend

Posted: Thu Jan 17, 2013 4:59 pm
by 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.

Re: Error: Adding Custom Legend

Posted: Wed Jan 23, 2013 7:54 am
by 16464217
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,

Re: Error: Adding Custom Legend

Posted: Thu Jan 24, 2013 10:31 am
by narcis
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.