Resetting Standard Format

rbuser

Is there a command to reset the standard complied format after a user has
loaded a saved template?

Thanks,
Perry

nardmoseley

Use Report.Template.OnLoadEnd event to set default properties.

----------------------------------------------
Tech Tip: Using Template Events
----------------------------------------------

The Report.Template object has several events that can be used for
customizing what happens when a report is loaded or saved:

- OnLoadStart
- OnLoadEnd
- OnNew
- OnSaveStart
- OnSaveEnd


The OnLoadEnd and OnNew events are often used to perform actions related to
report and data initialization.

The OnSaveEnd event is often used to save additional descriptive ("meta")
data to the database each time the report is saved.

Example:

The Report.Template events are public and therefore must be assigned at
run-time.


1. In the private section of your form declaration you can declare an
event-handler method:

TForm = class(TForm)
private
procedure myTemplateOnLoadEndEvent(Sender: TObject);

public

end;


2. In the Form.OnCreate event, you can assign the event-handler to the
event:

procedure TForm1.FormCreate(Sender: TObject);
begin

ppReport1.Template.OnLoadEnd := myTemplateOnLoadEndEvent;

end;


3. Implement the event-handler method:

procedure TForm1.myTemplateOnLoadEndEvent(Sender: TObject);
begin

{add code here to initialize the report or data, etc. }
ppReport1.PrinterSetup.MarginTop := 0.5;

end;



--
Tech Support mailto:support@digital-metaphors.com
Digital Metaphors http://www.digital-metaphors.com








--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com