TIETextAttributes.Assign

Declaration

procedure Assign(Source: TPersistent);

Description

Assign font and text attributes from another object. Source can be a TFont, TTextAttributes or TIETextAttributes object.

Examples

// Copy attributes from a TFont
var
  MyFont: TFont;
begin
  MyFont := TFont.Create();
  try
    MyFont.Name := 'Arial';
    MyFont.Size := 12;
    MyFont.Style := [fsBold];
    IERichEdit1.SelAttributes.Assign(MyFont);
  finally
    MyFont.Free;
  end;
end;

// Copy attributes from another TIETextAttributes
IERichEdit1.SelAttributes.Assign( IERichEdit2.SelAttributes );

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

---