Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 51 стр.

                                    - 51 -




        Рис.8. Диалоговое окно компонента TSaveDialog


5.20.3. КОМПОНЕНТ TFontDialog

   Компонент TFontDialog служит для выбора шрифта (очертания симво-
лов), выбранное значение содержится в свойстве Font (диалоговое окно ком-
понента приведено на рис.9).
   Свойство Device определяет тип устройства, для которого выбираются
шрифты. Options задает режимы диалоговой панели, MinFontSize и Max-
FontSize ограничивают высоту выбираемых шрифтов. Например, в следую-
щем примере показано, как отобразить список только TrueType-шрифтов и
присвоить выбранный шрифт компоненту Memo_1 (т.е. изменить шрифт
отображения строк в Memo_1)

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 with FontDialog1 do
 begin
  Options:=[fdTrueTypeOnly]; { только TrueType фонты ! }
  if Execute then
  Memo_1.Font:=Font; { собственно присваивание типа шрифта }
 end;
end;