Разделы презентаций


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

Содержание

Урок 18

Слайды и текст этой презентации

Слайд 1LAZARUS
Основы
объектно-ориентированного
программирования в среде

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

Слайд 2Урок 18

Урок 18

Слайд 3Графические примитивы
procedure TForm1.Button1Click(Sender: TObject);
begin
with shape1.Canvas do begin

line(0,0, 200,200);
end;
end;

Графические примитивы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;

Графические примитивы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;

Графические примитивы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;
end;

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

Слайд 7Графические примитивы
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.Button4Click(Sender: TObject);begin with shape1.Canvas do begin polyline([Point(30,10), Point(150,50), Point(250,120)]);  end;end;

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

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

Слайд 9procedure TForm1.Button7Click(Sender: TObject);
begin
colorDialog2.Execute;
end;
brush.Color:=colorDialog2.Color;;

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

Слайд 10 Pen.Width:=ComboBox1.ItemIndex+1;;;

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

Слайд 11procedure TForm1.Button8Click(Sender: TObject);
begin
shape1.brush.color:=clwhite;
end;

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

Слайд 12Урок 19

Урок 19

Слайд 13Графические примитивы

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

Слайд 15RoundRect(10,10,200,200,50,50);
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);pie(150,150,300,300, 300, 150, 150,150);chord(150,150,300,300, 300, 150, 150,150);

Слайд 16Урок 20

Урок 20

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика