Beiträge von Mam

    Hallo,

    ein Kunde machte mich darauf aufmerksam, dass meine Anwendung beim Erstellen von PDF-Dateien mit wPDF (Version 3.05 untter BDS 2006) zusätzlich zur PDF-Datei Dateien nach dem Schema metax.EMF in C:\Temp\wpdftest erstellt.

    Ist dies normal, kann ich das abschalten oder ist das ein Fehler?

    Vielen Dank für die Antwort,
    Mathias Gerlach

    Zwischenzeitlich ist es mir gelungen, mit...

    Code
    MergeField := Paragraph.AppendNewObject(wpobjMergeField, True, False, CharAttr);
    MergeField.Name := 'Nr';
    MergeField.Params := 'Nr';
    MergeField := Paragraph.AppendNewObject(wpobjMergeField, True, True, CharAttr);
    MergeField.Name := 'Nr';
    MergeField.Params := 'Nr';

    ...das MergeField zu erstellen und auch mittels MergeText zu befüllen.

    Allerdings erscheint (im Gegensatz zur Nutzung von InputMergeField) kein DisplayText zwischen den Markern des MergeFields.
    Lt. Doku verwendet WPTools den Inhalt von Params als DisplayField.

    Was mache ich noch falsch?

    Hallo,

    WPTOols 5.211 unter Delphi 2006.

    Ich möchte ein MergeField programmatisch in den Header eintragen. Dies mache ich so:

    Code
    Paragraph := WP.HeaderFooter.Get(wpHeader, wpraOnAllPages).FirstPar;  WP.WritingAttr.Clear;  CharAttr := WP.WritingAttr.CharAttr;  Paragraph.ClearText;  Paragraph.ASet(WPAT_Alignment, Integer(paralLeft));  Paragraph.Insert(0, 'Berichtsnummer: ', CharAttr);  MergeField := Paragraph.InsertNewObject(MaxInt, wpobjMergeField, False, False, CharAttr);  MergeField.Name := 'Nr';

    Später möchte ich das MergeField mit folgenden Aufruf füllen:

    Code
    WP.MergeText('Nr', True);

    Die Ereignisbehandlungsroutine:

    Code
    procedure TFrmEditor.WPMailMergeGetText(Sender: TObject; const inspname: string;
      Contents: TWPMMInsertTextContents);
    begin
      if SameText(inspname, 'Nr')
      then Contents.StringValue := 'was_auch_immer';
    end;

    Leider erscheint das MergeField nach dem Einfügen nicht oder zumindest ohne Text im Header. Auch der o.g. Aufruf von MergeText füllt das MergeField nicht.

    MergeFields die ich im Body mittels WP.InputMergeField('Nr', 'Nr') einfüge werden demgegenüber korrekt gefüllt.

    Ich nehme an, dass es mir mit o.g. Code nicht gelingt, den FieldName und den DisplayName des MergeFields korrekt zu setzen. Oder ist es ein anderes Problem?

    Was mache ich falsch?

    Vielen Dank für Ihre Hilfe
    Mathias Gerlach

    Hallo,

    seit dem Wechsel von WPTools 4 auf das aktuelle Release von WPTools 5(Delphi 2006 Prof.) gibt es Probleme auf mehreren Druckern bezüglich der Seitenausrichtung (Hochformat/Querformat). Einige Drucker drucken (egal was man einstellt) nur noch im Hochformat, so z.B. mein Eltron Etikettendrucker. Mit Version 4.0 gab es mit identischen Einstellungen
    kein Problem mit Querformat.

    Evt. muss ich in WPTools 5 etwas besonderes konfigurieren oder es liegt ein Fehler vor?

    Im Voraus vielen Dank für Ihre Hilfe,
    Mathias Gerlach

    Hallo,

    ich verwende WPTools 5.0 Release 21.1 unter Delphi 2006 (Deutsche Version) und erhalte beim Aufruf des TWPParagraphBorderDlg die Fehlermeldung "Klasse TBevel nicht gefunden".

    Das ganze passiert in der Zeile inherited Create(aOwner) von TWPShadedForm.Create.

    Wie kann ich dieses Problem beheben!

    Vielen Dank für Ihre Hilfe,
    Mathias Gerlach

    Hallo Herr Ziersch,

    wie kann ich (WP-Tools 4) programmseitig (also ohne Druckerdialog) festlegen, mit welchem Drucker gedruckt werden soll.

    Den Defaultdrucker per Code umzustellen, dann drucken nach dem Drucken wieder den Defaultdrucker zurücksetzen, ist keine brauchbare Lösung.

    Danke,
    Mathias Gerlach

    Hallo,

    ich habe festgestellt, dass bei Verwendung von Aufzählungen der Text der ersten Zeile hinter dem Aufzählungszeichen weiter rechts
    beginnt als der Text in der zweiten Zeile.
    Genauer: In der ersten Zeile beginnt der Text bei ca. 0,7cm und in der zweiten schon bei 0,3cm.
    Dadurch ergibt sich ein unschönes Bild, was man nur durch manuelles Verändern der Einrückung im Ruler verändern kann.

    Das Problem tritt komischerweise nur bei Aufzählungen aber nicht bei Nummerierungen auf.

    Ist es möglich, das Problem zu beheben?

    Gruß
    Mathias

    Zitat von wpsupport

    Das ist möglich - aber bitte nur einfache #13 verwenden die dann als NL verwendet werden.

    Für echte absätze muss man RTF verenenden, also
    {\rtf1\ text text \par nächste Zeile }

    Beides habe ich versucht:
    a) Nur #13 anstatt #13#10 zu verwenden: Dann erscheint #13 als Sonderzeichen.
    b) Der RTF-Text wird in der Vorschau leider nicht interpretiert.

    Zitat von wpsupport

    Das evtl mit den insertpoints zu tun. Sind diese sichtbar? InsertPointTextAttr

    Wie in meinem ersten Posting geschrieben, verwende ich TextFields, weshalb wahrscheinlich FieldObjectTextAttr und nicht InsertPointTextAttr das richtige property sein müsste (wenn ich das richtig verstanden habe).
    FieldObjectTextAttr.Hidden war bei mir bisher False.

    Jetzt habe ich den Aufruf der Vorschau folgendermaßen implementiert:

    FCalculateFields := True;
    Edt.FieldObjectTextAttr.Hidden := True; // Neu
    try
    DlgPreview.Execute;
    finally
    FCalculateFields := False;
    Edt.FieldObjectTextAttr.Hidden := False; // Neu
    Edt.Refresh;
    end;

    FCalculateFields dient nur dazu, OnTextFieldGetText ein- und auszuschalten.

    Durch den Einbau der mit //Neu gekennzeichneten Zeilen bessert sich die Ausrichtung der eingesetzten TextFields. Jetzt sind Vorschau und Druck fast identisch.
    Das Problem könnte man also als gelöst ansehen, aber irgendwie ist das ganze noch wacklig, denn einige Textfields sind noch nicht 100% ausgerichtet und nach dem Schließen der Seitenvorschau sind die TextFields im WPDBRichText teilweise etwas verschoben.
    Ich kann momentan damit leben, kann aber bei Interesse Programm und Beispieldaten bereitstellen, mit denen Sie die verbleibenden Probleme einmal nachvollziehen können.

    Hallo,

    ich habe zwei Fragen zur Nutzung von TextFields mit WPTools (Version 4.21 für D7):

    1) Ist es möglich, einem TextField in OnTextFieldGetText einen mehrzeiligen Text zu übergeben? - Wenn ich dies tue, so werden Zeilenumbrücke (#13#10) im Text als Sonderzeichen dargestellt und kein Zeilemumbruch durchgeführt.

    2) In der Druckvorschau (WPPreviewDlg) werden rechtsbündige Tabulatoren bei Verwendung von TextFields erst dann korrekt dargestellt, nachdem man aus der Druckvorschau einmal druckt. Kann man irgendeine Prozedur vor oder nach Aufruf der Druckvorschau aufrufen o.Ä. um die Darstellung ohne Drucken zu korrigieren?

    Im Voraus vielen Dank für Ihre Hilfe, Gruß
    Mathias

    Hallo Herr Ziersch,

    ich habe ein Problem it wPdf in Verbindung mit WPTools (beides in der aktuellsten Fassung unter Delphi 7): Die Erzeugung eines PDFs funktioniert, allerdings fehlt bei Tabellen die untere horizontale Linie.
    Wie kann ich dies beheben?

    Im Voraus Danke für Ihre Antwort,
    Mathias