Разработка приложений в системе Delphi. Шейкер Т.Д. - 124 стр.

                    13.4. Программное рисование
    Класс TCanvas инкапсулирует основные операции модуля GDI. Canvas –
это поверхность рисования (холст, канва). Форма и все визуальные
управляющие компоненты Delphi обладают свойством Canvas. Конструктор
Create создаёт экземпляр класса TCanvas со свойствами: Brush, Pen, Font,
CopyMode, ClipRect, PenPos, Pixels.
    Brush, Pen и Font называютcя инструментами для рисования.
    Свойство ClipRect (только для чтения) задаёт координаты отсекающего
прямоугольника. За пределами этой прямоугольной области изображение не
строится. Свойство CopyMode устанавливает режим копирования. Значение
свойства cmSrcCopy определяет обычное копирование, то есть замену
текущего изображения.
    Свойство PenPos – это текущая позиция карандаша – невидимый маркер,
который задаётся горизонтальной PenPos.x и вертикальной PenPos.y
координатами. Pixels[X,Y: integer]:color представляет собой массив,
содержащий цвета пикселей. Для доступа к отдельному пикселю достаточно
указать его координаты.
    При построении графических изображений часто используются классы
TPoint и TRect, задающие координаты точки и прямоугольную область:
TPoint=record
     x:Longint;
     y: Longint;
end;
TRect=record
     Case integer of
          0:(Left,Top,Right,Bottom:integer);
          1:(TopLeft, BottomRight: TPoint);
end;
    Одним из приёмов построения изображения является использование
рекурсии. На рисунке 3 приведены деревья, полученные многократным
построением двух отрезков, выходящих из одной точки.
    Рисуются два отрезка, имеющие общую вершину. Затем из каждой
свободной вершины рисуются два отрезка и т.д. Возможная длина отрезка на


                                   124