Лабораторная работа №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 можно задать другое количество фиксированных колонок и рядов.

Рабочая часть – это остальная часть таблицы. Она может содержать произвольное количество колонок и рядов, более того, эти величины могут изменяться программно. Если рабочая часть таблицы не помещается целиком на экране, то автоматически появляется полоса прокрутки.

Свойства компонента: