С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
egorkovv
0 / 0 / 0
Регистрация: 30.10.2012
Сообщений: 42
1

процедура рисования прямоугольника

17.05.2013, 01:48. Просмотров 813. Ответов 4
Метки нет (Все метки)

ребята помогите доделать процедуру:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure DrawRect(x0, y0, x, y: integer; Mode: TPenMode);
var pt: TPoint;
    rct: TRect;
begin
  with bmp.Canvas do begin
    pt := PenPos;
    rct := Rect(x0, y0, pt.x, pt.y);
    DrawFocusRect ( rct );      
    rct := Rect(x0, y0, x, y); 
    if Mode = pmCopy then
         Rectangle ( rct )     
    else DrawFocusRect ( rct ); 
    MoveTo(x,y); 
  end;
end;
Дело в том что прямоуголник ресуется только если его рисовать слева вниз как это исправить?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2013, 01:48
Ответы с готовыми решениями:

Процедура рисования на image
Здравствуйте. Возникла проблема при попытке написания процедуры, выводящей на...

Использовать рекурсивную функцию деления прямоугольника на два прямоугольника меньших размеров
Разработка программы для вывода изображения на экран "Деление прямоугольника"....

Известны координаты вершин прямоугольника ABCD , A(x1,y1), B(x2,y2), C(x3,y3). Найти площадь и периметр прямоугольника.
как решить эту задачу с помощью delphi? Известны координаты вершин...

программа рисования графиков
Всем доброго вечера! Задача такова.. Нужно написать программу рисования...

Панель для рисования
Всем привет. Нужен родитель для компонента "Панель для рисования" с событием...

4
Puporev
Модератор
55507 / 42596 / 29444
Регистрация: 18.05.2008
Сообщений: 100,763
17.05.2013, 09:21 2
А в чем сама задача? Нарисовать прямоугольник со сторонами, параллельными осям Делфи и сам умеет
Delphi
1
Canvas.rectangle(x1,y1,x2,y2);
Что у Вас написано в задании?
0
egorkovv
0 / 0 / 0
Регистрация: 30.10.2012
Сообщений: 42
17.05.2013, 13:19  [ТС] 3
задание написать графический редактор. и вот я пытаюсь реализовать кнопку, чтоб нажал и рисуй прямоугольники, но выходит неоч.
0
Puporev
Модератор
55507 / 42596 / 29444
Регистрация: 18.05.2008
Сообщений: 100,763
17.05.2013, 13:23 4
Вообще в графическом редакторе рисуют не кнопкой, а курсором мыши, выбирая прежде фигуру и ее параметры(цвет, толщину линии)
0
egorkovv
0 / 0 / 0
Регистрация: 30.10.2012
Сообщений: 42
17.05.2013, 13:33  [ТС] 5
я же про это и говорю.
0
17.05.2013, 13:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2013, 13:33

Рекурсия для рисования
Всем доброго времени суток! Застрял на "уровне" так сказать. Вообщем ситуация...

Написать программу рисования графиков
Помогите пожалуйста через TChart сделать три графика по данным функциям: y =...

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


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

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

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