Solved

How do I programmatically change the size of points on a point chart ?

Posted on 2014-10-16
12
244 Views
Last Modified: 2014-10-31
Hi,
I am programmatically adding points to a point series of a TChart. I want to be able to change the size of the points at run time so that if I zoom in too much I can still see them. It seems it is the density of points that makes them easy to see with the chart zoomed out. When I zoom in so much that only a few points are showing, they become impossible to see. They are a good size to see well until I zoom in too much. I was thinking of adding a spin button to allow manual resizing of the points when necessary. I think, but am not sure, that what I need to change is the width and height under "Small Dot" in the format tab of chart1.series1. I don't know how to do it programmatically. Something like TChart1.Series1.Format.width :=    ?
0
Comment
Question by:ChLa
  • 11
12 Comments
 
LVL 19

Expert Comment

by:Thommy
ID: 40386048
Try calling TChart.Draw() in your chart's OnZoom and OnUndoZoom event...

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  Chart1.Draw();
end;

procedure TForm1.Chart1UndoZoom(Sender: TObject);
begin
  Chart1.Draw();
end;

Open in new window

0
 

Author Comment

by:ChLa
ID: 40388958
This doesn't seem to help. When zoomed in the grid is easier to see than my plotted points.
0
 

Author Comment

by:ChLa
ID: 40389003
In this first picture you see a typical plot on the chart. This is the small version of the chart, with no zoom. You can see the plot is easy to see.
0
 

Author Comment

by:ChLa
ID: 40389007
In this second picture you see the small chart. Here I have zoomed in quite a bit and the plot is still easy to see.
ChartSmZm.jpg
0
 

Author Comment

by:ChLa
ID: 40389013
Here is that first picture.
ChartSmUnzm.jpg
0
 

Author Comment

by:ChLa
ID: 40389020
In this third picture we are still looking at the small chart. Here we have zoomed in quite a bit and now the plot is harder to see than the grid.
ChartSmZmmm.jpg
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:ChLa
ID: 40389029
In this fourth picture you see the large chart. I have a page control. To see the large chart I switch tabs (right click on the chart) to a larger free area where I move and resize the chart. Here I have already zoomed in as much as the second image and already it is a bit hard to see the plotted points.
ChartLgZm.jpg
0
 

Author Comment

by:ChLa
ID: 40389037
In this fifth and last image we are looking at the larger chart. We have zoomed in as much as in the third picture. You can see it is very difficult to see the plotted points. When I tried adding Chart1.Draw(); to the two events, it didn't effect the visibility of these plotted points.
ChartLgZmmm.jpg
0
 

Author Comment

by:ChLa
ID: 40389070
Okay, I lied, sorry...One more picture...
This image shows my current series settings for the chart.
SeriesSettings.jpg
0
 

Author Comment

by:ChLa
ID: 40392418
I have done some experimenting. I found that the horizontal and vertical sizes do not affect the size of Small Dots. It does change the size of circles. But while the small dots are colored individually, all circles appear in the same color, black. So what I am thinking is I need to be able to programmatically change from small dots to circles, and then back again.
I have been using AddXY like this: Chart1.Series[0].AddXY(X, Y, ' ', clBlue); so I can have the dots colored. Why don't the circles color ? How do I programmatically change from small dots to circles ?
If I change from small dots to circles after the chart is drawn, will the dots change to circles, or will I need to redraw the chart ?
0
 

Accepted Solution

by:
ChLa earned 0 total points
ID: 40405116
Never mind. I eventually found the answers myself. The circles did not appear to be colored because of a black border. Many closely spaced circles will appear black because of the border. I fixed this by making The border invisible. To change from small dots to circles: Series1.Pointer.Style:= paCircle; Of course Series1.Pointer.Style := SmallDot; changes it back. To change the size of circles: Series1.Pointer.Size := CircleSize; CircleSize is an integer.
0
 

Author Closing Comment

by:ChLa
ID: 40415298
I only received one comment to my question and it didn't work. I eventually discovered the answers myself.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

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

12 Experts available now in Live!

Get 1:1 Help Now