Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
supercypok
1 / 1 / 0
Регистрация: 24.04.2016
Сообщений: 11
#1

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

24.04.2016, 15:19. Просмотров 180. Ответов 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):

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

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

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

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

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

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

2
Cyber_Monster_
125 / 113 / 81
Регистрация: 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
Модератор
52385 / 40232 / 13567
Регистрация: 18.05.2008
Сообщений: 92,974
24.04.2016, 15:52 #3
Модуль Events не нужен.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2016, 15:52
Привет! Вот еще темы с ответами:

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

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

Известно, что некоторое число содержится в каждом из трех целочисленных массивов. Найти его - C#
Известно, что некоторое число содержится в каждом из трех целочисленных неубывающих массивов Х(1) &lt; = Х(2) &lt; =Х(n), Y(1)&lt; =Y(2)&lt; =Y(m) и...

класс целочисленных значений MEGAINT - C++
создаю класс megaint который вмещает во много раз чисел чем обычный int. И у меня вопрос -- как сделать ввод числа??:(


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

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

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