emf drehen

[FAlter]

Hi,

ich hab zwar mal was zum EMF gedreht zeichnen gefunden, aber das dann auf ein neues EMF zu zeichnen ist nicht gerade ideal Suche also auch nach einer Lösung zu TMetafile drehen.

180° geht ganz einfach mit Canvas.StretchDraw und oben/unten sowie links/rechts vertauschhen im Rechteck.

Ungefähr so ähnlich:

Delphi-Quellcode:

        //TODO
        with TMetafileCanvas.Create(Graphic, 0) do
        try
          dc:=Handle;
          SetGraphicsMode(DC, GM_ADVANCED);
          XFORM.eM11 :=  0;
          XFORM.eM22 :=  0;
          XFORM.eM12 := -1;
          XFORM.eM21 :=  1;
          XFORM.eDX  := H2;
          XFORM.eDY  := W2;
          SetMapMode(dc, MM_TEXT);
          SetWorldTransform(DC, XFORM);
          Draw(-W2, -H2, Graphic);
        finally
          Free;
        end;

Wie gesagt, so toll funktioniert es nicht. Ich beobachte sogar Verzerrungen wenn eine bereits gedrehte Metafile nochmal gedreht wird.

[edit] Und selbst damit gehen nur vielfache von 90° [/edit]

Mfg
FAlter