Программирование в Delphi. Барков И.А - 25 стр.

procedure FloodFilKX, Y: Integer;         Производит заливку области текущей кистью. Процесс начина-
Color: TColor; FillStyle: TFillStyle);    ется с точки (X,Y). Если режим FillStyle равен fsSurface, то он
TFillStyle = (fsSurface, fsBorder) ;      продолжается до тех пор, пока есть соседние точки с цветом
                                          Color. В режиме fsBorder закрашивание, наоборот, прекращается
                                          при выходе на границу с цветом Color.


procedure Pie (XI, Yl, Х2, Y2, ХЗ, Y3, Рисует сектор эллипса, описываемого прямоугольником (X1,Y1)
Х4, Y4: Integers-                      — (X2,Y2). Стороны сектора лежат на лучах, проходящих из
                                       центра эллипса через точки (X3.Y3) и (X4,Y4).

procedure Polygon(const Points: array     Строит многоугольник, используя массив координат точек
of TPoint) ;                              Points. При этом последняя точка соединяется с первой и внут-
                                          ренняя область закрашивается.
procedure Polyline(const Points: array    Строит ломаную линию, используя массив координат точек
of TPoint) ;                              Points.
procedure Rectangle(XI, Yl, Х2, Y2 :      Рисует прямоугольник с верхним левым углом в (XI ,Y1) и ниж-
Integer) ;                                ним правым в (X2.Y2).
procedure RoundRect (XI, Yl, Х2, Y2,      Рисует прямоугольник с закругленными углами. Координаты
ХЗ, Y3: Integer);                         вершин — те же, что и в методе Rectangle. Закругления рисуются
                                          как сегменты эллипса с размерами осей по горизонтали и верти-
                                          кали ХЗ и Y3.

function. TextHeight(const Text:          Возвращает высоту строки Text в пикселах.
string): Integer;
function TextWidth(const Text: string):   Возвращает ширину строки Text в пикселах.
Integer;
procedure TextOut(X, Y: Integer; const    Производит вывод строки Text. Левый верхний угол помещается
Text: string);                            в точку канвы (X,Y).

procedure TextRect(Rect: TRect; X, Y: Производит вывод текста с отсечением. Как и в TextOut, строка
Integer; const Text: stringi ;        Text выводится с позиции (X,Y); при этом часть текста, лежащая
                                      вне пределов прямоугольника Rect, отсекается и не будет видна.

(Ro) property ClipRect: TRect;            Определяет область отсечения канвы. То, что при рисовании по-
                                          падает за пределы этого прямоугольника, не будет изображено.
                                          Свойство доступно только для чтения — его значение переуста-
                                          навливается системой в контексте устройства канвы.


property PenPos: TPoint;                  Содержит текущую позицию пера канвы (изменяется посредст-
                                          вом метода MoveTo).

       Метод
       procedure Refresh;
       сбрасывает текущие шрифт, перо и кисть, заменяя их на стандартные, заимствованные из Win-
dows (BLACK.PEN, HOLLOW_BRUSH, SYSTEM.FONT).
       Предусмотрено два события для пользовательской реакции на изменение канвы:
       property OnChange: TNotifyEvent;
       property OnChanging: TNotifyEvent;


                                                     25