Изменить параметры проекции

function Modify(hmap: HMAP, parm: PTASKPARMEX): integer; 

function Modify(hmap: HMAP, var parm: TTASKPARMEX): integer;

 function Modify(aMap:HMAP;Myparm:TTASKPARMEX):integer; 
 {$IFNDEF LINUXAPI} stdcall {$ELSE} cdecl {$ENDIF}; 
 external sGISVECTR; 

function Modify(hmap: HMAP; parm: PTASKPARMEX): integer;
{$IFNDEF LINUXAPI} stdcall {$ELSE} cdecl {$ENDIF};
external sGISVECTR;


implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
   parm: TTASKPARMEX;
   appname, shpath, ininame : GtkString;
begin
  if (MapView1.Active)
    then begin
      // Имя приложения
      appname := GtkString(Application.Title);
      // Каталог приложения (exe,dll,...)
      shpath  := GtkString(ExtractFilePath(Application.ExeName));
      // Полное имя файла ".ini" приложения
      ininame := GtkString(Application.ExeName + '.ini');
      // Подготовка структуры
      FillChar(parm, sizeof(parm), 0);
      with parm do
      begin
        Language  := cML_RUSSIAN;       // Локализация интерфейса
        Handle    := Self.Handle;       // Идентификатор главного окна приложения
        DocHandle := MapView1.Handle;   // Идентификатор окна карты
        PathShell := GTKPChar(shpath);  // Каталог приложения (exe,dll,...)
        IniName   := GtkPChar(ininame); // Полное имя файла ".ini" приложения
        ApplicationName := GTKPChar(appname);   // Имя приложения
      end;
      Modify(MapView1.MapHandle, @parm);
    end
  else
    ShowMessage('Нет открытой карты!');
end;