Beiträge von wpsupport

This is a simple example for Stamp Metafile. Metafiles should always be EMF, not WMF.

     StampMeta:=TmetaFile.create;
     StampMetaCan := TMetafileCanvas.Create(StampMeta,0);
     try

         StampMetaCan.Font.Height := 18;
         StampMetaCan.Font.Color := clRed;
         StampMetaCan.Font.Name := 'Tahoma';
         StampMetaCan.Brush.Style := bsClear;

          y:= Round(2 / 2.54 * Screen.PixelsPerInch);
          x:= Round(2 / 2.54 * Screen.PixelsPerInch);

                lst:=TStringlist.create;
                lst.text:=strpas('This is a test text (2,2cm) ');
                idx:=0;
                for n := lst.count - 1 downto 0 do
                begin
                   StampMetaCan.TextOut(x,y-((StampMetaCan.Font.Height*2)*(n+1)), lst[idx]);
                   inc(idx);
                end;
                lst.free;

         nrP:=wp.CommandEx(COMPDF_GetPageCount,0);
          finally
               StampMetaCan.Free;
          end;
          wp.CommandStrEx(495,inttostr(nrP-1)+'-'+inttostr(nrP), StampMeta.Handle);
          wp.Plus.SaveToFile(pchar('newfile.pdf'));

          StampMeta.free;

This is the sample code to convert a PDF file into a watermark

The command COMPDF_LoadFileAsWatermark is used to load a PDF file and convert a certain page into a watermark. The ID of the new watermark is retuned. If the PDF file was already loaded, it will be reused. So it is possible to subsequently use different pages from the same PDF file.

The command COMPDF_ApplyWatermark is used to apply the watermark with the given id to certain pdf pages. The string parameter of this command is used to select the destination pages. It is possible to select "all", "odd" or "even" pages. Alternatively a range can be specified, such as "1-3,5,7,9-1000".

To add a positioning mode add it after ";". Positioning modes are 0=over page, 256=under page (default)

Instead of page list also the text odd and even is allowed. Returns the number of modified pages

        i := WPViewPDF1.CommandStrEx( COMPDF_LoadFileAsWatermark, 
             OpenDialog1.FileName, StrToInt(edSourcePage.Text)-1);
        if i<=0 then
           ShowMessage('The PDF file cannot be loaded as watermark - Code=' + IntToStr(i))
        else
        begin
          if rbOddPages.Checked then
             i := WPViewPDF1.CommandStrEx( COMPDF_ApplyWatermark, 'odd', i)
          else if rbEvenPages.Checked then
             i := WPViewPDF1.CommandStrEx( COMPDF_ApplyWatermark, 'even', i)
          else   i := WPViewPDF1.CommandStrEx( COMPDF_ApplyWatermark, edPageRange.Text, i);

          if i<=0 then
           ShowMessage('The PDF page cannot be applied as watermark');
        end;

You cannot really stamp a metafile created with getmetafile and stamp it. The metafile stamping pnly supports very small, uncomplicated metafiles,i.e display COPY or something like this

You can load a pdf and another and use pages from the first as watermark. This should be a better approach

Den Anker kann man selektieren wie oben beschrieben, also nicht mit der Maus sondern mit den Cursortasten. Dafür muss der Cursor an der Position des Ankers stehen.

Die Selektion mit Shift geht nur an Stellen an denen der Text nicht das Objekt überdeckt, das ist richtig. Evtl. gibt es hier was in einer zukünftigen Version.

Man kann das Objekt immer selektieren wenn man den Anker selektiert, also den Cursor an den Anfang des Absatzes bewegt und Shift+Left drückt.

Ausserdem mal Shift+Klick probieren.

The finder works well, there is also an extensive find dialog which may be a good example on how to use it.

However: My aim is to make a searchform that can find and select every instances of the searchtext - one at a time. But how to do this?

This cannot really work since it is not possible to have a selection for several words on different paragraphs.

You can check out the unit

WPSyntaxHighlight

It may be of use.

This code is problematic:

1. SelectText;
2. https://www.wpcubed.com/forum/board/in…eLine_47_f726f4 FWp.ScrollToPosition(FWp.CPPosition, 0, 10);

You should also set the CPPosition to Finder.FoundPostion.

As mentioned before, users can enter the Firemonkey group on this form to view this part of the forum. Only very few did.

Funktionen die Graphiken einfügen:

function InsertGraphic(filename: string;

InsertLink: Boolean = FALSE; ObjectModes: TWPTextObjModes = []):TWPObject;

