BorlandTalk.com

adam brett · Guest

Is anyone using Fast Reports 3 in D2007 with TeeChart? I am & there seems to
be some breakdown between the chart tool & fast reports.

In the report designer you can usually add a chart object & then design it.
You double click on an "add series" button and possible TeeCharts appear in
a Form.

Now I get nothing.

In the Fast Report code (frxChartEditor) there is a reference to
"TeeGally.pas" (I think this is the "Tee Chart Gallery" form) and a method

CreateNewSeriesGallery(nil, nil, FChart.Chart, False, False, ind);

CreateNewSeriesGallery is definitely in TeeGally.pas ... but as a standard
user of TeeChart I only have TeeGally.dcu in my D6 folders ... there is no
equivalent in the D2007 folders ...

I am guessing that TeeChart have moved / renamed this method in the new
version ... & I can see that the chart series look different, when I design
them within Delphi, which confirms my suspicions.

Anyone know a fix??

Adam Brett

David Berneda · Guest

Hi Adam

Michael Philippenko · Guest

Dear David Berneda!

Thank you for fast answer.

Can I place your answer with link to FAQ?

David Berneda wrote:

Michael Philippenko · Guest

Dear Adam Brett!

You can use FastReport 4 for Delphi 2007.

Or use this solution:

Adding support of D2007 in FastReport 3

----------------------------------------------------------
File frx.inc
----------------------------------------------------------

- Find string:
// Uncomment the following line if you don't want to include component
editors

- Add before:

{$IFDEF VER185} // Delphi 11.0
{$DEFINE Delphi4}
{$DEFINE Delphi5}
{$DEFINE Delphi6}
{$DEFINE Delphi7}
{$DEFINE Delphi9}
{$DEFINE Delphi10}
{$DEFINE Delphi11}
{$DEFINE RICHBCB}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_DEPRECATED OFF}
{$WARN UNIT_DEPRECATED OFF}
{$ENDIF}

{$IFDEF VER190} // BDS 2007
{$DEFINE Delphi4}
{$DEFINE Delphi5}
{$DEFINE Delphi6}
{$DEFINE Delphi7}
{$DEFINE Delphi9}
{$DEFINE Delphi10}
{$DEFINE Delphi11}
{$DEFINE RICHBCB}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_DEPRECATED OFF}
{$WARN UNIT_DEPRECATED OFF}
{$ENDIF}

----------------------------------------------------------
File frxDesgn.pas
----------------------------------------------------------
- Find string:
DataLV.LargeImages := ObjectImages;

- Add after:

{$IFDEF Delphi11}
StandardTB.Transparent := False;
AlignTB.Transparent := False;
TextTB.Transparent := False;
FrameTB.Transparent := False;
ExtraToolsTB.Transparent := False;
ObjectsTB1.Transparent := False;
{$ENDIF}

----------------------------------------------------------
File frxChartEditor.pas
----------------------------------------------------------
- Find code:

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus, ExtCtrls, Buttons, frxClass, frxChart, frxCustomEditors,
frxCtrls, frxInsp, frxDock, TeeProcs, TeEngine, Chart, Series, ComCtrls,
ImgList, TeeGally
{$IFDEF Delphi6}
, Variants
{$ENDIF};

- Replace on:

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus, ExtCtrls, Buttons, frxClass, frxChart, frxCustomEditors,
frxCtrls, frxInsp, frxDock, TeeProcs, TeEngine, Chart, Series, ComCtrls,
ImgList
{$IFDEF Delphi11}
, TeeGalleryAlternate
{$ELSE}
, TeeGally
{$ENDIF}
{$IFDEF Delphi6}
, Variants
{$ENDIF};

- Find code:
procedure TfrxChartEditorForm.AddBClick(Sender: TObject);

- Replace this procedure entry on:

procedure TfrxChartEditorForm.AddBClick(Sender: TObject);
var
s: TChartSeries;
n: TTreeNode;
b: Boolean;
ind: Integer;
{$IFDEF Delphi11}
TeeGalleryForm: TTeeGalleryForm;
ChartSeriesClass : TChartSeriesClass;
TeeFunctionClass : TTeeFunctionClass;
{$ENDIF}
begin
ind := 0;
{$IFDEF TeeChartStd7}
s := CreateNewSeriesGallery(nil, nil, FChart.Chart, False, False, ind);
{$ELSE}
{$IFDEF Delphi11}
s := nil;
TeeGalleryForm := TTeeGalleryForm.Create(nil);
TeeGalleryForm.Position := poScreenCenter;
if TeeGalleryForm.ShowModal = mrOk then
if
TeeGalleryForm.ChartGalleryPanel1.GetSeriesClass(ChartSeriesClass,
TeeFunctionClass, ind) then
s := CreateNewSeries(nil, FChart.Chart, ChartSeriesClass,
TeeFunctionClass);
{$ELSE}
s := CreateNewSeriesGallery(nil, nil, FChart.Chart, False,
False{$IFNDEF TeeChart4}{$IFDEF TeeChartPro}, ind{$ENDIF}{$ENDIF});
{$ENDIF}
{$ENDIF}
if s = nil then
Exit;
FChart.SeriesData.Add;
with FChart.Chart do
begin
b := not (s is TPieSeries);
View3DOptions.Orthogonal := b;
AxisVisible := b;
View3DWalls := b;
end;
n := ChartTree.Items.AddChild(ChartTree.Items[0],
GetGallerySeriesName(s));
n.ImageIndex := 0;
n.SelectedIndex := 0;
n.StateIndex := 0;
ChartTree.Selected := n;
{$IFDEF Delphi11}
TeeGalleryForm.Free;
{$ENDIF}
ChartTreeClick(nil);
end;

- You should compile and install all packages manually after.

adam brett wrote:

David Berneda · Guest

Hi Michael
Sure ! Thanks a lot for your help.
regards
david
www.teechart.com

"Michael Philippenko" <michael@fast-report.com> wrote in message
news:463aecf7$1 (AT) newsgroups (DOT) borland.com...

gilvanj · Guest