Beiträge von Lena Vladykina

Dear All,

With wPDFViewPlus04 ver. 408020, 32 bit

I use the structure like this:

...

var

t :TPDFDrawObjectRec;

..

begin

..

FillChar(t, SizeOf(t), 0);

t.ObjectOptions := 8192;

t.CreateOptions := 8192*2+ 8192*8;

t.PageNo := 0;

t.Angle := 90;

t.w := 125;

t.h := 50;

t.x := 20;

t.y := 200;

t.grtyp := 0; // Highlight

t.Alpha := 0;

t.ColorPen := clBlack;

t.ColorBrush := clNone;

t.PenWidth := 10*1000;

WPViewPDF.AddDrawObject(wpAddNow, '', t, 't', PAnsiChar(s));

..

end;

and have the rectangle of the a little bit transporant red color.

Could you please help me to paint properly my rectangle / highlight!

Please let me know if you need my credentials or licence -- what ever...

Many thanks for you time and attantion.

Sincerely,

Lena Vladykina

From what I see, watermarks could not be saved over PDFs, could they?

I would also much appreciate, if you can give some examples/clarification to what extend metafile stamping is supported. I tried with 'Hello,World!' texted transporant wmf file with the same results --'nothing is seen'....

Dear Support,

I am seeking a way to add vector graphics and to save it over a PDF with the help of your WPViewPDF.

I have tried your examle code from here https://www.wpcubed.com/manuals/wpview…es_to_pages.htm with both Scaling parameters (0 - like in the example, 72 - like in the recommendations) , but with no success so far -- no stemped MetaFile is seen...

Could you please have a look and say what's wrong? Should I send you PDFs?

procedure TForm1.Button2Click(Sender: TObject);

var

Metafile1 : TMetafile;

begin

Metafile1 := TMetafile.Create;

try

Metafile1 := WPViewPDF1.GetMetafile(0);

// Metafile1.SaveToFile('c:\temp\pdftowmf.wmf'); // gives a nice wmf

// WPViewPDF2.Command( COMPDF_StampMetafile_Scaling, 0 );

WPViewPDF2.Command( COMPDF_StampMetafile_Scaling, 72 );

if Metafile1<>nil then

begin

WPViewPDF2.CommandStrEx (COMPDF_StampMetafile, '1', MetaFile1.Handle);

WPViewPDF2.Plus.SaveToFile('c:\temp\test_modified.pdf');

end;

finally

Metafile1.Free;

end;

end;

FYI: WPDFVIEW License owner : Aiiti Gmbh

Many thanks for advance.

Sinserely,

Olena Vladykina

Hi dear All,

Can WPViewPDF (Plus) somehow, when saves or merges or.., overwrite the rotation sign of rotated Pages, so that when this new file is open, it has Page rotation = 0?

Version 4.1.9.4.

Looking forward to having your highly appreciated help and saying many thanks in advance,

Lena

Vladykina

Dear Support,

I would want to add a text with transporan backgraund to a PDF file, to be able to place this text wih respect to the page rotation and to save it to a PDF file.

I have found this pritty example here in the forum, Could you please, also, help me and say if this can this be modified so that the text can be rotated in line with the page rotation ?

Many thank for advance!

Lena

