Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
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;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;
- 8. Графические примитивыprocedure TForm1.Button6Click(Sender: TObject);begin colorDialog1.Execute;end;Pen.Color:=colorDialog1.Color;
- 9. procedure TForm1.Button7Click(Sender: TObject);begin colorDialog2.Execute;end;brush.Color:=colorDialog2.Color;;
- 10. Pen.Width:=ComboBox1.ItemIndex+1;;;
- 11. procedure TForm1.Button8Click(Sender: TObject);begin shape1.brush.color:=clwhite;end;
- 12. Графические примитивы
- 13. Слайд 13
- 14. 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);
- 15. Слайд 15
- 16. Слайд 16
- 17. Слайд 17
- 18. Слайд 18
- 19. Слайд 19
- 20. Скачать презентанцию
Урок 18
Слайды и текст этой презентации
Слайд 3Графические примитивы
procedure TForm1.Button1Click(Sender: TObject);
begin
with shape1.Canvas do begin
line(0,0, 200,200);
Слайд 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;
end;
![Графические примитивыprocedure TForm1.Button4Click(Sender: TObject);begin with shape1.Canvas do begin polygon([Point(30,10), Point(150,50), Point(250,120)]); end;end;](/img/tmb/3/278632/c777c0365a735b5ac74163330085f4a9-800x.jpg "LAZARUS
Основы
объектно-ориентированного
программирования в среде Графические примитивы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;](/img/thumbs/6c562609e3d2970cc65b3dc158ac8d83-800x.jpg "LAZARUS
Основы
объектно-ориентированного
программирования в среде Графические примитивы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;
Слайд 9procedure TForm1.Button7Click(Sender: TObject);
begin
colorDialog2.Execute;
end;
brush.Color:=colorDialog2.Color;;
Слайд 14RoundRect(10,10,200,200,50,50);
pie(150,150,300,300, 300, 150, 150,150);
chord(150,150,300,300, 300, 150, 150,150);
