Правила форума
SetVisualPage (процедура) (модуль Graph)Язык:
Русский
English
SetVisualPage (процедура) (модуль Graph)
Устанавливает номер видимой графической страницы.
Объявление
Procedure SetVisualPage(Page : Word);
Режим
Real, Protected
Замечания
Делает графическую страницу с номером Page видимой.
Многостраничный вывод обеспечиваются только адаптерами EGA, (S)VGA и графическими платами Hercules. Используя многостраничный режим, программа может осуществлять графические построения на неактивной странице, затем переключать страницы с помощью данной процедуры, тем самым практически мгновенно отображать картинку на экране. Эта методика особенно полезна при создании анимационных программ.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедур SetActivePage и SetVisualPage }
var
Gd, Gm : Integer;
begin
Gd := Detect;
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.
Более сложный пример: Пример: 3D–графика Pascal. Открывающаяся книга
::
::
::
