Tee9New example don't work under Delphi 2010 or XE

[Esposito]

I have some problem with the TeeNew project under Delphi2010 and Delphi XE.

For example this syntax is wrong:
Chart1.Axes.Bottom.Items.Add(0,'<FONT color=Blue size=15>000').Format.TextFormat:=ttfHtml;

After Chart1.Axes.Bottom.Items.Add() method nothing is admited. And parent of TChartAxes.

The example in the docementation:
with Chart1.Axes.Left do
begin
Items.Clear; // remove all custom labels
// add custom labels
Items.Add(123,'Hello').Font.Size:=16;
Items.Add(466,'Good'#13'Bye').Transparent:=False;
Items.Add(300);
with Items.Add(-100) do
begin
Transparent:=False;
Transparency:=50;
Color:=clBlue;
end;
end;
don't work under Delphi 2010 or XE.
Anaybody has an idea ?

[Narcís]

Hi Gerard,

This works fine for me here using Delphi XE with our current sources. Which exact TeeChart version are you using? Have you checked v2010.01.11004 available at the client download area?

Thanks in advance.

[Esposito]

Hi Narcis,

My version is 2010.01.11004 but the project Tee9New.dpr don't is not compiled. For example this procedure failed to compile with errors as you see on the screenshot join

procedure TAxis_RetrieveOldLabelsForm.Button1Click(Sender: TObject);
var t : Integer;
begin
with Chart1.Axes.Bottom do
begin
// Save old labels
for t:=0 to Items.Count-1 do
OldLabels.Add(Items.Item[t].Value,Items.Item[t].Text);

Items.Clear; // remove all custom labels

// add html custom labels
Items.Add(0,'<FONT color=Blue size=15>000').TextFormat:=ttfHtml;

{ Other way
Items.Add(1,'<b><FONT color=BLUE size=15>1st</b>');
items.Item[0].TextFormat := ttfHtml;
}

// add custom labels
Items.Add(1,'1st');
Items.Add(2,'2nd');

with Items.Add(3,'etc...') do
begin
Font.Size := 15;
Transparent:=False;
Transparency:=50;
Color:=clBlue;
end;
end;
end;

There is others problem with GDI+

Best regards

[Yeray]

Hi Gerard,

I can compile and run the demo in the v2010.01 installer both in Delphi 2010 and XE without errors.
Could you please check that you have the TeeChart library paths in the top of the lists?
I see that both TextFormat (TTeeCustomShape) and Transparency (TTeeShape) were already present in v2010.00.

[Esposito]

Hi Yerai and Narcis,

I don't understand the TaxisItem class:

TAxisItem=class
private
FFormat : TTeeShape;
FLabelPos : Integer;
FText : String;
FValue : Double;

IAxisItems : TAxisItems;

function GetFormat:TTeeShape;
procedure SetFormat(const Value:TTeeShape);
procedure SetText(const Value: String);
procedure SetValue(const Value: Double);
protected
function ActiveFormat:TTeeShape;
public
Destructor Destroy; override;

procedure Repaint;
property LabelPos:Integer read FLabelPos write FLabelPos;

//published (<-- Not TPersistent)

property Format:TTeeShape read GetFormat write SetFormat;
property Text:String read FText write SetText;
property Value:Double read FValue write SetValue;
end;

Delphi says that TextFormat and Transparency are not property frm TaxisItem class. It seems that it is good. My TeEngine.pas is perhaps not the good one?

Best regards and thanks for your help

Gérard.

[Esposito]

Hi,

I join a sample program where the example don't work.

Best regards

Gérard.

[Esposito]

Hi,

I find the problem. The TAxisItem has a property name Format and this proerty has transparency font...
The example has to be rewritten in

Code: Select all

procedure TAxis_RetrieveOldLabelsForm.Button1Click(Sender: TObject);
var t : Integer;
begin
with Chart1.Axes.Bottom do
begin
// Save old labels
for t:=0 to Items.Count-1 do
OldLabels.Add(Items.Item[t].Value,Items.Item[t].Text);

Items.Clear; // remove all custom labels

// add html custom labels
Items.Add(0,'<FONT color=Blue size=15>000').Format.TextFormat:=ttfHtml;

{ Other way
Items.Add(1,'<b><FONT color=BLUE size=15>1st</b>');
items.Item[0]).Format.TextFormat := ttfHtml;
}

// add custom labels
Items.Add(1,'1st');
Items.Add(2,'2nd');

with Items.Add(3,'etc...').Format do
begin
Font.Size := 15;
Transparent:=False;
Transparency:=50;
Color:=clBlue;
end;
end;
end;

In the Tee9new project I find others problem:

• in CircularGauge_Series unit the variable FrameElementPercents don't exist in the new Teechart and we have to create local variables.
  in TeeGDIPlusComponent unit the TeeGDIPlus1.AntiAliasText est de type TGDIPlusFontQuality and not a boolean. See below the interace of TeeGDIPLus

type
TGDIPlusFontQuality=(gpfBest, gpfDefault, gpfClearType, gpfNormal);

[Narcís]

Hi Gerard,

Code: Select all

In the Tee9new project I find others problem:

      in CircularGauge_Series unit the variable FrameElementPercents don't exist in the new Teechart and we have to create local variables.
      in TeeGDIPlusComponent unit the TeeGDIPlus1.AntiAliasText est de type TGDIPlusFontQuality and not a boolean. See below the interace of TeeGDIPLus

The demo works fine for us here using latest build available and Delphi XE. Can you please check that you installed correctly v2010.01.11004 in your IDE? That you have new version packages installed and that search paths point to the location where it is installed?

Thanks in advance.