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

Перевернуть графический объект

17.11.2016, 18:28. Просмотров 188. Ответов 1
Метки нет (Все метки)

Помогите перевернуть конвертик
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure Titanik(x, y: integer; // координаты базовой точки
  color: TColor); // цвет корабля
const
  dx = 5;
  dy = 5;
var
  buf: TColor;
begin
  with Form1.canvas do
  begin
    buf := pen.color; // сохраним текущий цвет
 
    pen.color := color;
 
    Rectangle(x + 50, y - 50, x + 125, y - 100);
    MoveTo(x + 50, y - 50);
    LineTo(x + 125, y - 100);
    MoveTo(x + 50, y - 100);
    LineTo(x + 125, y - 50);
 
    MoveTo(X + 50, y - 50);
    LineTo(x + round((125 + 50) / 2), y - 25);
    MoveTo(x + round((125 + 50) / 2), y - 25);
    LineTo(x + 125, y - 50);
 
    pen.color := buf; // восстановим старый цвет карандаша
  end;
end;

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.11.2016, 18:28
Ответы с готовыми решениями:

Графический объект!!!неправильный алгоритм
Вот моя программа Она почему то не правильная....типа нахождения движения...

Перевернуть экран (изменить ориентацию desktop) на 180? Или саму форму приложения перевернуть
Delphi XE3. Как?

Создать обЪект класса , у которого в параметрах конструктора объект этого же класса
Вот код: TOgmGraphicsClass = class of TOgmGraphicsBlock; TOgmGraphicsBlock...

Перевернуть ValueListEditor
этот компонент у меня расположен вертикально а мне бы лучше, и для глаз...

Перевернуть список delphi 7
Задача: Дан список чисел. Перевернуть его, т.е. построить список из этих же...

1
D1973
18.11.2016, 09:45     Перевернуть графический объект
  #2
 Комментарий модератора 
Анисина Дарья, сколько можно предупреждать?
1. Выделяйте код, который Вы вставляете в свои темы, тэгами Delphi. Вы перед регистрацией на форуме должны были прочитать и принят правила форума, там описано, как это делать!
2. Перестаньте дублировать свои темы.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.11.2016, 09:45
Привет! Вот еще темы с ответами:

Перевернуть дерево (TreeView)
Здравствуйте! Стоит задача - построение бинарного дерева и его графическое...

Перевернуть символы в delphi
Как можно перевернуть строку в делфи Вот у меня к примеру есть число ...

Нужно перевернуть строку
Но в то же время мы работаем с компонентом combobox, memo и текстовым файлом,...


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

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

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