Steema Central

Code: Select all

procedure TForm1.Series1GetMarkText(Sender: TChartSeries; ValueIndex: Integer;
  var MarkText: string);
begin
  MarkText:=Chr(Ord('A') + ValueIndex);
end;

Code: Select all

procedure TForm1.Series1GetMarkText(Sender: TChartSeries; ValueIndex: Integer; var MarkText: string);
begin
  MarkText := Series1.Labels[ValueIndex];
end;

Code: Select all

var myLabels: array of String;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  x, y: double;
  s: string;
begin

  Chart1.BottomAxis.LabelStyle := talValue;
  Chart1.BottomAxis.LabelsFont.Style := [];
  Chart1.BottomAxis.AutomaticMinimum := false;
  Chart1.BottomAxis.Minimum := 0;

  Series1.Clear;
  Series1.Marks.Visible := true;
  Series1.Marks.Style := smsLabel;
  Series1.OnGetMarkText := Series1GetMarkText;

  SetLength(myLabels, 26);
  for i := 0 to 25 do
  begin
    x := Random(100);
    y := Random(100);
    s := Chr(Ord('A') + i);  // <-- Each Point has the Label A to Z
    Series1.AddXY(x, y, s);
    myLabels[i]:=s;
  end;
end;

procedure TForm1.Series1GetMarkText(Sender: TChartSeries; ValueIndex: Integer; var MarkText: string);
begin
  MarkText := myLabels[ValueIndex];
end;

Code: Select all

  Procedure InternalInsert{$IFNDEF D18}(const P:PString){$ENDIF};
  {$IFDEF D18}
  var t : Integer;
  {$ENDIF}
  begin
    {$IFDEF D18}
    SetLength(List, Max(Count,ValueIndex)+1);

    while Count<ValueIndex-1 do
       List[Count-1]:='';

    for t:=Count-1 downto ValueIndex+1 do
        List[t]:=List[t-1];

    List[ValueIndex]:=ALabel;
    {$ELSE}

    while Count<ValueIndex do
          Add(nil);

    Insert(ValueIndex,P);
    {$ENDIF}
  end;