Форум: "Основная";
Текущий архив: 2007.08.19;
Скачать: [xml.tar.bz2];
ВнизПомогите с 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 вся ветка
Форум: "Основная";
Текущий архив: 2007.08.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.043 c