Add watermark: Autosize Font?

rkaiser · September 2019

Hello,

I want to add a watermark to a page when a report is printer with the archive reader. To do that i am using the "OnReadPage" event to get access to the currentlty printed page:

   lDrawText := TppDrawText.Create(nil);
   lDrawText.Angle := 45;
   lDrawText.Left := lPage.PageDef.mmMarginLeft; 
   lDrawText.Top := lPage.PageDef.mmMarginTop; 
   lDrawText.Width := lPage.PageDef.mmPrintableWidth; 
   lDrawtext.Height := lPage.PageDef.mmPrintableWidth; 

   lDrawText.Font.Color := clLtGray;
   lDrawText.Font.Size := 100;     // how to autosize the font size to fit to the page?
   lDrawText.Alignment := taCenter;
   lDrawText.TextAlignment := taCentered;
   lDrawText.Transparent := true;
   lDrawText.IsMemo := false;
   lDrawText.Autosize := true;
   lDrawText.Text := 'WATERMARK';
   lDrawText.Page := lPage;

I found out the "lDrawText.Font.Size" by trial and error (can be used for the page size of my currently used test report). However it would be much better if the font size could be calculated to fit on any page size!

Can you give me a hint how to calculate the font size so that it fits exactly on the page (of any size) for the label printed in an angel of 45 degrees?

Thanks in advance,
Ralf

rkaiser · September 2019

the line
lDrawtext.Height := lPage.PageDef.mmPrintableWidth;
should read
lDrawtext.Height := lPage.PageDef.mmPrintableHeight;
(Copy and paste error )

rkaiser · September 2019

Additional question:

I want this watermark to apear behind all other content of the report. With the code above the watermark appears on top of all other content. I read in other posts that the watermark should be added to a page style but all in examples i found the page style is already created at design time. Can i add such a page style in the OnReadPage (!!) event too?

Thanks again,
Ralf

nicocizik · September 2019

Hi Ralf,

ReportBuilder does not have auto font scaling so you will need to measure the text manually. I suggest creating a TBitmap and using the Canvas.TextWidth and Canvas.TextHeight to do so.

-- pseudo code --


lBitmap := TBitmap.Create;

while not(lbSpaceFilled) do
begin
  lBitmap.Canvas.Font := MyFont;

  liTextWidth := lBitmap.Canvas.TextWidth(lsWaterMarkText);

  if liTextWidth > liSpaceAvailable then
    begin
      lbSpaceFilled := True;
      MyFont.Size := MyFont.Size - 1;
    end
  else
    MyFont.Size := MyFont.Size + 1;
end;

lBitmap.Free;

You can insert the drawcommand at the beginning of the list using the InsertChild command of the TppPage. (Instead of assigning the lDrawCommand.Page property.


  lPage.InsertChild(0, lDrawText);  //Watermark behind
  //lDrawText.Page := lPage;          //Watermark in front

rkaiser · November 2019

Hello,

The solution ist working good, thanks.

We currently add the watermark behind all other components. However that leads to a problem when a report contains (for example) label components that are set to be not transparent. These labels are hiding the watermark because of the non transparent background. which does not look good.

A solution would be to add the watermark in front but make this watermark "semi-transparent". Is it possible to "alpha blend" the watermark (it is a TppDrawText) so that the background or and other component behind it shines through? I have not found a way to do that so far. So maybe it is not possible at all?

Thanks in advance,
Ralf

adam · November 2023

Ralf - did you ever get a solution to your question. I too am looking for a solution that will allow for transparent / blending / alpha blend watermarks with Reportbuilder.

mcarey101 · September 2

I too am trying to make the watermark appear on top of the page using RAP.
procedure ReportOnEndPage;
var
lDrawText: TppDrawText;
lPage: TppPage;
begin

lPage := Report.engine;

lDrawText := TppDrawText.Create(nil);

lDrawText.Left := 4763;
lDrawText.Top := 7408;
lDrawText.Width := 4630;
lDrawText.Height := 4233;
lDrawText.Angle := 315;
lDrawText.Font.Color := clBlack;
lDrawText.Font.Size := 12;
lDrawText.Transparent := True;
lDrawText.IsMemo := false;
lDrawText.Autosize := True;
lDrawText.Text := 'Copyxx';
lDrawText.Page := lpage;

end;

Add watermark: Autosize Font?

Comments