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

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

24.04.2016, 15:19. Просмотров 239. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

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
Модератор
54734 / 42134 / 29092
Регистрация: 18.05.2008
Сообщений: 99,455
24.04.2016, 15:52 3
Модуль Events не нужен.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2016, 15:52

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

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

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


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

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

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