Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 62 стр.

                                       - 62 -


операциях, не вдаваясь в тонкости программирования конкретного устройст-
ва представления графики.
   Класс TCanvas обладает свойствами Brush ('кисть' - цвет и шаблон за-
полнения при графических операциях), CopyMode (режим копирования; по
умолчанию CopyMode=cmSrcCopy - замещение текущего изображения),
Font, Pen (тип ‘карандаша'), PenPos (текущая позиция 'карандаша'), Pixels
(прямой доступ к отдельным пикселам изображения).
   Например, в следующем примере в прямоугольной области (заданной ле-
вым верхним углом X=100,Y=200 и правым нижним X=300,Y=400) каждый
пиксел цвета clRed заменяется на пиксел цвета clBlue

var
 X,Y: integer;
witn DrawForm.Canvas do
begin
 for X:=100 to 300 do { цикл по оси абсцисс }
  for Y:=200 to 400 do { цикл по оси ординат }
    if Pixels[X,Y]=clRed then { если текущий пиксел красный... }
      Pixels[X,Y]:=clBlue; { ...то сделать его синим }
end;

   Собственно рисование реализуется методами класса TCanvas, здесь и
ниже приведены примеры в расчете рисования на форме (или компоненте) с
именем DrawForm.
   Метод Arc(Xl,Yl,X2,Y2,X3,Y3,X4,Y4:integer) изображает дугу, заклю-
ченную (вписанную) в прямоугольник с левым верхним X1,Y1 и правым
нижним X2,Y2 углами, причем начальная и конечная точки дуги суть X3,Y3
и Х4,Y4 соответственно

witn DrawForm.Canvas do
begin
 Pen.Color:=clRed; { выбрать красный карандаш }
 Pen.Width:=3; { ширина карандаша 3 пиксела }
 Агс(100,100, 200,200,100,0,100,0); { рисовать эллипс }
end;

   Метод Chord(X1,Y1,X2,Y2,X3,Y3,X4,Y4:integer) рисует соединяю-щую
две точки дуги хорду (параметры соответствуют таковым метода Arc).
   Метод CopyRect(Dest:TRect; Canvas:TCanvas; Source:TRect) копирует
заданную канвой Canvas прямоугольную область Source в прямоугольную
область Dest текущей канвы; режим копирования может быть предваритель-
но      задан      свойством       CopyMode        (например,      Draw-
Form.Canvas.CopyMode:=cmPatCopy для копирования с логической опера-
цией XOR при смешении цветов).