Solved

show points in Chart

Posted on 2003-11-23
5
407 Views
Last Modified: 2010-04-05
Hi again =p

anyone knows how to mark the points in the chart (I dont want mark that show the value.... I only want for example put dot or * on each point) because the mark that show the value will make my chart cramp

thank yahhh ^^
0
Comment
Question by:allie910
  • 3
5 Comments
 
LVL 2

Expert Comment

by:odissey1
Comment Utility
Hi allie910,

Open ChartEditor (DblClick TChart). In ChartEditor -> Series-> Point -> Visible

Reards,
odissey1
0
 

Expert Comment

by:saienlyh
Comment Utility
procedure Form1.DbcharAfterDraw(Sender: TObject);
begin
var
  t,x,y:Integer ;
begin
  with dbc_waterchar,Canvas do
  begin
    Canvas.Pen.Color:=clYellow;
    Canvas.Pen.Width := 1;
    for t := 0 to SeriesList[0].Count - 1 do
    begin
      x:=SeriesList[0].CalcXPos(t);
      y:=SeriesList[0].CalcYPos(t);
      Ellipse(x-3,y-3,x+3,y+3);
    end;
  end;
end;
0
 
LVL 2

Accepted Solution

by:
odissey1 earned 30 total points
Comment Utility
Hi allie910,

this is the way to modify pointers while drawing. In the example Each other pointer will be drawn as triangle. Use Series1.OnGetSeriePointer event:

function TForm1.Series1GetPointerStyle(Sender: TChartSeries;
  ValueIndex: Integer): TSeriesPointerStyle;
var x, y: integer;
    P: TSeriesPointerStyle;
begin
 if ValueIndex mod 2=0 then
   result:=psNothing //psRectangle
 else
   result:=psTriangle;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     Series1.FillSampleValues(10);
     Series1.Pointer.Visible:=True;
     Series1.OnGetPointerStyle:=Series1GetPointerStyle;
end;

Regards,
odissey1
0
 

Expert Comment

by:pipinana2002
Comment Utility
Hi Odissey1,

I tried to try your last suggestion... (directly from the TChart--> the Dblclick TChart....)
I Can't find the 'point' option..... instead I found mark... and in the 'Style' option I can't find anything like triangle, rectangular or dot.... the available style there are value, percent, label, labe and percent, label and value.... and so on...

and my delphi doesn't recognize Series1.OnGetPointerStyle the closest thing that I can found maybe OnGetMarkText...

can you help..? =) thankkksssss ^^
0
 
LVL 2

Expert Comment

by:odissey1
Comment Utility
To pipinana2002:

When you add Series, choose LineSeries with Pointers (squares). Can you see 'Points' tab in 'Series' (just before 'Marks')?  If no - then I suppose you have TeeChart Standard v.4 (that comes preinstalled in Delphi6/7). I am not sure what is in it, since my TC Pro completely removed TC Standard from HDD.

If charts is a substantial part of your project you can install TC Trial version
http://www.steema.com/download/TeeChart_v6/index.htm
It's free, does everything, time-unlimited and works while IDE). In many cases this is more then enough. At least try to look at the demo:
http://www.teechart.net/files/vcl/public/TeeChartPro6/tee6new.zip
with a lot of examples and corresponding source code.
 
regards,
odissey1
0

Featured Post

Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

Join & Write a Comment

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now