Страница 1 из 1
Вопросы по графике
Добавлено: 03.12.2010 23:13:49
Astador
Подскажите пожалуйста как подключить в графическом режиме высокое разрешение экрана. Хотя бы 1024х768 . И почему может не работать функция setbkcolor ? не меняет фон и все тут, в Турбо Паскале работала.
Re: Вопросы по графике
Добавлено: 04.12.2010 06:06:48
Vadim
AstadorAstador писал(а):Подскажите пожалуйста как подключить в графическом режиме высокое разрешение экрана. Хотя бы 1024х768 .
Если речь идёт о досовской графике, то надо указать название соответствующего режима - m1024x768. Смотрите документацию.
Re: Вопросы по графике
Добавлено: 04.12.2010 07:22:29
informat
Турбо паскалевская графика - игрушечная. И рассчитывать на полноценную работу не стоит.
Там есть ещё глюки. Попробуйте нарисовать сектор больше 180 градусов.
А вообще по-умолчанию графическое окно открывается на весь экран. Так что не стоит заморачиваться с графическими режимами.
Re: Вопросы по графике
Добавлено: 04.12.2010 10:45:36
Astador
Да, но с низкий разрешением картинка будет сильно растягиватся, а мне бы этого не хотелось.
Re: Вопросы по графике
Добавлено: 05.12.2010 08:18:18
informat
Detect открывает на весь экран. Разве этого мало?
А точки (пикселы) меньше, чем поддерживает монитор, всё равно не станут.
Кроме того простое приписывание режима m1024x768 не работает.
Кто-нибудь знает, как в ДОСовской графике во FreePascal включить более 255 цветов.
Код ниже не включает.
Код: Выделить всё
Program Gg_Modes;
uses
Graph;
Var
Gd, Gm : Integer;
x : longint;
Begin
Gd:= Detect;
Gm:= m1024x768x64K;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
for X:=0 to GetMaxColor do
begin
SetColor(X);
line(X, 0, X, GetMaxY);
end;
ReadLn;
CloseGraph;
End.
Re: Вопросы по графике
Добавлено: 05.12.2010 15:41:35
Vadim
informat писал(а):Detect открывает на весь экран. Разве этого мало?
А точки (пикселы) меньше, чем поддерживает монитор, всё равно не станут.
Detect ориентируется на возможности видеокарты, а не на возможности монитора, так что его лучше не использовать, а задавать разрешение явно. У меня, например, монитор имеет расширение 1280, а Detect даёт 1600. Естественно никакого изображения (кроме Малевича
) не получаю.
А если задаю вручную - m1024x768, то получаю нормальное окошко с изображение.
На счёт цвета - та же фигня, задайте его вручную.
Re: Вопросы по графике
Добавлено: 06.12.2010 10:13:21
informat
Vadim писал(а):informat писал(а):Detect открывает на весь экран. Разве этого мало?
А точки (пикселы) меньше, чем поддерживает монитор, всё равно не станут.
Detect ориентируется на возможности видеокарты, а не на возможности монитора, так что его лучше не использовать, а задавать разрешение явно. У меня, например, монитор имеет расширение 1280, а Detect даёт 1600. Естественно никакого изображения (кроме Малевича
) не получаю.
А если задаю вручную - m1024x768, то получаю нормальное окошко с изображение.
На счёт цвета - та же фигня, задайте его вручную.
Что-то там с документацией не стыковка.
У приведенном выше примере не получается подобрать константы, которые нужно присвоить переменным GD и GM, чтобы можно было использовать в графическом окне 16М цветов. Или хотя бы 64K.
Re: Вопросы по графике
Добавлено: 06.12.2010 10:48:12
Vadim
informat писал(а):У приведенном выше примере не получается подобрать константы, которые нужно присвоить переменным GD и GM, чтобы можно было использовать в графическом окне 16М цветов. Или хотя бы 64K.
Судя по документации, 16М цвет пока ещё не поддерживается. И, наверное, уже не будет. В связи с неактуальностью MS-DOS.
Поддерживается 64К цветов. Для этого надо указать:
Re: Вопросы по графике
Добавлено: 07.12.2010 06:32:34
informat
Vadim писал(а):informat писал(а):У приведенном выше примере не получается подобрать константы, которые нужно присвоить переменным GD и GM, чтобы можно было использовать в графическом окне 16М цветов. Или хотя бы 64K.
Судя по документации, 16М цвет пока ещё не поддерживается. И, наверное, уже не будет. В связи с неактуальностью MS-DOS.
Поддерживается 64К цветов. Для этого надо указать:
А то я не пробовал.
Вот что получается:
Invalid graphics modeУточню, Windows XP:
■ Free Pascal IDE Version 1.0.12 [2010/11/10]
■ Compiler Version 2.4.2
Re: Вопросы по графике
Добавлено: 07.12.2010 09:26:14
Vadim
informatВ модуле Graph есть одна особенность - он работает на режимах VESA. Поэтому, чтобы не путаться в трёх соснах, надо для начала выяснить, а какие режимы VESA поддерживает Ваш адаптер. В Graph'е есть для этого специальная функция. Вот Вам программка:
Код: Выделить всё
{Проверка поддерживаемых графических режимов}
Uses Graph;
Var
Info: PModeInfo;
Begin
Info:=QueryAdapterInfo;
While Info^.Next<>NIL Do
Begin
WriteLn(Info^.ModeName, ' : ', Info^.MaxX, 'x', Info^.MaxY, ', ', Info^.MaxColor);
Info:=Info^.Next;
End;
End.
Запустите у себя, проверите и у Вас сразу наступит просветление.
Re: Вопросы по графике
Добавлено: 11.12.2010 06:05:59
informat
Vadim писал(а):informat
В модуле Graph есть одна особенность - он работает на режимах VESA. Поэтому, чтобы не путаться в трёх соснах, надо для начала выяснить, а какие режимы VESA поддерживает Ваш адаптер. В Graph'е есть для этого специальная функция. Вот Вам программка:
...
Вот в этом-то и дело. И советовать ставить графические режимы смысла мало.
Graph и VESA - игрушки прошлого века. И не чего большего от них не получить.
Для начального обучения я использую. А для серьезных дел не стоит и пытаться.