Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/21: Рейтинг темы: голосов - 21, средняя оценка - 4.62
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
1

Модуль Graph: изменить цвет фигур и линий

08.02.2013, 13:17. Просмотров 4150. Ответов 4
Метки нет (Все метки)

Как сделать, что бы цвет линий, фигур был черным? Когда я пишу SetColor(0); , то линии делаются прозрачными, и тогда и не рисунка нету и с заливкой проблема. С синим цветом все нормально, но когда я ставлю Black, то нет рисунка.

Добавлено через 5 минут
Вот полная программа:
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
uses graph,crt;
var gd,gm,error,i:integer;
     begin
     Gd:=Detect;
     InitGraph(GD,GM,' ');
      Begin
     SetBkColor(15);
 
         SetColor(1);
         setFillStyle(1,3);
         line(320,440,320,40);
         circle(320,240,200);
         fillellipse(320,100,40,20);
 
 
                    arc(390,272,120,248,180);
                   setfillstyle(1,4);
                     FloodFill(300,240,1);
 
                      arc(255,270,289,420,180);
                     setfillstyle(1,green);
                  arc(360,245,395,108,170);
 
                   FloodFill(340,240,1);
                     setfillstyle(1,blue);
                     FloodFill(500,240,1) ;
                      arc(360,245,395,108,170);
 
                setfillstyle(1,4);
                  FloodFill(340,55,1) ;
                      arc(280,245,435,144,170);
              setfillstyle(1,green);
                  FloodFill(260,55,1) ;
              setfillstyle(1,yellow);
                  FloodFill(280,120,1) ;
     Readln;
     Closegraph;
     end;
     end.
Добавлено через 10 минут
Подскажите еще процедуру чтобы увеличить ширину линий и фигур.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.02.2013, 13:17
Ответы с готовыми решениями:

Стандартный модуль Graph: отображение шахматной доски и перемещение фигур
1) Напишите программу для высвечивания шахматной доски. Нанесите цифры и буквы. Клетки раскрасьте....

Модуль Graph - не закрашиваются края в черный цвет
Нужно края в черный закрасить, вроде все задал, а они все равно белые вот прога: Program pr;...

Как изменить цвет всех линий - на черный
Здравствуйте друзья. У меня сложилась такая ситуация, что на чертеже очень-очень много...

Есть ли возможность изменить цвет линий, разделяющих пиксели?
Доброго времени суток. Есть ли возможность изменить цвет линий, разделяющих пиксели?(см.рис.)...

4
Модератор
60895 / 45704 / 31534
Регистрация: 18.05.2008
Сообщений: 109,997
08.02.2013, 14:06 2
Чтобы рисовать черным на белом, нужно не фон задавать белым, а рисовать белый прямоугольник на весь экран
Pascal
1
2
3
setcolor(15);
setfillstyle(15,1);
bar(0,0,getmaxX,getmaxY);
Добавлено через 2 минуты
Цитата Сообщение от BS-0 Посмотреть сообщение
Подскажите еще процедуру чтобы увеличить ширину линий и фигур.
Толщина линий
setlinestyle(0,0,3);-толстая, 0,0,1-тонкая, больше нет.
Насчет ширины фигур, не понял, но видимо масштабирование, процедуры никакой нет.
1
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
08.02.2013, 17:06  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Чтобы рисовать черным на белом, нужно не фон задавать белым, а рисовать белый прямоугольник на весь экран
При этом квадрате, при закрашивании отдельных элементов у меня закрашивается весь экран, т.е. квадрат этот.
0
Модератор
60895 / 45704 / 31534
Регистрация: 18.05.2008
Сообщений: 109,997
08.02.2013, 17:27 4
Цитата Сообщение от BS-0 Посмотреть сообщение
при закрашивании отдельных элементов у меня закрашивается весь экран
Значит точку для заливки мимо фигуры берете.
0
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
09.02.2013, 13:16  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Значит точку для заливки мимо фигуры берете.
С координатами заливки все хорошо. При использовании вашего варианта все работает, но только при синем цвете. Ставлю черный или другой все разрушается: фигуры, с заливкой бардак, дуги и т.д.

Добавлено через 19 часов 31 минуту
Я разобрался в FloodFill лоханулся
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2013, 13:16

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

Модуль Graph. Нарисовать овал, который движется по вертикали. При достижении границы меняет цвет
Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана. При...

TStringGrid: как изменить цвет линий сетки и отследить скроллинг?
1. Можно ли изменить цвет линий сетки, когда в ячейке находится редактор (опции: goEditing и...

Из вызывающей программы нужно изменить цвет линий, например, красный на зеленый, как это организовать?
Вот такая проблема!!! Есть файл DLL, в нем код для рисования картинки к примеру Canvas->Pen->With...

Модуль crt: изменить цвет экрана 16 раз
Используя возможности модуля Crt для работы в экране в текстовом режиме, написать программу,...


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

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

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