Здравствуйте!
Необходимо определить номер слоя по коду или ключу объекта.
Пробовал так:
mapGetRscObject(form_main.MapRsc1.RscHandle,i,RscObject);
LocInt := RscObject.Local;
ExCodeInt := RscObject.Code;
ShowMessage ('ExCodeInt = '+IntToStr(ExCodeInt)); // Здесь хорошо возвращается код объекта
ObjName := String(RscObject.Name);
ShowMessage ('ObjName = '+ObjName);
// ObjNum := mapGetRscObjectIdentIncode(form_main.MapRsc1.RscHandle,ExCodeInt); // Так пробовал, результат возвращает 0
ObjNum := mapGetRscObjectCodeByKey(form_main.MapRsc1.RscHandle,PAnsiChar(IntToStr(ExCodeInt))); // Так пробовал, результат возвращает 0
ShowMessage ('ObjNum = '+IntToStr(ObjNum));
// LayerNum := mapGetRscObjectSegment(form_main.MapRsc1.RscHandle,ExCodeInt); // Так пробовал, результат возвращает 0
LayerNum := mapGetRscObjectSegment(form_main.MapRsc1.RscHandle,ObjNum); // Так пробовал, результат возвращает 0
ShowMessage ('LayerNum = '+IntToStr(LayerNum));
Необходимо определить номер слоя по коду или ключу объекта.
Пробовал так:
mapGetRscObject(form_main.MapRsc1.RscHandle,i,RscObject);
LocInt := RscObject.Local;
ExCodeInt := RscObject.Code;
ShowMessage ('ExCodeInt = '+IntToStr(ExCodeInt)); // Здесь хорошо возвращается код объекта
ObjName := String(RscObject.Name);
ShowMessage ('ObjName = '+ObjName);
// ObjNum := mapGetRscObjectIdentIncode(form_main.MapRsc1.RscHandle,ExCodeInt); // Так пробовал, результат возвращает 0
ObjNum := mapGetRscObjectCodeByKey(form_main.MapRsc1.RscHandle,PAnsiChar(IntToStr(ExCodeInt))); // Так пробовал, результат возвращает 0
ShowMessage ('ObjNum = '+IntToStr(ObjNum));
// LayerNum := mapGetRscObjectSegment(form_main.MapRsc1.RscHandle,ExCodeInt); // Так пробовал, результат возвращает 0
LayerNum := mapGetRscObjectSegment(form_main.MapRsc1.RscHandle,ObjNum); // Так пробовал, результат возвращает 0
ShowMessage ('LayerNum = '+IntToStr(LayerNum));