[Delphi] Copy to clipboard 2 TChart's

[ArieProductions]

Ik heb twee TChart objecten, allebei met een mooi grafiekje.
Maar nu wil ik ze beide in een Metafile naar het clipboard copieeren.

Kan natuurlijk eerst beide TCharts overzetten naar een bitmap, maar dan verlies je kwaliteit wanneer je bijvoorbeeld in 'Word' het plaatje veranderd.

Mogelijke Bitmap achtige oplossing:

code:

uses Clipbrd;
...

procedure ConvertGraphsToBitmap(aChart1, aChart2: TChart);
var
  R1, R2 : TRect;
  Bitmap : TBitmap;

begin
  Bitmap := TBitmap.Create;
  Try
    R1 := Rect(0, 0, aChart1.width , aChart1.Height);
    R2 := Rect(0, aChart1.Height, aChart2.width ,  aChart1.Height + aChart2.Height);

    Bitmap.Width := aChart1.width;
    Bitmap.Height := aChart1.Height + aChart2.Height ;

    aChart1.Draw( Bitmap.Canvas , R1 ) ;
    aChart2.Draw( Bitmap.Canvas , R2 ) ;

    ClipBoard.Assign(Bitmap);
  Finally
    Bitmap.Free;
  End;

end;

Dus zoek zoiets alleen dan voor EMF type file