setactpg.pas
Пример программы для процедуры SetActivePage.
Код примера
{Setactpg.PAS}
{ Пример программы для процедуры SetActivePage }
Uses Graph;
Var Gd, Gm : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
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.
Скачать setactpg.pas