Задание 2. Работа со свойствами компонента StringGrid. Выполните следующие действия

Таблица 2

Вложенное свойство	Описание
goFixedVetLine	Управляет разделением ячеек в фиксированной зоне вертикальными
линиями
goFixedHorzLine	Управляет разделением ячеек в фиксированной зоне
горизонтальными линиями
goVetLine	Управляет разделением ячеек в рабочей зоне вертикальными линиями
goHorzLine	Управляет разделением ячеек в рабочей зоне горизонтальными
линиями
goRangeSelect	Разрешает или запрещает выделение нескольких ячеек одновременно
(при goEditing=False)
goDrawFocusSelected	При значении Тruе активная ячейка (находящаяся в фокусе)
выделяется не только пунктирной линией, но и цветом
goRowString	Разрешает или запрещает ручное изменение высоты строк мышью
(кроме фиксированных) во время работы приложения
goColString	Разрешает или запрещает ручное изменение ширины столбцов
мышью (кроме фиксированных) во время работы приложения
goRowMoving	Управляет возможностью перемещения строк мышью
goColMoving	Управляет возможностью перемещения столбцов мышью
goEditing	Разрешает или запрещает редактирование ячейки. Игнорируется, если
включена опция goRowSеlесt
goTabs	Разрешает или запрещает переход между ячейками клавишами <Таb>
	и <Shift> + <Таb>
goRowSеlесt	При значении True можно выделять все ячейки строки
	Определяет состояние редактора в активной ячейке:
goAlwaysShowEditor	True - редактор действует постоянно;
	False - для запуска редактора нужно нажать клавишу <F2>. Свойство
	работает только при goEditing = True
	При значении True компонент реагирует на любое перемещение
goThumbTracking	ползунка линейки прокрутки, иначе - обновление ячеек происходит
	только по окончании прокрутки

 

 

Задание 2. Работа со свойствами компонента StringGrid. Выполните следующие действия.

 

Остановите работу приложения для Задания 1, если Вы этого еще не сделали.

 

Поэкспериментируйте со свойствами компонента StringGrid, изменяя их значения в Инспекторе Объектов. Сделайте выводы.

 

Запустите приложение. Обратите внимание, что ввод информации в ячейки таблицы сейчас невозможен, так как свойство доступа к ячейкам таблицы Cells[Col, Row] в коде программы еще не было использовано.

 

Остановите работу приложения.

 

Задание .3. Разработка приложения "Составление учебного расписания". Выполните следующие действия.

 

1. Запустите Delphi и измените заголовок формы (Form1) на Вашу фамилию и имя.

 

2. Поместите на форму компонент StringGrid1 (Строковая таблица). Далее размещайте компоненты на форме согласно рис. 2.

Свойству goColString (вложенное значение Options см. таблицу 2) присвойте значение Тrue, то есть ширину колонок таблицы можно изменять мышью.

 

Поместите на форму компоненты:

 

- FontDialog (Стандартный диалог Windows для выбора шрифта);

 

Поместите на форму компонент

 

GroupBox1(Панель с заголовком)со страницы Standard. Измените для

 

компонента GroupBox1значение

Captionна«Ввод данных». Рис 2

 

На компонент GroupBox1 поместите компонент Label1, и измените значение его свойства Caption на значение "Дисциплина".

 

На компонент GroupBox1 поместите компонент ComboBox1 (Комбинируемый список).

 

В компоненте ComboBox1 задайте названия нескольких дисциплин (Свойство Items)

 

На компонент GroupBox1поместите также следующие компоненты:

 

- Label2и измените значение его свойстваCaptionна"Аудитория:";

- Еdit1-строка ввода для задания номера аудитории;

- Label1и измените значение его свойстваCaptionна"Группа:";

- Еdit2-строка ввода для задания номера группы.

 

На компонент GroupBox1 поместите три компонента BitBtn (Кнопка с картинкой) со страницы Additional.Измените их значенияCaptionна: "Применитъ", "Шрифт"и"Выход"соответственно.

 

 

Напишите обработчики событий: implementation

($R *.DFM}

 

procedure TForml . FormActivate (Sender: TObject) ;

 

const Week : array [1 .. 6] of String= ('Понедельник' , 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота'); var i,D: integer;

 

begin

with StringGrid1 do

begin

 

ColCount : =8; RowCount : =7; DefaultRowHeight:=30; DefaultColWidth:=95 ; FixedColor : =clTeal ; Color : =clWhite;

 

for i:=l to ColCount do Cells [i, 0] : = ' ' +IntToStr (i) + ' napa ' ; D : = 1 ;

 

for i:=l to RowCount do

begin

 

if D>6 then D:=l; Cells [0, i] : =Week [D] ; D:=D+1; end;

 

end; end ;

 

procedure TForm1.BitBtn1Click (Sender: TObject); begin

 

with StringGrid1 do begin

Cells [Col, Row] : =ComboBox1.Text;

if Cells [Col , Row] <>' '

 

then Cells [Col, Row] : = Cells [Col, Row] +#32+'Ayд. ' +Editl.Text+#32+ ' Гр. ' +Edit2.Text ; end;

 

end;

 

procedure TForml .BitBtn2Click (Sender: TObject); begin

 

with FontDialog1 do if Execute then StringGrid1.Font :=Font; end;

 

Запустите проект и поработайте с ним. Попробуйте передвигать границы столбцов мышью.

 

Cохраните проект в отдельной папке. Результаты покажите преподавателю.

 

Задания для самостоятельной работы

 

• В качестве упражнения составьте любую таблицу, содержание которой придумайте сами, или проконсультируйтесь с преподавателем. Например, это может быть календарь на текущий месяц, таблица курсов валют и т.д.

 

* Приложение «Составление учебного расписания» с практической точки зрения имеет ряд недостатков. Попробуйте усовершенствовать проект самостоятельно.

 

Вопросы

1. Опишите назначение и возможности компонента StringGrid.

2. Какое свойство обеспечивает доступ к ячейкам таблицы и как?

 

3. Какое свойство устанавливает число строк в таблице? Число столбцов? Фиксированных строк? Фиксированных столбцов? Цвет таблицы? Ц вет фиксированной зоны?

 

4. Как сделать, чтобы ширину столбцов таблицы можно было изменять в процессе работы приложения мышью? А высоту строк таблицы?

 

5. Для чего предназначен компонент GroupBox, и какие возможности он предоставляет?