Файл: Практическая работа БД.doc

Свойство

Описание

property Color: TColor;

Цвет шрифта

property FontAdapter: IChangeNotifier;

Поставляет информацию о шрифте в компоненте ActveX  

property Height: Integer;

Высота шрифта в пикселях экрана

property Name: TFontName;

Имя шрифта. По умолчанию имеет значение MS

Sans Serif

property Size: Integer;

Высота шрифта в пунктах (1/72 дюйма). Изменение этого свойства автоматически изменяет свойство Height и наоборот.

property Style: TFontStyles;

Стиль шрифта. Может принимать значение как комбинация следующих признаков: fsBold (жирный), fsltalic (курсив), fsUnderline (подчеркнутый), fsStrikeOut (перечеркнутый)

Свойство

Описание

property Color: TColor;

Цвет вычерчиваемых пером линий

property Mode: TPenMode;

Определяет способ взаимодействия линий с фоном (см.ниже)

property Style: TPenStyle;

Определяет стиль линий (см. рис. П7.1). Учитывается только для толщины линий 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

Свойство

Описание

property Bitmap: TBitmap;

Содержит растровое изображение, которое будет использоваться кистью для заполнения. Если это свойство определено, свойства Color и Style игнорируются

property Color: TColor;

Цвет кисти

property Style: TBrushStyle;

Стиль кисти

Свойство

Описание

property Brush: TBrush; property ClipRect: TRect;

Объект-кисть. Определяет текущие размеры области, нуждающейся в прорисовке

property CopyMode: TCopyMode;

Устанавливает способ взаимодействия растрового изображения с цветом фона

property Font: TFont;

Объект-шрифт

property Pen: TPen;

Объект-перо

property PenPos:TPoint;

Определяет текущее положение пера в пикселях относительно левого верхнего угла канвы

property Pixels[X,Y:Integer]: TColor;

Массив пикселей канвы

Свойство СopyMode может принимать одно из следующих значений (свойство используется при копировании части одной канвы (источника) в другую (приемник) методом copyRect).

Свойство

Описание

cmBlackness

Заполняет область рисования черным цветом

cmDestInvert

Заполняет область рисования инверсным цветом фона

cmMergeCopy

Объединяет изображение на канве и копируемое изображение операцией and

cmMergePaint

Объединяет изображение на канве и копируемое изображение операцией OR

cmNotSrcCopy

Копирует на канву инверсное изображение источника

cmNotSrcErase 

Объединяет изображение на канве и копируемое изображение операцией OR и инвертирует полученное

cmPatCopy

Копирует образец источника

cmPatInvert

Комбинирует образец источника с изображением на канве с помощью операции XOR

cmPatPaint

Комбинирует изображение источника с его образцом с помощью операции OR, затем полученное объединяется с изображением на канве также с помощью OR

cmSrcAnd 

Объединяет изображение источника и канвы с помощью операции AND

cmSrcCopy

Копирует изображение источника на канву

cmSrcErase

Инвертирует изображение на канве и объединяет результат с изображением источника операцией AND

cmSrcInvert

Объединяет изображение на канве и источник операцией XOR

cmSrcPaint

Объединяет изображение на канве и источник операцией OR

cmWhitness

Заполняет область рисования белым цветом

Метод

Описание

procedure Arc(X1, Y1, X2, Y2, ХЗ, Y3, Х4, Y4: Integer);

Чертит дугу эллипса в охватывающем прямо-угольнике (Xl,Yl)-(X2,Y2). Начало дуги лежит на пересечении эллипса и луча, проведенного из его центра в точку (ХЗ,Y3), а конец-на пересечении с лучом из центра в точку (Х4,Y4). Дуга чертится против часовой стрелки.

procedure BrushCopy

(const Dest: TRect;

Bitmap: TBitmap;

const Source: TRect;

Color: TColor);

Копирует часть изображения Source на участок канвы Dest. Color указывает цвет в Dest, который должен заменяться на цвет кисти канвы. Метод введен для совместимости с ранними версиями Delphi. Вместо него следует пользоваться класс-сом Т Image List

