Скачать: CL | DM;

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

← →
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);


---

← →
Yanis ©   (2005-01-09 18:44) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c