Помогите пожалуйста. Запутался. Перевожу метры в градусы. Метры с минусом на карте мира.
procedure TfrmTestMap.mvMapMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
Point: TDOUBLEPOINT;
Height : double;
gradus : array[0..32] of char;
begin
Point.X := mvMap.MapLeft + X;
Point.Y := mvMap.MapTop + Y;
mvMap.ConvertMetric(Point.X,Point.Y,PP_PICTURE,PP_GEO);
FillChar(gradus[0], 32, 0);
mapPlaneToPointFormatString(mvMap.MapHandle, Point.X, Point.Y, Height, gradus, 32);
sbStatus.Panels[0].Text := Trim(gradus);
end;
Выдаёт ошибку
[dcc32 Error] Frmmap.pas(294): E2010 Incompatible types: 'PDouble' and 'Double'
[dcc32 Error] Frmmap.pas(294): E2010 Incompatible types: 'PDouble' and 'Double'
[dcc32 Fatal Error] Createobj.dpr(5): F2063 Could not compile used unit 'Frmmap.pas'
procedure TfrmTestMap.mvMapMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
Point: TDOUBLEPOINT;
Height : double;
gradus : array[0..32] of char;
begin
Point.X := mvMap.MapLeft + X;
Point.Y := mvMap.MapTop + Y;
mvMap.ConvertMetric(Point.X,Point.Y,PP_PICTURE,PP_GEO);
FillChar(gradus[0], 32, 0);
mapPlaneToPointFormatString(mvMap.MapHandle, Point.X, Point.Y, Height, gradus, 32);
sbStatus.Panels[0].Text := Trim(gradus);
end;
Выдаёт ошибку
[dcc32 Error] Frmmap.pas(294): E2010 Incompatible types: 'PDouble' and 'Double'
[dcc32 Error] Frmmap.pas(294): E2010 Incompatible types: 'PDouble' and 'Double'
[dcc32 Fatal Error] Createobj.dpr(5): F2063 Could not compile used unit 'Frmmap.pas'