AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi SynPdf - ungültige Gleitkommaoperation
Thema durchsuchen
Ansicht
Themen-Optionen

SynPdf - ungültige Gleitkommaoperation

Ein Thema von Bjoerk · begonnen am 13. Okt 2016 · letzter Beitrag vom 21. Okt 2016
 
Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: SynPdf - ungültige Gleitkommaoperation

  Alt 14. Okt 2016, 09:17
Ok. Ist bei mir genauso (hab PowerPdf gegen SynPdf ausgetauscht). Möchte das eigentlich nicht mehr rückgängig machen. Die 90 Grad Drehung lass ich dann lieber weg.
Sollen wir uns mal an die SynPdf Gemeinde wenden? Die ist für doch solche gravierenden Erweiterungen der Ansprechpartner und dein Chef hat dich auch wieder lieb?
Hallo

wir können versuchen das direkt by Synopse zu melden, ich denke aber das wir
damit keinen grossen Erfolg haben werden. Für den Anwendungsfall wie es dort eingesetzt
wird, funktioniert es ja wirklich gut.
Ich habe mich jetzt schon gute 2 Tage durch die Source und Die Adobe PDF Beschreibung gewühlt.
Mit dem aktuellen Design der SynPdf geht das nicht so einfach.
Was da im PDF Format wirklich fehlt ist eine komplettes setzen der Transformation.
Im Moment kann man nur verändern




Dann noch was habe ich gestern nicht aufgepasst
Du solltest für Manipulationen am WorldTransform aufpassen das die Werte auch stimmen

Da Du die ganze Transformation setzt solltest Du die eM11 und eM22 auf 1 setzen
Windows selber ist da zwar unempfindlich aber die Werte stimmen sonst nicht also:


Delphi-Quellcode:
procedure TFemGraphic.SaveToEmfFile(const FileName: string);
var
  MF: TMetafile;
  MC: TMetafileCanvas;
  XForm: tagXFORM;
begin
  if not FWantHaveRotate90 then
    SaveToDefaultEmfFile(FileName)
  else
  begin // -90°;
    MF := TMetafile.Create;
    try
      MF.Width := FMetafile.Height;
      MF.Height := FMetafile.Width;
      MC := TMetafileCanvas.Create(MF, 0);
      try
        XForm.eM11 := 1; //0; change
        XForm.eM12 := -1;
        XForm.eM21 := 1;
        XForm.eM22 := 1; // 0; change
        XForm.eDx := 0;
        XForm.eDy := FMetafile.Width;
        SetGraphicsMode(MC.Handle, GM_ADVANCED);
        SetWorldTransform(MC.Handle, XForm);
        MC.Draw(0, 0, FMetafile);
      finally
        MC.Free;
      end;
    finally
      MF.SaveToFile(FileName);
      MF.Free;
    end;
  end;
end;
Besser wäre folgendes dann ist es egal was vorher schon da war
Wie gesagt windows ist unempfindlich aber andere EMF Interpreter reagieren da schon mal komisch

Delphi-Quellcode:
procedure TFemGraphic.SaveToEmfFile(const FileName: string);
var
  MF: TMetafile;
  MC: TMetafileCanvas;
  XForm: tagXFORM;
  
begin
  if not FWantHaveRotate90 then
    SaveToDefaultEmfFile(FileName)
  else
  begin // -90°;
    MF := TMetafile.Create;
    try
      MF.Width := FMetafile.Height;
      MF.Height := FMetafile.Width;
      MC := TMetafileCanvas.Create(MF, 0);
      try
        XForm.eM11 := 1;
        XForm.eM12 := -1;
        XForm.eM21 := 1;
        XForm.eM22 := 1;
        XForm.eDx := 0;
        XForm.eDy := FMetafile.Width;
        SetGraphicsMode(MC.Handle, GM_ADVANCED);
        
        GetWorldTransform(MC.Handle, orgXForm);
        // So wird nur zusätzlich die Drehung eingebaut
        ModifyWorldTransform(MC.Handle, XForm, MWT_LEFTMULTIPLY);
        MC.Draw(0, 0, FMetafile);
         // und wieder zurück auf Normal
        ModifyWorldTransform(MC.Handle, XForm, MWT_IDENTITY);
      finally
        MC.Free;
      end;
    finally
      MF.SaveToFile(FileName);
      MF.Free;
    end;
  end;
end;
Fritz Westermann
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz