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