function InsertGraphicDialog(filter: string = ''; InsertLink: Boolean = FALSE;

ObjectModes: TWPTextObjModes = []; path : string = ''): TWPObject;

Beide Funktionen setzen bei Erfolg noch WPRichText.InsertedObj für den einfachen Zugriff auf das TWPTextObj.

Aus dem Kontext schliesse ich, Sie wollen das gerade eingefügte Objekt selektieren, sodass es der User es gleich mit der Maus verschieben kann.

Das geht so:

var obj : TWPObject;
begin
  obj := WPRichText1.InsertGraphic(
      'S:\info.png', false,
      [wpobjRelativeToPage]
      );
  if obj<>nil then
  begin
     WPRichText1.InsertedObj.Wrap := wpwrNone;
     WPRichText1.SelectedObject := WPRichText1.InsertedObj;
  end;
  WPRichText1.SetFocus;
end;

PS.: Nach einem Button Klick muss man den Fokus erst wieder an das TWPRichText geben, daher das SetFocus.

Man kann die Objekte doch ganz regulär innerhalb von WPTools mit der Maus verschieben.

Das zu berechnen ist nicht so einfach, da man ja wissen müsste wo der Anfang der Seite ist. Code dafür befindet sich in wpctrmemo.pas

Grundsätzlich hält sich wptools damit zurück formulare einzubinden. Man muss das gewollt anstoasen. Der TFindDialog ist aber Teil der VCL

Man muss die property wrap des Twptextobj anpassen. Das geht auch mit dem rückgabewert der funktion InsertGraphicDialog welche in wpctrrich implementiert ist.

Dieser Dialog ist standard Delphi. Wenn man den nicht will, muss man den TWPSearchReplaceDlg aus WPSearchDlg.pas verwenden.

Dessen texte wie auch "Text not found!" wird durch das TWPLanguageControl übersetzt.

In der XML Datei welche im TWPLanguageControl gespeichert ist.

Doppelklick, dann kann man die strings editieren. Ich habe aber gerade geschaut, hier finde ich kein "Schließe"

Zuerst einmal wird der event OnUndoStateChanged ausgelöst.

Dort kann man

(Memo.RTFData.UndoStack.LastUndoObj as TWPToolsUndoObject).Kind abfragen welches diese Werte annehmen kann:

wputNone, wputAny, wputInput, wputDeleteText,

wputChangeAttributes, wputChangeIndent, wputChangeSpacing,

wputChangeAlignment, wputChangeTabs, wputChangeBorder, wputDeleteSelection,

wputDragAndDrop, wputPaste, wputInsertObject, wputChangeObject,

wputDeleteObject, wputChangeTable, wputChangeStyleSheet, wputRedo,

wputMargin, wputReplace

For RTL text this export method is not changeable, otherwise you can select another font mode. The best support for unicode text, the CIDFont mode provides.

But in your EMF file something is weird. I insert it into Word and tried to print to Destiller - that crashed. I opened the EMF in a graphic program and only saw random characters.

When you say, you can select the text in the PDF file created by another tool, did you try copy and paste? After pasting did the correct text show up?

Inside wPDF I do not get any usable character information from emftext.emf. The text is printed using index values which point to glyphs of the font being used. Unfortunately I know now way to convert those index values back into text.

Hm, it was purpose that there is no 'Changing'.

I would put a

Changing;

before the 'try' in LoadFromFile

Usually Changing is used as "if changing then" but this would make it impossible to load text into a readonly field.

In case the characters cannot be found in the selected font, or for hebrew ands arabic (RTL) text the characters will be converted into gylphs.

In your metafile this is what happens which makes the text unselectable.

Please, before any programmatic update in the DBWPRichText call DBWPRichText1.Changing.

In case of the load button in the toolbar you can trap the user click in the event OnToolbarIconSelection of the TWPRichText (or TDBWPRichText) and execute Changing there.

Please see the default implementation in WPCtrRich.pas to undrestand how this handler works.

I recommend to insert the images as PNG files. I also recommend to use WPTools 8.

*** WPTools 8.10 - 3.12.2018 ***

+ support for Delphi 10.3 Rio

- fix in unit WPTabDlg1

* when a style is applied using SetActiveStyleName the attributes are not cleared anymore

unless wpClearAttrOnStyleChange is used in

- fix image loading in DocX reader - load image name from imagedata and imageData

- fix in DocX writer: write "imagedata" insetad of "imageData"

- fix writing of NSTY= in paragraph styles in WPT format