Смена страницы в графическом режиме

@Захарка · Регистрация: 16.06.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте уважаемые пользователи форума. Возникла такая проблема: Среди функций модуля Grapg есть 2 - SetVisualPage и SetActivePage, которые позволяют устанавливать активную страницу видеорежима, и страницу, на которую происходит вывод (естественно в тех режимах, которые имеют несколько страниц, напр. VGA). Таким образом, чередуя вывод на скрытую страницу, и её показ можно реализовать анимацию, без ряби. Но я обнаружил, что у меня режим не переключается вообще. Т.е. если в примере ниже(простейшем, взятым с сайта с описанием функции) убрать SetVisualPage(1);, то по идее на экране ничего не должно появиться, т.к. вывод шел бы на 1 страницу а показ был бы нулевой. Но у меня рисуется квадрат, что означает, отсутствие смены страницы. Собственно вопрос: Почему так, и как сделать смену, т.к. в мне очень нежелательно было бы иметь дрожание картинки при перерисовке

Кликните здесь для просмотра всего текста

Pascal

uses Graph;
var
  Gd, Gm : Integer;
 
begin
  Gd := VGA;
  Gm:= VGAMED;
  InitGraph(Gd, Gm, 'X:\BP');
  if GraphResult <> grOk then
    Halt(1);
  if (Gd = HercMono) or (Gd = EGA) or (Gd = EGA64) or (Gd = VGA) then
  begin
    SetVisualPage(0);
    SetActivePage(1);
    Rectangle(10, 20, 30, 40);
   SetVisualPage(1);
  end
  else
    OutText('No paging supported.');
  ReadLn;
  CloseGraph;
end.

Добавлено через 1 час 27 минут
И вот ещё вопрос: у меня стоят Freepascal и Win8. Когда я запускаю в приложении графический режим, и пытаюсь отловить символы функцией readkey, они ловятся, НО только если фокус стоит на консольном окне, а не на окне с графикой. Можно-ли заставить читать символы с клавиатуры графическое окно?

@Puporev · 16.06.2013, 11:38

Сообщение от Захарка

пытаюсь отловить символы функцией readkey,

А у Вас подключен модуль Crt? Смените на Wincrt

Добавлено через 19 минут
А программу попробуйте так, в учебниках куча ошибок.

Pascal

uses Graph,wincrt;
var
  Gd, Gm : Integer;
 
begin
  Gd := VGA;
  Gm:= VGAMED;
  InitGraph(Gd, Gm, 'X:\BP');
  repeat
    SetVisualPage(0);
    Rectangle(10, 20, 30, 40);
    SetActivePage(1);
    delay(1000);
    cleardevice;
    SetVisualPage(1);
    Rectangle(100, 200, 120, 220);
    delay(1000);
    SetActivePage(1);
    cleardevice;
  until keypressed
end.

@Захарка · 16.06.2013, 13:13 **[ТС]**

Спасибо огромное, всё получилось, буду встраивать в основную программу)

