Урок № 58

http://programer.in.ua/index.php/uroky/uroky-lazarus/163-lazarus-urok-3-komponent-timage

Відображення базових графічних примітивів – лінія, прямокутник,  ламана, еліпс

За матеріалами підручника стор. 221-228

http://narodna-osvita.com.ua/5377-vdobrazhennya-grafchnih-obyektv-zasobami-movi-programuvannya.html

1. Зображення прямокутника зі сторонами 200*400 (стор. 224 підр.)

procedure TForm1.FormPaint(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; 

2. Зображення еліпса (підр. стор. 223)

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Canvas.Pen.Color:=clYellow; //колір контуру жовтий
  Canvas.Brush.Color:=clBlue; //колір заливки  голубий
  Canvas.Pen.Width:=5; //товщина контуру 5 пікселів
  Canvas.Ellipse(100,100,500,300); (*малювання еліпса, вписаного у прямокутник з протилежними вершинами в точках (100,100) та (500,300) і сторонами, паралельними осям координат*)
end;   

3. Зображення замкненої ламаної - трикутника із вершинами в точках (100,500), (300,100) та (500, 500)

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Pen.Color:=clGreen;
  Canvas.Pen.Width:=10;
  Canvas.MoveTo(100,500);
  Canvas.LineTo(300,100);
  Canvas.LineTo(500,500);
  Canvas.LineTo(100,500);
    end;    

 Значення властивості Brush.Style визначають тип замальовування