Силаенков А.Н. Лекции по технологии программирования
Подождите немного. Документ загружается.
ресурсов. Внешний вид указывается с помощью свойств
Shape(различные варианты рамки: линия вверху, линия
внизу, линия слева, линия справа, полная рамка) и Style.
Свойство объектов Canvas
У ряда объектов из библиотеки визуальных компонент есть
свойство Canvas (канва), которое предоставляет простой
путь для рисования на них. Эти объекты - TBitmap,
TComboBox, TDBComboBox, TDBGrid, TDBListBox,
TDirectoryListBox, TDrawGrid, TFileListBox, TForm, TImage,
TListBox, TOutline, TPaintBox, TPrinter, TStringGrid.
Canvas является в свою очередь объектом, объединяющим
в себе поле для рисования, карандаш (Pen), кисть (Brush) и
шрифт (Font). Canvas обладает также рядом графических
методов : Draw, TextOut, Arc, Rectangle и др. Используя
Canvas, Вы можете воспроизводить на форме любые
графические объекты - картинки, многоугольники, текст и
т.п. без использования компонент TImage,TShape и TLabel
(т.е. без использования дополнительных ресурсов), однако
при этом Вы должны обрабатывать событие OnPaint того
объекта, на канве которого Вы рисуете. Рассмотрим
подробнее свойства и методы объекта Canvas.
Свойства Canvas :
Brush -кисть, является объектом со своим набором свойств:
Color - цвет заливки.
Style - предопределенный стиль заливки.
Font - шрифт, которым выводится текст (метод TextOut).
Pen - карандаш, определяет вид линий; как и кисть (Brush)
является объектом с набором свойств:
Color - цвет линии
Mode - режим вывода: простая линия, с инвертированием, с
выполнением исключающего или и др.
Style - стиль вывода: линия, пунктир и др.
Width - ширина линии в точках
Pixels - двухмерный массив элементов изображения (pixel), с
его помощью Вы получаете доступ к каждой отдельной точке
изображения (см. пример к данному уроку).
Методы Canvas:
Методы для рисования простейшей графики - Arc, Chord,
LineTo, Pie, Polygon, PolyLine, Rectangle, RoundRect. При
прорисовке линий в этих методах используются карандаш
(Pen) канвы, а для заполнения внутренних областей - кисть
(Brush).
Методы для вывода картинок на канву - Draw и
StretchDraw, В качестве параметров указываются
прямоугольник и графический объект для вывода (это может
быть TBitmap, TIcon или TMetadle). StretchDraw отличается
тем, что растягивает или сжимает картинку так, чтобы она
заполнила весь указанный прямоугольник .
Методы для вывода текста - TextOut и TextRect. При выводе
текста используется шрифт (Font) канвы. При использовании
TextRect текст выводится только внутри указанного
прямоугольника. Длину и высоту текста можно узнать с
помощью функций TextWidth и TextHeight.
Лекция №9. Объектно - ориентированное программирование.
Программирование обработки таблиц
1.Компонент таблица строк(TstringGrid).
TStringGrid - служит для представления текстовых
данных в виде таблицы. Доступ к каждому элементу таблицы
происходит через свойство Cells.
Основное свойство таблицы строк - это двухмерный
масссив Cells, позволяющий обращаться к содержимому
ячеек и изменять их содержимое. Первое измерение - номер
строки, второе – номер столбца. Нумерация строк и столбцов
осуществляется с нуля.
Число строк задается в свойстве ColCount. Число столбцов
– в свойстве RowCount.
Для размещения компонента на форме нужно щелкнуть
на пиктограмме и затем щелчком поместить на форме.
Рис. Таблица
строк
Пример 1. Программно
задать число строк и столбцов
по 10. В ячейки ввести их
координаты (номер строки, номер
столбца).
Щелкнуть на StringGrid1
.
В редакторе кода
ввести следующий текст
procedure TForm1.StringGrid1Click(Sender: TObject);
var
i,j:integer;
begin
StringGrid1.ColCount:=6;//Число столбцов
StringGrid1.RowCount:=6;//Число строк
StringGrid1.FixedCols:=0 ;//Нет записи в верхнем столбце
StringGrid1.FixedRows:=0;//Нет записи в верхней строке
for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:= IntToStr(i)+ IntToStr(j);
Рис. Размещение компонента на форме
end;
end.
Запустить программу. После появления таблицы щелкнуть на ячейке,
обведенной пунктиром.
Рис. Результат заполнения таблицы.
Пример 2. Ввести данные в таблицу в диалоге
Щелкнуть на StringGrid2 .
В редакторе кода ввести следующий текст
procedure TForm1.StringGrid2Click(Sender: TObject);
var
i,j:integer;
Number:string;
begin
StringGrid2.ColCount:=4;//Число столбцов
StringGrid2.RowCount:=4;//Число строк
StringGrid2.FixedCols:=0 ;//Нет записи в верхнем столбце
StringGrid2.FixedRows:=0;//Нет записи в верхней строке
for i:=1 to StringGrid2.ColCount-1 do
for j:=1 to StringGrid2.RowCount-1 do
begin
number:=InputBox('Заполнение таблицы','Введи число', '0');
StringGrid2.Cells[i,j]:=number;
end;
end;
end.
Можно получить доступ ко всем элементам одного
столбца или строки. Соответствующие свойства Col и Row
имеют тип String , позволяющий обращаться к нужному
элементу по номеру.
Пример 3. Столбец диаграммы добавить в список TlistBox.
Помещаем на форму компонент TlistBox.
Помещаем на форму кнопку Button. В свойстве
Caption заменим Button1 на Выбрать столбец.
Создаем обработчик события при щелчке на кнопке
Добавить
{Добавление столбца в ListBox1}
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,code:integer;
begin
val(edit1.Text,i,code);// Ввод номера столбца
For j:=1 to 4 do
begin
ListBox1.Items.Add(StringGrid2.Cells[i,j]);
end;
end;
Рис. Выбор столбца
Пример 4. Выборка строки
{Добавление строки в ListBox2}
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,code:integer;
begin
val(edit2.Text,j,code);// Ввод номера строки
For i:=1 to 4 do
begin
ListBox2.Items.Add(StringGrid2.Cells[i,j]);
end;
end;
Можно получить доступ к определенной ячейке нужно
задать номер столбца и номер строки.
procedure TForm1.Button3Click(Sender: TObject);
var
i,j,code:integer;
begin
val(edit1.Text,i,code);// Ввод номера столбца
val(edit2.Text,j,code);// Ввод номера строки
ListBox3.Items.Add(StringGrid2.Cells[i,j]);
end;
end.
Свойства, предназначенные для оформления таблицы строк
BorderStyle Стиль отрисовки ячеек. Значение этого
свойства можно комбинировать со
значением свойства Ctrl3D для получения
ячеек оригинального вида.
Ctrl3D Таблица представляется в трехмерном
виде.
ColWidths Массив, хранящий ширину каждого
столбца в пикселах.
DefaultDrawing Если значение свойства- true ,
производится автоматическая отрисовка
содержимого каждой ячейки. В противном
случае для таблицы необходимо
определить обработчик события
OnDrawCell, чтобы запрограммировать
процесс отрисовки ячеек.
DefaultRowHeig
ht
Начальная высота строки по умолчанию.
FixedColor Цвет области строк и столбцов , служащих
заголовком таблицы.
GridHeight Высота всей таблицы (в пикселах).
GridLineWidth Ширина (в пикселах) линий, разделяющих
ячейки таблицы.
GridWidth Ширина всей таблицы (в пикселах).
Options Позволяет задавать различные режимы
работы таблицы.
RowHeights Массив, хранящий высоту каждой строки в
пикселах.
ScrollBars Наличие полос прокрутки.
VisibleColCount Число видимых в таблице столбцов (без
области заголовка).
Использование.
Чтобы установить для просмотра нужную часть
таблицы, нужно задать номер начальной строки в свойстве
TopRow, а номер начального столбца - в свойстве LeftCol.
Например, установив на форме кнопку Прокрутка можно
быстро прокрутить таблицу к ячейке, которая будет
расположена в левом верхнем углу таблицы под заголовком.
Далее создаем обработчик события
procedure TForm1.Button3Click(Sender: TObject);
begin
StringGrid1.LeftCol:=1;
StringGrid1.TopRow:=1;
end;
end.
Чтобы выделить прямоугольную область ячеек (или
одну ячейку) другим цветом , нужно использовать свойство
Selection.Оно доступно только во время работы программы и
имеет вид TgridRect. Например, если нужно выделить область
от ячейки (1,1) до ячейки (2,3) нужно выполнить следующие
операторы
procedure TForm1.Button4Click(Sender: TObject);
var
Grect:TgridRect;
begin
Grect.Left:=1;
Grect.Top:=1;
Grect.Right:=2;
Grect.Bottom:=3;
StringGrid1.Selection:=Grect;
end;
Чтобы текущая ячейка выделялась отдельным цветом,
нужно подсвойству goDrawFocusSelected свойства Options
задать значение True. Можно также программно включить
его в множество Options
StringGrid1.Options:=StringGrid1.Options+
[goDrawFocusSelected];
Лекция №10. Объектно - ориентированное
программирование. Программирование с
использованием процедур и функций.
1. Процедуры и функции и их связь с основной программой
Процедуры и функции (представляют собой важный инструмент Object
Pascal, позволяющий писать хорошо структурированные программы.
Процедурой в Object Pascal называется особым образом оформленный
фрагмент программы, имеющий собственное имя. Упоминание этого имени в
тексте программы приводит к активизации процедуры и называется ее
вызовом. Сразу после активизации процедуры начинают выполняться
входящие в нее операторы, после выполнения последнего из них управление
возвращается обратно в основную программу и выполняются операторы,
стоящие непосредственно за оператором вызова процедуры (рис. ).
Рис. Взаимодействие вызывающей программы и процедуры
Для обмена информацией между основной программой и процедурой
используется один или несколько параметров вызова. Процедуры могут
иметь и другой механизм обмена данными с вызывающей программой, так
что параметры вызова могут и не использоваться. Если они есть, то они
перечисляются в круглых скобках за именем процедуры и вместе с ним
образуют оператор вызова процедуры.
Функция отличается от процедуры тем, что результат ее работы
возвращается в виде значения этой функции.
2. Стандартные процедуры и функции
Стандартными они называются потому, что созданы
одновременно с системой Delphi и являются ее неотъемлемой
частью. В Delphi имеется много стандартных процедур и
функций. Наличие богатой библиотеки таких программных
заготовок существенно облегчает разработку прикладных
программ.
2.1. Стандартные процедуры и функции
Стандартные функции подразделяются:
Арифметические (модуль System);
Пример арифметической функции:
ArcTan(X:Extended): Extended;
Возвращает арктангенс аргумента.X - выражение вещественного или
целочисленного типа.
Строковые процедуры и функции (модуль System)