Шрифт для редактора

@Smayluk · Регистрация: 26.11.2011

Author24 — интернет-сервис помощи студентам

Как сделать так, что бы когда я нажымаю кнопку Жырный, у меня кнопка вигледела как нажатая и когда я текст в RichEdit буду набирать у меня был шрифт жырный, а когда я снова нажымаю клавишу то он простой становится?

@Arcor · 03.12.2011, 18:59

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  if n = 0 then
    begin
      RichEdit1.SelAttributes.Style := [fsBold];
      n := 1;
    end
  else
   begin
      RichEdit1.SelAttributes.Style := [];
      n := 0;
    end;
end;

n - глобальная Integer

@Smayluk 0 / 0 / 0 Регистрация: 26.11.2011 Сообщений: 43
		1
	Шрифт для редактора 03.12.2011, 15:24. Показов 1753. Ответов 1 Метки нет (Все метки) Как сделать так, что бы когда я нажымаю кнопку Жырный, у меня кнопка вигледела как нажатая и когда я текст в RichEdit буду набирать у меня был шрифт жырный, а когда я снова нажымаю клавишу то он простой становится? 0

	03.12.2011, 18:59

Шрифт для редактора

Решение