| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите с RichEdit [D5, WinXP]

Yus ©   (2007-06-11 05:11:00) 

Печатает шрифтом "Tahoma". Не знаю, что нужно сделать, чтобы установить в RichEdit шрифт. Пробовал устанавливать в обработчике "OnKeyPress", шрифт устанавливается, но первый знак -  шрифт "Tahoma".

procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
caption:=RichEdit1.SelAttributes.Name;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
RichEdit1.SelAttributes.Name:='MS Sans Serif';
RichEdit1.Font.Name:='MS Sans Serif';
RichEdit1.DefAttributes.Name:= 'MS Sans Serif';
end;

---

Yus   (2007-06-11 05:19:00) [1]

Под Win98 глюка нет.

---

Наверх