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

Помогите с RichEdit   Найти похожие ветки 

← →
Yus   (2007-06-11 05:11) [0]

Печатает шрифтом "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) [1]

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

---

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

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



Память: 0.44 MB
Время: 0.016 c