Steema Central

Code: Select all

procedure TFForm.ChartTool1GetText(Sender: TMarksTipTool; var Text: string);
begin
  Text := 'Something';
end;

Code: Select all

procedure TFForm.ChartTool1GetText(Sender: TMarksTipTool; var Text: string);
begin
  VinnuTafla.Locate('Faersla', Text, []);
  Text := 'Something';
end;

Code: Select all

procedure TFForm.ChartTool1GetText(Sender: TMarksTipTool; var Text: string);
begin
  if VinnuTafla.Locate('Faersla', Text, []) then
  	Text := VinnuTaflaSvaedi.AsString
  else Text := '[not found]';
end;

Code: Select all

uses Series, DBTables, DateUtils;

var table1: TTable;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
    datasource1: TDataSource;
begin
  table1:=TTable.Create(nil);
  table1.Active:=False;
  table1.TableName:='Test';
  table1.FieldDefs.Add('Date', ftDateTime);
  table1.FieldDefs.Add('Index', ftSmallint);
  table1.FieldDefs.Add('Value1', ftFloat);
  table1.FieldDefs.Add('Value2', ftFloat);

  table1.CreateTable;
  table1.Open;
  for i:=0 to 9 do
    table1.AppendRecord([Today+i-9, i, round(random*100), round(random*20)]);

  Chart1.View3D:=False;

  table1.First;
  with Chart1.AddSeries(TBarSeries) as TBarSeries do
  begin
    Marks.Hide;
    XValues.DateTime:=True;
  end;

  while not table1.Eof do
  begin
    Chart1[0].AddXY(table1.FieldByName('Date').AsDateTime, table1.FieldByName('Value1').AsFloat);
    table1.Next;
  end;

  with (Chart1.Tools.Add(TMarksTipTool) as TMarksTipTool) do
  begin
    Style:=smsPointIndex;
    OnGetText:=ChartTool1GetText;
  end;

  datasource1:=TDataSource.Create(nil);
  datasource1.DataSet:=table1;
  DBGrid1.DataSource:=datasource1;
end;

procedure TForm1.ChartTool1GetText(Sender: TMarksTipTool; var Text: string);
begin
  if table1.Locate('Index', Text, []) then
     Text := 'Date: ' + table1.FindField('Date').AsString + sLineBreak +
             'Value1: ' + table1.FindField('Value1').AsString + sLineBreak +
             'Value2: ' + table1.FindField('Value2').AsString
  else
     Text := '[not found]';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  table1.Close;
  table1.DeleteTable;
  table1.Free;
end;