Vektor Format anzeigen/drucken

[Gruber_Hans_12345]

Hallo

Ich muß mit Delphi ein (irgendeines) Vektorformat anzeigen können, dieses dann auf einen Canvas drucken können (somit auf Preview, Drcuker, PDF Export)

dazu brauche ich natürlich ein Format, das ich mit irgendwelchen tools (CorelDraw, inkscape und co) vernünftig erzeugen/konvertieren lässt und auch in delphi importieren lässt.
Es sollte Linien/kreise/freihand und co kennen, eingebettetet bilder (jpg/png) und texte

am anfang hätte ich es mit EMF/WMF probiert, da man das ja ganz gut öffnen kann in delphi, aber leider habe ich kein vernünftiges programm gefunden, das emf richtig erstellen kann (CorelDraw patzt da zb bei den Texten, die positioniert diese irgendwo - übereinander oder mit abstand, der nicht da ist)

jetzt bin ich auf der suche nach svg - sieht vom format her ganz gut aus, aber Importer/Viewer sind nicht so viele vorhanden, habe zwar einen gefunden,aber weiss nicht ob der nun gut ist oder nicht ....

Kennt wer bzw verwendet wer einen guten Importer für Vektor Grafik Format?

das ganze muß mit sourcecode verfügbar sein (darf natürlich was kosten, zwar nicht wie die sachen von leadtools (2k euro) aber "normale" preise sind ok)
für SVG habe ich die "CAD Import VCL" gefunden

[mkinzler]

Nimm SVG, dann kannst du notfalls auch mit einem Texteditor editieren.

[sakura]

Zitat von mkinzler:

Nimm SVG, dann kannst du notfalls auch mit einem Texteditor editieren.

Und welche gute Delphikomponente kann SVG importieren und anzeigen?

......

[xaromz]

Hallo,

Zitat von sakura:

Und welche gute Delphikomponente kann SVG importieren und anzeigen?

Ich! Hier! Hier!
Ist denn in diesem Forum immer noch nicht jedem bekannt, dass ich da ein paar SVG-Komponenten im Angebot habe? Ich muss wohl mehr Werbung machen...

Oh, ich sehe gerade, Du fragst nach guten Komponenten. Ich habe aber doch nur sehr gute. (War das jetzt schon genug Werbung?)

Gruß
xaromz

[Gruber_Hans_12345]

Zitat von xaromz:

Hallo,

Zitat von sakura:

Und welche gute Delphikomponente kann SVG importieren und anzeigen?

Ich! Hier! Hier!
Ist denn in diesem Forum immer noch nicht jedem bekannt, dass ich da ein paar SVG-Komponenten im Angebot habe? Ich muss wohl mehr Werbung machen...

Oh, ich sehe gerade, Du fragst nach guten Komponenten. Ich habe aber doch nur sehr gute. (War das jetzt schon genug Werbung?)

Gruß
xaromz

vielleicht könntest einen zweiten download anbieten mit einer guten Komponente

ne, habe zwar ne weile rumgesucht, sowohl hier als auch google, aber deine nicht gefunden, werde mir mal alles downloaden und angucken

auf den ersten blick siehts gut aus, auf den zweiten blick, funktioniert bei meinem test svg mit deinem testprogramm das Zoomen nicht ...

[xaromz]

Hallo,

Zitat von Gruber_Hans_12345:

auf den ersten blick siehts gut aus, auf den zweiten blick, funktioniert bei meinem test svg mit deinem testprogramm das Zoomen nicht ...

vergiss den Zoom. Das Demoprogramm ist schon etwas älter und hat so seine Probleme. In den Comments auf meiner Seite steht da noch was zu.

Gruß
xaromz

[Gruber_Hans_12345]

uihhh .... hmmm .... ab welcher delphi version läuft das den?

glaub das wird viel arbeit, das ganz auf d6 zu portieren .... (class in records)

[xaromz]

Hallo,

programmiert habe ich das in Delphi 2006. Aber TBounds ist die einzige Struktur, die Record-Funktionen benutzt. Dass lässt sich auch leicht mit entsprechenden Funktionen lösen.

Gruß
xaromz

[Gruber_Hans_12345]

ok, das hab ich mal

kannst mir noch kurz sagen, wie ich nun ein SVG, das eine A4 Seite darstellen soll richtig und positionsgetreu wieder auf den drucker bringe?

habe mal so angefangen ...

Delphi-Quellcode:

    if PrintDialog1.Execute then begin
        temp        := TPrinter.Create;
        //temp.PrinterIndex   := PrintDialog1.
        temp.BeginDoc;

        //x       := temp.Canvas.ClipRect;
        bounds.X        := 0;
        bounds.Y        := 0;
        bounds.Width    := temp.PageWidth;
        bounds.Height   := temp.PageHeight;
        
        SVGImage1.SVG.PaintTo(temp.Canvas.Handle, bounds, m, 0);
        temp.EndDoc;
        temp.Free;
    end;

(allerdings stimmt dann am ausdruck nicht wirklich was - ist viel zu klein .... )
in welchen einheiten braucht der die bounds?
zuwas kann ich der druck routine noch zusätzlich rechtecke mit angeben?

[Gruber_Hans_12345]

hmmm, gibt es bei Texte irgendetwas zu beachten?

habe mit Inkscape mal ein SVG erzeugt, die Linien bekomme ich rein, aber die Texte nicht?

werde es dann mal mit CorelDraw probieren

[edit]mit Coreldraw kommend ie Texte auch mal gut an (ob die 100% passen, werde ich erst sehen, wenn ich das drucken mal im griff habe)