| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
gstof
Зарегистрирован: 26.01.2007
Сообщения: 70
Откуда: Vladivostok-Kurgan
|
 Добавлено: Вт 06 Апр 2010 09:36 Заголовок сообщения: Как получить координаты окна рисования Ингео |
 |
|
Как можно получить координаты окна рисования Ингео.
Может быть с помощью объекта IIngeoPaintSurface его сойств PaperX and PaperY.
Но почему-то выдает ошибку Access violetion in adress? |
|
| Вернуться к началу |
|
 |
gstof
Зарегистрирован: 26.01.2007
Сообщения: 70
Откуда: Vladivostok-Kurgan
|
| Добавлено: Вт 06 Апр 2010 13:35 Заголовок сообщения: |
|
|
Вспомнил. Извлек сврйства PaperX PaperY/
Но получаются какие-то значения, не координаты. Как получить значения оконца именно в координатах? |
|
| Вернуться к началу |
|
|
APopov
Зарегистрирован: 19.06.2006
Сообщения: 347
Откуда: Самара
|
| Добавлено: Вт 06 Апр 2010 17:50 Заголовок сообщения: |
|
|
| Код: | procedure GetIngeoActiveMapRect(const IngeoApp:IIngeoApplication; var xmin, ymin, xmax, ymax:double);
var d :double;
begin
with IngeoApp.MainWindow.MapWindow.Surface do begin
PointDeviceToWorld(DeviceLeft, DeviceBottom, xmin, ymin);
PointDeviceToWorld(DeviceRight, Devicetop, xmax, ymax);
//todo: GetIngeoActiveMapRect: corected functionality, check behavior in your app
if xmin>xmax then begin d:=xmin; xmin:=xmax; xmax:=d; end;
if ymin>ymax then begin d:=ymin; ymin:=ymax; ymax:=d; end;
end;
end; |
_________________
ОАО "Самара-Информспутник",
инженер-программист Попов Артем |
|
| Вернуться к началу |
|
|
gstof
Зарегистрирован: 26.01.2007
Сообщения: 70
Откуда: Vladivostok-Kurgan
|
| Добавлено: Вт 20 Апр 2010 15:24 Заголовок сообщения: |
|
|
| спасибо |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
