Delphi Pascal. Поверхности, на которую программа может выводить графику, соответствует свойство Canvas. Размер холста можно получить, обратившись к свойствам. - презентация

1 Delphi Pascal

2 Поверхности, на которую программа может выводить графику, соответствует свойство Canvas. Размер холста можно получить, обратившись к свойствам Height и width области иллюстрации (image) или к свойствам формы: ClientHeight=348 и Clientwidth=536.

3 Полотно состоит из точек (пикселов), каждая из которых имеет свои координаты и цвет. 0,0 Х У

4 Font – определяет шрифт, который будет использоваться для вывода текста на экран Pen – определяет тип пера канвы, которым будут рисоваться линии и геометрические фигуры Brush – определяет цвет и образец кисти, которой будут заполняться графические объекты и фон PenPos –определяет текущую позицию пера

5 Brush.Color – задает цвет, Brush.Style – задает шаблон, может принимать следующие значения: bsSolid – сплошная заливка bsClear – пустая заливка bsBDiagonal – диагональные линии (нижний левый – правый верхний) bsFDiagonal – диагональные линии (нижний правый – верхний левый) bsCross – прямая решетка bsDiagCross – диагональная решетка bsHorizontal – горизонтальные линии bsVertical – вертикальные линии

6 clBlack - черный clSilver - серебристый clMaroon- каштановый clRed - красный clGreen - зеленый clLime - салатный clOlive - оливковый clBlue - синий clNavy - темно-синий clFuchsia - ярко-розовый clPurple - розовый clAqua - бирюзовый clTeal - зелено-голубой clWhite - белый clGray - серый

7 Цвет можно также задать, указав числовые значения в RGB(к,з,с) Например, Form.Canvas.Brush.Color:=RGB(88,87,104)

8 Константа Тип заполнения (заливки) области bsSolid Сплошная заливка bsClear Область не закрашивается bsHorizontal Горизонтальная штриховка bsVertical Вертикальная штриховка bsFDiagonal Диагональная штриховка с наклоном линий вперед bsBDiagonal Диагональная штриховка с наклоном линий назад bsCross Горизонтально-вертикальная штриховка, в клетку bsDiagCross Диагональная штриховка, в клетку

9

10 Pixels(x,y) – рисует точку с координатами х, у Например, инструкция Form1.Canvas.Pixels[10,10]:=clRed окрашивает точку поверхности формы в красный цвет.

11 X1,y1 X2,y2

12

13 Фигура эллипса (круга) оказывается вписанной в прямоугольник (квадрат) с вершинами – левой верхней x1, y1 и правой нижней x2, y2.

14 Arc(x1,y1,х2,у2,х3,у3,х4,у 4), где x1, y1, х2, у2 параметры, определяющие эллипс (окружность), частью которого является вычерчиваемая дуга; х3, у3 параметры, определяющие начальную точку дуги; П х4, у4 параметры, определяющие конечную точку дуги.

15 Pie(x1,y1,x2,y2,х3,у3,х4,у4) где: - x1, y1, х2, у2 параметры, определяющие эллипс (окружность), частью которого является сектор; - х3, у3, х4, у4 параметры, определяющие координаты конечных точек прямых, являющихся границами сектора.

16 FloodFill(x, y, цвет, fsborder) где x, y - координаты любой внутренней точки этой замкнутой области, цвет – цвет заливки, fsborder - режим заливки до контура (бордюра) этой области.

17 FillRect(Rect(x1,y1,x2,y2))

18 FloodFill(x, y, цвет, fsborder); где x, y - координаты любой внутренней точки этой замкнутой области, цвет – цвет заливки, fsborder - режим заливки до контура (бордюра) этой области

19 Объект.Canvas.TextOut(x, у, Текст) где: - объект имя объекта, на поверхность которого выводится текст; - х, у координаты точки графической поверхности, от которой выполняется вывод текста (рис. 10.3); - Текст переменная или константа символьного типа, значение которой определяет выводимый методом текст.

20 Name Используемый шрифт. В качестве значения следует использовать название шрифта, например Arial Size Размер шрифта в пунктах (points). Пункт это единица измерения размера шрифта, используемая в полиграфии. Один пункт равен 1/72 дюйма Style стиль начертания символов. Может быть: нормальным, полужирным, курсивным, подчеркнутым, перечеркнутым. Стиль задается при помощи следующих констант: fsBold (полужирный), fsltalic (курсив), f sUnderline (подчеркнутый), f sStrikeOut (перечеркнутый).

21 with Form1.Canvas do begin // установить характеристики шрифта Font.Name := 'Tahoma'; Font.Size := 20; Font.Style := [fsltalic, fsBold] ; Brush.Style := bsClear; // область вывода текста не закраши- TextOut(0, 10, 'Borland Delphi 7'); end;