<< Нажмите, чтобы показать Содержание >> TFontInfo.Assign

Копирует содержимое Source в этот текстовый стиль.

procedure Assign(Source: TPersistent); 

Вызовите Assign, чтобы скопировать в этот текстовый стиль свойства объекта TFont, TCustomRVInfo, TCustomRVFontInfo или TFontInfo.

Пример:

// Копирование TFont в стиль текста:

MyRVStyle.TextStyles[0].Assign(MyEdit.Font);

 

// Копирование одного стиля текста в другой:

MyRVStyle.TextStyles[0].Assign(MyRVStyle.TextStyles[1]);

// или, то же самое:

MyRVStyle.TextStyles[0] := MyRVStyle.TextStyles[1];