Событие OnPaint

Используйте событие OnPaintдля выполнения некоторых действий при перерисовке формы.

Событие OnPaint происходит перед тем, как компоненты управления отображаются на форме.

Если Вы хотите, чтобы перерисовывалась не вся форма, а только ее часть – используйте свойство ClipRect объекта Сanvas (например, Form1.Canvas).

Пример. Использование события OnPaint

Пусть обработчик события OnPaint используется для нанесения растрового изображения (Bitmap) в качестве фона формы.

Добавим в класс TForm1закрытый объект – TheGraphic: TBitmap,а в метод FormCreate операторы его создания и загрузки. В обработчике события OnPaintвызовем метод Draw для рисования на форме объекта TheGraphic.

procedure TForm1.FormPaint(Sender: TObject); //обработчик события

// OnPaint

Begin

Form1.Canvas.Draw(0, 0, TheGraphic); //рисование на холсте формы

end;

procedure TForm1. FormCreate (Sender: TObject); //обработчик события

// Создание формы

Begin

TheGraphic := TBitmap.Create; //Создание объектаTheGraphic

TheGraphic.LoadFromFile('BKGRND.png'); //Загрузка из файла

end;

 

СПИСОК ЛИТЕРАТУРЫ

1. Мейер Б., Бодуэн К. Методы программирования. т. 1. М.: Мир, 1982.

2. Miller L.N. Advanced programming: Design and Structure using Pascal, Addison-Wesley publishing Company, 1986.

3. Вирт Н. Алгоритмы и структуры данных. – М.: Мир, 1989.

4. Delannoy C. Exercises en Turbo-Pascal, Eyrolles, Paris, 1990.

5. Епанешников А., Епанешников В. Программирование в среде Turbo-Pascal 7.0. Москва, «Диалог-МИФИ», 1993.

6. Самуйлов С.В. Разработка программ в среде Турбо-Паскаля 7.0. Лабораторный практикум. Пенза, 1996.

7. Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0, Киев, «Век +», 2000.

8. Фаронов В.В., Turbo Pascal 7.0. Москва, «Надежда», 2000.

9. Брукшир Дж. Гленн. Введение в компьютерные науки. Москва, «Вильямс», 2001.

10. Есипов А.С., Паньгина Н.И., Громада М.Г. Информатика. Задачник. СПб., «Наука и техника», 2001.

11. Пратт Т., Зелковиц М.. Языки программирования: разработка и реализация. СПб., «Питер», 2002

12. Архангельский А.Я. Программирование в Delphi 7. Москва, «Бином», 2005.

 

ПРИЛОЖЕНИЕ А. КРАТКО О Delphi