Пример: вывод всех шрифтов в системе

Для демонстрации вывода текста была написана программа, которая воспроизводит в графическом поле все установленные шрифты с указанием имен (попутно мы столкнулись с проблемой, описанной в конце раздела). Программа состоит из нестандартного элемента и формы с прокруткой (рис. 8.24).

Рис. 8.24. Вывод списка установленных шрифтов в форме с прокруткой

Список системных шрифтов возвращается методом InstalledFontCollection пространства имен System.Drawing.Text. Этот метод возвращает объект класса Sys-tem.Drawing.Text.FontCollection. Объекты, входящие в коллекцию FontCollection, представляют не шрифты, а семейства шрифтов (такие, как Arial или Courier). Вы должны выбрать из семейства нужный шрифт. Некоторые шрифты не имеют обычного начертания, поскольку их семейство состоит только из курсивных, узких, тонких и других модифицированных начертаний. Следовательно, в программе должен присутствовать фрагмент вида

For Each aFontFamily In TheFonts.Families

If aFontFamily.IsStyleAvailable(FontStyle.Regular) Then

Мы решили оформить программу в виде специализированного графического поля (элемент PictureBox), которое размещается на форме при загрузке. При этом на форме также включаются обе полосы прокрутки:

Private Sub Form1_Load(ByVal sender As System.Object._

ByVal e As System. EventArgs)Hand.les MyBase.Load

Me.VScroll = True

Me.HScroll = True

Me.AutoScroll = True

FontPictureBoxl.Left = 0

FontPictureBoxl.Top = 0

End Sub

Ниже приведен полный код специализированного графического поля:

1 Public Class FontPictureBox

2 Inherits System.Windows.Forms.PictureBox

3 Protected Overrides Sub OnPaint(ByVal pe As _

System.Windows.Forms.PaintEventArgs)

4 ' Всегда вызывайте Mybase.OnPaint!

5 MyBase.OnPaint(pe)

6 DisplayFonts(pe.Graphics)

7 End Sub

8 Private Sub OisplayFonts(ByVal g As Graphics)

9 ' HE РАБОТАЕТ: Dim g As Graphics = Me.CreateGraphics()

10 Dim aFontFamily As FontFamily

11 Dim curx.curY As Single

12 Dim TheFonts As System.Drawing.Text.FontCollection

13 Dim tempFont As Font

14 Dim spacing As Integer = 2 ' Вывод с интервалом 2 пиксела

15 TheFonts =New System.Drawing.Text.InstalledFontCollection()

16 For Each aFontFamily In TheFonts.Families

17 Me.Height += 2

18 If aFontFamily.IsStyleAvailable(FontStyle.Regular) Then

19 tempFont =New Font(aFontFamily. 14. FontStyle.Regular)

20 Elself aFontFamily.IsStyleAvailable(FontStyle.Bold) Then

21 tempFont =New Font(aFontFamily, 14. FontStyle.Bold)

22 Elself aFontFamily.IsStyleAvailable(FontStyle.Italic) Then

23 tempFont =New Font(aFontFamily, 14. FontStyle.Italic)

24 End If

25 g.DrawString("Thls is displayed in " & aFontFamily.Name._

26 tempFont. Brushes.Black, curx, curY)

27 DimtheSizeAs SizeF = g.MeasureString("This text is displayed in "_

28 & aFontFamily.Name. tempFont)

29 curY = curY + theSize.Height + spacing

30 Me.Height = Me.Height + CIntCtheSize.Height) + spacing

31 Me.Width = Math.Max(CInt(theSize.Width). Me.Width)

32 Next

33 End Sub

34 End Class

Обратите внимание: в строке 6 функции Displayfonts, определяемой в строках 8-33, передается текущий графический контекст — вместо того, чтобы создавать новый графический контекст вызовом Me.CreateGraphics(). В исходной версии эта вспомогательная процедура получала собственный контекст вместо использования контекста ре.Graphics, переданного в объекте PaintEventArgs. По каким-то загадочным причинам такое решение не работало. Закомментированный вызов Me. CreateGraphics0 остался в строке 9; при желании снимите комментарий и посмотрите, к чему это приведет.

