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

помощью текущей кисти. Кисть и перо при этом имеют текущий цвет.
procedure Arc (XI, Yl, Х2, Y2, ХЗ, Y3, Метод рисует сегмент эллипса. Эллипс определяется описы-
Х4, Y4: Integer) ;                     вающим прямоугольником (X1,Y1) — (X2,Y2); его размеры
                                       должны лежать в диапазоне от 2 до 32767 точек. Начальная точ-
                                       ка сегмента лежит на пересечении эллипса и луча, проведенного
                                       из его центра через точку (X3.Y3). Конечная точка сегмента ле-
                                       жит на пересечении эллипса и луча, проведенного из его центра
                                       через точку (X4.Y4). Сегмент рисуется против часовой стрелки.



procedure Chord(Xl, Yl, Х2, Y2, ХЗ,       Рисует хорду и заливает отсекаемую ею часть эллипса. Эллипс,
Y3, Х4, Y4: Integer);                     начальная и конечная точки определяются, как в методе Arc.

procedure EllipsefXl, Yl, Х2, Y2: Inte-   Рисует и закрашивает эллипс, вписанный в прямоугольник
ger) ;                                    (X1.Y1) — (X2.Y2).
procedure LineTo(X, Y: Integer);          Проводит линию текущим пером из текущей точки в (X,Y).

procedure MoveTo(X, Y: Integer);      Перемещает текущее положение пера (свойство PenPos) в точку
                                      (X,Y).
procedure BrushCopy(const Dest:       Производит специальное копирование. Прямоугольник Source из
TRect; Bitmap: TBitmap; const Source: битовой карты Bitmap копируется в прямоугольник Dest на кан-
TRect; Color: TColor);                ве; при этом цвет Color заменяется на цвет текущей кисти
                                      (Brush.Color). С помощью этого метода можно нарисовать "про-
                                      зрачную" картинку. Для этого нужно выбрать соответствующий
                                      фону цвет кисти и затем заменить на него фоновый или наиболее
                                      часто встречающийся цвет битовой карты (см. Bitmap. Transpar-
                                      entColor).



procedure CopyRect(const Dest: TRect; Производит копирование прямоугольника Source из канвы Can-
Canvas: TCanvas; const Source: TRect) vas в прямоугольник Dest в области самого объекта.
;
procedure FillRect(const Rect: TRect) ; Производит заливку прямоугольника (текущей кистью).

procedure FrameRectfconst Rect:           Производит оконтуривание прямоугольника цветом текущей
TRect);                                   кисти (без заполнения).
procedure Draw(X, Y: Integer; Graphic:    Осуществляет рисование графического объекта Graphic (точнее,
TGraphic) ;                               вызов метода его рисования) в области с верхним левым углом
                                          (X,Y).
procedure StretchDraw(const Rect:         Осуществляет рисование объекта Graphic в заданном прямо-
TRect; Graphic: TGraphic);                угольнике Rect. Если размеры их не совпадают, Graphic масшта-
                                          бируется.
procedure DrawFocusRect(const Rect:       Производит отрисовку прямоугольной рамки из точек (как на
TRect);                                   элементе, имеющем фокус ввода). Поскольку метод использует
                                          логическую операцию XOR (исключающее ИЛИ), повторный
                                          вызов для того же прямоугольника приводит изображение к на-
                                          чальному виду.




                                                     24