Для того чтобы на форме выводить иллюстрацию мы добавили компонент Image, значёк этого компонента находится на вкладке Additional палитры компонентов среды IDE. (см. рис.)

Вывод иллюстрации  Программы на   Delphi «Тесты»

 

Картинку, которая отображается в области Image, можно задать во время создания формы или же во время работы программы. При создании формы картинка задаётся установкой значения свойства Picture. А во время работы программы  с помощью метода LoadFromFile.
Например, в нашем случае инструкция вывода иллюстрации, которая находится в файле Bago2.bmp будет такой:
Image1.Picture.LoadFromFile(‘Bago2.bmp’);
Размер области формы, которая используется для вывода иллюстрации, зависит от длины вопроса, длины и количество альтернативных ответов. И соответсвенно чем длиннее вопрос и ответы, тем больше места они занимают на форме, и тем меньше места остаётся для иллюстрации.
При проектировании формы можно задать размеры областей , предназначенных для вопроса и альтернативных ответов и размеров картинки. Но можно поступить по другому. После прочтения файла очередного вопроса вычислить, сколько места займут вопросы и ответы и сколько места можно выделить для вывода иллюстрации. (см. рис.)

Вывод иллюстрации  Программы на   Delphi «Тесты»

Если реальный размер иллюстрации превышает размер превышает размер области, выделенной для её вывода, то необходимо вычислить коэффициэнт масштабирования и установить максимально возможные, пропорциональные ширине и высоте иллюстрации, значкния свойств Width и Height области вывода иллюстрации.
А реальные размеры иллюстрации, загруженную в область Image1, можно получить из свойств Image1.Picture.Bitmap.Width и Image1.Picture.Bitmap.Height.

Скачать исходник программы на Delphi«Тесты» :

 

Добавить комментарий


Защитный код
Обновить