Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
supercypok
1 / 1 / 2
Регистрация: 24.04.2016
Сообщений: 11
#1

С помощью трех целочисленных значений настроить цвет пера (setpencolor) - PascalABC.NET

24.04.2016, 15:19. Просмотров 225. Ответов 2
Метки нет (Все метки)

хочу с помощью значений a,b и c настраивать цвет линии setpencolor
program paint;

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses
  
  GraphABC, Events;
 
var
  a,b,c: integer;
 
procedure MouseDown(x, y, mb: integer);
begin
  MoveTo(x, y);
end;
 
procedure MouseMove(x, y, mb: integer);
begin
 setpencolor(rgb a,b,c);
end;
 
procedure Mouseup(x, y, mb: integer);
begin
  if mb = 2 then lineto(x, y);
end;
 
 
procedure Keydown(Key: integer);
begin
  if key = Vk_Q then a := a + 1;
  if key = Vk_W then b := b + 1;
  if key = VK_E then c := c + 1;
  
  
  if key = Vk_A then a := a - 1;
  if key = Vk_S then b := b - 1;
  if key = Vk_S then c := c - 1;
  
  if a = 0 then q := q + 1;
  if b = 0 then q := q + 1;
  if c = 0 then q := q + 1;
  
  if a = 256 then a := a - 1;
  if b = 256 then b := b - 1;
  if c = 256 then c := c - 1;
  
end;
 
begin
  setwindowsize(1000, 700);
  setwindowtitle('Paint');
  centerwindow;
  OnMouseDown := MouseDown;
  OnMouseMove := MouseMove;
  Onkeydown := KEyDown;
  onMouseup := Mouseup;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2016, 15:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос С помощью трех целочисленных значений настроить цвет пера (setpencolor) (PascalABC.NET):

Изменить цвет пера в рисовалке
Доброго времени суток! Мне нужна помощь.Не могу найти ошибку в своей...

В трех целочисленных массивах А(40), В(30), С(60) найти все элементы кратные 3
В трех целочисленных массивах А(40), В(30), С(60) найти все элементы кратные 3....

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

Обмен значений двух целочисленных переменных
Напишите программу, которая считывает значения двух целочисленных переменных a...

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

Изменить цвет пера по нажатию QPushButton, но без вызова QColorDialog
Нужно в простом редакторе сделать с десяток кнопок(black, red, blue, green и...

2
Cyber_Monster_
128 / 116 / 150
Регистрация: 22.03.2016
Сообщений: 475
24.04.2016, 15:46 #2
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
uses
  
  GraphABC, Events;
 
var
  a,b,c: integer;
 
procedure MouseDown(x, y, mb: integer);
begin
  MoveTo(x, y);
end;
 
procedure MouseMove(x, y, mb: integer);
var
  Color_: System.Drawing.Color;
begin
 Color_:=System.Drawing.Color.FromArgb(a,b,c);
 SetPenColor(Color_);
end;
 
procedure Mouseup(x, y, mb: integer);
begin
  if mb = 2 then lineto(x, y);
end;
 
 
procedure Keydown(Key: integer);
begin
  if key = Vk_Q then a += 1;
  if key = Vk_W then b += 1;
  if key = VK_E then c += 1;
  
  
  if key = Vk_A then a -= 1;
  if key = Vk_S then b -= 1;
  if key = Vk_S then c -= 1;
  
  if a < 0 then a += 1;
  if b < 0 then b += 1;
  if c < 0 then c += 1;
  
  if a > 255 then a -= 1;
  if b > 255 then b -= 1;
  if c > 255 then c -= 1;
  
end;
 
begin
  setwindowsize(1000, 700);
  setwindowtitle('Paint');
  centerwindow;
  OnMouseDown := MouseDown;
  OnMouseMove := MouseMove;
  Onkeydown := KEyDown;
  onMouseup := Mouseup;
end.
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
24.04.2016, 15:52 #3
Модуль Events не нужен.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2016, 15:52
Привет! Вот еще темы с решениями:

Распечатать все элементы кратные 7, для каждого из трех целочисленных массивов
написать программу с использованием процедуры или функции, которая...

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

Известно, что некоторое число содержится в каждом из трех целочисленных массивов. Найти его
Известно, что некоторое число содержится в каждом из трех целочисленных...

класс целочисленных значений MEGAINT
создаю класс megaint который вмещает во много раз чисел чем обычный int. И у...


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

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

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