bubble labeling w/delphi
Posted: Sun Nov 23, 2008 1:49 pm
1) how to add a label to bubble if label field name is "NAME"?
2) how to enable click on a bubble to show "name" value?
Thank you.
Code: Select all
with dbf1 do begin
dbffilename:=ExtractFilePath(Application.ExeName) + 'selected.dbf';
active:=true;
Chart1.View3D:=false;
Series1:=TBubbleSeries.Create(self);
Chart1.AddSeries(Series1);
for i := 0 to 15 do
begin
name:=getcfield('name');
x:=i;
y:=getrealfield('y');
radius:=0.001*getrealfield('x');
Series1.addbubble(
x,y,radius,inttostr(i));
skip(1);
end;
end;
Thank you.