TSquarifiedMapSeries Add values

[Merops]

Hi,

I am trying to add values ​​in TSquarifiedMapSeries.

Code: Select all

Series1: TSquarifiedMapSeries;
....

   Series1.Add(500,'Value1',clGreen);
   Series1.Add(250,'Value2',clBlue);

But the graph remains empty, do you have an example?

Thanks for your help.

Franck,

[Yeray]

Hello,

Sure, here you have a simple example:

Code: Select all

uses Chart, TeeSquarifiedMap;

var Chart1: TChart;

procedure TForm1.FormCreate(Sender: TObject);
var t : Integer;
const numValues=10;
begin
  Chart1:=TChart.Create(Self);
  Chart1.Parent:=Self;
  Chart1.Align:=alClient;
  Chart1.View3D:=False;

  with TSquarifiedMapSeries(Chart1.AddSeries(TSquarifiedMapSeries)) do
  begin
    // Add the top-most item
    AddItem(-1,0,'Root');

    // Add children
    for t:=0 to numValues-1 do
        AddItem(0,Random(1000),IntToStr(t));

    FinishData;
  end;
end;

[Merops]

Hi Yeray,

Thanks

Capture d’écran 2024-12-13 170414.png (93.57 KiB) Viewed 5297 times

Best regards,

[Merops]

Do you know how to remove the "Root" element from the legend ? It distorts the display of the % .

I have 30% and 20% instead of 60% and 40%:

Capture d’écran 2024-12-13 183908.png (11.73 KiB) Viewed 5280 times

Thanks,

[Yeray]

Hello,

Do you know how to remove the "Root" element from the legend ? It distorts the display of the % .

The easiest way I can think on is to duplicate the SquarifiedMapSeries; the second one without the root element so it won't be drawn in the chart but can be drawn in the legend.

I have 30% and 20% instead of 60% and 40%:

Try setting Totalize:=False before calling FinishData.

Here a simple example:

SquarifiedMap.png (7.81 KiB) Viewed 3817 times

Code: Select all

uses Chart, TeEngine, TeeSquarifiedMap;

var Chart1: TChart;

procedure TForm1.FormCreate(Sender: TObject);
var t: Integer;
    squari: TSquarifiedMapSeries;
begin
  Chart1:=TChart.Create(Self);
  Chart1.Parent:=Self;
  Chart1.Align:=alClient;
  Chart1.View3D:=False;

  squari:=TSquarifiedMapSeries(Chart1.AddSeries(TSquarifiedMapSeries));
  squari.AddItem(-1,0,'Root');
  squari.AddItem(0,200,'ValueA');
  squari.AddItem(0,300,'ValueB');
  squari.Totalize:=False;
  squari.FinishData;
  squari.ShowInLegend:=False; // as per default
  squari.Marks.Style:=smsLabelPercentValue;
  squari.Marks.MultiLine:=True;

  with TSquarifiedMapSeries(Chart1.AddSeries(TSquarifiedMapSeries)) do
  begin
    for t:=1 to Chart1[0].Count-1 do
    begin
      AddItem(0, squari.Values[t], squari.Labels[t]);
      ValueColor[Count-1]:=OperaPalette[t];
    end;

    ShowInLegend:=True;
  end;
end;

[Merops]

Perfect,
Thanks Yeray

[Yeray]

Hello Merops,

You're welcome!