Работа с FontDailog и FontComboBoX

[roperd]

Приветствую уважаемые программисты, очень требуется помощь, дело обстоит так, нужно чтобы при выделении определённого текста в RichEdit шрифты в FontDialog и FontComboBox одновременно менялись на его шрифт, например если одна часть выделенного текста имеет шрифт Arial то при её выделении соответственно шрифты менялись на Arial,, примерно как в WordPad, сделал одновременную смену шрифтов в этих двух компонентах, но по выделению фрагментов не получилось.

[Jaguar83]

FontDialog1.Font.Name := RichEdit1.SelAttributes.Name;
FontDialog1.Font.Size := RichEdit1.SelAttributes.Size;
FontDialog1.Font.Style := RichEdit1.SelAttributes.Style;
FontDialog1.Font.Color := RichEdit1.SelAttributes.Color;

Про компонент FontComboBoX не знаю... Где он вообще находится?

[roperd]

Сообщение от Jaguar83

FontDialog1.Font.Name := RichEdit1.SelAttributes.Name;
FontDialog1.Font.Size := RichEdit1.SelAttributes.Size;
FontDialog1.Font.Style := RichEdit1.SelAttributes.Style;
FontDialog1.Font.Color := RichEdit1.SelAttributes.Color;

Про компонент FontComboBoX не знаю... Где он вообще находится?

Этот дополнительный компонент из набора RxLib позволяет более удобней выбирать шрифты из выпадающего меню, то что вы мне написали не поможет, нужно чтобы только при выделении определённого текста такое было, а так эти атрибуты накладываются на весь FontDialog и не дают возможность менять шрифты стандартным методом, надо как то сделать. чтобы если выделенный текст не равен шрифту в FontDialog и FontComboBox, то только тогда происходило это-FontDialog1.Font.Name := RichEdit1.SelAttributes.Name;
FontDialog1.Font.Size := RichEdit1.SelAttributes.Size;
FontDialog1.Font.Style := RichEdit1.SelAttributes.Style;
FontDialog1.Font.Color := RichEdit1.SelAttributes.Color;, если равен то должно быть как обычно,то есть так:
RichEdit1.SelAttributies.Assign(Ric hEdit1.font);

[Аватар]

Для форматирования RichEdit совсем необязательно свои диалоги создавать, можно стандартными вещами воспользоваться. См. http://programmersforum.ru/showthread.php?t=159302

[Jaguar83]

В смысле не поможет? Проверял хотя бы?

RichEdit1.SelAttributes распространяется только на выделенный текст.
Для проверки загрузи RTF-документ с разным форматированием, брось на форму TLabel и напиши следующий обработчик события

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (RichEdit1.SelLength <> 0) then begin
  FontDialog1.Font.Name := RichEdit1.SelAttributes.Name;
  FontDialog1.Font.Size := RichEdit1.SelAttributes.Size;
  FontDialog1.Font.Style:= RichEdit1.SelAttributes.Style;
  FontDialog1.Font.Color:= RichEdit1.SelAttributes.Color;
  Label1.Caption := FontDialog1.Font.Name + ', ' + IntToStr(FontDialog1.Font.Size);
end;
end;

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

PS. Несколько раз перечитал вопрос. Вроде бы всё правильно понял, или у ТС очевидные проблемы в формулировании своих мыслей.

[roperd]

Сообщение от Jaguar83

В смысле не поможет? Проверял хотя бы?

RichEdit1.SelAttributes распространяется только на выделенный текст.
Для проверки загрузи RTF-документ с разным форматированием, брось на форму TLabel и напиши следующий обработчик события

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (RichEdit1.SelLength <> 0) then begin
  FontDialog1.Font.Name := RichEdit1.SelAttributes.Name;
  FontDialog1.Font.Size := RichEdit1.SelAttributes.Size;
  FontDialog1.Font.Style:= RichEdit1.SelAttributes.Style;
  FontDialog1.Font.Color:= RichEdit1.SelAttributes.Color;
  Label1.Caption := FontDialog1.Font.Name + ', ' + IntToStr(FontDialog1.Font.Size);
end;
end;

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

PS. Несколько раз перечитал вопрос. Вроде бы всё правильно понял, или у ТС очевидные проблемы в формулировании своих мыслей.

Спасибо и правда помогло, но работает только в одном из элементов либо в FontDialog либо в FontComboBox , буду думать как сделать, чтобы в обоих работал...