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

1. Для проекта, созданного в предыдущем пункте, откройте окно опций проекта. Смените главную форму приложения. Посмотрите, как изменился файл dpr. Запустите приложение на выполнение. Какая форма отрывается первой?

2. Откройте окно опций проекта. Перенесите часть форм из списка Auto-Create в список Available. Откройте файл dpr. Как он изменился?

3. В приложении создайте форму, не имеющую меню управления окном (меню в левом верхнем углу окна). Для закрытия окна необходимо создать кнопку, закрывающую окно.

Контрольные вопросы

1. Что такое проект? Из каких файлов он состоит?

2. Если из проекта удалить файлы dof или res будет ли создаваться выполнимый файл?

3. Какие файлы могут быть удалены из проекта, и это не помешает созданию выполнимого файла?

4. Что такое форма? Как добавить форму к проекту?

5. Как из одной формы по кнопке открыть другую форму? Какие изменения должны быть внесены в модуль вызывающей формы?

6. Что такое модуль Pascal? Из каких основных частей он состоит?

7. Что означает ключевое слово uses в описании модуля?

8. Какую информацию может содержать интерфейсная часть модуля? Что содержится в части реализации модуля?

9. Как из одной формы сослаться на объект, находящийся в другой форме?

10. Как откомпилировать приложение?

11. Как запустить приложение на выполнение?

12. Как приостановить выполнение приложения?

13. Как прервать выполнение приложения, например в случае зависания?

14. Как получить доступ к опциям проекта?

15. Как форму сделать главной формой приложения?

16. Как открыть существующий проект?

17. Как открыть проект из числа недавно использовавшихся проектов?

18. Как сохранить все файлы, входящие в проект?

19. Как закрыть весь проект со всеми файлами, входящими в него?

20. Как добавить к проекту существующую форму?

21. Как удалить из проекта форму? Будет удаленная из проекта форма удалена физически?

Занятие 6. Начинаем рисовать

Многие классы в Delphi, такие, например, как форма, класс TPaintBox и некоторые другие имеют встроенное свойство Canvas(холст, канва), которое само является объектом и содержит свойства и методы, позволяющие рисовать в окне линии, фигуры, задавать цвета линий, заливать фигуры цветом.

Изображение формируется с помощью точек, пикселов, каждая такая точка имеет цвет и координаты. Начало системы координат располагается в левом верхнем углу окна. Координаты точки определяются двумя числами, задающими смещение точки по горизонтали и вертикали относительно начала координат (см. рисунок).

Но мы не будем рисовать линии, фигуры по точкам, для этого мы будем использовать готовые свойства и методы холста, класса TCanvas.

Рисование линий

Метод MoveTo – установить курсор в заданную позицию экрана. Синтаксис:

procedure MoveTo(X, Y: Integer); Где X и Y – координаты точки.

Например: Canvas.MoveTo(0,0);

Метод LineTo – провести линию из текущей позиции курсора в заданную точку. Синтаксис: procedure LineTo(X, Y: Integer); где X,Y – координаты точки.

Метод работает совместно с методом MoveTo.

Например:

Canvas.MoveTo(0,0); { устанавливает курсор в точку с координатами 0,0 }

Canvas.LineTo(100,100); {провести линию в точку с координатами 100,100 }

Оператор With

Для того, чтобы не повторять имя объекта в каждой строке кода можно исполь­зовать оператор with. Например, тот же самый код можно написать с использованием with таким образом:

with Canvas do

begin

MoveTo(0,0);

LineTo(100,100);

end;

Свойство Pen(карандаш)

Свойство Pen позволяет задать цвет и тип линии. Свойство Pen – это вложенный в Canvas объект со свои­ми свойствами.

Свойства класса TPen

Свойство	Описание
Color	Задает цвет линии, границы фигуры
Mode	Задает, как взаимодействует цвет карандаша и цвет холста
Style	Задает стиль границы
PenPos	Задает текущую позицию карандаша
Width	Задает ширину границы

Для задания стиля (свойства Style) используются следующие константы:

psSolid - непрерывная линия;

psDash - прерывистая линия;

psDot - линия из серии точек;

psDashDot – линия, состоящая из комбинации линий и точек;

psDashDotDot - линия, состоящая из комбинации линии, точки, точки;

psClear - нет линии, границы.

Для задания ширины линии (свойство Width) используются целые положительные числа. Ширина линии влияет на стиль линии.

Например:

with canvas do

begin

pen.Style:=psSolid;

pen.Width:=5;

pen.Color:=clRed;

moveto(50,50);

lineto(300,300);

end;

Для задания цвета можно использовать константы, например clRed – красный , clBlue – синий, и т.д.