procedure Chord(XI, Yl, X2, Y2, X3, Y3,

Чертит сегмент эллипса в охватывающем прямо-угольнике (XI,У1)-(X2,Y2). Начало дуги сегмента лежит на пересечении эллипса и луча, проведен-ного из его центра в точку (X3,Y3), а конец-на пересечении с лучом из центра в точку (X4,Y4). Дуга сегмента чертится против часовой стрелки, а начальная и конечная точки дуги соединяются прямой.

procedure CopyRect (Dest: TRect; Canvas: TCanvas;Source: TRect) ;

Копирует изображение Source канвы Canvas в участок Dest текущей канвы. При этом разнооб-разные специальные эффекты достигаются с по-мощью свойства CopyMode

procedure Draw(X,Y:Integer; Graphic:TGraphic) ;

Осуществляет прорисовку графического объекта Graphic так, чтобы левый верхний угол объекта расположился в точке (X, Y)

procedure DrawFocusRect (const Rect:TRect) ;

Прорисовывает прямоугольник с помощью операции XOR, поэтому повторная прорисовка уничтожает ранее вычерченный прямоугольник. Используется в основном для прорисовки нестандартных интерфейсных элементов при получении ими фокуса ввода и при потере его

procedure Ellipse(XI, Yl, X2, Y2: Integers;

Чертит эллипс в охватывающем прямоугольнике (XI,Yl)-(X2,Y2). Заполняет внутреннее простран-ство эллипса текущей кистью

procedure FillRect(const Rect: TRect);

Заполняет текущей кистью прямоугольную об-ласть Rect, включая ее левую и верхнюю грани-цы, но не затрагивая правую и нижнюю границы

procedure Flood-

Fill(X, Y: Integer;

Color: TColor; Fill Style: TFillStyle);

Производит заливку канвы текущей кистью. Заливка начинается с точки (X,Y) и распрост-раняется вовсе стороны от нее. Если FillStyle= fsSurface, заливка распространяется на все сосе-дние точки с цветом Color. Если FillStyle= fsBorder, наоборот, заливка прекращается на точ-ках с этим цветом

procedure FrameRect(const Rect: TRect);

Очерчивает границы прямоугольника Rect теку-щей кистью толщиной в 1пиксель без заполнения внутренней части прямоугольника

procedure LineTo(X,

Y: Integer);

Чертит линию от текущего положения пера до точки (X,Y)

procedure Lock;

Блокирует канву в многопоточных приложениях для предотвращения использования канвы в других по токах команд

procedure MoveTo(X,Y: Integer);

Перемещает перо в положение (X,Y) без вычер-чивания линий

procedure Pie(XI,

Yl, X2, Y2, X3, Y3,

X4, Y4: Longint);

Рисует сектор эллипса в охватывающем прямоугольнике (XI,Yl)-(X2,Y2). Начало дуги лежит на пересечении эллипса и луча, проведен-ного из его центра в точку (X3,Y3), а конец - на пересечении случом из центра в точку (X4,Y4). Дуга чертится против часовой стрелки. Начало и конец дуги соединяются прямыми с ее центром

procedure Polygon.

(Points: array of TPoint) ; 

Вычерчивает пером многоугольник по точкам, за-данным в массиве Points. Конечная точка соеди-няется с начальной и многоугольник заполняется кистью. Без заполнения используйте -Polyline

procedure Polyline

(Points: array of TPoint);

Вычерчивает пером ломаную прямую по точкам, заданным в массиве Points

procedure Rectan

gle(XI, Yl, X2, Y2:

Integer);

Вычерчивает и заполняет прямоугольник (XI,Yl)-S(X2,Y2). Для вычерчивания без заполнения используйте FrameRect или Polyline

procedure Refresh;

Устанавливает в канве умалчиваемые шрифт и кисть

procedure RoundRect(Xl, Yl, X2,Y2, X3, Y3: Inte ger) ;

Вычерчивает и заполняет прямоугольник (XI,Yl)- (X2,Y2) со скругленными углами. Прямоугольник (XI,Yl)-(X3,Y3) определяет дугу эллипса для округления углов

procedure Stretch Draw (const Rect:TRect; Graphic: TGraphic );

Вычерчивает и при необходимости масштабирует графический объект Graphic так, чтобы он полностью занял прямоугольник Rect

function TextExtent

(const Text:String): TSize;

Возвращает ширину и высоту прямоугольника, охватывающего текстовую строку Text

function TextHeight

(const Text: String): Integer;

Возвращает высоту прямоугольника, охватыва-ющего текстовую строку Text 

procedure TextOut(X,

Y: Integer; const Text: String) ;

Выводит текстовую строку Text так, чтобы левый

верхний угол прямоугольника, охватывающего текст, располагался в точке (X, Y)

procedure TextRect(Rect: TRect; X, Y:

Integer; const Text:

String) ;

Выводит текстовую строку Text так, чтобы левый верхний угол прямоугольника, охватывающего текст, располагался в точке (х, Y). Если при этом какая-либо часть надписи выходит из границ прямоугольника Rect, она отсекается и не будет видна

function TextWidth

(const Text:String): Integer;

Возвращает ширину прямоугольника, охватываю-щего текстовую строку Text 

function TryLock:

Boolean; 

Пытается заблокировать канву. Если она не заб-локирована другим потоком команд,-True, в про-тивном случае ничего не делает и возвращает False

procedure Unlock;

Уменьшает на 1 счетчик блокировок канвы