Лабораторная работа №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 – вставляются обе полосы.