Графические примитивы. Lazarus. Урок 18 презентация

Урок 18

Графические примитивы
procedure TForm1.Button1Click(Sender: TObject);
begin
with shape1.Canvas do begin
line(0,0, 200,200);
end;
end;

Графические примитивы
procedure TForm1.Button2Click(Sender: TObject);
begin
with shape1.Canvas do begin
Rectangle(10,10,200,200);
end;
end;

Графические примитивы
procedure TForm1.Button3Click(Sender: TObject);
begin
with shape1.Canvas do begin
ellipse(100,100,50,50);
end;
end;

Графические примитивы
procedure TForm1.Button4Click(Sender: TObject);
begin
with shape1.Canvas do begin
polygon([Point(30,10), Point(150,50), Point(250,120)]);
end;
end;

Графические примитивы
procedure TForm1.Button4Click(Sender: TObject);
begin
with shape1.Canvas do begin
polyline([Point(30,10), Point(150,50), Point(250,120)]);
end;
end;

Графические примитивы
procedure TForm1.Button6Click(Sender: TObject);
begin
colorDialog1.Execute;
end;
Pen.Color:=colorDialog1.Color;

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

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

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

Урок 19

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

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

Урок 20