SASGIS

Веб-картография и навигация

Placemark Not Visible at South Equator

English- or other language speakers welcome here
Please do not translate your native language to "broken Russian" via crappy machine translation services - please post it as it is, in your native language.

Модератор: Tolik

Placemark Not Visible at South Equator

Сообщение kinol » 30 май 2018, 11:56

Hi ....

I kinol ..and need some help to use SASPlanet
I use ODBC MySQL for SASPlanet database
I have problem when i add placemark (POINT,PATH,POLYGON) at South area from Equator , its automated Hidden .. Cannot be Visible
but its work if I use SQLite or SML data

Please help me

Изображение

Thanks for All
kinol
Новичок
 
Сообщения: 5
Зарегистрирован: 30 май 2018, 11:36
Благодарил (а): 0 раз.
Поблагодарили: 5 раз.

Re: Placemark Not Visible at South Equator

Сообщение kinol » 30 авг 2018, 05:31

I get the solution

this unit u_MarkSystemORMTools.pas

Код: Выделить всё
procedure LonLatDoubleRectToRect(const ADoubleRect: TDoubleRect; out ARect: TRect);
begin
  ARect.Left    := Round(ADoubleRect.Left * cCoordToInt);
  ARect.Top    := Round(ADoubleRect.Top * cCoordToInt);
  ARect.Right    := Round(ADoubleRect.Right * cCoordToInt);
  ARect.Bottom    := Round(ADoubleRect.Bottom * cCoordToInt);


End;


My Modified is :

Код: Выделить всё
procedure LonLatDoubleRectToRect(const ADoubleRect: TDoubleRect; out ARect: TRect);
var
  x,y : integer;
begin

  x := Round(ADoubleRect.Top * cCoordToInt);
  y := Round(ADoubleRect.Bottom * cCoordToInt);

  ARect.Left := Round(ADoubleRect.Left * cCoordToInt);

  if x<0 then
    ARect.Top := 0
  else
    ARect.Top := Round(ADoubleRect.Top * cCoordToInt);

  ARect.Right := Round(ADoubleRect.Right * cCoordToInt);

  if y<0 then
    ARect.Bottom    := 0
  else
    ARect.Bottom    := Round(ADoubleRect.Bottom * cCoordToInt);


End;

За это сообщение автора kinol поблагодарили: 2
garl (30 авг 2018, 10:33) • Parasite (30 авг 2018, 18:53)
Рейтинг: 10.53%
 
kinol
Новичок
 
Сообщения: 5
Зарегистрирован: 30 май 2018, 11:36
Благодарил (а): 0 раз.
Поблагодарили: 5 раз.


Вернуться в International visitors section

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron