Пример 2. Системные диалоги. Загрузка текстового файла

 

Разработаем приложение, в котором осуществляется загрузка текстового файла в формате RTF или TXT в компонент RichEdit, а также существует возможность изменения параметров шрифта отображаемого текста при помощи вызова соответствующего системного диалога.

 

В приложении должно быть две стандартных кнопки (с надписями «Показать» и «Шрифт»), компонент RichEdit, компоненты OpenDialog и FontDialog (страница Dialogs).

 

Компоненты OpenDialog и FontDialog являются невизуальными, поэтому могут располагаться в любом месте формы.

 

Процедура для кнопки "Шрифт" должна выглядеть следующим образом:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if FontDialog1.Execute

     then RichEdit1.SelAttributes.Assign(FontDialog1.Font);

  RichEdit1.SetFocus;

end;

 

Процедура для кнопки «Показать» будет выглядеть так:

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  if OpenDialog1.Execute
     then
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);

end;