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

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

08.02.2013, 13:17. Показов 5935. Ответов 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
Модератор
63682 / 47254 / 32563
Регистрация: 18.05.2008
Сообщений: 114,509
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
Модератор
63682 / 47254 / 32563
Регистрация: 18.05.2008
Сообщений: 114,509
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 - 2021, vBulletin Solutions, Inc.