Основы объективно-ориентированного программирования в среде Lazarus. Рисование

1.

LAZARUS

2.

Урок 18

3. Графические примитивы

procedure TForm1.Button1Click(Sender: TObject);
begin
with shape1.Canvas do begin
line(0,0, 200,200);
end;
end;

4. Графические примитивы

procedure TForm1.Button2Click(Sender: TObject);
begin
with shape1.Canvas do begin
Rectangle(10,10,200,200);
end;
end;

5. Графические примитивы

procedure TForm1.Button3Click(Sender: TObject);
begin
with shape1.Canvas do begin
ellipse(100,100,50,50);
end;
end;

6. Графические примитивы

procedure TForm1.Button4Click(Sender: TObject);
begin
with shape1.Canvas do begin
polygon([Point(30,10), Point(150,50),
Point(250,120)]);
end;

7. Графические примитивы

procedure TForm1.Button4Click(Sender: TObject);
begin
with shape1.Canvas do begin
polyline([Point(30,10), Point(150,50),
Point(250,120)]);
end;

8. Графические примитивы

Pen.Color:=colorDialog1.Color;
procedure TForm1.Button6Click(Sender: TObject);
begin
colorDialog1.Execute;
end;

9.

brush.Color:=colorDialog2.Color
;;
procedure TForm1.Button7Click(Sender: TObject);
begin
colorDialog2.Execute;
end;

10.

Pen.Width:=ComboBox1.ItemIndex+1;
;;

11.

procedure TForm1.Button8Click(Sender: TObject);
begin
shape1.brush.color:=clwhite;
end;

12. Графические примитивы

13.

14.

pie(150,150,300,300, 300, 150, 150,150);
chord(150,150,300,300, 300, 150, 150,150);
RoundRect(10,10,200,200,50,50);