1. function dicituraFissa(szNomeFile:pchar):boolean;
2. https://www.wpcubed.com/forum/board/in…deLine_2_e061bbvar StampMetaCan : TMetafileCanvas;
3. https://www.wpcubed.com/forum/board/in…deLine_3_e061bb aForm : TXForm;
4. https://www.wpcubed.com/forum/board/in…deLine_4_e061bb x,y,nrP: integer;
5. https://www.wpcubed.com/forum/board/in…deLine_5_e061bb lst :TStringlist;
6. https://www.wpcubed.com/forum/board/in…deLine_6_e061bb n,idx:integer;
7. https://www.wpcubed.com/forum/board/in…deLine_7_e061bb sz:String;
8. https://www.wpcubed.com/forum/board/in…deLine_8_e061bb wp :TWPViewPDF;
9. https://www.wpcubed.com/forum/board/in…deLine_9_e061bb StampMeta : TMetaFile;
10. https://www.wpcubed.com/forum/board/in…eLine_10_e061bbbegin
11. https://www.wpcubed.com/forum/board/in…eLine_11_e061bb wp:=TWPViewPDF.CreateParented(application.handle);
12. https://www.wpcubed.com/forum/board/in…eLine_12_e061bb wp.LoadFromFile(strpas(szNomeFile)) ;
13. https://www.wpcubed.com/forum/board/in…eLine_13_e061bb if true then
14. https://www.wpcubed.com/forum/board/in…eLine_14_e061bb begin
15. https://www.wpcubed.com/forum/board/in…eLine_15_e061bb StampMeta:=TmetaFile.create;
16. https://www.wpcubed.com/forum/board/in…eLine_16_e061bb StampMetaCan := TMetafileCanvas.Create(StampMeta,0);
17. https://www.wpcubed.com/forum/board/in…eLine_17_e061bb try
18. https://www.wpcubed.com/forum/board/in…eLine_18_e061bb StampMetaCan.Font.Height := -10;
19. https://www.wpcubed.com/forum/board/in…eLine_19_e061bb StampMetaCan.Font.Color := clBlack;
20. https://www.wpcubed.com/forum/board/in…eLine_20_e061bb StampMetaCan.Font.Name := 'Arial';
21. https://www.wpcubed.com/forum/board/in…eLine_21_e061bb StampMetaCan.Brush.Style := bsClear;
22. https://www.wpcubed.com/forum/board/in…eLine_22_e061bb aForm.eM11 := 1;
23. https://www.wpcubed.com/forum/board/in…eLine_23_e061bb aForm.eM12 := 0;
24. https://www.wpcubed.com/forum/board/in…eLine_24_e061bb aForm.eM21 := 0;
25. https://www.wpcubed.com/forum/board/in…eLine_25_e061bb aForm.eM22 := 1;
26. https://www.wpcubed.com/forum/board/in…eLine_26_e061bb aForm.eDx := Screen.PixelsPerInch;
27. https://www.wpcubed.com/forum/board/in…eLine_27_e061bb aForm.eDy := Screen.PixelsPerInch*2;
28. https://www.wpcubed.com/forum/board/in…eLine_28_e061bb SetWorldTransform(StampMetaCan.Handle, aForm);
29. https://www.wpcubed.com/forum/board/in…eLine_29_e061bb
30. https://www.wpcubed.com/forum/board/in…eLine_30_e061bb
31. https://www.wpcubed.com/forum/board/in…eLine_31_e061bb nrP:=wp.CommandEx(COMPDF_GetPageCount,0);
32. https://www.wpcubed.com/forum/board/in…eLine_32_e061bb y:=WPCentimeterToPixel(28,72);
33. https://www.wpcubed.com/forum/board/in…eLine_33_e061bb x:=WPCentimeterToPixel(1,72);
34. https://www.wpcubed.com/forum/board/in…eLine_34_e061bb
35. https://www.wpcubed.com/forum/board/in…eLine_35_e061bb
36. https://www.wpcubed.com/forum/board/in…eLine_36_e061bb lst:=TStringlist.create;
37. https://www.wpcubed.com/forum/board/in…eLine_37_e061bb lst.text:=strpas('Try write text on pdf');
38. https://www.wpcubed.com/forum/board/in…eLine_38_e061bb idx:=0;
39. https://www.wpcubed.com/forum/board/in…eLine_39_e061bb for n := lst.count - 1 downto 0 do
40. https://www.wpcubed.com/forum/board/in…eLine_40_e061bb begin
41. https://www.wpcubed.com/forum/board/in…eLine_41_e061bb StampMetaCan.TextOut(x,y-(15*(n+1)), lst[idx]);
42. https://www.wpcubed.com/forum/board/in…eLine_42_e061bb inc(idx);
43. https://www.wpcubed.com/forum/board/in…eLine_43_e061bb end;
44. https://www.wpcubed.com/forum/board/in…eLine_44_e061bb lst.free;
45. https://www.wpcubed.com/forum/board/in…eLine_45_e061bb
46. https://www.wpcubed.com/forum/board/in…eLine_46_e061bb
47. https://www.wpcubed.com/forum/board/in…eLine_47_e061bb finally
48. https://www.wpcubed.com/forum/board/in…eLine_48_e061bb StampMetaCan.Free;
49. https://www.wpcubed.com/forum/board/in…eLine_49_e061bb end;
50. https://www.wpcubed.com/forum/board/in…eLine_50_e061bb wp.CommandStrEx(495,inttostr(nrP)+'-'+inttostr(nrP), StampMeta.Handle)
51. https://www.wpcubed.com/forum/board/in…eLine_51_e061bb wp.Plus.SetSecurityMode(wpNoSecurity);
52. https://www.wpcubed.com/forum/board/in…eLine_52_e061bb wp.Plus.SaveToFile('C:\tmp\test.pdf');
53. https://www.wpcubed.com/forum/board/in…eLine_53_e061bb StampMeta.free;
54. https://www.wpcubed.com/forum/board/in…eLine_54_e061bb end;
55. https://www.wpcubed.com/forum/board/in…eLine_55_e061bb wp.free;
56. https://www.wpcubed.com/forum/board/in…eLine_56_e061bbend;

DLL Version 401940.