chart bez dannich
Perestal rabotat chart w novoj wersii FR3
procedure TForm1.Button1Click(Sender: TObject);
var myChartView:TfrxChartView;
i:integer;
begin
frxReport1.LoadFromFile( ExtractFilePath(Application.EXEName)+'test.fr3');
myChartView:=TfrxChartView.Create(frxReport1);
myChartView.Chart.Assign(chart1);
myChartView.SetBounds(0,0,500,500);
myChartView.Parent:=TFRXComponent(frxReport1.FindObject('ReportTitle1'));
frxReport1.ShowReport;
end;
ChartView otrisowiwaet no bez dannich. Help!
procedure TForm1.Button1Click(Sender: TObject);
var myChartView:TfrxChartView;
i:integer;
begin
frxReport1.LoadFromFile( ExtractFilePath(Application.EXEName)+'test.fr3');
myChartView:=TfrxChartView.Create(frxReport1);
myChartView.Chart.Assign(chart1);
myChartView.SetBounds(0,0,500,500);
myChartView.Parent:=TFRXComponent(frxReport1.FindObject('ReportTitle1'));
frxReport1.ShowReport;
end;
ChartView otrisowiwaet no bez dannich. Help!
Комментарии
chto ge izmenilos
A: Это лучше всего сделать с помощью объекта TfrxPictureView. Поместите пустой
объект в отчет и в TfrxReport.OnBeforePrint напишите:
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
if Sender.Name = 'Picture1' then
TfrxPictureView(Sender).Picture.Assign(
Chart1.TeeCreateMetafile(False,
Rect(0, 0, Round(Sender.Width), Round(Sender.Height))));
end;
Hotelos konechno ispolsowat wosmognosti Disignera, chtobi isbawitsja ot woprosow tipa "kak ismenit to ili eto ", no widno etim nikto ne sanimalsja.
Hotja w prinzipe poluchit polnocennij ChartView dynamicheski dolgno bit wosmogno.