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
- function dicituraFissa(szNomeFile:pchar):boolean;
- https://www.wpcubed.com/forum/board/in…deLine_2_e061bbvar StampMetaCan : TMetafileCanvas;
- https://www.wpcubed.com/forum/board/in…deLine_3_e061bb aForm : TXForm;
- https://www.wpcubed.com/forum/board/in…deLine_4_e061bb x,y,nrP: integer;
- https://www.wpcubed.com/forum/board/in…deLine_5_e061bb lst :TStringlist;
- https://www.wpcubed.com/forum/board/in…deLine_6_e061bb n,idx:integer;
- https://www.wpcubed.com/forum/board/in…deLine_7_e061bb sz:String;
- https://www.wpcubed.com/forum/board/in…deLine_8_e061bb wp :TWPViewPDF;
- https://www.wpcubed.com/forum/board/in…deLine_9_e061bb StampMeta : TMetaFile;
- https://www.wpcubed.com/forum/board/in…eLine_10_e061bbbegin
- https://www.wpcubed.com/forum/board/in…eLine_11_e061bb wp:=TWPViewPDF.CreateParented(application.handle);
- https://www.wpcubed.com/forum/board/in…eLine_12_e061bb wp.LoadFromFile(strpas(szNomeFile)) ;
- https://www.wpcubed.com/forum/board/in…eLine_13_e061bb if true then
- https://www.wpcubed.com/forum/board/in…eLine_14_e061bb begin
- https://www.wpcubed.com/forum/board/in…eLine_15_e061bb StampMeta:=TmetaFile.create;
- https://www.wpcubed.com/forum/board/in…eLine_16_e061bb StampMetaCan := TMetafileCanvas.Create(StampMeta,0);
- https://www.wpcubed.com/forum/board/in…eLine_17_e061bb try
- https://www.wpcubed.com/forum/board/in…eLine_18_e061bb StampMetaCan.Font.Height := -10;
- https://www.wpcubed.com/forum/board/in…eLine_19_e061bb StampMetaCan.Font.Color := clBlack;
- https://www.wpcubed.com/forum/board/in…eLine_20_e061bb StampMetaCan.Font.Name := 'Arial';
- https://www.wpcubed.com/forum/board/in…eLine_21_e061bb StampMetaCan.Brush.Style := bsClear;
- https://www.wpcubed.com/forum/board/in…eLine_22_e061bb aForm.eM11 := 1;
- https://www.wpcubed.com/forum/board/in…eLine_23_e061bb aForm.eM12 := 0;
- https://www.wpcubed.com/forum/board/in…eLine_24_e061bb aForm.eM21 := 0;
- https://www.wpcubed.com/forum/board/in…eLine_25_e061bb aForm.eM22 := 1;
- https://www.wpcubed.com/forum/board/in…eLine_26_e061bb aForm.eDx := Screen.PixelsPerInch;
- https://www.wpcubed.com/forum/board/in…eLine_27_e061bb aForm.eDy := Screen.PixelsPerInch*2;
- https://www.wpcubed.com/forum/board/in…eLine_28_e061bb SetWorldTransform(StampMetaCan.Handle, aForm);
- https://www.wpcubed.com/forum/board/in…eLine_29_e061bb
- https://www.wpcubed.com/forum/board/in…eLine_30_e061bb
- https://www.wpcubed.com/forum/board/in…eLine_31_e061bb nrP:=wp.CommandEx(COMPDF_GetPageCount,0);
- https://www.wpcubed.com/forum/board/in…eLine_32_e061bb y:=WPCentimeterToPixel(28,72);
- https://www.wpcubed.com/forum/board/in…eLine_33_e061bb x:=WPCentimeterToPixel(1,72);
- https://www.wpcubed.com/forum/board/in…eLine_34_e061bb
- https://www.wpcubed.com/forum/board/in…eLine_35_e061bb
- https://www.wpcubed.com/forum/board/in…eLine_36_e061bb lst:=TStringlist.create;
- https://www.wpcubed.com/forum/board/in…eLine_37_e061bb lst.text:=strpas('Try write text on pdf');
- https://www.wpcubed.com/forum/board/in…eLine_38_e061bb idx:=0;
- https://www.wpcubed.com/forum/board/in…eLine_39_e061bb for n := lst.count - 1 downto 0 do
- https://www.wpcubed.com/forum/board/in…eLine_40_e061bb begin
- https://www.wpcubed.com/forum/board/in…eLine_41_e061bb StampMetaCan.TextOut(x,y-(15*(n+1)), lst[idx]);
- https://www.wpcubed.com/forum/board/in…eLine_42_e061bb inc(idx);
- https://www.wpcubed.com/forum/board/in…eLine_43_e061bb end;
- https://www.wpcubed.com/forum/board/in…eLine_44_e061bb lst.free;
- https://www.wpcubed.com/forum/board/in…eLine_45_e061bb
- https://www.wpcubed.com/forum/board/in…eLine_46_e061bb
- https://www.wpcubed.com/forum/board/in…eLine_47_e061bb finally
- https://www.wpcubed.com/forum/board/in…eLine_48_e061bb StampMetaCan.Free;
- https://www.wpcubed.com/forum/board/in…eLine_49_e061bb end;
- https://www.wpcubed.com/forum/board/in…eLine_50_e061bb wp.CommandStrEx(495,inttostr(nrP)+'-'+inttostr(nrP), StampMeta.Handle)
- https://www.wpcubed.com/forum/board/in…eLine_51_e061bb wp.Plus.SetSecurityMode(wpNoSecurity);
- https://www.wpcubed.com/forum/board/in…eLine_52_e061bb wp.Plus.SaveToFile('C:\tmp\test.pdf');
- https://www.wpcubed.com/forum/board/in…eLine_53_e061bb StampMeta.free;
- https://www.wpcubed.com/forum/board/in…eLine_54_e061bb end;
- https://www.wpcubed.com/forum/board/in…eLine_55_e061bb wp.free;
- https://www.wpcubed.com/forum/board/in…eLine_56_e061bbend;
DLL Version 401940.