www.integro.ru

[Кузнецов Андрей]

Михаил, я пытаюсь реализовать идею динамической "подмены" стиля.
Пишу код в ИнГео. Все хорошо, но не нашел описания метода "PaintContour" у стиля, а точнее последнего его параметра.
Стиль в моем случае рисует данные из семантической таблицы, и, видимо параметр "aData" должен содержать их, но в каком виде не понял.
Вот код:
' Вызывается перед рисованием каждого слоя
sub DbPaint_LayerWillPaint(aSurface, aLayerID, aVisible)
Dim MOS
Dim MO
Dim Contour
Dim NightStyle
Dim MOQ
Dim PaintData

If aLayerID <> "000100000E65" Then Exit Sub

' Подмена стиля
Set NightStyle = Application.ActiveDb.StyleFromID("00010002E12D")

Set MOS = Application.ActiveDb.MapObjects
Set MOQ = MOS.QueryByStyle("000100002337", inqsAll)

Do While Not MOQ.EOF
Set MO = MOS.GetObject(MOQ.ObjectID)
Set Contour = MO.Shapes.Item(0).Contour

' Здесь не понятно !!!!
PaintData = MO.SemData.GetValue("RFCITIES", "NAME_RWIN")
NightStyle.PaintContour aSurface, Contour, PaintData

MOQ.MoveNext
Loop
end sub

[Наталья Колонтай]

Мне удалось решить эту проблему через изменение индекса стиля у форм объекта. Не забудь потом обновить набор объектов.

[Кузнецов Андрей]

[Азаматов Азамат Хадисович]

А нельзя просто рисовать после рисования слоя?
Тогда просто то что вы нарисуете в модуле перекроет на экране "штатную" отрисовку

[Наталья Колонтай]

Мне нужно было перехватывать работу пользователя и "перекрашивать" объекты. В Delphi механизм перекрашивания реализовывался так
theObjShapes:= theObject.Shapes;//Берем коллекцию фигур объекта
for j:=0 to theObjShapes.Count-1 do begin
theObjShape:=theObjShapes.Item[j];//Берем фигуру
theObjShape.StyleID:=IDZUStyleOtkr;//Присваиваем ее индексу стиля новое значение
end;
theObjects.UpdateChanges; //Обновляем объект
А подвешивать действительно пришлось на перерисовку слоев. Как уже говорила ранее- "Это не есть хорошо, господа разработчики".

[Михаил Власов]

Если стиль содержит текстовый метод отображения с форматными вставками вида "{name1} {name2}", то последний параметр метода PaintContour должен содержать подстановку для "name1" и "name2" в следующем виде: