Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.23;
Скачать: 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 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
1-1103878137
Der Schlangen
2004-12-24 11:48
2005.01.23
TCHART - есть вопросы кто подскажет


1-1105475979
vladimir24
2005-01-11 23:39
2005.01.23
работа в Delphi


3-1103534177
vvllaadd
2004-12-20 12:16
2005.01.23
Тип поля задан ALPHA, почему выдается такая ошибка


14-1104390029
Чеширский_Кот
2004-12-30 10:00
2005.01.23
Renée Zellweger


1-1105030304
lutik
2005-01-06 19:51
2005.01.23
TTreeView