Does RB have a water mark feature

rbuser

I'm using Delphi 7 and RB 9.02.

I need to be able to print the word "Demonstration" over each page of a
report as a sort of water mark. This will appear when our customers are
using our Demo software. I need to be able to switch this feature on and
off. Does RB have a water mark feature ? Can anyone suggest a possible
solution ? I want the word to be evenly spaced from top to bottom of each
page.

Ian Munro

nicocizik

Try using the PageStyle band to place components behind all bands in the
report. Activate the PageStyle band by selecting Page Style from the Report
main menu option.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

If I programmatically add TppLabel items to the PageStyle band, (as shown in
the code below), do I need to manually "free" these items or will the report
release them ?

procedure TForm1.AddDemonstrationText ;

procedure AddSettings (var theItem : TppLabel) ;
begin
theItem.Band := ppReport1.PageStyle ;
theItem.caption := 'Demonstration' ;
theItem.Font.Size := 48 ;
theItem.Font.Color := clSkyBlue ;
theItem.Font.Style := [fsBold] ;

theItem.spLeft := (ppReport1.PrinterSetup.PageDef.spPrintableWidth div
2) - (theItem.spWidth div 2) ;
end ;

var
iCnt : integer ;

begin
for iCnt := 0 to 9 do
begin
m_lblDemo [iCnt] := TppLabel.Create (self) ;
m_lblDemo [iCnt].spTop := (100 * (iCnt)) ;

AddSettings (m_lblDemo [iCnt]) ;
end ;
end ;

NB: m_lblDemo : array [0..9] of TppLabel ;

nicocizik

Yes, items added to the PageStyle band will be automatically freed when the
report is freed.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Thank you very much for your assistance.