Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Элементы группировки объектов

В языках визуального программирования имеются элементы группировки элементов. В Delphi к таким относятся:

· Panel, toolbar- служит для создания панелей инструментов. Обычно для создания панелей инструментов используют кнопка SpeedButton.

Рис.35.

Для создания панелей инструментов имеется специальный компонент ToolBar, назначение которого только создание панелей инструментов. Поэтому элемент Panel можно устанавливать в любой позиции формы и собрать на ней различные элементы.

Для выравнивания элемента ToolBar как и других визуальных элементов используются значения свойства Align: AlTop – выравнивание по верху окна;

AlButtom – выравнивание по нижнему краю окна;

AlLeft – выравнивание по левому краю окна;

AlRight – выравнивание по правому краю окна;

AlСlient – выравнивание по всей форме;

AlNone – без выравнивания.

Посмотрите на заготовку:

Рис.36.

Первый элемент Toolbar выровнен по верхнему краю, а второй - по нижнему.

{Код заполнения элемента ComboBox экранными шрифтами}

procedure TForm1.FormCreate(Sender: TObject);

begin

Combobox1.Items:=screen.fonts;

Combobox1.Text:=screen.fonts[1];

end;

· GroupBox позволяет группировать различные элементы управления (см. рис.37.).

· RadioGroup служит для группировки радиокнопок (option button) (см. рис.38.).

Рис.37. Рис.38.

Рассмотрим пример использования элементов группировки для создания различных опций визуальных элементов.

Рис.39.

Приведем код модуля.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

RadioGroup1: TRadioGroup;

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Edit1: TEdit;

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked=true then edit1.Font.Style:=[fsitalic];

if checkbox1.Checked=false then edit1.Font.Style:=[];

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if checkbox2.Checked=true then

begin

if checkbox1.Checked=true then edit1.Font.Style:=[fsbold,fsitalic];

if checkbox1.Checked=false then edit1.Font.Style:=[fsbold];

end;

if checkbox2.Checked=false then

begin

if checkbox1.Checked=true then

edit1.Font.Style:=[fsitalic];

if checkbox1.Checked=false then edit1.Font.Style:=[];

end;

end;

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

if checkbox3.Checked=true then edit1.Font.Style:=[fsUnderline];

if checkbox3.Checked=false then edit1.Font.Style:=[];

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

edit1.Font.Color:=rgb(0,0,250);

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

edit1.Font.Color:=rgb(250,0,0);

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

edit1.Font.Color:=rgb(0,250,0);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

Вопросы и упражнения.

1. Создайте панели инструментов, подобных панелям инструментов МsWord.

2. Напишите программу, которая вычисляет поределителя 2, 3, 4, 5 порядка. Для выбора порядка определителя используйте элемент RadioGroup.

3. Напишите программу для сортировки массива по неубыванию методом вставок, обменами, методом подсчета. Выбор метода закрепите за радиокнопками.

4. Изучите свойства оконтовки элементов группировки объектов.

5. Изучите свойства расположения(Allign) элементов группировки объектов.

 

<== предыдущая лекция | следующая лекция ==>
Элементы работы со списками | Списки для работы с файловой системой
Поделиться с друзьями:


Дата добавления: 2014-01-05; Просмотров: 345; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.013 сек.