Beiträge von skoschke

It works!
For other with the same Problem:

First set Row and then Col!

Ciao
Stefan

I found this code to create a nested Table:

WPRichText1.TableAdd(6,3,[wptblActivateBorders, wptblPlaceCursorInLastCell]); 
WPRichText1.TableColNumber := 1; 
WPRichText1.TableRowNumber := 0; 
WPRichText1.TableAdd(2,2,[wptblActivateBorders, wptblAllowNestedTables, wptblPlaceCursorInLastCell]);

but the nested table is inserted into col 0!
if i use WPRichText1.TableColNumber := 3 the nested table always inserted at col 0!

WPRichText1.TableRowNumber works fine!

i use TWPRichText version 7.33.1

What can i do?

Ciao
Stefan

Hallo,

wenn ich in eine Zelle einer per Code erzeugten Tabelle klicke, wird die gesamte Tabellenzeile grau hinterlegt, klicke ich in eine andere Zelle wird deren Zeile ebenfalls grau bis dann alles grau ist!
Wie kann ich das verhindern?

Ciao
Stefan

Hallo,

der Text im TWPRichtext ist ja RTF.
Nun habe ich wie bei einem Briefkopf oben die Adresse, Datum etc. und danach kommt eine Tabelle.

Wird oben Text eingetippt dann verschiebt sich die Tabelle weiter nach unten.
Das möchte ich aber nicht, es soll die Position der Tabelle erhalten bleiben.

Gibt es einen Weg die Tabellenposition "festzuschreiben" oder den Adressblock oben wie ein Label festzupinnen mit unveränderlicher Größe?

Ciao
Stefan

Vielen Dank, das hat mir sehr geholfen!

Ciao
Stefan

Thank you, i found it!

Ciao
Stefan

Hi,

is there a way to disable resizing from columns in a table by the user (drag vertically lines with mouse)?

Ciao
Stefan

Hi,

is there a way to undo MegeCells?
SplitCells does not work Correct!

Ciao
Stefan

in my own Component (from TWPRichText) i use

procedure TMyWPRichText.TableAddCellEvent(RowNr, ColNr: Integer;
  par: TParagraph);
begin
  // 1  based !
  if ColNr = 1 then begin
    par.SetText(RowNr.ToString);
  end;
end;

but the text comes in all Cells!

What can i do?

Ciao
Stefan

Hallo,

ich möchte per Code Zellenbereiche selektieren und mergen.
Mit der Maus funktioniert das aber ich finde keine Methode das per Code zu tun?

Danke für Tips

Ciao
Stefan

eben erst gelesen, vielen Dank!

Das werde ich sofort ausprobieren!

Ciao
Stefan

Edit:
Was ist InvoiceFile und was SchemaXML?
Ich glaube ich muss auf das Angebot mit dem Zusenden des Beispiels zurückgreifen ;-)

Zitat von wpsupport

The problem has been fixed in WPTools 8.

No fix for version 7?

To buy a new version for fixed errors?

What price for update?

Ciao
Stefan

What can i do to load a existing PDF/A file and then add another pdf file as Watermark at each page?

Ciao
Stefan

Hallo,

ich habe die Implementierung der ZUGFeRD - Einbettung einer Datei (in diesem Fall die ZUGFeRD XML) aus der Doku verwendet, leider melden beide verwendeten Testportale dass die Einbettung nicht korrekt ist:

(Zeilennummer) - Fehler / Hinweise
******************************************************
(0000) ZUGFeRD (PDF-Metadaten) Dateiname ist nicht korrekt.
(0000) ZUGFeRD (PDF-Metadaten) sind nicht vollständig.
(0000) Es konnte kein XML aus dem ZUGFeRD PDF extrahiert werden.

Benutzt habe ich folgenden Code:

procedure TForm1.Button2Click(Sender: TObject);
var
  sEXEPath: string;
  sXMLFullPath: string;
  sPDFFullPath: string;
  PDF: TWPPDFPrinter;
  bAttachedOK: boolean;
begin
  sEXEPath := ExtractFilePath(Application.ExeName) + '';
  sXMLFullPath := 'c:\temp\ZUGFeRD-invoice.xml';
  sPDFFullPath := 'c:\temp\RE_' + FormatDateTime('dd_mm_yyyy___hh_nn_ss',
    Now()) + '.pdf';
    WPDF_Start('*********', '************');
    PDF2.Filename := sPDFFullPath;
    PDF2.PDFAMode := wpdfaLevel3B;
    PDF2.PageMode := wpUseThumbs;
    PDF2.FontMode := wpEmbedType3;
    PDF2.BeginDoc();
    try
      // Add XML-Attachment
      bAttachedOK := PDF2.AddFileAttachment(ExtractFileName(sXMLFullPath),
        // Shown name
        'ZUGFeRD invoice in XML format', // Description
        sXMLFullPath, // FileName
        'text/xml', // MimeType
        0 // Modified Date
        );
      if bAttachedOK then
        showmessage('AddFileAttachment: OK')
      else
        showmessage('AddFileAttachment: ERROR');
      // <<<< :-( every time this message, but why?
      // Add Page with Text
      PDF2.StartPage(800, 1000, 72, 72, 0);
      PDF2.Canvas.Font.Name := 'Arial';
      PDF2.Canvas.Font.Size := 20;
      PDF2.Canvas.TextOut(10, 10, 'ZUGFeRD-Test (see XML attachment)');
      PDF2.EndPage();
    finally
      PDF2.EndDoc();
    end;
  showmessage('PDF file created' + #13#10 + sPDFFullPath);
end;

Dabei ist PDF2 ein TWPPDFExport auf dem Formular.

bAttachedOK ist true (nach einer Änderung der WPPDFR1.pas)

Gibt es hierfür bereits Lösungsansätze?

Ciao
Stefan

Hi,

Today I have the same problem, is there a solution for this?

Ciao
Stefan