Steema Central

Hi Bill, The problem is that when you have your axis maximum set to auto (Chart1.Axes.Left.AutomaticMaximum is true) the ChartRect is recalculated to fit the marks (if they're visible) but Chart1.Axes.Left.Maximum is not changed. So to draw your line at the top of the ChartRect you should replace th...

Hi Bill, 1) The code above was thought for having one Custom Axis per Series and avoid overlapping. 2) If you want to add a title to each Custom Axis you should increment the axis separation setting higher extraPos and extraMargin (at PlaceAxes method). Following values work for me: extraPos := 32 a...

Please, add this 3 lines to the TForm1.FormCreate to see the chart better.

Code: Select all

Chart1.View3D := false;
Chart1.Title.Visible := false;
Chart1.Legend.Alignment := laBottom;

Hi Bill, I've made a project for a customer who requested something similar to you. Here's the code: procedure TForm1.FormCreate(Sender: TObject); var i: Integer; const nSeries = 6; begin ComboBox1.Items.Clear; ComboBox2.Items.Clear; for i := 0 to nSeries-1 do begin Chart1.AddSeries(TLineSeries); Ch...

Hi Bill,

You should do the following:

Code: Select all

Chart1.CustomAxes.Items[0].OtherSide := true;

Hi CAC, So you should do something like this: if (Series1.YValue[ValueIndex] = 100) then result := psCircle //for value 100 will be psCircle else if (Series1.YValue[ValueIndex] = 5) then result := psStar //for value 5 will be psStar else result := psRectangle; //default will be psRectangle

Hi Heiko, Here's an example of how you can show Y values from both left and right axis using OnMouse event instead of Cursor Tool. procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Chart1.Title.Caption := 'LeftAxis Y: ' + floattostr(Chart1.Axes.Left.CalcPosP...

Hi guzial,

You should try different values for width and height of the following function (uses TeePDFCanvas).

Code: Select all

TeeSaveToPDFFile(Chart1, 'c:\temp\mychart.pdf', width, height);

Hi moelski, I've sent you a project to show you how to solve your request. You have to calculate your custom (and left) axes positions using basically those functions: Chart1.CustomAxes.Items[0].PositionUnits := muPixels; // to count position in pixels Chart1.CustomAxes.Items[0].PositionPercent := 0...

And I can announce the new property "Items" for TeeListBoxes, available for the next release v8. So you will be able to do:

Code: Select all

TeeListBox1.Items.Remove (0)

Hi moelski, you should try setting different values for the following properties: Chart1.CustomAxes.Items[0].PositionUnits:=muPercent; Chart1.CustomAxes.Items[0].PositionPercent:=-10; Chart1.MarginLeft:=10; Also by design-time you can adjust them to your wishes. And for further information you can t...

Hi ACC, There's no method to show/hide series individually from a TeeListBox yet but you can assign a group to the TeeListBox. So you can create your custom group and the TeeListBox will only show the series you wish. At the following example I use ComboBoxes to select the series to show. But note t...

Hi Martin, I think you should do something like following: procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var ValueIndex: integer; high, low, open, close: double; begin ValueIndex := Series1.Clicked(X,Y); if ValueIndex >= 0 then begin high := Series1.HighValues...

Hi mosim, We tested it and couldn't reproduce your problem here using latest version (7.0.1.3). What version are you using? If you still have problems with it, could you please send us a simple example project we can run "as-is"? You can post your files at news://www.steema.net/steema.public.attachm...

Hi lonis,

Have you seen the tutorials and user guide? You should find them in TeeChart program group, in your Start Menu.

Search found 9541 matches