Работа с графикой, Использование GetViewSettings Опции

[-=Cherry=-]

Есть такая задача: Строится некоторое изображение
Запоминается его определенная область с помощью SetViewPort
Затем некоторый диалог с пользователем в текстовом режиме
Возврат в графический режим и попытка вернуть на экран изображение, которое запомнилось в SetViewPort, c помoщью GetViewSettings.

Суть вопроса заключается в том,чтобы правильно указать данные для этой процедуры (не очень понятно как использовать параметр ViewInfo)
Буду очень признательна,если приведете конкретный пример)


SetViewPort(10,10,110,110,Clipon);
...
...
...
GetViewSettings(??????)
Заранее спасибо)

[volvo]

Ну, начнем с того, что SetViewPort ничего не запоминает, эта процедура просто напросто устанавливает размеры текущего вьюпорта... Запоминание делать так:

var
  Buffer: Pointer;
  size: integer;
...
  size := ImageSize(x1, y1, x2, y2); { <--- размеры области }
  {
    !!!!!
    Если размер картинки из области, которую ты хочешь сохранить
    будет больше 64К, то size будет = 0, и GetResult (сразу после вызова ImageSize)
    вернет значение grError, потому, что ты все равно не сможешь выделить кусок памяти
    такого размера... Тогда придется разбивать изображение на части...
  }

  GetMem(Buffer, size);
  GetImage(x1, y1, x2, y2, Buffer^);
  { В принципе, можно и в файл записать... Для надежности }

  ... { <-- Здесь делаешь, что тебе надо }

  { Восстанавливаем картинку: }
  PutImage(x1, y1, Buffer^, NormalPut);
  FreeMem(Buffer, size); { <--- Освобождаем буфер }
...