Placemark Not Visible at South Equator

[kinol]

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

[Parasite]

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;