Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2014, 11:01   #1
Iskryen
Пользователь
 
Регистрация: 21.01.2014
Сообщений: 31
По умолчанию Рисование в графическом режиме - параметры SetLineStyle

Уважаемые Форумчане!

Вашему вниманию предлагается небольшая Программа, рисующая красивый жёлтый квадрат.

Вопрос в следующем.

Обратите, пожалуйста, Ваше внимание на строку:

Код:

SetLineStyle (2, 3, 4);
Здесь приводятся три цифры. 2, 3 и, соответственно, 4.

Они взяты произвольно, для того, чтобы был понятен мой вопрос.

Итак, первая цифра – 2 – отвечает за тип линии.
Вторая цифра – 3 – отвечает за пользовательские настройки.
Третья цифра – 4 – отвечает за толщину линии.

Я пробовал менять значения, но изменения были заметны при изменении первой и третьей цифры. А второй – нет.

Вот мне и хотелось бы выяснить – может быть, в Программе каким-то образом указываются определённые пользовательские настройки?

Если Вас не затруднит, внесите, пожалуйста, Ваши дополнения.

Заранее спасибо!

Код:
 

Program Risovanie_Kvadrata;

Uses crt,

Graph; {Подключение модуля библиотеки графических процедур}

Var gdriver, {Переменная, определяющая тип драйвера}

Gmode {Переменная, задающая режим работы графического драйвера}

: integer;

Begin

Clrscr;

Gdriver := detect; {Автоопределение типа драйвера}

Initgraph (gdriver, gmode, ‘ ’); {Инициализация графического режима}

{--------------------------------}

Setcolor (yellow);

SetLineStyle (2, 3, 4);

Rectangle (300, 300, 600, 600);

Readln;

Closegraph; {Закрытие графического режима}

End.
Я желаю всем достигнуть поставленных целей!

Последний раз редактировалось Iskryen; 15.05.2014 в 11:02. Причина: Улучшение наглядности
Iskryen вне форума Ответить с цитированием
Старый 15.05.2014, 11:11   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

SetLineStyle(UserBitLn, $FF, ThickWidth);

Если первый параметр = UserBitLn, то вы сами устанавливаете образец для заполнения линии.

11111111 - сплошная линия ($FF)
10101010 - через точечная линия ($AA)

Последний раз редактировалось ZX Spectrum-128; 15.05.2014 в 11:14.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 15.05.2014, 11:16   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

http://mojainformatika.ru/paskal/uro...linestyle.html
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 15.05.2014, 11:35   #4
Iskryen
Пользователь
 
Регистрация: 21.01.2014
Сообщений: 31
По умолчанию

Спасибо Вам ещё раз огромное! Буду разбираться!
Я желаю всем достигнуть поставленных целей!
Iskryen вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Текст в графическом режиме truniger2011 Общие вопросы C/C++ 7 12.02.2013 13:17
Маски в графическом режиме Metr13 Паскаль, Turbo Pascal, PascalABC.NET 4 30.09.2012 17:47
Ввод в графическом режиме MeTeOpA Общие вопросы C/C++ 3 19.05.2011 11:09
текст в графическом режиме... hasana Паскаль, Turbo Pascal, PascalABC.NET 7 18.05.2010 15:58