Beiträge von mce

Hello,

I have now set the CPPosition to Finder.FoundPosition - but it seems that the Finder only is able to find the first and last occurence of the searchstring. So how can I get to work so I can jump through all occurances of the searchstring?

Thanks in advance for any kind of help.

Michael Eriksen

Hello All,

I have tried to make a search form i Delphi XE8 with TWpRichText.Finder - but I cant get it to work. It seems that it jumps over some instances of found text in the TWPRicText document! I have tried several times to get it to work - but I can't figure it out :-( Can you help me?

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?

Thanks in advance.

Michael

unit fmSearchWpU;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls, Vcl.ExtCtrls, System.Actions, Vcl.ActnList,
  WPRTEDefs, WPCTRMemo, WPCTRRich, stdProc;

type
  TfmSearchWp = class(TForm)
    emcxLabel1: TLabel;
    teTextToFind: TEdit;
    rgSearchDirection: TRadioGroup;
    emcxButton1: TButton;
    ActionList1: TActionList;
    actSearch: TAction;
    procedure actSearchExecute(Sender: TObject);
  private
    { Private declarations }
    FWp: TWPRichText;
  public
    { Public declarations }
    class procedure ShowSearchWp(AWPRichText: TWPRichText; ACaption: String);
  end;

var
  fmSearchWp: TfmSearchWp;

implementation

{$R *.dfm}

{ TfmSearchWp }

procedure TfmSearchWp.actSearchExecute(Sender: TObject);
begin
  with FWp.Finder do begin
//    if rgSearchDirection.ItemIndex = 0 then
//      ToEnd
//    else
//      ToStart;
    while true do begin
      if rgSearchDirection.ItemIndex = 0 then begin
        if not prev(teTextToFind.Text) then break;
        SelectText;
        FWp.ScrollToPosition(FWp.CPPosition, 0, 10);
      end else begin
        if not Next(teTextToFind.Text) then break;
        SelectText;
        FWp.ScrollToPosition(FWp.CPPosition, 0, 10);
      end;
    end;
  end;
end;

class procedure TfmSearchWp.ShowSearchWp(AWPRichText: TWPRichText;
  ACaption: String);
begin
  Application.CreateForm(TfmSearchWp, fmSearchWp);
  try
    fmSearchWp.FWp := AWPRichText;
    fmSearchWp.FWp.CPPosition := 0;
    fmSearchWp.Caption := ACaption;
    fmSearchWp.ShowModal;
  finally
    FreeAndNil(fmSearchWp);
  end;
end;

end.

Hello all,

I have the followning printroutine which works fine - but howto enhance it to allow the choice of a specific paper tray number? Thanks for any advice.

procedure PrintPDF(APrinterIndex: Integer; AFileName: String; APrintTitle: String);

var

  vForm: TForm; 

  vWpViewPDF: TWPViewPDF;

begin

  vForm := TForm.Create(nil);

  vForm.Visible := False;

  vWpViewPDF := TWPViewPDF.Create(vForm);

  vWpViewPDF.Parent := vForm;

  try

    vWpViewPDF.filename := AFileName;

    vWpViewPDF.CommandStr(COMPDF_SetPrintTitle, APrintTitle);

    vWpViewPDF.command(COMPDF_SetPagePaperBin, 39);

    vWPViewPDF.BeginPrint(Printer.Printers[APrinterIndex]);

    vWPViewPDF.PrintPages(1, vWpViewPDF.PageCount);

    vWPViewPDF.EndPrint;

  finally

    FreeAndNil(vWpViewPDF);

    FreeAndNil(vForm);

  end;

end;

Best regards

Michael Eriksen

Hello again,

I have figured it out now - so no need for further assistance.

Thanks in advance,
Michael

Hello,
I have tried to use the following code to doubleunderline specific text - but as far as I can see it is only possible to single underline text. So how to doubleunderline text? How can this be done?

