Steema Central

Code: Select all

procedure TTernarySeriesForm.FormCreate(Sender: TObject);
//...
  with SeriesTextSource1 do
  begin
    HeaderLines:=1;
    //...
    AddField('Text',6);
    //...
  end;
  //...
  Series1.Marks.Show;
  Series1.Marks.Transparent:=True;
  

Code: Select all

var loadedText: TStrings;

procedure TTernarySeriesForm.Chart1GetLegendText(Sender: TCustomAxisPanel;
  LegendStyle: TLegendStyle; Index: Integer; var LegendText: string);
var stream : TFileStream;
    row: Integer;
    tmpFields: TStringList;
    tmp: string;
const col=6;// 4: Sample Site and Date; 5: Sample Site; 6: Sample Date
begin
  if not Assigned(loadedText) then
  begin
    stream:=TFileStream.Create(SeriesTextSource1.FileName,fmOpenRead);
    try
      stream.Position:=0;
      loadedText:=TStringList.Create;
      loadedText.LoadFromStream(stream);
    finally
      stream.Free;
    end;
  end;

  row:=Index+SeriesTextSource1.HeaderLines;
  if loadedText.Count > row then
  begin
    tmp:=loadedText[row];
    tmpFields:=TStringList.Create;
    tmpFields.Clear;
    tmpFields.Delimiter:=SeriesTextSource1.FieldSeparator[1];
    tmpFields.StrictDelimiter:=True;
    tmpFields.DelimitedText:=tmp;
    if tmpFields.Count>col then
       LegendText:=tmpFields[col];
  end;
end;

Code: Select all

procedure TTernarySeriesForm.Chart1GetLegendRect(Sender: TCustomChart;
  var Rect: TRect);
var tmp: String;
begin
  Chart1GetLegendText(Chart1, Chart1.Legend.LegendStyle, 0, tmp);
  Rect.Width:=Chart1.Canvas.TextWidth(tmp) +
              Chart1.Legend.Symbol.Width + 20;
end;

Code: Select all

  for i := 0 to 5 do
     Series1.AddBubbleXYZWeight( Random(100),  { X }
             Random(100),     { Y }
             Random(100),     { Z }
             30-(Random(25)), { Radius }
             10-(Random(10)), { Weight }
             clTeeColor);

Code: Select all

        XValues.ValueSource := sDepField;  // field to be plotted on the horizontal axis
        YValues.ValueSource := fIndependentField;  // field to be plotted on the vertical axis
        DataSource := TDataset(fMultiGraphList.Objects[dID]);  // each object is a kbmMemTable with data for each dataset

Code: Select all

uses
  VCLTee.TeeTernary;

procedure TForm1.Button1Click(Sender: TObject);
var
   Ternary : TTernarySeries;
begin
   Ternary:=TTernarySeries.Create(Self);
   Ternary.ParentChart:=Chart1;

   Ternary.FillSampleValues();
end;