При выводе текста необходимо знать высоту каждой строки. Высота вычисляется
в строках 27 и 28 очень полезной функцией MeasureString:

Public Function MeasureString(String.Font) As SizeF


Функция возвращает объект класса Si zeF — разновидность структуры Si ze, в которой вместо типа Integer используется тип Single. Поскольку класс SizeF содержит вещественные числа, в строках 30 и 31 преобразование осуществляется функцией CInt. В строке 30 происходит наращивание высоты графического поля, а строка 31 гарантирует, что ширина поля позволяет вместить самую длинную из выводимых строк. Проверка осуществляется методом Мах класса Math.

 

Печать

Печать в .NET — дело непростое, однако богатство возможностей окупает все хлопоты. В этом разделе мы подробно опишем процесс печати одной страницы (в основном на примере автоматически сгенерированного кода), а затем покажем, как напечатать несколько страниц. Также будет показано, как запрограммировать собственную процедуру печати с использованием делегата. Начнем с печати изображения, хранящегося в графическом поле.

Чтобы обойти некоторые ограничения, действующие в GDI+, мы будем предполагать, что изображение задается свойством Image, а не прямым копированием в графическое поле.
Печать в конечном счете сводится к выводу информации в графическом контексте, но вместо экранного контекста используется контекст, ассоциированный с принтером или окном предварительного просмотра печати.
Как при выводе на принтер, так и при использовании поддержки предварительного просмотра (Print Preview) в .NET работа всегда начинается с создания объекта класса System. Drawl ng. Pri nti ng. Pri ntDocument. Для получения этого объекта можно применить один из следующих способов:

Объявление объекта PrintDocument с ключевым словом WithEvents играет важней^ шую роль для понимания автоматически сгенерированного кода печати. Дело в том, что при вызове метода Print для экземпляра класса Pri ntDocument .NET инициирует по крайней мере три события:

Минимальная поддержка печати в программе требует программирования как минимум со бытия PrintPage.

При необходимости можно запрограммировать обработчики и для двух других событий, но фактическая печать выполняется именно в обработчике PrintPage. Два других события обычно используются для оповещения о начале и завершении печати.

Во втором параметре события Pri ntPage передается объект PagePri ntEventArgs. В этом объекте хранится много полезных данных, в том числе:

В следующем простом примере при нажатии кнопки вызывается метод Print класса PrintDocument:

Private Sub Buttonl_Click(ByVal sender As System.Object,_

ByVal e As System.EventArgs)

Handles Buttonl.Click

PrintDocumentl.Print()

End Sub

Метод Print вызывает событие PrintPage, поэтому на следующем этапе следует запрограммировать обработчик события PrintDocumentl_PrintPage, в котором и происходит непосредственная печать. Если обработчик был сгенерирован с помощью дизайнера, в заголовок автоматически включается соответствующая секция Handles:

1 Private Sub Pri ntDocumentl_PrintPage(

ByVal sender As System.Object. ByVal e As

System.Drawing.Printing.PrintPageEventArgs)

Handles PrintDocument1.PrintPage

2 Dim g As Graphics

3 g = e.Graphics

4 g.DrawImageCPictureBoxl.Image. 0. 0)

5 g.Dispose()

6 e.HasMorePages = False

7 End Sub

При выполнении этого фрагмента изображение печатается на принтере по умолчанию (о том, как сменить принтер, будет рассказано в следующем разделе). Хотя наш пример относительно прост, каждая строка в нем играет важную роль и заслуживает объяснения. В строке 1 событие связывается с процедурой, имеющей правильную сигнатуру, не требуя от вас прямого использования делегата (см. главу 6).

В строке 3 мы получаем объект Graphics, представляющий поверхность вывода текущего принтера. Строка 4 выводит изображение начиная с левого верхнего угла. Вывод происходит на принтере, с которым связан графический контекст. Присутствие вызова D1 spose в строке 5 связано с тем, что графические контексты (как было сказано выше) не освобождаются сборщиком мусора. Строка 6 сообщает об отсутствии дальнейших страниц для печати.