Kopiowanie bitmapy TChart do TQRImage

0

Witam

Mam wykres graficzny zrobiony na TChart i chce go wstawić jako bitmapę
do komponentu TQRImage jest to komponent z pakietu QReport oba komponenty
stanowią całość z Delphi7.

tak nie działa:

QRImage1.Picture.Bitmap.Assign(Chart1.Canvas.Brush.Bitmap);

inne pomysły tez nie:

procedure TForm1.Button4Click(Sender: TObject);
var
rysunek:TBitmap;
begin
rysunek:=nil;
rysunek:=TBitmap.Create;
try
rysunek:=Chart1.Canvas.Brush.Bitmap;
QRImage1.Canvas.Brush.Bitmap.Assign(rysunek);
finally
rysunek.Free;
end;
end;
end.

jak to zrobić?

0

tak nie działa:

Co znaczy nie działa???

1
  1. Chart1.Canvas.Brush.Bitmap nie zwiera wykresu.
  2. Nie znam TQRImage.
  3. Na zwykłym TImage robi się tak
with Image1 do Chart1.Draw(Canvas,ClientRect);

Dodatkowo wykres zostanie dopasowany do rozmiaru ClientRect.

0

Witam

Komponenty TQRImage i TImage są prawie identyczne.
Przeznaczeniem TQRImage jest prezentacja grafiki na podglądzie wydruku drukarki.

Moim celem jest właśnie umieszczenie grafiki TChart, jako całości do TQRImage dokumentu
widocznego w podglądzie wydruku.

Zastosowałem ten przykład:

with Image1 do Chart1.Draw(Canvas,ClientRect);
 

Zadziałał prawidłowo, ale tylko za pierwszym razem.
Ponowne wywołanie tego kodu po zmianach na
wykresie Chart1 nie kopiuje już zmodyfikowanego wykresu????

Znalazłem... więc coś takiego:

Chart1.DrawToMetaCanvas(Canvas,ClientRect);
 

To kopiuje wielokrotnie, pytanie czym różnią się te metody od siebie?
Zastanawiam się czy ich zastosowanie do takiego kopiowania jest prawidłowe?

1 użytkowników online, w tym zalogowanych: 0, gości: 1