chart bez dannich

Mickle

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!

Mickle

w versii 2.4 bila Chart.AssignChart() function;

chto ge izmenilos ???

AlexTZ

Q: Подскажите, пожалуйста, а как можно поместить в отчет Chart из формы Delphi?
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;

Mickle

Spasibo sa podskasku!

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.