Паук (Все сообщения пользователя)

[QUOTE]Oleg Belenkov написал:
Почитать про создание карты можно тут - [URL=http://gistoolkit.ru/download/doc/mapapi.pdf]http://gistoolkit.ru/download/doc/mapapi.pdf[/URL] [/QUOTE]
спасибо большое оченьполезная информация.
Но ответ на мой вопрос получается что паспорт надо делать форму и писать самому .

и еще я создал кнопку для создания карты *.sit почему не одно свойство кроме масштаба не работает? где можно почитать как делать паспорт карты?
procedure TfrmFind.Button2Click(Sender: TObject);
var
 createsite : TMAPREGISTER;
 mapfilename : string;
 path : string;
 frame : TMAPDFRAME;
 sss: AnsiString;
 Ang : TLISTREGISTER;
begin
// path := ExtractFilePath(Application.ExeName);
// Заполним паспортные данные плана
// mapfilename := path + 'new1.sit';
// sss := 'Метеообстановка.Ногинский район';
// StrPlCopy(@createsite.MapName, sss, 31);
createsite.Scale              := 100000;  // Знаменатель масштаба карты
// createsite.EPSGCode           := 4284;  //код EPSG
// createsite.EllipsoideKind     := 1;
// createsite.MapType            := 0;     // Обобщенный тип карты
// createsite.MaterialProjection := 0;     // Проекция исх. материала
// createsite.FirstMainParallel  := 0;     // Первая главная параллель
// createsite.SecondMainParallel := 0;     // Вторая главная параллель
// createsite.AxisMeridian       := 39;     // Осевой меридиан
// createsite.MainPointParallel  := 0;     // Параллель главной точки
// createsite.
//
// Ang.Nomenclature := '0';
// Ang.ListName := '0';
// Ang.FileName := '0';

mvMap.CreateMapPro('DEMO.sit', 'operator.rsc',  createsite, Ang, 'demo', '123');
mvMap.MapOpen('DEMO.sit', True);
SetBtn;
end;

При создании карты в ГИС "Operator" есть вот такая форма, а при создании с помощью GTK есть такая же форма? если да то как ее открыть? а если нет то значит буду стряпать сам.  :idea:

[QUOTE]Паук написал:
Хотя может как-то надо связать между собой *.map и *.sit карты?[/QUOTE]
когда поставил ваше обновление все работает как надо  :)

[QUOTE]Паук написал:
Цитата Денис Вицко  написал:Обновленные исходные тексты  доступны для скачивания тут .Изменения коснулись следующих файлов:mapcrtobj.pasmetfiles.1. Я скачал по ссылке архив2. разархивировал3. из папки common скаченного файла заменил два файла которые находились ранее в установленном месте 4. пробую запускаю результат тот же самый точечные объекты наносятся а векторные нет[/QUOTE]
еще надо было скинуть из common в XE7 и произвести самое гласное перекомпиляцию !
Спасибо большое ребята! :)

Все разобрался  :)    вот эта команда ObjectFind.Delete, но до этого еще необходимо выбрать объект.

[QUOTE]Денис Вицко написал:
Обновленные исходные тексты  доступны для скачивания тут .Изменения коснулись следующих файлов:mapcrtobj.pasmetfiles.[/QUOTE]
1. Я скачал по ссылке архив
2. разархивировал
3. из папки common скаченного файла заменил два файла которые находились ранее в установленном месте
4. пробую запускаю результат тот же самый точечные объекты наносятся а векторные нет

[QUOTE]Денис Вицко написал:
Не совсем понял[/QUOTE]
мне необходимо чтобы я работал с классификатором пользовательской карты т.е. не только наносить УТЗ но и также удалять, редактировать, но при всем раскладе я не могу работать с классификатором  пользовательской карты.
Хотя может как-то надо связать между собой *.map и *.sit карты?

Ребята вы наверно из видео увидели, что у меня основная карта в формате *.map, а условные знаки использую из пользовательской карты *.sit, то есть используемый классификатор находится в sit файле. При создании объекта без диалога, он у меня векторный, ExCode см.на картинку, и ввожу с клавиатуры координаты.
MapCreateObject.ShowDialog  := false;
MapCreateObject.Local    := L_VECTOR;
MapCreateObject.ExCode   := 31612000;
MapCreateObject.DrawMode := DM_KB_INPUT;
MapCreateObject.Execute;
Все работает, НО если я беру условный знак из классификатора *.map.
Что делать? может как то можно вставить условные знаки из классификатора, *.rsc запихать с помощью чего-либо в карту *.map? Ребята помогите мне уже GTK снится  :|. но я намерен его победить ;)

procedure TfrmTestMap.SpeedButton1Click(Sender: TObject);

begin

MapCreateObject.Destroy;

end;

Почему не удаляет объект?