Druckvorschau für EMF Formate + Hintergrundrahmen

[norbertd]

So, jetzt hab ich die vergebliche Suche im Internet satt!!

Hier ein Code zur Erzeugung einer Druck-Vorschau für das EMF Dateiformat.

if FileExists(sMetaPathFileName) then begin
//MetaFile Vorschau in Image erzeugen
tPIC := tPicture.Create;
//MetaFile Objekt erstellen
tEMF := TMetaFile.Create;
tEMC := tMetaFileCanvas.Create(tEMF, 0); //ggf. zum Transformieren des Inhalts von tEMF
SetMapMode(tEMC.Handle, MM_HIMETRIC);
tEMF.Handle := ReadMetafileFromFile(sMetaPathFileName);
SetMapMode(tEMF.Handle, MM_HIMETRIC);
//Die Vorschau anzeigen
PreviewMetaFile(tEMF);
end;

Hier noch zur Verdeutlichung die Preview Prozedur:

procedure TImageForm.PreviewMetaFile(tEMF : TMetafile);
//Meta Datei zoombar anzeigen.
var
ScaleX, ScaleY, Scale, cx, cy : extended;
begin
if tEMF.Handle = 0 then
raise EInvalidGraphic.Create ('hMetafile = 0');
//Metafile in die Scrollbox hineinskalieren
ScaleX := tEMF.MMWidth / ScrollBox1.ClientWidth / 25.4;
ScaleY := tEMF.MMHeight / ScrollBox1.ClientHeight / 25.4;
Scale := Max(ScaleX, ScaleY); //Der größere Wert ist maßgeblich
//Metafile zu tPIC kopieren
tPIC.Assign(tEMF);
//Trackbar zum Auf- Abzoomen
tPIC.Metafile.Width := trunc(tEMF.Width / TrackBar1.Position * Trackbar1.Max / 2 / Scale);
tPIC.Metafile.Height := trunc(tEMF.Height / TrackBar1.Position * Trackbar1.Max / 2 / Scale);
Image1.Picture := tPIC;
end;

So weit, so gut. Zoomen läuft perfekt.

Das eigentlich banale Problem, das sich mir stellt, besteht darin, daß ich, nachdem das EMF Metafile zoombar geladen ist, die Positionierung in der Druckvorschau auf der druckbaren Fläche vornehmen muß. Es geht mir nicht um die dazu notwendigen Alogarithmen, sondern ganz einfach darum, wie ich es mit der Syntax von Delphi 7 schaffe, einen Hintergrund für das EMF zu erzeugen, der die Blatt-Schnittkante und die druckbare Fläche darstellt, und auf der ich das Metafile (tEMF) positionieren, skalieren und drehen kann. Ich habe dafür oben schonmal das Canvas Objekt (tEMC) angelegt.
Der Code für die Behandlung von Bitmaps liegt mir für alle diese Fälle vor; d.h., ich suche nur vergeblich nach einer Version für EMF Formate, die NICHT zuvor in Bitmaps umgewandelt werden dürfen.

Ich habe bereits versucht, zwei EMFs mit Image1 und Image2 transparent übereinanderzulegen. Dies funktioniert jedoch nicht, warum auch immer. Anscheinend existiert kein Befehl für transparente Image Objekte. Ich kann sowas nur mit der Windows API. Da ich es aber mit Delphi umsetzen möchte, kann ich nicht anders als hier zu fragen. Wichtig ist, daß die EMF Inhalte im EMF-Format bleiben, auch bei den hinterlegten Rahmen; denn diese müssen zumindest optional zusammen mit der EMF Zeichnung ausgedruckt werden können. In letzterem Fall müssen die Inhalte beider Images vorher zusammengeführt werden.