Wp.InputString('Sum:');
    Wp.InputString(#9#9#9#9);
    wp.CurrAttr.Style := [afsUnderline];
    Wp.InputString('Double underline');
    wp.CurrAttr.Style := [];
    Wp.InputString(#13);

thanks in advance,
Michael

Hello,

I need to make a doubleline from the left margin to the right margin - and have tried to use the following command

Wp.ASet(WPAT_BorderFlags, WPBRD_DRAW_Top);

But it only makes a single line - so what can I do for making a double line?
thanks in advance,
Michael

I'm using wptools version 7

Thanks in advance for any suggestion.

Michael

Hello again,
I have now tried your solution - but I can't get it to work. It seems that the default tabstops are used instead of my user defined tabstops.
Do you have any solutions?
Regards Michael

Hello all,

I have tried to use the following code to leftalign "some text" and rightalign "page 1 of 1" with tabstops - but the pagenumbering won't align to the right - what am I doing wrong?
Do you have any codesamples of the right way to do it?

vWp := TWPRichText.CreateDynamic;
  try
    vWp.WorkOnText := wpIsHeader;
    vWp.CurrAttr.ClearAllTabs;
    vwp.CurrAttr.AddTab(vWp.Header.PageWidth - vWp.Header.RightMargin, tkRight);
    vWp.InputString('Some text');
    vWp.InputString(#9);
    vWp.InputString('Page ');
    vWp.InputTextField(wpoPageNumber);
    vWp.InputString(' of ');
    vWp.InputTextField(wpoNumPages);
    vWp.InputString(CRLF);
    vWp.Refresh;
    vWp.ReformatAll;


    vWp.WorkOnText := wpIsBody;
    vWp.Print;
  finally
    FreeAndNil(vWp);
  end;

Thanks in advance
Michael Eriksen

Hello all,
Is it possible for me to export a document which is generated with wptools 7 to a PDF file?
If so how is it possible?

Or do I need a further component?

any help is appreciated.
Thanks in advance,
Michael Eriksen

Thanks for your answer - but do you have an example?

Hello,

Is it possible to setup a fixed printerindex for printing jobs?
I have tried to use Printers.Printer.PrinterIndex with no success

Any help is appreciated.

Regards Michael

Hello,
Is it possible to show and print a pdf-file with wptools7?
If so how can it be done?

If not - do you have some other ideas - maybe with wPDF?

Any help is appreciated.

Best regards,
Michael

Hello,

Is there a way to convert a rtf string to html string?
If so - do you have some codesnippets to explain it?

Thanks in advance,
Michael Eriksen

Thanks for your help.
It seems to work now.
Michael

Zitat von wpsupport

Hi,

The even OnGetSpecialText should not be used to create header or footer like in your code.

It is meant to select any existing element.

To do so assign it to the variable var SpecialText: TWPRTFDataBlock - which is not changed at all in your code.

If you modify SpecialText also set UseThis := True;

Julian

Alles anzeigen

Do you have an example of how to assign the variable "special text" - it is nil. And set the text to the one which belongs to all/last page? Thanks in advance.
Michael

Hey all!
I have problems with showing a special pagefooter on the last page - sometimes it appears, and sometimes it is the standard for all pages depending how much text I have formatted in the bodysection. The body section is filled up with only one large table. It seems that it depends on that.
I have tried to reformat all and refresh all but nothing helps :-(

How can I ensure that the pagefooter on the last page always appears?

I have used the following code:

procedure TfmOrders.WPRichTextGetSpecialText(Sender: TObject; par: TParagraph;
  PosInPar, PageNr: Integer; Kind: TWPPagePropertyKind; var IsLastPage,
  UseThis: Boolean; var SpecialText: TWPRTFDataBlock);
begin
  FWpInvoice.HeaderFooter.Get(wpIsHeader, wpraOnAllPages, '').RtfText.AsString := ‘FInvHeaderAllPages’;
  if not IsLastPage then begin
    FWpInvoice.HeaderFooter.Get(wpIsFooter, wpraOnAllPages, '').RTFText.AsString := ’FInvFooterAllPages’;
  end else begin
    FWpInvoice.HeaderFooter.Get(wpIsFooter, wpraOnLastPage, '').RTFText.AsString := ‘FInvFooterLastPage’;
  end;
  UseThis := True;
end;

thanks in advance for any help,

Michael

Hey all!
I have problems when I try to print from wprichtext to my printer - header and footer disappears. Maybe the problem is that I have used GetSpecialText to format individual header for all pages/last page. It works perfect in my TWPRichText editor - but not in printing mode.

Is there something I have missed?

Thanks in advance,
Michael