Beiträge von asniemann

We don't do anything to unload it and this only happens for a few of our users. Any idea what would trigger this?

I am now occassionally having users report this same error on Windows 10 systems.

"Windowclass WPCUBED_PDFVIEW_01 cannot be found!"

The file is present and works for most users.

I create my WPViewPDF like this:

WPViewPDF1 := TWPViewPDF.Create(Self);  WPViewPDF1.ViewerStart('', );  WPViewPDF1.Parent := plPDF;  WPViewPDF1.Align := alClient;  WPViewPDF1.ViewControls := [wpViewLeftPanel, wpHorzScrollBar, wpVertScrollBar, wpNavigationPanel, wpViewPanel];  WPViewPDF1.ViewOptions := [wpDontHighlightLinks, wpViewThumbnails];  WPViewPDF1.OnHyperlinkWWW := PDFHyperLink;  WPViewPDF1.MouseMode(wpLeftButton, wpmSelectText);

And on Ctrl-C I call this:

WPViewPDF1.command(COMPDF_CopyToClibrd);

All of my PDF files are generated by SQL Server Reporting Services.

I have the following problems:
1. Sometimes Ctrl-C puts the highlighted text onto the clipboard and sometimes it does not - I cannot find any clues as to why this happens.
2. Sometime the second (and additional) times I select text, the original selection stays highlighted, so it becomes difficult to know which text will be copied.
3. Most of the time the text on the clipboard (when it works) contains an additional letter -the one just prior to the highlighted selection.
4. I tried to enable/disable the copy button based on selection length but it was always 0.

Can you help me with any of these - as it is I can't give it to my clients because it appears to behave very inconsistently.

I thought moving to the live version might solve this so I went ahead and purchased it. Now I have a different problem...

When I call pdfPrint using these credentials I get an error code -1.

Here is my code (PDFFile is a string with the file path/name and Options is a string with options):

Testvar := pdfPrint(PChar(PDFFile), '',
PChar('Anthony Niemann'), PChar('L***************2'), 1*****0,
PChar(Options));

I am using RAD Studio 2009.

What am I doing wrong?

Thanks,
Tony

I am trying to use the demo for pdfPrint and no mater how I send the filename parameter wPDFView always takes the first character of my parameter and appends it to the application path and then fails...

For example I call this:

pdfPrint('NFA_Letter.pdf', '', '', '', 0, '');

And get the error
'c:\my\app\path\N' not found.

Thanks for any assistance,
Tony

In an attempt to block this in my code I have added the following BeforeCopyText procedure to all my TWPRichText objects.

procedure TfmHospitalNecropsy.JournalBeforeCopyText(Sender: TObject;
  var doIt: Boolean);
var
  Stream: TStringStream;
begin
  doIt := True;


  Stream := TStringStream.Create('');
  try
    TWPRichText(Sender).SaveSelectionToStream(Stream, 'WPTOOLS-clipboardoperation');
    if Pos('ParProtected:1', Stream.DataString) > 0 then
      doIt := False;
  finally
    Stream.Free;
  end;
end;

Would this ever not work?

Thanks,
Tony

Julian,

I found that pasting text from the clopboard was not triggering the OnChange event. I made the following 2 changes to WPCTRMemo in the TWPCustomRtfEdit.PasteFromClipboard procedure:

...

finally      if Reader <> nil then      begin        Reader._DefaultImage.Free;        Reader.Free;      end;    end;    if load then                               //ZNC 09/26/2005      ChangeApplied;                           //ZNC 09/26/2005    if not TryWithImages then exit;

...

if temp.Graphic is TPersistent then
            begin
              pers := TPersistent(temp.Graphic);
              if TextObjects.NewWPObjectFromData(true, pers, wpobj, w, h) then
              begin
                wpobj.WidthTW := w;
                wpobj.HeightTW := h;
                if assigned(FBeforePasteImage) then FBeforePasteImage(Self, HeaderFooter, wpobj);
                if wpobj <> nil then
                begin
                  TextObjects.Insert(wpobj, wpobj.WidthTW, wpobj.HeightTW, '', ImageLink);
                  wpobj.Compress;
                end;
                ChangeApplied;                           //ZNC 09/26/2005
              end;
            end;

Do these changes look acceptable to you?

Thanks,
Tony

Ah, but it is getting copied in the circumstance I oulined in my first post.

The difference between my code and your demo is that you didn't put any text in the wpIsXMLTopLevel paragraph, instead you painted the text yourself. My text is of varying length and may be more than one line, so I put the text into the paragraph to let the control handle word wrapping.

