Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Анисина Дарья
0 / 0 / 0
Регистрация: 01.05.2016
Сообщений: 128
1

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

01.11.2016, 19:04. Просмотров 386. Ответов 9
Метки нет (Все метки)

используя графические примитивы Delphi изобразить рисунок и подписать по английски.
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2016, 19:04
Ответы с готовыми решениями:

Нарисовать рисунок, используя графические примитивы
Привет всем! Прошу помогите с графическими примитивами на Delphi. Необходимо...

Графические примитивы
Люди, помогите пожалуйса сделать работу, уже убиваюсь с ней 7 й час. Сделал...

Графические примитивы
как нарисовать с помощью граф приметивов зонтик и чтобы он двигался в низ!?

Графические примитивы
Всем привет! Начал изучать графику. У меня тут следующее задание. Не пойму как...

Создать графические примитивы
1.Создать графические примитивы в Delphi (в обработке события OnPaint): ...

9
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
01.11.2016, 19:32 2
Анисина Дарья,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
with canvas do
begin
Rectangle(50,50,125,100);
MoveTo(50,50);
LineTo(125,100);
MoveTo(50,100);
LineTo(125,50);
 
MoveTo(50,50);
LineTo(round((125+50)/2),25);
MoveTo(round((125+50)/2),25);
LineTo(125,50);
end;
0
Анисина Дарья
0 / 0 / 0
Регистрация: 01.05.2016
Сообщений: 128
01.11.2016, 19:38  [ТС] 3
cfbogd, странно, программа почему-то не работает. запускается пустая форма
0
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
01.11.2016, 19:48 4
Анисина Дарья, поместите этот код в событие OnPaint формы, или в какую нибудь кнопку на форме

Добавлено через 6 минут
Цитата Сообщение от Анисина Дарья Посмотреть сообщение
подписать по английски.
просто текст под рисунком???
в пустую строку моего кода вставьте это:
Delphi
1
TextOut(40,100,'Envelope - Конверт');
0
Анисина Дарья
0 / 0 / 0
Регистрация: 01.05.2016
Сообщений: 128
02.11.2016, 15:08  [ТС] 5
cfbogd, спасибо большое!
0
Анисина Дарья
0 / 0 / 0
Регистрация: 01.05.2016
Сообщений: 128
17.11.2016, 19:07  [ТС] 6
cfbogd, не подскажите, как перевернуть теперь этот конвертик в данной теме? Перевернуть графический объект
0
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
17.11.2016, 19:30 7
Анисина Дарья, нужна именно анимация?
0
Анисина Дарья
0 / 0 / 0
Регистрация: 01.05.2016
Сообщений: 128
17.11.2016, 19:40  [ТС] 8
cfbogd, вот моя программа. там должен двигаться конвертик, а он перевернутый получился. а как исправить не знаю
0
Вложения
Тип файла: zip (2).zip (217.4 Кб, 1 просмотров)
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
17.11.2016, 19:47 9
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
...
Rectangle(x + 50,50+y, x + 125, 100+y);
MoveTo(x + 50, 50+y);
LineTo(x + 125, 100+y);
MoveTo(x + 50,100+y);
LineTo(x + 125,50+y);
 
MoveTo(X + 50,50+y);
LineTo(x + round((125 + 50) / 2),25+y);
MoveTo(x + round((125 + 50) / 2),25+y);
LineTo(x + 125,50+y);
...
0
Анисина Дарья
0 / 0 / 0
Регистрация: 01.05.2016
Сообщений: 128
17.11.2016, 19:57  [ТС] 10
cfbogd, спасибо большое
0
17.11.2016, 19:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2016, 19:57

Построить графические примитивы
Друзья! прошу помогите пожалуйста построить на Delphi используя графические...

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

Тема Записи. делфи 7 (Графические примитивы)
Графические примитивы type TShapeList = (Rectangle, Triangle, Circle,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru