Cześć,

Dlaczego nie działają mi strony w GRAPH'ie?
Próbowałem już wielu przykładów z neta i nic...

Napisałem swój własny testowy

program xgauss;

Uses Crt, Graph;

Var Sterownik, Tryb : Integer;

Begin
  Sterownik:=VGA;{oczywiste}
  Tryb:=VgaMed;{posiada 2 strony do ustawiania}
  InitGraph(Sterownik,Tryb,'');

  SetActivePage(0); {ustawianie strony 0}
  Circle(100,100,100); {rysowanie okręgu na 0 stronie}
  SetActivePage(1); {ustawianie strony 1}
  Circle(100,100,100); {rysowanie okręgu na 1 stronie}
  Rectangle(0,0,100,100); {rysowanie prostokąta na 1 stronie}

  SetVisualPage(0); {wyświetl stronę 0}
  Delay(2000); {czekaj 2 sekundy}
  SetVisualPage(1); {wyświetl stronę 1}
  Delay(2000); {czekaj 2 sekundy i zamknij program}

End.

Skomentowany jest, więc myślę, że wiecie co chcę wykonać.
Po uruchomieniu programu wyświetla mi się Od razu strona 1 (prostokąt i kółko), a nie strona 0 (samo kółko) i wyłącza się po 4 sekundach :(

Używam FreePascala 2.2.4

Proszę o pomoc, bo nie mam pojęcia co jest źle :-(