Меняем шрифт в RichEdit через ComboBox (Delphi 7)

[munthrekosh]

Есть следующая прога:


Только я вам её не отдам
Ибо стыдно

Ну таке вот... С помощью имеющихся ComboBox'ов нужно динамически менять в RichEdit'е:

• Шрифт;
• Размер шрифта;
• Цвет шрифта.

Как это сотворить?

P.S. Нашёл на просторах иннета следующий способ изменения шрифта:

procedure TForm3.ComboBox1Change(Sender: TObject);
begin
  if combobox1.Text='Broadway' then richedit1.SelAttributes.Name:='Broadway';
  if combobox1.Text='Chiller' then richedit1.SelAttributes.Name:='Chiller';
  if combobox1.Text='Calibri' then richedit1.SelAttributes.Name:='Calibri';
  if combobox1.Text='Elephant' then richedit1.SelAttributes.Name:='Elephant';
  if combobox1.Text='Monotype Corsiva' then richedit1.SelAttributes.Name:='Monotype Corsiva';
end;

И отсюда у меня два вопросов.

• Можно ли иначе замутить и как?
• Можно ли добавить другие шрифты и как?

Выручайте мужики!

P.S.S. Дам не упоминаю, ибо появление таковых здесь считаю маловероятным

[Пепел Феникса]

Нашёл на просторах иннета следующий способ изменения шрифта:

ужастный код.
достаточно просто

richedit1.SelAttributes.Name:=combobox1.Text

.
а в FormCreate добавьте

Combobox.Items:=Screen.Fonts;

[Аватар]

Хороший диалог есть FontDialog. Повесить на кнопку обращение к нему и можно без комбобоксов менять не только имя фонта, но и стиль, размер, цвет

[munthrekosh]

Пепел Феникса, спасибо. Но как быть с размером и цветом шрифта. Можешь объяснить, что в combobox значит SelAttributes и что конкретно в FormCreate делает эта строчка?

Хороший диалог есть FontDialog. Повесить на кнопку обращение к нему и можно без комбобоксов менять не только имя фонта, но и стиль, размер, цвет

Да я знаю про эту хорошую вешчь, но вод беда. Делать нужно именно через комбобоксы!

[Пепел Феникса]

Можешь объяснить, что в combobox значит SelAttributes

в боксе нет такого свойства, а про рич справку смотрим

Но как быть с размером и цветом шрифта.

цвет это Color вместо Name, и соответсвенно размер это Size.

что конкретно в FormCreate делает эта строчка?

заносит в бокс доступные для отображения шрифты.

[munthrekosh]

=(
Млиииин...


Как с Color быть?

[Stilet]

StrToInt(Combobox2.Text)
Но лучше замени его на TColorBox

[munthrekosh]

Спасибо всем!