Рассмотрение дополнительных компонентов для ввода/вывода строк
Для ввода и вывода информации в объектно-ориентированном программировании существует целый ряд вариантов. В библиотеке визуальных компонентов Delphi существует множество компонентов, позволяющих отображать, вводить и редактировать текстовую информацию. Нами уже были рассмотрены Label (метка), Edit (однострочное поле) и Memo (многострочное поле). В таблице приведен перечень оставшихся компонентов с краткими характеристиками и указанием основных параметров, содержащих отображаемый или вводимый текст.
| Пиктограмма | Компонент | Вкладка | Описание |
| StaticText (метка с бордюром) | Additional | Подобен компоненту Label, но обеспечивает возможность задания стиля бордюра. Основное свойство — Caption. |
| Panel (панель) | Standard | Компонент является контейнером для группирования органов управления, но может использоваться и для отображения текста с возможностями объемного оформления. Основное свойство — Caption. |
| MaskEdit (окно маскированного редактирования) | Additional | Используется для форматирования данных или для ввода символов в соответствии с шаблоном. Основные свойства — Text и EditText. |
| RichEdit (многострочное окно редактирования в формате RTF) | Win32 | Компонент представляет собой окно редактирования позволяющее производить выбор атрибутов шрифта, поиск текста и многое другое. Основное свойство — Lines. |
| ListBox (окно списка) | Standard | Отображение стандартного окна списка Windows, позволяющего пользователю выбирать из него пункты. Основное свойство — Items. |
| CheckListBox (список с индикаторами) | Additional | Компонент является комбинацией свойств списка ListBox и индикаторов CheckBox в одном компоненте. |
| ComboBox (редактируемый список) | Standard | Объединяет функции ListBox и Edit. Пользователь может либо ввести текст, либо выбрать его из списка. Основное свойство — Items. |
Оператор присоединения (With)
Оператор используется для сокращения записи кода программы при обращениях к свойствам объекта. Он позволяет избегать повторных ссылок на объект в последующих операторах.
Структура:
With <объект> Do <оператор>;
Например, группу операторов
Form1.label1.left := form1.label1.left + 10;
Form1.label1.caption :=label2.caption;
Form1.label1.font.color := clred;
С помощью with можно записать короче:
With form1.label1 do
Begin
left := left + 10;
caption :=label2.caption;
font.color := clred;
end;
Графические компоненты
TImage – изображение
Данный компонент служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растрового рисунка (*.bmp), значка (*.ico) или метафайла (*.wmf, *.emf). С помощью свойства Canvas программа может отредактировать растровое изображение (но не метафайл или значок!)
Свойства компонента:
| Свойство | Описание |
| AutoSize | Разрешает/запрещает изменять размеры компонента так, чтобы в них полностью загрузилось изображение |
| Canvas | Для прорисовки изображения |
| Center | Указывает, надо ли центрировать изображение в границах компонента |
| Picture | Контейнер изображения |
| Stretch | Разрешает/запрещает изменять размеры изображения так, чтобы оно целиком заполнило клиентскую область компонента |
| Transparent | Разрешает/запрещает накладывать собственный фон изображения на фон компонента |
TShape – стандартная фигура
Компонент рисует одну из простейших геометрических фигур:
stCircle – окружность
stRounrSaustre – квадрат с закругленными сторонами
stSquare – квадрат
stEllipse – эллипс
stRectangle – прямоугольник
stRoundRect – прямоугольник с закругленными сторонами
Фигура полностью занимает все пространство компонента. Помимо стандартных графических инструментов Brush и Pen, в компоненте определено свойство Shape, задающий вид фигуры. Изменение этого свойства приводит к немедленной перерисовке изображения
TPaintBox – окно для рисования
Для создания изображения в компоненте класса TPaintBox используется свойство канва (Canvas), графические инструменты – в свойствах Font, Pen, Brush. Рисование осуществляется в обработчике события OnPaint.
Лабораторная работа №11
Создадим несложную программу просмотра изображений:
1. Поместите на форму панель TPanel, очистите ее свойство Caption.
2. Разместите на панели кнопку TButton с надписью Загрузить.
3. На любое свободное место формы (над панелью) поместите компонент TImage и установите в его свойство Align значение alClient.
4. На любое место поместите компонент TOpenPictureDialog (вкладка Dialogs) – с его помощью пользователь программы может разыскать нужный файл с изображением.
5. Для кнопки напишите обработчик события OnClick:
Begin
If OpenPictureDialog1.Execute then
Begin
Image1.Picture.LoadFormFile(OpenPictureDialog1.FileName);
Image1.Stretch := True {масштабирует изображение, чтобы оно занимало всю рабочую область}
End;
End;
Для того чтобы нарисовать нижеследующий рисунок в окне PaintBox необходимо растянуть данный компонент по форме, форму развернуть на весь экран и написать представленный код.
procedure TForm1.PaintBox1Paint (Sender: TObject);
var x, y: integer;
begin
with paintbox1.Canvas do
begin
brush.Color:=clred; ellipse(0,0,620,420); font.Name:='arial';
font.Size:=height div 5; font.Style:=[fsbold,fsitalic];
font.Color:=clwhite;
x:=(620 - textwidth('Delphi')) div 2; y:=(420 - textheight('D')) div 2;
textOut(x,y,'Delphi')
end; end;
Задания для самостоятельной работы:
1.По введенным координатам точки А(a1,a2) вывести координатную четверть с ПДСК.
2.Нарисовать домики пейзаж около него.
3.По введенному числу лепестков вывести значение гадания по ромашке «любит» или «не любит».
Работа с таблицами
TStringGrid – текстовая таблица
Компонент TScrollBar предназначен для создания таблиц, в ячейках которых располагаются произвольные текстовые строки. Таблица делится на две части – фиксированную и рабочую. Фиксированная часть служит для показа заголовков колонок и рядов, а так же для ручного управления их размерами. Обычно фиксированная часть занимает левую колонку и верхний ряд таблицы, однако с помощью свойств FixedCols и FixedRows можно задать другое количество фиксированных колонок и рядов.
Рабочая часть – это остальная часть таблицы. Она может содержать произвольное количество колонок и рядов, более того, эти величины могут изменяться программно. Если рабочая часть таблицы не помещается целиком на экране, то автоматически появляется полоса прокрутки.
Свойства компонента:
| Свойство | Описание |
| BorderStyle | Определяет рамку компонента: bsNone – нет рамки, bsSingle – рамка толщиной 1 пиксел |
| Cells[col,row] | Определяет содержимое ячейки с табличными координатами (col,row) |
| Col | Содержит номер колонки с ячейкой, имеющей фокус ввода |
| ColCount | Содержит количество колонок таблицы |
| ColWidths | Содержит ширину колонки с индексом Index |
| EditorMode | Разрешает/запрещает редактирование ячеек. Игнорируется, если свойство Options включает значение goAlwayseShowEditor или не включает значение goEditing |
| FixedColor | Определяет цвет фиксированной зоны |
| FixedCols | Определяет количество колонок фиксированной зоны |
| FixedRows | Определяет количество рядов фиксированной зоны |
| GridHeight | Содержит значение высоты таблицы |
| GridLineWidth | Определяет ширину линий, расчерчивающих таблицу |
| GridWidth | Содержит значение ширины таблицы |
| Row | Содержит номер ряда ячейки, имеющий фокус ввода |
| RowCount | Содержит количество рядов таблицы |
| RowHeights | Содержит значение высоты ряда с индексом Index |
| Rows | Содержит все текстовые строки ряда с индексом Index |
| ScrollBars | Определяет полосы прокрутки: ssNone – нет полос; ssHorizontal – в таблицу вставляется горизонтальная полоса; ssVertical – вставляется вертикальная полоса; ssBoth – вставляются обе полосы. |
Лабораторная работа №12
Для обращения к ячейке [0,0] нужно использовать свойство Cells:
StringGrid1.Cells[0,0]:=IntToStr(5)
1. Проиллюстрируйте возможности рассмотренного компонента, составив таблицу следующего вида:
| Дисциплина | ФИО педагога | |
| 1. | Математика | Иванов И.И. |
| 2. | Русский язык | Петров П.П. |
| 3. | … | … |
2. Составить таблицу 4х4, состоящую из целых чисел. Программа должна выводить число, лежащее в ячейке с введенным с клавиатуры номером столбца и строки.
3. Составить таблицу, выводящую расписание занятий в школе.
Массивы
Массив – упорядоченный набор однотипных значений – компонент массива. Тип компонент называется базовым типом массива.
В Delphi массив рассматривается как переменная структурированного типа. Массиву присваивается имя, посредством которого можно ссылаться на него, как на единое целое, так и на любую из его компонент.
Описание массивов
VAR <имя переменной>:ARRAY [<type1, type2,…>] OF <type>;
[<type1, type2,…>]–типы индексов
<type> - базовый тип
Количество типов индексов определяет размерность массива. Тип индексов может быть любым, кроме Real. Базовым типом может быть любой тип данных.
Примеры описания массивов
Var a: array[1..10] of integer; - последовательность целых чисел
Var t: array[1..2,1..2] of real; - таблица 2х2.
Var a1: array [‘A’..’Z’] of word;
Обращение к элементам массива
a[1] – первый элемент из массива a.
t[1,2] – элемент из первой строки второго столбца.
Индексы можно задавать либо конкретными значениями, либо выражениями.
i:=1; a[i] - первый элемент из массива a; a[i+1] – второй элемент массива а.
В динамических массивах не указывается размерность в описании:
Например, var a: array of integer;
Размерность устанавливается в теле программы: SetLength(a, 10); - длинна массива а – 10 элементов.
По массиву проход осуществляется от первого до последнего элемента:
for i := Low(a) to High(a) do где i: integer;
Лабораторная работа №13
Задания для самостоятельной работы:
1.Заполнить линейный массив произвольными числами и вывести его на экран.
2.Заполнить линейный массив числами, введенными с клавиатуры, вывести этот массив, увеличить все элементы на 5 и снова вывести получившийся массив на экран.
3.В линейном массиве найти элементы массива равные 10 и вывести их индексы.
4.В линейном массиве вывести элементы с четными индексами.
5.В двумерном массиве найти количество четных элементов.
6.В двумерном массиве найти сумму элементов главной диагонали.
7.В двумерном массиве подсчитать произведение наибольших элементов каждой строки.
8.В динамическом массиве вывести на экран элементы равные своему индексу.
9.В динамическом массиве найти элементы, удовлетворяющие условию сумма индексов меньше значения элемента.
10.Вывести массив следующего вида. Размерность произвольная.
| … | |||
11.Вывести массив следующего вида. Размерность произвольная.
| … | |||
| N |
12.Вывести массив следующего вида. Размерность произвольная.