Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
sasbucha
23 / 23 / 2
Регистрация: 28.12.2012
Сообщений: 132
1

ООП: Создайте маленький графический векторный редактор со следующими возможностями

18.06.2013, 10:31. Просмотров 1170. Ответов 2
Метки нет (Все метки)

Создайте маленький графический векторный редактор со следующими возможностями. При нажатии цифры 1 появляется
точка, при нажатии цифры 2 – окружность, при нажатии цифры 3 – прямоугольник. С помощью клавиши ТАБ можно пере-
ключаться между уже существующими фигурами. При этом все фигуры можно перемещать с помощью стрелок. Окружность
можно уменьшать и увеличивать с помощью клавиш «+» и «–». Размер прямоугольника можно изменять с помощью клавиш
A,D,W,X: A уменьшает его длину, D – увеличивает, X уменьшает высоту, Y – увеличивает.

еще одна прога,на которую 2 дня всего(
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.06.2013, 10:31
Ответы с готовыми решениями:

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

Графический редактор
Обращаюсь с боьшой просьбой.... Может быть кто-то сможет мне помочь... если,...

Некий графический редактор
Всем добрый день. В общем пишу игру, которая запускается в консоли. Для этого...

Графический редактор - доработать работу с кистями
Всем привет. В школе недавно начали изучать паскаль и нам сказали, что в конце...

Делаю графический редактор, как нарисовать мышью прямоугольник?
У меня такой вопрос. Я делаю пейнт в паскале. Как мне правильно написать код,...

2
Kordn
156 / 135 / 106
Регистрация: 18.05.2013
Сообщений: 289
18.06.2013, 18:31 2
Лучший ответ Сообщение было отмечено sasbucha как решение

Решение

Очень убого, но сделал
P.S. С "+" и "-" не получилось, так что размер окружности меняется клавишами PageUp и PageDown...
Pascal
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
29
30
31
32
33
uses
  graphabc, abcobjects;
 
var
  x := -1;
 
procedure keypress(key: integer);
begin
  if key = ord('1') then begin new CircleABC(random(windowwidth), random(windowheight), 1, clblack); inc(x); end
  else if key = ord('2') then begin new CircleABC(random(windowwidth), random(windowheight), 50, clwhite); inc(x); end
  else if key = ord('3') then begin new rectangleABC(random(windowwidth), random(windowheight), 50, 100, clwhite); inc(x); end
  else if key = VK_Tab then begin if x > 0 then dec(x) else if x = 0 then x := objectscount - 1 end;
  if x >= 0 then begin
    if key = VK_Up then begin if x >= 0 then objects[x].MoveOn(0, -1) end
    else if key = VK_Down then begin if x >= 0 then objects[x].MoveOn(0, 1) end
    else if key = VK_Left then begin if x >= 0 then objects[x].MoveOn(-1, 0) end
    else if key = VK_Right then begin if x >= 0 then objects[x].MoveOn(1, 0) end;
    if (objects[x] is circleabc) then begin
      if key = VK_PageUp then objects[x].Scale(1.1)
      else if objects[x].width > 17 then if key = VK_PageDown then objects[x].Scale(0.9)
    end
    else if (objects[x] is rectangleabc) then begin
      if key = VK_A then objects[x].width -= 1
      else if key = VK_D then objects[x].width += 1
      else if key = VK_X then objects[x].Height -= 1
      else if key = VK_Y then objects[x].Height += 1
    end
  end;
end;
 
begin
  onkeydown := keypress;
end.
1
volvo877
38 / 37 / 23
Регистрация: 01.06.2009
Сообщений: 59
18.06.2013, 18:56 3
Цитата Сообщение от Kordn Посмотреть сообщение
С "+" и "-" не получилось
Почему?
Pascal
1
2
3
4
5
6
// ...
    if (objects[x] is circleabc) then begin
      if key = $BB {Плюс} then objects[x].Scale(1.1)
      else if objects[x].width > 17 then if key = $BD {Минус} then objects[x].Scale(0.9)
    end
// ...
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2013, 18:56

Векторный графический редактор
Обязательно чтобы в нем были: 1)Графические примитивы типа...

Графический векторный редактор
Здравствуйте, в вузе дали тему курсовой: Графический векторный редактор....

Разработать на VC векторный графический редактор
В одной из контор предложили тестовое задание: Разработать на VC векторный...


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

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

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