Re: page setup and actions

Return to index

Author

Message

Michael Philbrick

Posted: 12/03/2004 3:17:43

Sergey,

Okay, let me make sure I understand this. I have several instances of TRichViewEdit

components on different forms. All use a central ActionList. This works fine.

So, I need to place a TRVPrint and TRVAControlPanel object on each form that

contains a TRichViewEdit, correct? I tried it with one and the page setup

appears correctly.

Next question about page setup:

I want it to show inches, not mm. I found this in your code:

procedure TrvActionPageSetup.ExecuteTarget(Target: TObject);

var frm: TfrmRVPageSetup;

begin

  frm := TfrmRVPageSetup.Create(Application);

  try

    if MarginsUnits=rvpmuInches then

      frm.UseInches;

    if frm.Init and (frm.ShowModal=mrOk) then begin

      frm.Apply;

      if Assigned(FOnChange) then

         FOnChange(Self);

    end;

  finally

    frm.Free;

  end;

end;

Where do I set this "MarginUnits" property to inches? I cannot find a property

for inches in any of the controls.

Thank you.

"Sergey Tkachenko" <[email protected]> wrote:

>Create RVPrint component and assign it to RVAControlPanel.RVPrint property

>(at designtime, in the Object Inspector). RVPrint is required because it

>stores information about margins.

>It's required for programs using RichViewActions - RVAControlPanel is not

>present in applications which do not use actions.

>All printing actions will use this RVPrint component.

>If it is not assigned, the most of printing actions create a temporal

>RVPrint and use it for printing.

>But the PageSetup action cannot do it - because it does not make sense to

>store margins in temporal RVPrint, it must be permanent.

>

>