Chart conversion ...

VCL TMS VCL Chart
1

Good afternoon to all,

i'm tring to convert the last non advchart in my project into TAdvGDIPChartView.

The first problem is that the chart is insert in very small area, and i can't move it.

The second problem is that the chart have 1 pane with 2 series, one fot current year and one for last year.

X axis is a "day line" and i need to display only the day number; Chart type does not rapresnt a problem.

All points are added with AddSinglePoint procedure.

The problem i have is how set the space from one day number and next.

This is a old chart (real dimension)



558×275 26.9 KB




and this is the trial chart conversion .... (the secon serie is missing at the moment); i'm tring with bar ....



559×274 14.2 KB




How is possible paint the string '1' in the middle of first bar??



The code i use to make test serie is



procedure TMF.ImpostaGrafico;

Var I : Integer;

begin

for I:=CHT1.Panes.Count - 1 downto 0 do

        CHT1.Panes.Free;



CHT1.BeginUpdate;

// Aggiungo un nuovo panel

CHT1.Panes.Add;

CHT1.Panes[0].Range.RangeFrom:=0;

CHT1.Panes[0].Range.RangeTo:=31;

CHT1.Panes[0].CrossHair.CrossHairType:=chtFullSizeCrossHairAtCursor;

CHT1.Panes[0].CrossHair.CrossHairYValues.ShowSerieValues:=True;

CHT1.Panes[0].CrossHair.CrossHairYValues.Position:= CHT1.Panes[0].CrossHair.CrossHairYValues.Position + [chAtCursor];

CHT1.Panes[0].CrossHair.Visible:=False;

CHT1.Panes[0].Legend.Visible:=False;

CHT1.Panes[0].AxisMode:=amAxisChartWidthHeight;

CHT1.Panes[0].XAxis.UnitType:=utDay;

CHT1.Panes[0].XAxis.AutoSize:=False;

CHT1.Panes[0].YAxis.AutoSize:=True;

CHT1.Panes[0].Title.Text:='Comparazione Mensile ';

CHT1.Panes[0].Title.Font.Color:=clNavy;

CHT1.Panes[0].Title.Font.Style:=[fsBold];

CHT1.Panes[0].Title.Position:=tTop;

CHT1.Panes[0].Title.Alignment:=taCenter;

// Aggiungo una nuova serie Anno Precedente

CHT1.Panes[0].Series.Add;

CHT1.Panes[0].Series.BarChartSpacing:=5;

//CHT1.Panes[0].Series.BarChartSpacingType:=wtPixels;

CHT1.Panes[0].Series[0].CrossHairYValue.Color:=clRed;

CHT1.Panes[0].Series[0].CrossHairYValue.Font.Color:=clYellow;

CHT1.Panes[0].Series[0].ShowValue:=True;

CHT1.Panes[0].Series[0].ValueAngle:=20;

CHT1.Panes[0].Series[0].ValueFormat:='#,###,##0.#0';

CHT1.Panes[0].Series[0].ValueFormatType:=vftFloat;

CHT1.Panes[0].Series[0].ValueFont.Color:=clMaroon;

CHT1.Panes[0].Series[0].ChartType:=ctBar;

CHT1.Panes[0].Series[0].AutoRange:=arCommonZeroBased;

CHT1.Panes[0].Series[0].RangePercentMargin := 15;

CHT1.Panes[0].Series[0].XAxis.XYValues:=False;

CHT1.Panes[0].Series[0].YAxis.AutoUnits:=True;



// CHT1.Panes[0].Series[0].Enable3D:=True;

CHT1.Panes[0].Series[0].Minimum:=0;

CHT1.Panes[0].Series[0].Maximum:=120000;

CHT1.Panes[0].Series[0].AddSinglePoint(3945.25,Date,clRed,True,'1');

CHT1.Panes[0].Series[0].AddSinglePoint(2690.49,Date,clRed,True,'2');



CHT1.EndUpdate;

end;



Thank's for your help



Regard



Daniele



2

Hi, 


Please send us your sample and step-by-step instructions on how to reproduce those issues with a short description on the issues. It's unclear now exactly which issues you are facing.

3

Hi Pieter,

thank's for your reply.

As first step i need to reproduce this

467×353 18.4 KB




"This" meaning two series with different X value (grpouping as well to be used as "label") showed on two lines ....



but i'm not able ... sorry ...



Thank's for any help you can give me !!!



Regard



Daniele





4

you can disable the X-Axis for each series with Series[0].XAxis.Visible := False;

5

Hi Pieter,

yes with Series[0].XAxis.Visible := False; i can show or not the serie's x axis ....

But i found this (simple code)



CHT1.BeginUpdate;

// Aggiungo un nuovo pane

CHT1.Panes.Add;

CHT1.Panes[0].XAxis.UnitType:=utDay;

CHT1.Panes[0].Range.RangeFrom:=0;

CHT1.Panes[0].Range.RangeTo:=30;



// CHT1.Panes[0].XAxis.AutoSize:=False; << -- UNCOMMENT

// Just to draw a bar on chart

CHT1.Panes[0].Series[0].Minimum:=0;

CHT1.Panes[0].Series[0].Maximum:=120000;

CHT1.Panes[0].Series[0].ChartType:=ctBar;

CHT1.Panes[0].Series[0].AddSinglePoint(3945.25,Date,clRed,True,'1');



// Aggiungo una serie

CHT1.Panes[0].Series.Add;



// Aggiungo una serie

CHT1.Panes[0].Series.Add;



// Aggiorno il grafico

CHT1.EndUpdate;



With this code a blank chart is drowed with 2 series and 2 x axisis, all with default setting.

Now if run the same code but with signed line uncomment, the second x axis will be hide.

Why?? I need more then 1 x axis with no autosize.



So i leave CHT1.Panes[0].XAxis.AutoSize:=True and

     CHT1.Panes[0].Series[0].XAxis.AutoUnits:=False;



In this case all 31 x point are drowed on x axis with it's own value; like



564×273 18.5 KB




but i need the second x axis blank and the first one with only 1 value (under the bar)



Thank's for reply



Regard



Daniele





6

Hi, 


Can you please send us your sample so we can investigate which properties are set and which are missing? So we can help you out as soon as possible.

7

Hi, 


We have investigated your sample and unfortunately bar charts combined with date-time x-Axis is not supported. You can take a look at the supported chart-types in the following sample:


Alternatively you can take a look at the TMS FNC Chart (http://www.tmssoftware.com/site/tmsfncchart.asp) which has been built from the ground up and supports date-time X-Axis for all chart-types that are included.