Приравнивание одного шрифта к другому

← →
pasha L (2005-01-09 18:29) [0]

У меня есть var font1:TFont; Я хочу, чтобы он был такой же, как и TFont моего текстового поля TRichEdit (поле называется txt). Ето у меня получается очень просто font1:=txt.font, но после этого все изменения font1 отражаются на txt.font. Как этого избежать? Я пробовал приравнивать каждое св-во отдельно, но у меня тут же вылезает ошибка потому, что font1 абсолютно новая переменная и св-ва в ней не обозначены.

← →
olookin © (2005-01-09 18:37) [1]

Как я понимаю, эта проблема решается так:

var font1: TFont;

font1:=TFont.Create;
font1.Assign(SomeOldFont);

← →
Yanis © (2005-01-09 18:43) [2]

Замени код font1 := txt.font на
font1 := Tfont.Create; font1.Assign(txt.Font);

Я слишком долго отвечал =)

Приравнивание одного шрифта к другому Найти похожие ветки