Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Задание для самостоятельного решения. Procedure TForm. FormPaint (Sender: TObject). Procedure TForm. FormPaint (Sender: TObject)





Создайте приложение, открывающее текстовый файл для чтения и считывающее из него текст в окно Memo. Перед открытием файла следует проверить его наличие; в случае отсутствия файла должно выводится соответствующее сообщение.


Лабораторная работа №31.

Тема: «Разработка программ создания и использования графических примитивов, иллюстраций».

Цель работы: получение навыков составления программ с использованием использования графических примитивов, иллюстраций.

 

ЗАДАНИЕ

Напишите программу, которая на поверхности формы рисует олимпийский флаг, (рис. 26).

 

 


Рис. 26

Решение:

{Олимпийский флаг}

procedure TForm. FormPaint (Sender: TObject);

begin

with Canvas do

begin

{полотнище}

Canvas. Pen. With: =1;

Canvas. Pen. Color: =clBlack;

Canvas. Brush. Color: =clCream;

Rectangle (30, 30, 150, 115);

{кольца}

Pen. Width: =2;

Brush. Style: =bsClear; {область внутри круга не закрашивать}

Pen. Color: =clBlue;

Ellipse (40, 40, 80, 80);

Pen. Color: =clBlack;

Ellipse (70, 40, 110, 80);

Pen. Color: =clRed;

Ellipse (100, 40, 140, 80);

Pen. Color: =clYellow;

Ellipse (55, 65, 95, 105);

Pen. Color: =clGreen;

Ellipse (85, 65, 125, 105);

end

end.

Задание для самостоятельного решения.

Усовершенствуйте программу (задания выше) таким образом, чтобы все кольца были закрашены в цвета соседних колец, а контур остался без изменения.

 


Лабораторная работа №32.

Тема: «Разработка программ создания и использования мультимедийных возможностей».

Цель работы: получение навыков составления программ с использованием мультимедийных возможностей.

 







Дата добавления: 2014-11-10; просмотров: 663. Нарушение авторских прав; Мы поможем в написании вашей работы!




Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...


Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...


Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Факторы, влияющие на степень электролитической диссоциации Степень диссоциации зависит от природы электролита и растворителя, концентрации раствора, температуры, присутствия одноименного иона и других факторов...

Йодометрия. Характеристика метода Метод йодометрии основан на ОВ-реакциях, связанных с превращением I2 в ионы I- и обратно...

Броматометрия и бромометрия Броматометрический метод основан на окислении вос­становителей броматом калия в кислой среде...

Роль органов чувств в ориентировке слепых Процесс ориентации протекает на основе совместной, интегративной деятельности сохранных анализаторов, каждый из которых при определенных объективных условиях может выступать как ведущий...

Лечебно-охранительный режим, его элементы и значение.   Терапевтическое воздействие на пациента подразумевает не только использование всех видов лечения, но и применение лечебно-охранительного режима – соблюдение условий поведения, способствующих выздоровлению...

Тема: Кинематика поступательного и вращательного движения. 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью, проекция которой изменяется со временем 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью...

Studopedia.info - Студопедия - 2014-2025 год . (0.012 сек.) русская версия | украинская версия