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

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

24.04.2016, 15:19. Просмотров 509. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2016, 15:19
Ответы с готовыми решениями:

Организовать ввод трех целочисленных значений
Организовать прием трех целочисленных значений. Первые два из них являются числами, над которыми...

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

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

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

2
145 / 126 / 155
Регистрация: 22.03.2016
Сообщений: 498
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
Модератор
62268 / 46546 / 32088
Регистрация: 18.05.2008
Сообщений: 112,527
24.04.2016, 15:52 3
Модуль Events не нужен.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2016, 15:52

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

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

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

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

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


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

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

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