Класс TFont, основные методы и свойства. Пример.
С помощью класса TFont создается объект-шрифт для любого графического устройства (экрана, принтера, плоттера и т. п.).
Свойства класса:
| property Color: TColor;
| Цвет шрифта
| | property Charset: TFontCharSet;
| Набор символов. Для русскоязычных программ это свойство обычно имеет значение DEFAULTCHARSET или russian charset. Используйте значение OEMCHARSET для отображения текста MS-DOS (альтернативная кодировка)
| | property FontAdapter: IChangeNotifier;
| Поставляет информацию о шрифте в компоненты ActveX
| | property Handle:hFont;
| Дескриптор шрифта. Используется при непосредственном обращении к API-функциям Windows
| | property Height: Integer;
| Высота шрифта в пикселях экрана
| | property Name: TFontName;
| Имя шрифта. По умолчанию имеет значение MS
Sans Serif
| | property Pitch: TFontPitch;
| Определяет способ расположения букв в тексте: значение fpFixed задает моноширинный текст, при котором каждая буква имеет одинаковую ширину; значение fpVariabel определяет ропорциональный текст, при котором ширина буквы зависит от ее начертания; fpDefault определяет ширину, принятую для текущего шрифта
| | property PixelPerInch: Integer;
| Определяет количество пикселей экрана на один дюйм реальной длины. Это свойство не следует изменять, т. к. оно используется системой для обеспечения соответствия экранного шрифта шрифту принтера
| | property Size: Integer;
| Высота шрифта в пунктах (1/72 дюйма). Изменение этого свойства автоматически изменяет свойство Height и наоборот.
| | property Style: TFontStyles;
| Стиль шрифта. Может принимать значение как комбинация следующих признаков: fsBold (жирный), fsltalic (курсив), fsUnderline (подчеркнутый), fsStrikeOut (перечеркнутый)
| Для некоторых случаев может оказаться полезным метод
procedure Assign(Source: TPersistent);
с помощью которого значения свойств шрифтового объекта source присваиваются свойствам текущего шрифта. Метод не изменяет свойство pixeiperinch, поэтому его можно использовать для создания шрифта принтера по экранному шрифту и наоборот.
Класс TPen, методы и свойства. Пример
С помощью класса треп создается объект-перо, служащий для вычерчивания линий. Свойства класса:
| property Color: TColor;
| Цвет вычерчиваемых пером линий
| | property Handle: Inte
ger;
| Дескриптор пера. Используется при непосредственном обращении к API-функциям Windows
| | property Mode: TPenMode;
| Определяет способ взаимодействия линий с фоном (см.ниже)
| | property Style: TPenStyle;
| Определяет стиль линий (см. рис. 16.2). Учитывается только для толщины линий 1 пиксель. Для толстых линий стиль всегда ps Solid (сплошная)
| | property Width: Integer;
| Толщина линий в пикселях экрана
| | Свойство Mode может принимать одно из следующих значений:
| | pmBlack
| Линии всегда черные. Свойства Color и Style игнорируются
| | pmWhite
| Линии всегда белые. Свойства Color и Style игнорируются
| | pmNop
| Цвет фона не меняется (линии не видны)
| | pmNot
| Инверсия цвета фона. Свойства Color и Style игнорируются
| | pmCopy
| Цвет линий определяется свойством Color пера
| | pmNotCopy
| Инверсия цвета пера. Свойство Style игнорируется
| | pmMergePenNot
| Комбинация цвета пера и инверсионного цвета фона
| | pmMaskPenNot
| Комбинация общих цветов для пера и инверсионного цвета фона. Свойство Styleигнорируется
| | pmMergeNotPen
| Комбинация инверсионного цвета пера и фона
| | pmMaskNotPen
| Комбинация общих цветов для инверсионного цвета пера и фона. Свойство Styleигнорируется
| | pmMerge
| Комбинация цветов пера и фона
| | pmNotMerge
| Инверсия цветов пера и фона. Свойство Style игнорируется
| | pmMask
| Общие цвета пера и фона
| | pmNotMask
| Инверсия общих цветов пера и фона
| | pmXor
| Объединение цветов пера и фона операцией XOR
| | pinNotXor
| Инверсия объединения цветов пера и фона операцией XOR
|
26.Класс TBrush. Методы и свойства. Пример
Объекты класса TBrush (кисти) служат для заполнения внутреннего пространства замкнутых фигур.
Свойства класса:
| property Bitmap: TBitmap;
| Содержит растровое изображение, которое будет использоваться кистью для заполнения. Если это свойство определено, свойства Color и Style игнорируются
| | property Color: TColor;
| Цвет кисти
| | property Handle: Integer;
| Дескриптор кисти. Используется при не посредственном обращении к API- функциям Windows
| | property Style: TBrushStyle;
| Стиль кисти (см. рис. 16.3)
| Класс TBrush задает характеристики кисти, которой заливаются
внутренние области изображения. Основные свойства кисти представ-
лены в табл. 1.2.
Таблица 1.2. Свойства объекта Brush (кисть)
Программно определить характеристики кисти можно, используя
следующее присваивание:
with Image1.Canvas do
begin
Brush.Color:=clRed;
Brush.Style:= bsCross;
Rectangle(10,10,100,100)
end
В рассмотренном фрагменте программного кода рисуется прямо-
угольник, заполненный красной штриховкой в клетку.
Рассмотрим пример назначения битового стиля кисти:
procedure TForm1.FormCreate(Sender: TObject);
var
Bitmap: TBitmap; //переменная для хранения образа кисти
begin
Bitmap:=TBitmap.Create;//создание объекта – битового образа1
try
//Загрузка битового изображения из файла Picture.bmp
Bitmap.LoadFromFile('Picture.bmp');
//Назначение битового изображения в качестве стиля кисти
Image1.Canvas.Brush.Bitmap:=Bitmap;
//Рисуем закрашенный эллипс
Image1.Canvas.Ellipse(20,20,180,180);
finally
Image1.Canvas.Brush.Bitmap:=nil;
//Освобождение памяти, выделенной под изображение
Bitmap.Free
end
end;
|
