TeeChart (?? Double Post ??)

rbuser

I posted a first time but never saw the message, if you see it double (and
not after a few beers) Sorry.

I'm having a problem creating a kind of Chart in RB 7.03, T6.01 and D6.2 (D7
coming soon).

The CrossTab, and than DataSource solution is not supported in RB i'm
looking for a way to achieve this

This is my Data

Label Month Value
X1 1 10
X1 2 11
X1 3 15
X2 1 16
X2 2 9
......

I would like to have a Chart with multiple series, choosen by Column Label,
on X the month and on Y the Values.

In regular Delphi i could create the series by looping the dataset....

But, my report run with DADE and completelly RAP

Any suggestions ???

rbuser

If there is a double post, and there is a response, please post to this one
too, still can't see my first post on this issue.

nicocizik

Hi Harry,

From RAP, you have access to the pipelines being used in DADE so you could
loop through the dataset using the pipeline methods. As far as configuring
a chart in RAP, your options may be a little limited. The chart component
that runs in ReportBuilder is already a limited version of the original
TeeChart component. You may need to create a RAP passthru function to
accomplish the TeeChart tasks.

--

rbuser

That would be wonderfull news, i'll get into it.
But, i've never written passthru functions, so i'll might get back to you in
a few days.

rbuser

Nico,

I've tried out the demo, worked fine, now i'm creating my first derrived
draft version, quite similar, but when looking at the language tab i don't
see my category appearing and when i try to rap-use my function the
rap-compiler gives a undeclared identifier.

This is my code, and i've plave the Unit name in the first uses of the form
that contains the report.

unit SdwRapFuncs;

interface

uses
Forms, raFunc, ppRTTI;

type

TSdwRapTeeChartFunction = class (TraSystemFunction)
public
class function Category: String; override;
end;

TSdwRapTeeChartActualVsBudget1Function = class (TSdwRapTeeChartFunction)
public
procedure ExecuteFunction(aParams: TraParamList); override;
class function GetSignature: String; override;
class function HasParams: Boolean; override;
end;

const
TeeChartActialVsBudget1_Signature = 'procedure
TeeChartActialVsBudget(const Msg: string; Value: TObject);';

implementation

class function TSdwRapTeeChartFunction.Category: String;
begin
Result := 'SdwTeeChart';
end;

procedure TSdwRapTeeChartActualVsBudget1Function.ExecuteFunction(aParams:
TraParamList);
var
lsResult: String;
begin
lsResult := Application.Exename;
SetParamValue(0, lsResult);
end;

class function TSdwRapTeeChartActualVsBudget1Function.GetSignature: String;
begin
result := 'function TeeChartActualVsBudget1: string;';
end;

class function TSdwRapTeeChartActualVsBudget1Function.HasParams: Boolean;
begin
result := False;
end;

initialization

raRegisterFunction('TeeChartActualVsBudget1',
TSdwRapTeeChartActualVsBudget1Function);

finalization

raUnRegisterFunction('TeeChartActualVsBudget1');

end.

rbuser

Totally no problem with D or RB but in most of the cases i can't reply to
what a RB-Support guy posts.
My outlook express says can not resolve .... (... being the name of the
newsgroup).
Any idea what this might be ?????

rbuser

Sorry, its working at runtime, how can i make this work at design-time, must
i create a own package or include in into a existing Rb package ???

nicocizik

Hi Harry,

Yes, if you would like your passthru function to compile at design time, you
will need to create a designtime package that contains the passthru code
(hopefully in its own class and .pas file) and requires the necessary RB
packages such as rbRCL and rbRAP.

--