<< Click to display table of contents >> TSRichViewEdit.OnMarginsChanged

Occurs before margins are changed.

type

   TSRVMarginsChangedEvent = procedure(Sender: TSRichViewEdit;

     var NewLeft, NewTop, NewRight, NewBottom : Integer;

     OldLeft, OldTop, OldRight, OldBottom : Integer) of object;

 

property OnMarginsChanged : TSRVMarginsChanged;

NewLeft, NewTop, NewRight, NewBottom – new margins, pixels.

OldLeft, OldTop, OldRight, OldBottom – old margins, pixels.

Unlike values of LeftMarginPix, TopMarginPix, RightMarginPix, BottomMarginPix properties, these parameters contain unscaled values (as if ViewProperty.ZoomPercent=100).

If one of Old*** parameters is equal to -1, this margin was not changed; the corresponding New*** parameter must be ignored.

If you assign -1 to one of New*** parameters, this margin will not be changed.

This event occurs:

•when assigning new values to LeftMargin, RightMargin, TopMargin, BottomMargin properties of PageProperty, or

•when calling SetMargin, SetMarginMM or SetMarginUnit methods.

Example:

// SRVPrint: TSRVPrint is placed on the form

procedure TForm1.SRichViewEdit1MarginsChanged(

  Sender: TSRichViewEdit; var NewLeft, NewTop, NewRight,

  NewBottom: Integer; OldLeft, OldTop, OldRight, OldBottom: Integer);

var

  ValueLeft, ValueRight, ValueTop, ValueBottom : Integer;

begin

  if SRVPrint1.CheckMargin(ValueLeft, ValueTop, ValueRight, ValueBottom,

    NewLeft, NewTop, NewRight, NewBottom) then begin

    NewLeft := ValueLeft;

    NewTop := ValueTop;

    NewRight := ValueRight;

    NewBottom := ValueBottom;

  end;

end;