Re: PageSetup changes and event

Return to index

Author

Message

Sergey Tkachenko

Posted: 04/18/2004 12:44:01

The same situation is in RichViewActions' print preview dialog.

You can look how it's implemented. The print preview is updated after every

call of page setup action, even if user pressed Cancel.

Actually, the change is simple.

Open RichViewActions.pas, add in the TrvActionPageSetup declaration:

in private:

  FOnChange: TNotifyEvent;

in published:

  property OnChange: TNotifyEvent read FOnChange write FOnChange;

Implementation:

procedure TrvActionPageSetup.ExecuteTarget(Target: TObject);

var frm: TfrmRVPageSetup;

begin

  frm := TfrmRVPageSetup.Create(Application);

  try

    { // inches is for the last version available

        // for registered users

    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;

> Sergey does it means that I can't catch(in this ver) then pagesetup is

> updated.

>

> My situation is:

>

> I have created PrintPreview by myself.

> I have putted PageSetup button(action) in PrintPreview form to make

> possibility for end-user to change the print page setup like margins and

> orentation.

> The page changes works fine for TRichViewEdit vcl but in this version, as

I

> understand, impossible to know then page setup is updated.

> In this case it is impossible to update TRVPrintPreview state(view).

>

> Thanks you and have a good day.

>

> "Sergey Tkachenko" <[email protected]> wrote in message

> news:[email protected]...

> > Yes, it makes sense.

> > Currently even RichViewActions' print preview is updated regardless

> pressing

> > Ok or Cancel in the page setup dialog.

> >

> > In the next update TrvActionPageSetup will have a new event: OnChange.

> > It will be called after applying page setup changes.

> >

> > > Hi,

> > >

> > > How to find out when page orentation is changed in PageSetup

> > > dialog(rvActionPageSetup)?

> > > I need to update TRVPrintPreview view then this happens.

> > >

> > > Thanks

> > >

> > >

> > >

> >

> >

>

>