TIETextAttributes.AssignTo

Declaration

procedure AssignTo(Dest: TPersistent);

Description

Assign the current text attributes to another object. Dest can be a TFont, TTextAttributes or TIETextAttributes object.

Examples

// Copy attributes to a TFont
var
  MyFont: TFont;
begin
  MyFont := TFont.Create();
  try
    IERichEdit1.SelAttributes.AssignTo(MyFont);
    Label1.Font.Assign(MyFont);
  finally
    MyFont.Free;
  end;
end;

// Copy attributes to another TIETextAttributes
IERichEdit1.SelAttributes.AssignTo(IERichEdit2.SelAttributes);

// Copy attributes to a TRichEdit
IERichEdit1.SelAttributes.Assign( RichEdit1.SelAttributes );

---