In the demo you can't copy part of the "header" paragraphs because the control doesn't know there are words there (since you painted them).

In mine however it is allowing the user to select part of the paragraph if the selection area extends outside of the wpIsXMLTopLevel paragraph. This is what I need to prevent, but have been unable to figure out.

Thanks for any help you can offer.
Tony

I create the paragraphs like this:

if not Assigned(WorkingPar) then
        WorkingPar := Block.FirstPar
      else
      begin
        WorkingPar.NextPar := TParagraph.Create(Block);
        WorkingPar := WorkingPar.NextPar;
      end;
      WorkingPar.ParagraphType := wpIsXMLTopLevel;
      WorkingPar.ASet(WPAT_ParProtected, 1);
      WorkingPar.Name := '-1';
      WorkingPar.ASet(WPAT_CharFontSize, 1000);
      WorkingPar.SetText('Miscellaneous and Diagnosis', AttrIndex);
      if FieldByName('RichText').AsString <> '' then
        WorkingPar.LoadFromString(FieldByName('RichText').AsString,'AUTO', '', [wploadpar_AsChildrenPar])
      else
      begin
        WorkingPar.ChildPar := TParagraph.Create(block);
        WorkingPar.ChildPar.SetText(' ', DefaultAttr);
      end;

I have the following ProtectedProp setting:
[ppParProtected,ppCheckAllText,ppNoNewParagraphsInEditFields,ppProtected,ppIsMergedText,ppProtectSelectedTextToo,ppNoEditAfterProtection]

If I understand correctly, the protected text is not "field".

Tony

Julian,

You are correct, I had some additional code interfering.

My apologies,
Tony

Good point, I have added DoCut := True at the beginning of the procedure.

Can I expect this to be included in future releases?

Thanks,
Tony

I have some protected text in my document. If the user selects a range starting before the protected text and ending after it, they can't copy it. However if they select a range starting inside the protected text and ending outside then they can copy it.

I have tried every ProtectedProp but nothing changes this.

I thought perhaps the OnBeforeCopyText would be the place to prevent this but I can't figure out how.

Any help would be appreciated.
Tony

I was having a problem with users having a readonly RichText and still being able to Cut text from it. I found that the OnBeforeCutText wasn't getting called on a Cut, only on a Copy. Here is my patch, it may not be the approach you want to take, but it does solve the problem.
Tony

procedure TWPCustomRtfEdit.CutToClipboard;
var                             //ZNC 09/16/2005
  DoCut: boolean;               //ZNC 09/16/2005
begin
  if Assigned(FBeforeCutEvent) then    //ZNC 09/16/2005
    FBeforeCutEvent(Self, DoCut);      //ZNC 09/16/2005
  if not DoCut then exit;              //ZNC 09/16/2005


  FInCutToClipboard := TRUE;
  try
    CopyToClipboard;
    ClearSelection;
  finally
    FInCutToClipboard := FALSE;
  end;
end;

[/code]

I have a TWPRichText set to ReadOnly, however users can still use Ctrl-X to cut selected text (and then because it's readonly they can't put it back).

I still want them to be able to use Copy.

Thanks,
Tony

Julian,

I added the $IFDEF/$ENDIF manually for the second occurance mentioned in the first post. I just wanted to confirm that you saw that and that it would be in the next release.

Thanks as always,
Tony

When I run the Sub Paragraph demo and click on the load button, the ANSI fields load correctly but the RTF field writes it's first line ("Some RTF Text") on top of the parent bar, overwriting the "Field B" label.

If I click on the save button this first line is lost and "a" becomes the first line in the Field B TWPRichText box.

I would like to use this feature, but I need to resolve this issue first.

Thanks,
Tony

I'd just like to add that not only is Modified not set, the OnChange event is not triggered.

In addition doing a spell check with Addict using your recommended technique does not change Modified even if you change the spelling of a word.

Will this be corrected or should I be looking for a work around?

Thanks,
Tony

Have you been able to reproduce this?

I am refering to the horizontal ruler which in my case is placed directly above the rich text box. Both the ruler and the rich text box are together on a panel with a vertical ruler and a WPToolBar. I actually started by copying the page from your demo (SuperMrg).

I just went back and ran the demo and the same thing is happening in the demo, so you can look at that.

Thanks,
Tony

I have a WPRichText with a WPRuler assigned. I know they are connected because the tab stops work. However, the ruler doesn't scroll so it's never acurately aligned with the text.

Help,
Tony