Procedure TForm1.Button1Click(Sender: TObject); begin If FontDialog.Execute then RichEdit1.SelAttributes.Assign(FontDialog1.Font); RichEdit1.SetFocus; End; end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу. Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа RichEdit1.SelAttributes.Font := FontDialog1.Font и конечно описка выделенная ранее, как на нее только компилятор не матерится
1)многофункциональное электронное програмно управляемое устройство для работы с информацией
2)сканер
3)тактовой частоты процессора
4)Программа - это последовательность… *
команд для компьютера
5)внешняя память
6)в двоичном коде
7)Принтер - устройство кодирования
8)Операционная система - это программы, управляющие работой компьютера
9)программа, обеспечивающая работу устройства компьютера
10)а) программа для обработки информации без знания программирования
11)г) в оперативной памяти
12)аппаратным интерфейсом
13)в) рисунков и фотографий
14)пользовательский интерфейс
15)Логический диск
16)вредоносная программа нанести ущерб данным на копьютере или вывести его из стро
17)Графическим файлам
18)Один любой допустимый символ
19)C
20)Файловая система
21)клавиатура, джойстик,монитор,мышь
22)C:\Работа1
23)-
24)-
25)расширение
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится