SetVisualPage, SetActivePage, Не работает в FreePascal!? Опции

[qwad1000]

Начал работать над курсовой работой - уперся в невозможность работы с несколькими страницами.
При ввыполнении программы все отображается на одной, сабжевые функции просто игнорируются.
Кто что подскажет?
ЗЫ: Сама курсовая - игра "Жизнь". Смена страниц нужна для корректной и быстрой прорисовки

[IUnknown]

Кто что подскажет?

Использовать WinGraph вместо стандартного модуля Graph. Ибо в стандартном происходит вот что:

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

procedure SetActiveWin32GUI(page: word);
begin
end;

// ...

procedure SetupWin32GUIDefault;
    begin
       mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixel16Win32GUI;
       mode.PutPixel:={$ifdef fpc}@{$endif}PutPixel16Win32GUI;
       mode.GetPixel:={$ifdef fpc}@{$endif}GetPixel16Win32GUI;
       mode.HLine := {$ifdef fpc}@{$endif}HLine16Win32GUI;
       mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetRGBPaletteWin32GUI;
       mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetRGBPaletteWin32GUI;

// Вот эти 2 строки 
       mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualWin32GUI;
       mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveWin32GUI;

       mode.InitMode := {$ifdef fpc}@{$endif}InitWin32GUI16colors;
       mode.OuttextXY:={$ifdef fpc}@{$endif}OuttextXYWin32GUI;
       mode.VLine := {$ifdef fpc}@{$endif}VLine16Win32GUI;
       // mode.circle := {$ifdef fpc}@{$endif}Circle16Win32GUI;
       // doesn't work yet
       // mode.Line:={$ifdef fpc}@{$endif}LineWin32GUI;
    end;

, т.е., процедуры - пустые. Равно как и в DefaultHooks (файл graph.inc) - тоже устанавливаются адреса пустых процедур...

Сообщение отредактировано: IUnknown - 9.03.2012 3:57