07.03.2019 8 класс

Тема: Отображение базовых графических примитивов - линия, прямоугольник, сектор, ломаная, эллипс, настройки стиля и цвета примитивов средствами языка программирования. Отображение рисунков из внешних файлов

Начало координат совпадает с верхним левым углом формы. Ось Ох направлена вправо, ось Оу - вниз. На рис. красным цветом обозначена точка с координатами(100,200)

Средства для рисования 

примеры команд:

установка значений свойств контура и внутренней области графических примитивов:

Canvas.Pixels[x, y] := clRed;

компонент Фигура для рисования графических примитивов:
вставка: компонент TShape на вкладке Additional окна среды Lazarus
свойства: Name, Enabled, Visible, Top, Left, Height, Width
примеры записи свойств:

Образец кода:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Pen.Color:=clGreen; //цвет контура зеленый
  Canvas.Pen.Width:=3; //толщина контура 3 пикселя
  Canvas.Brush.Color:=clRed; //цвет заливки красный
  Canvas.Brush.Style:=bsDiagCross; //стиль заливки: сетка с диагональными линиями
  Canvas.Rectangle(100,100,500,300); //прямоугольник с противоположными вершинами в точка(100,100) и (500,300) и сторонами, параллельными осям координат
end;
end. 


отображение изображений из внешних файлов:
Область изображения размещается кнопкой TImage на вкладке Additional в окне среды Lazarus
свойства Области изображения

Задание урока: учебник № 3 с.228.