Контрольная работа по информатике «Итоговая контрольная работа по информатике. 8 класс»
Инструкция по выполнению работы
ит из трех частей, включающих в себя 11 заданий. Часть 1
4 задания. Часть 3 содержит 1 задание (на выбор), к к
му (на бумаге). На выполнение работы отводится 40
апы решения задач записывать в работе. При оценивании у
Ход решения задачи.
Часть 1
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится