Beiträge von pjcunningham

Hello All,

The following RTF chunk causes the TParagraph.Trim method to enter an infinite loop.

{\rtf1\ansi\deff0\uc1\ansicpg1250\deftab720{\fonttbl{\f0\fnil\fcharset1 Arial;}{\f1\fnil\fcharset238 Arial;}{\f2\fnil\fcharset2 Wingdings;}{\f3\fnil\fcharset2 Symbol;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red128\green128\blue0;}\wpprheadfoot1\paperw12240\paperh15840\margl1880\margr1880\margt1440\margb1440\headery720\footery720\pgbrdrhead\pgbrdrfoot\pgbrdropt32\endnhere\sectdefaultcl{\*\generator WPTools_6.060;}{\stylesheet{\s1\li0\fi0\ri0\sb0\sa0\ql\vertalt\fs24 Normal;}{\s2\li0\fi0\ri0\sb0\sa0\ql\vertalt\fs22 Default Paragraph Font;}}{\tblstart1{\trowd\trleft0\trgaph108\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\trbrdrl\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trbrdrt\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrv\brdrs\brdrw10\trbrdrh\brdrs\brdrw10\trftsWidth3\trwWidth14148\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw45\clbrdrl\brdrs\brdrw10\clshdnil\clftsWidth3\clwWidth4580\clvertalt\cellx4580\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\wpparflg32\clshdnil\plain\f1\fs16 - the SNSA's internal procedures OP 5.3, OP 5.5\cell\row}\tblend1\pard\plain\par}}

The chunk came from a Word document that was pasted into a WPTools RTF RichEdit and then stored in database.

WPTools 6.12.

Regards, Paul

Test Code

program Project1;


{$APPTYPE CONSOLE}


uses
  Classes,
  WPCTRMemo,
  WPRTEDefs,
  SysUtils;


var
Editor : TWPCustomRtfEdit;
Stream : TFileStream;
Para : TParagraph;
begin
  try
    Editor := TWPCustomRtfEdit.CreateDynamic;
    try
      Stream := TFileStream.Create('c:\temp\test.rtf', fmOpenRead);
      try
        Para := Editor.ActivePar;
        Para.LoadFromStream(Stream);
        Para.Trim; // <--- Loop here
        Editor.ReformatAll();
        Editor.SaveToFile('c:\temp\output.rtf');
      finally
        Stream.Free;
      end;
    finally
      Editor.Free;
    end;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Hello All,

Is there an easy way of stripping out tables from RTF snippets ?

I'm using TParagraph.LoadFromString to load RTF chunks, but some of the chunks have tables (pasted from Word) and I just want the text.

Regards, Paul

Hello All,

Is it possible to use AddDataFile and then reference the embedded file in multiple locations throughout the RTF file, and ultimately in a PDF Export ?

What I don't want to do is embed one file many times.

Regards,
Paul

Hello Julian,

Thanks, it is now working.
Paul

Hello Julian,

I do not understand your reply. The AddDataFile is being used before the exporting has begun, the RTF file already has the embedded data.

Did you see the line ?

Editor.SaveToFile('c:\embed.rtf'); // This has the embedded manual

The latest manual has the statement; "Using WPTools 6 and wPDF V3 it is now possible to add an object to the PDF file which holds embedded data.", and has some example code very similar to what I have posted.

Cheers,
Paul

Hello Julian,

Having trouble getting embedded data in a PDF. I can embed data in an RTF file using AddDataFile method, but when exporting using TWPPDFExport there is no embedded data.

Regards,
Paul Cunningham

Test console code.

program EmbedPdf;


{$APPTYPE CONSOLE}


uses
  SysUtils, WPPDFR1, WPCtrMemo, WPOBJ_Container, WPPDFWP, WPRTEDefs;




var
  Editor : TWPCustomRtfEdit;
  pdf : TWPPDFExport;
  obj : TWPTextObj;
begin
  try
    WPDF_Start('', '');
    Editor := TWPCustomRtfEdit.CreateDynamic;
    try
      obj := Editor.InputMergeField('FIELD_MANUAL', 'Manual');
      obj := Editor.TextObjects.InsertClass('TWPODataContainer', 360, 360 );
      obj.Mode := obj.Mode + [wpobjSizingDisabled];
      (obj.ObjRef as TWPODataContainer).AddDataFile('c:\manual.pdf', wpembDefault);
      (obj.ObjRef as TWPODataContainer).Icon := wpemPaperClip;
      (obj.ObjRef as TWPODataContainer).AddParam('Contents','Dies ist eine Datei');
      (obj.ObjRef as TWPODataContainer).AddParam('Title', 'Julian Ziersch');
      Editor.InsertPointAttr.Hidden := true;
      Editor.ReformatAll();
      Editor.SaveToFile('c:\embed.rtf'); // This has the embedded manual
      pdf := TWPPDFExport.Create(nil);
      try
        pdf.Source := Editor;
        pdf.FileName := 'c:\embed.pdf'; // this doesn't
        pdf.AutoLaunch := true;
        pdf.Print;
      finally
        pdf.Free;
      end;
    finally
      Editor.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Hello,

How do you use WPTools with Fastreports?

Regards,

Paul

Hello Julian,

I have a TWRichText with the ReadOnly property set to true. I want to be able to select text and copy to the clipboard and highlight text found using the search dialog.

What Options need to be set to achieve this or do I need to write additional code ?

Regards,

Paul Cunningham

Hello Julian,

What event of TTWPPreview do I use so that when I click on a thumbnail image the attached TWpRichText shows the page ?

Regards,

Paul Cunningham

Hello Julian,

Thanks for this.

I did check the help on the property name, clearly I should have done a full search.

Paul

Hello Julian,

Have you had a chance to look at this ?

Regards,

Paul Cunningham

Hello Julian,

What is the purpose of this property of TWPSuperMerge ?

Regards,

Paul Cunningham

Hello Julian,

No, I mean some visual indication that the TreeView bookmark node was clicked, like in Acrobat Reader.

Cheers,

Paul

Hello Julian,

Is it possible to make the Bookmark TreeView indicate which bookmark was selected.

Cheers,

Paul

Hello Julian,

The bookmark TreeView displays Unicode fine but hint windows display garbage.

Can this be corrected?

Cheers,

Paul

Hello Julian,

What is the best way of ensuring that the OnEditFieldFocus event is fired before a user clicks anywhere else in the application, for instance a menu or another control?

In my application, leaving a field causes the field data to be written to a database if the edit field data and database field data differ.

Or is there another way I can warn that a field has been edited but not tabbed out (and thus saved).

Cheers,

Paul

Hello Julian,

Thank you for this, it's now working.

Cheers,

Paul

Hello WpTools,

Forgot to add that I have included the OnInitializeRTFDataObject event and tied the event to the two RichText editors.

if RTFData = nil then begin
  	RTFData := TWPRTFDataCollection.Create(TWPRTFDataBlock);
   	RTFDataProps := TWPRTFProps.Create;
   	RTFData.RTFProps := RTFDataProps;
	end;
	RTFDataObject := RTFData;

Paul

Hello,

Trying to create a split screen in code. As a test I've dropped two WPRichText editors on a form, set AllowMultiView to True and then dropped a TWPRTFStorage control and a TButton on the form.

In the button onClick event I add the following code:

RTFStorage.Links.Clear;
  StorageLink := RTFStorage.Links.Add;
  StorageLink.RTFControl := WPRichText1;
  StorageLink.TextName := 'Editor1';  
  StorageLink.DisplayMode := wpDisplayTextStream;


  StorageLink := RTFStorage.Links.Add;
  StorageLink.RTFControl := WPRichText2;
  StorageLink.TextName := 'Editor1';
  StorageLink.DisplayMode := wpDisplayTextStream;

This doesnt work. The second RichText editor stays blank. What am I missing? When I create the links using the Links property editor at design time it works!

Regards,

Paul

Hello All,

I'm trying to use the EmbedData method of wPDF3 in conjunction with WPTools and it's mail merge functionality.

I'm generating a report dynamically and need to insert several embedded file icons into the pdf at the location of paragraphs that have been inserted during a OnMailMergeGetText event.

Here is what I'm currently doing.

1. Create the report and mail merge the paragraphs.
2. Export the report to PDF using TWPPDFExport
3. Now I need to go back and insert the icons that represent the embedded data.

How do I find the page and values of the TRECT parameter of the EmbedData method so I can place the icon in the right place? Or can I achieve this some other way?

Regards,

Paul Cunningham