Добавлено через 18 минут
Обидно, но смена видеостраницы что-то не даёт особого эффекта, дёрганье всёравно остаётся довольно сильным(

@~~MansMI~~ · 16.06.2013, 19:48

в FPC у меня эта игра с страницами так и не получилась, мерцает, и дугу 270-90 не удалось нарисовать, а в ТР тот же код буква в букву работает на "ура"

@volvo877 · 16.06.2013, 21:47

В FPC "игра со страницами" не реализована (открываем файл \packages\graph\src\win32\graph.pp, и смотрим на "пустышки", которые должны как раз всё делать, по крайней мере у меня на 2.6.0 - именно такая история)

Pascal

{ multipage support could be done by using more than one background bitmap }
procedure SetVisualWin32GUI(page: word);
begin
end;
procedure SetActiveWin32GUI(page: word);
begin
end;

Чтобы добиться белее плавной анимации нужно пользоваться не Graph-ом, а WinGraph-ом.

@Захарка · 16.06.2013, 22:15 **[ТС]**

Ну в принципе уже не важно, я кое-что подправил, кое-что поменял, у меня теперь только в одном месте моргает, но уже не критично, хотя и напрягает( Но реализацию в коде оставил, может на TP запущу как-нибудь...

@Puporev · 17.06.2013, 07:38

Сообщение от MansMI

и дугу 270-90 не удалось нарисовать

Нужно 2 рисовать от 270 до 360 и от 0 до 90

@~~MansMI~~ · 17.06.2013, 07:46

спасибо что не попиксельно

@maxii · 21.05.2014, 21:28

Подскажите. Надо нарисовать ромб в невидимой странице, потом сделать ее видимой (понятно что сетвижуал(0))-но надо ли использовать сетактивейт если надо его выводить или это надо сделать сперва. Но как определить невидимую страницу для ромба сперва? Или она есть по умолчанию для некоего режима? В любом случае потом надо построить квадрат в невидимой. Как тогда быть со второй. Как их отделить?

@Puporev · 22.05.2014, 07:58

Pascal

uses Graph,wincrt;
var
  Gd, Gm : Integer;
 
begin
  Gd := VGA;
  Gm:= VGAMED;
  InitGraph(Gd, Gm, 'X:\BP');
  repeat
    SetVisualPage(0);
    {рисуем квадрат}
    Rectangle(100, 100, 300, 300);
    SetActivePage(1);
    delay(1000);
    cleardevice;
    SetVisualPage(1);
    {рисуем ромб}
    line(100,200,200,100);
    line(200,100,300,200);
    line(300,200,200,300);
    line(200,300,100,200);
    delay(1000);
    SetActivePage(1);
    cleardevice;
  until keypressed
end.

@volvo · 22.05.2014, 17:57

maxii, еще раз: не работает FPC с невидимыми страницами. Обе эти функции - "пустышки", ничего не делающие. И вся эта "игра" с ними - только чтобы запудрить мозги преподавателю. Любой мало-мальски разбирающийся человек тут же попросит сделать отрисовку обоих фигур (одной - в неактивную страницу, второй - в активную) до цикла, а в цикле - только менять страницы:

Pascal

Active := 1;
repeat
  SetVisualPage(1 - Active);
  Delay(1000);
until keypressed;

И тут будет большой облом...

WinGraph попробуй, там по крайней мере не "пустышки"...

@maxii · 22.05.2014, 23:58

Ну задание мне нужно сделать. И Это очень простое. И надо мне сделать там где эти функции работают. Пусть: делаю ромб. Делаю эту страницу видимой. Потом надо снова как то на невидимую переключится. Как это сделать чтобы квадрат нарисовать. То есть выход один. Как то делать новую страницу и там уже рисовать квадрат.

Добавлено через 3 минуты
И здесь как бы Цикла не надо как и делеев?

@maxii · 21.06.2014, 20:18

запустите пожалуста этот код если он работоспособный,
у себя на компьютере, ибо у меня пишет что что то с компиляцией (Мне надо принскрин).

Pascal

uses Graph,wincrt;
var
  Gd, Gm : Integer;
 
begin
  Gd := VGA;
  Gm:= VGAMED;
  InitGraph(Gd, Gm, 'X:\BP');
  repeat
    SetVisualPage(0);
    {рисуем квадрат}
    Rectangle(100, 100, 300, 300);
    SetActivePage(1);
    delay(1000);
    cleardevice;
    SetVisualPage(1);
   circle (200, 300, 100);
    delay(1000);
    SetActivePage(1);
    cleardevice;
  until keypressed
end.

Новичок · 22.06.2014, 00:28

Компилируется, работает. Скрины ниже.

@Захарка 134 / 129 / 59 Регистрация: 16.06.2013 Сообщений: 523
	16.06.2013, 13:13 [ТС]	3
	Спасибо огромное, всё получилось, буду встраивать в основную программу) Добавлено через 18 минут Обидно, но смена видеостраницы что-то не даёт особого эффекта, дёрганье всёравно остаётся довольно сильным( 0

@~~MansMI~~ Заблокирован
	16.06.2013, 19:48	4
	в FPC у меня эта игра с страницами так и не получилась, мерцает, и дугу 270-90 не удалось нарисовать, а в ТР тот же код буква в букву работает на "ура" 0

@Захарка 134 / 129 / 59 Регистрация: 16.06.2013 Сообщений: 523
	16.06.2013, 22:15 [ТС]	6
	Ну в принципе уже не важно, я кое-что подправил, кое-что поменял, у меня теперь только в одном месте моргает, но уже не критично, хотя и напрягает( Но реализацию в коде оставил, может на TP запущу как-нибудь... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.06.2013, 07:38	7
	Сообщение от MansMI и дугу 270-90 не удалось нарисовать Нужно 2 рисовать от 270 до 360 и от 0 до 90 1

@~~MansMI~~ Заблокирован
	17.06.2013, 07:46	8
	спасибо что не попиксельно 0

@maxii 3 / 3 / 1 Регистрация: 28.12.2011 Сообщений: 253
	21.05.2014, 21:28	9
	Подскажите. Надо нарисовать ромб в невидимой странице, потом сделать ее видимой (понятно что сетвижуал(0))-но надо ли использовать сетактивейт если надо его выводить или это надо сделать сперва. Но как определить невидимую страницу для ромба сперва? Или она есть по умолчанию для некоего режима? В любом случае потом надо построить квадрат в невидимой. Как тогда быть со второй. Как их отделить? 0

@maxii 3 / 3 / 1 Регистрация: 28.12.2011 Сообщений: 253
	22.05.2014, 23:58	12
	Ну задание мне нужно сделать. И Это очень простое. И надо мне сделать там где эти функции работают. Пусть: делаю ромб. Делаю эту страницу видимой. Потом надо снова как то на невидимую переключится. Как это сделать чтобы квадрат нарисовать. То есть выход один. Как то делать новую страницу и там уже рисовать квадрат. Добавлено через 3 минуты И здесь как бы Цикла не надо как и делеев? 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	22.06.2014, 00:28	14
	Компилируется, работает. Скрины ниже. 0