Данный пример будет реализован Memo и его свойств относительно шрифта. При выборе стиля и размера шрифта, в поле Memo, написанный некоторый отрывок текста будет меняться.
Собственно создаем новый проект и сохраним его. Для нашей основной формы сразу напишем название в свойстве Caption – Работа с текстом. Форма у меня получилась размером 382 на 582 – это впрочем, не так уж важно. Для стиля нам потребуется 3 компонента CheckBox, а для самого шрифта 3 переключателя RadioButton. Так же для размера шрифта я использовал StaticText1 внизу, Label1 с текстом в Caption – Размер шрифта и Edit1 для его изменения. Соответственно у CheckBox-ов меняем названия (Caption) : жирный, курсив и подчеркнутый, а для RadioButton – Times NewRoman, Arial и Courier. Собственно сам компонент Memo – назовем его MyMemo в поле Name. Все, на этом этапе уже можно начать программирование.
Итак, при активации или запуске нашей формы в Events событии формы OnCreate:
MyMemo.Text:=»;
StaticText1.Caption:= Введите размер: ‘ + IntToStr(MyMemo.Font.Size);
Edit1.Text:= IntToStr(MyMemo.Font.Size);
очищаем MyMemo, в StaticText1 записываем текущее значение размера шрифта MyMemo.Font.Size и в Edit1 (однострочное окно редактирование) передаем размер шрифта, путем преобразования этой переменной в строковый тип. Вы можете купить лицензионный софт на сайте softlist.com.ua/catalog/multimedia/category-video по оптимальной цене. Используя лицензионные мультимедийные проигрыватели видео и аудио, работа за компьютером будет комфортной и простой.
Чтобы напрямую текст менялся на жирный, в событии (OnClick) первого индикатора CheckBox1 запишем проверку if-else:
if CheckBox1.Checked then
MyMemo.Font.Style:= MyMemo.Font.Style + [fsBold]
else
MyMemo.Font.Style:= MyMemo.Font.Style — [fsBold];
Данные свойства стиля текста Вы можете увидеть на вкладке Properties инспектора Object Inspector при выделенном MyMemo. Получается добавление свойства fsBold (текст является жирным). Для курсива (CheckBox2) соответственно fsItalic и для подчеркнутого (CheckBox3) – fsUnderline.
Переключатели, которые будут задавать сам шрифт то же в Событии (OnClick):
MyMemo.Font.Name := ‘Times New Roman’; // для RadioButton1
MyMemo.Font.Name := ‘Arial’; // для RadioButton2
MyMemo.Font.Name := ‘Courier’; // для RadioButton3
Остается дописать для Edit1 (окно редактирования размера) в событии (Events) OnChange следующее:
MyMemo.Font.Size:= StrToInt (Edit1.Text);
StaticText1.Caption:= ‘Размер шрифта: ‘ + IntToStr(MyMemo.Font.Size);
Вот, кажется все. Сохраняем и запускаем. Проверяем, что все работает. Есть только один недостаток – размерность шрифта может быть только целым числом. У Вас есть идеи по этому поводу?
. delphi checkbox курчивны шрифт delphi memo пример delphi memo пример работа с сокетами Delphi delphi memo