Шрифты в TCombobox

[Claster]

Добрый вечер. Кто знает, как в TCombobox отобразить список шрифтов, установленных на компьютере.

[Terran]

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

Добрый вечер. Кто знает, как в TCombobox отобразить список шрифтов, установленных на компьютере.

Для отображения шрифтов используйте компонент FontDialog.

[Claster]

А процедургу не могли бы вы написать для отображения именно в Комбобоксе

[mihali4]

Да, пожалуйста.
Combobox1.Items:=Screen.Fonts;
Хотите составить конкуренцию MSWord-у?

[Claster]

Я так понимаю надо применя в процедуре DropDown.
Вопрос. Как сделать что бы выбранный шрифт был применён к тексту в RichEdit

[mihali4]

Открою вам страшную тайну...
Зайдите в каталог ...\Delphi7\Demos\RichEdit.
Там находится пример готового текстового редактора, который специально для вас вложили в комплект Дельфи разработчики из Борланда. Там есть все, вас интересующее.

[Claster]

Да да я в курсе, но дело в том что я сдела аналогично тому как там, всё компилит но списка шрифтов нету!
Гляньте скажие в чём ошибка

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Editor: TRichEdit;
    procedure ComboBox1Change(Sender: TObject);
  private
    FUpdating: Boolean;
    function CurrText: TTextAttributes;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.CurrText: TTextAttributes;
begin
  if Editor.SelLength > 0 then Result := Editor.SelAttributes
  else Result := Editor.DefAttributes;
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if FUpdating then Exit;
  CurrText.Name := ComboBox1.Items[ComboBox1.ItemIndex];
end;

end.

[_SERGEYX_]

procedure TForm1.FormCreate(Sender: TObject);
begin
Combobox1.Items:=Screen.Fonts;
if ComboBox1.Items.Count>0 then
 ComboBox1.Text:= Editor.Font.Name;
end;

[Claster]

Странно текст остаёться всё тотже не меняется!

[mihali4]

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

Странно текст остаёться всё тотже не меняется!

А что же тут странного? Вы нигде атрибуты не меняете. И функция ваша просто возвращает атрибуты выделенного текста...
Зря манкируете моим предложением насчет борландовского редактора.