victor2023
18-03-2008, 03:29:20
hola que tal, espero y me puedan ayudar, lo que pasa es que quiero pasar el tchart a rave report, encontre este codigo en nevrona pero no lo he podido echar andar y no tengo idea por que, o como podria mandar el tchart a una hoja de excel.
uso delphi 7 y el rave report que trae por default, el link de este codigo esta
en http://www.nevrona.com/Default.aspx?tabid=73
uses
RPTChart;
procedure TForm1.RvCustomConnection1GetCols(
Connection: TRvCustomConnection);
begin
with Connection do begin
// PieChart is the name of the DataField that you will use in Rave
WriteField('PieChart', dtGraphic, 30, '', '');
end; { with }
end;
procedure TForm1.RvCustomConnection1GetRow(
Connection: TRvCustomConnection);
begin
// Chart is the name of the TChart component you are wanting to print
WriteChartData(Connection, Chart);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
RvProject1.Execute;
end;
uso delphi 7 y el rave report que trae por default, el link de este codigo esta
en http://www.nevrona.com/Default.aspx?tabid=73
uses
RPTChart;
procedure TForm1.RvCustomConnection1GetCols(
Connection: TRvCustomConnection);
begin
with Connection do begin
// PieChart is the name of the DataField that you will use in Rave
WriteField('PieChart', dtGraphic, 30, '', '');
end; { with }
end;
procedure TForm1.RvCustomConnection1GetRow(
Connection: TRvCustomConnection);
begin
// Chart is the name of the TChart component you are wanting to print
WriteChartData(Connection, Chart);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
RvProject1.Execute;
end;