Инфоурок Информатика Другие методич. материалыПроект в Lazarus «Элементы управления»

Проект в Lazarus «Элементы управления»

Скачать материал

Проект в Lazarus «Элементы управления»

Цель данного проекта: использование элементов управления в программах.

 Создадим проект, иллюстрирующий использование различ­ных элементов управления.

 Объекты на форме: RadioGroup (2 объекта: Выбор формы и Закрашивание). Поскольку класс TRadioGroup специально предназначен для работы с радиокнопками, он содержит на­бор строк (свойство Items). Для работы с этим свойством служит Редактор списка строк. Введенные в него строки автоматически становятся радиокнопками. Первую группу заполним вариантами формы фигуры (Круг, Эллипс, Квадрат) и дадим заголовок "Выбор формы". Во вторую группу вынесем несколько вариантов закрашивания фигуры (Сплошная закраска, Клеточки, Се­точка).

Поместим на форму объект типа TShape. Свойство Shape, которое задает форму фигуры, бу­дем устанавливать с помощью группы радиокнопок TRadioGroup. Осталось добавить управление толщиной линий границы и цветом закраски. Для ввода толщины ли­ний используем компонент ComboBox. Для выбора цвета Lazarus содержит стандартный диалог — класс TColorDialog (вкладка Dialogs).

Поместим на форму панель TGroupBox. Как и обычная панель, она служит контейнером для других объектов и часто используется для объединения радиокнопок в груп­пу. Но мы с ее помощью объединим кнопку вызова диало­га TColorDialog и ComboBox в группу "Прочее". Доба­вим туда для примера и флажок "Разрешить выбор цвета" (класс TCheckBox).

Интерфейс программы:

Напишем теперь обработчики события Onclick для групп радиокнопок:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Shape1.Shape:=stCircle;
1: Shape1.Shape:=stEllipse;
2: Shape1.Shape:=stSquare;
end;
end;
  Procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
  case RadioGroup2.ItemIndex of
0: Shape1.Brush.Style:=bsSolid;
1: Shape1.Brush.Style:=bsCross;
2: Shape1.Brush.Style:=bsDiagCross;
 end; 
 end;                                                             
,Выбор цвета:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Shape1.Brush.Color:= ColorDialog1.Color; 
end;  
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Button1.Enabled:=CheckBox1.Checked;
end;   
Толщина линии
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Shape1.Pen.Width:=ComboBox1.ItemIndex;
end;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Просмотрено: 0%
Просмотрено: 0%
Скачать материал
Скачать материал "Проект в Lazarus «Элементы управления»"

Методические разработки к Вашему уроку:

Получите новую специальность за 3 месяца

Руководитель клубного филиала

Получите профессию

Технолог-калькулятор общественного питания

за 6 месяцев

Пройти курс

Рабочие листы
к вашим урокам

Скачать

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 665 185 материалов в базе

Скачать материал

Другие материалы

Технологическая карта по информатике. Вставка изображения в Word
  • Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
  • Тема: Работа 5. Знакомимся с графическими возможностями текстового процессора
  • 12.10.2016
  • 516
  • 0
«Информатика», Босова Л.Л., Босова А.Ю.

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 12.10.2016 1480
    • DOCX 776.7 кбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Семенова Светлана Вениаминовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

    Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Удалить материал
  • Автор материала

    • На сайте: 7 лет и 7 месяцев
    • Подписчики: 1
    • Всего просмотров: 27830
    • Всего материалов: 15

Ваша скидка на курсы

40%
Скидка для нового слушателя. Войдите на сайт, чтобы применить скидку к любому курсу
Курсы со скидкой

Курс профессиональной переподготовки

Экскурсовод

Экскурсовод (гид)

500/1000 ч.

Подать заявку О курсе

Курс повышения квалификации

Использование нейросетей в учебной и научной работе: ChatGPT, DALL-E 2, Midjourney

36/72 ч.

от 1700 руб. от 850 руб.
Подать заявку О курсе
  • Сейчас обучается 610 человек из 77 регионов
  • Этот курс уже прошли 970 человек

Курс профессиональной переподготовки

Управление сервисами информационных технологий

Менеджер по управлению сервисами ИТ

600 ч.

9840 руб. 5600 руб.
Подать заявку О курсе
  • Сейчас обучается 26 человек из 19 регионов
  • Этот курс уже прошли 34 человека

Курс повышения квалификации

Методика преподавания информатики в начальных классах

72 ч. — 180 ч.

от 2200 руб. от 1100 руб.
Подать заявку О курсе
  • Этот курс уже прошли 67 человек

Мини-курс

Психология эмпатии

4 ч.

780 руб. 390 руб.
Подать заявку О курсе
  • Сейчас обучается 36 человек из 19 регионов
  • Этот курс уже прошли 18 человек

Мини-курс

Основы психологических трансформационных игр

4 ч.

780 руб. 390 руб.
Подать заявку О курсе
  • Сейчас обучается 55 человек из 33 регионов
  • Этот курс уже прошли 32 человека

Мини-курс

Стратегия продаж и продуктовая линейка: успех в современном бизнесе

2 ч.

780 руб. 390 руб.
Подать заявку О курсе