pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazmapviewer: Less hints and warnings. Some cosmetic changes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6807 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-01-27 10:42:57 +00:00
parent 4110bb5f65
commit d5f756b59e
7 changed files with 92 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazmapviewer/source/mvdlefpc.pas
View File

@ -36,7 +36,7 @@ type
{ TMVDEFPC }
TMVDEFPC = class(TMvCustomDownloadEngine)
protected
public
procedure DownloadFile(const Url: string; AStream: TStream); override;
{$IF FPC_FullVersion >= 30101}
published

2
components/lazmapviewer/source/mvdownloadengine.pas
View File

@ -31,7 +31,7 @@ type
TMvCustomDownloadEngine = class(TComponent)
public
procedure DownloadFile(const Url: string; AStream: TStream); virtual;
procedure DownloadFile(const {%H-}Url: string; {%H-}AStream: TStream); virtual;
end;

17
components/lazmapviewer/source/mvengine.pas
View File

@ -132,12 +132,12 @@ Type
procedure DblClick(Sender: TObject);
procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
{%H-}Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Sender: TObject; {%H-}Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint; var Handled: Boolean);
{%H-}Shift: TShiftState; X, Y: Integer);
procedure MouseWheel(Sender: TObject; {%H-}Shift: TShiftState; WheelDelta: Integer;
{%H-}MousePos: TPoint; var Handled: Boolean);
procedure ZoomOnArea(const aArea: TRealArea);
property Center: TRealPoint read GetCenter write SetCenter;
@ -355,8 +355,8 @@ function TMapViewerEngine.CalculateVisibleTiles(const aWin: TMapWindow): TArea;
var
MaxX, MaxY, startX, startY: int64;
begin
MaxX := (aWin.Width div TILE_SIZE) + 1;
MaxY := (aWin.Height div TILE_SIZE) + 1;
MaxX := (Int64(aWin.Width) div TILE_SIZE) + 1;
MaxY := (Int64(aWin.Height) div TILE_SIZE) + 1;
startX := (-(aWin.X)) div TILE_SIZE;
startY := (-(aWin.Y)) div TILE_SIZE;
Result.Left := startX;
@ -589,7 +589,6 @@ function TMapViewerEngine.LonLatToMapWin(const aWin: TMapWindow;
var
tiles: Int64;
circumference: Int64;
lat: Extended;
res: Extended;
tmpX,tmpY : Double;
begin
@ -711,7 +710,6 @@ procedure TMapViewerEngine.MoveMapCenter(Sender: TDragObj);
var
old: TMemObj;
nCenter: TRealPoint;
Job: TJob;
aPt: TPoint;
Begin
if Sender.LnkObj=nil then
@ -876,7 +874,6 @@ end;
procedure TMapViewerEngine.SetMapProvider(AValue: String);
var
idx: integer;
zMin, zMax: integer;
begin
idx := lstProvider.IndexOf(aValue);
if not ((aValue = '') or (idx <> -1)) then

12
components/lazmapviewer/source/mvgeonames.pas
View File

@ -53,7 +53,7 @@ type
FFirstLocation: TResRec;
FFoundLocation: TResRec;
FOnNameFound: TNameFoundEvent;
procedure FoundTagHandler(NoCaseTag, ActualTag: string);
procedure FoundTagHandler(NoCaseTag, {%H-}ActualTag: string);
procedure FoundTextHandler(AText: String);
function Parse(AStr: PChar): TRealPoint;
// function RemoveTag(const str: String): TStringArray;
@ -231,9 +231,11 @@ end;
*)
function TMVGeoNames.Search(ALocationName: String;
ADownloadEngine: TMvCustomDownloadEngine): TRealPoint;
{
const
LAT_ID = '<span class="latitude">';
LONG_ID = '<span class="longitude">';
}
var
s: string;
@ -257,11 +259,13 @@ var
var
ms: TMemoryStream;
url: String;
{
iRes,i : integer;
lstRes : Array of TResRec;
iStartDescr : integer;
lst : TStringArray;
url: String;
}
begin
FLocationName := ALocationName;
ms := TMemoryStream.Create;
@ -276,7 +280,7 @@ begin
end;
Result := Parse(PChar(s));
(*
{
Result.Lon := 0;
Result.Lat := 0;
SetLength(lstRes, 0);
@ -315,7 +319,7 @@ begin
FOnNameFound(lstRes[iRes].Name, lstRes[iRes].Descr, lstRes[iRes].Loc);
end;
end;
*)
}
end;
end.

51
components/lazmapviewer/source/mvgpsobj.pas
View File

@ -120,14 +120,14 @@ type
FItems: TGPSObjList;
function Getcount: integer;
protected
Procedure _Delete(Idx : Integer;out DelLst : TGPSObjList);
Procedure _Delete(Idx: Integer; var DelLst: TGPSObjList);
Procedure FreePending;
Procedure DecRef;
procedure Lock;
procedure UnLock;
procedure CallModified(lst : TGPSObjList;Adding : boolean);
procedure CallModified(lst: TGPSObjList; Adding: boolean);
property Items : TGPSObjList read FItems;
procedure IdsToObj(const Ids : TIdArray;out objs : TGPSObjArray;IdOwner : integer);
procedure IdsToObj(const Ids : TIdArray; out objs: TGPSObjArray;IdOwner : integer);
public
Procedure GetArea(out Area : TRealArea);override;
function GetObjectsInArea(const Area: TRealArea): TGPSObjList;
@ -267,8 +267,9 @@ begin
Result:=FItems.Count
end;
procedure TGPSObjectList._Delete(Idx: Integer; out DelLst: TGPSObjList);
var Item : TGpsObj;
procedure TGPSObjectList._Delete(Idx: Integer; var DelLst: TGPSObjList); // wp: was "out"
var
Item: TGpsObj;
begin
Lock;
Try
@ -330,9 +331,10 @@ end;
procedure TGPSObjectList.IdsToObj(const Ids: TIdArray; out objs: TGPSObjArray;IdOwner : integer);
function ToSelect(aId : integer) : boolean;
var i : integer;
begin
function ToSelect(aId: integer): boolean;
var
i: integer;
begin
result:=false;
for i:=low(Ids) to high(Ids) do
if Ids[i]=aId then
@ -340,9 +342,10 @@ begin
result:=true;
break;
end;
end;
end;
var i,nb : integer;
var
i,nb : integer;
begin
SetLength(objs,length(Ids));
nb:=0;
@ -550,9 +553,11 @@ begin
end;
procedure TGPSObjectList.DeleteById(const Ids: array of integer);
function ToDelete(const AId : integer) : Boolean;
var i : integer;
begin
function ToDelete(const AId : integer) : Boolean;
var
i: integer;
begin
result:=false;
For i:=low(Ids) to high(Ids) do
if Ids[i]=AId then
@ -560,24 +565,27 @@ begin
result:=true;
exit;
end;
end;
end;
var Extr : TDrawingExtraData;
i : integer;
DelLst : TGPSObjList;
var
Extr: TDrawingExtraData;
i: integer;
DelLst: TGPSObjList;
begin
DelLst:=nil;
Lock;
try
For i:=Pred(Items.Count) downto 0 do
Begin
for i:=Pred(Items.Count) downto 0 do
begin
if Assigned(Items[i].ExtraData) then
Begin
begin
if Items[i].ExtraData.InheritsFrom(TDrawingExtraData) then
Begin
begin
Extr := TDrawingExtraData(Items[i]);
// !!! wp: There is a warning that TGPSObj and TDrawingExtraData are not related !!!
if ToDelete(Extr.Id) then
_Delete(i,DelLst);
// !!! wp: DelLst is a local var and created by _Delete but not destroyed anywhere here !!!
end;
end;
end;
@ -603,6 +611,7 @@ begin
end;
end;
{ TGPSTrack }
function TGPSTrack.GetDateTime: TDateTime;

4
components/lazmapviewer/source/mvjobs.pas
View File

@ -35,7 +35,7 @@ type
protected
function pGetTask: integer; override;
procedure pTaskStarted(aTask: integer); override;
procedure pTaskEnded(aTask: integer; aExcept: Exception); override;
procedure pTaskEnded(aTask: integer; {%H-}aExcept: Exception); override;
public
function Running: boolean; override;
end;
@ -53,7 +53,7 @@ type
constructor Create(aEvent: TJobProc; Data: TObject; OwnData: Boolean;
JobName: String = ''); virtual;
destructor Destroy; override;
procedure ExecuteTask(aTask: integer; FromWaiting: boolean); override;
procedure ExecuteTask(aTask: integer; {%H-}FromWaiting: boolean); override;
end;

61
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -61,10 +61,10 @@ Type
FPOIImage: TBitmap;
FOnDrawGpsPoint: TDrawGpsPointEvent;
procedure CallAsyncInvalidate;
procedure DoAsyncInvalidate(Data: PtrInt);
procedure DrawObjects(const TileId: TTileId; aLeft, aTop, aRight,aBottom: integer);
procedure DrawPt(const Area: TRealArea;aPOI: TGPSPoint);
procedure DrawTrk(const Area: TRealArea;trk: TGPSTrack);
procedure DoAsyncInvalidate({%H-}Data: PtrInt);
procedure DrawObjects(const {%H-}TileId: TTileId; aLeft, aTop, aRight,aBottom: integer);
procedure DrawPt(const {%H-}Area: TRealArea;aPOI: TGPSPoint);
procedure DrawTrack(const Area: TRealArea;trk: TGPSTrack);
function GetCacheOnDisk: boolean;
function GetCachePath: String;
function GetCenter: TRealPoint;
@ -77,7 +77,7 @@ Type
function GetZoom: integer;
procedure SetActive(AValue: boolean);
procedure SetCacheOnDisk(AValue: boolean);
procedure SetCachePath(AValue: String);
procedure SetCachePath({%H-}AValue: String);
procedure SetCenter(AValue: TRealPoint);
procedure SetDownloadEngine(AValue: TMvCustomDownloadEngine);
procedure SetInactiveColor(AValue: TColor);
@ -221,24 +221,25 @@ Type
FStates : Array of integer;
FArea : TRealArea;
protected
function pGetTask : integer;override;
function pGetTask: integer;override;
procedure pTaskStarted(aTask: integer);override;
procedure pTaskEnded(aTask : integer;aExcept : Exception);override;
procedure pTaskEnded(aTask: integer; aExcept: Exception);override;
public
procedure ExecuteTask(aTask : integer;FromWaiting : boolean);override;
procedure ExecuteTask(aTask: integer; FromWaiting: boolean);override;
function Running : boolean;override;
public
Constructor Create(aViewer : TMapView;aLst : TGPSObjList;const aArea : TRealArea);
Constructor Create(aViewer: TMapView; aLst: TGPSObjList; const aArea: TRealArea);
destructor Destroy;override;
end;
{ TDrawObjJob }
function TDrawObjJob.pGetTask: integer;
var i : integer;
var
i: integer;
begin
if not(AllRun) and not(Cancelled) then
Begin
begin
For i:=low(FStates) to high(FStates) do
if FStates[i]=0 then
Begin
@ -248,9 +249,9 @@ begin
AllRun:=True;
end;
Result:=ALL_TASK_COMPLETED;
For i:=low(FStates) to high(FStates) do
for i:=low(FStates) to high(FStates) do
if FStates[i]=1 then
Begin
begin
Result:=NO_MORE_TASK;
Exit;
end;
@ -266,7 +267,7 @@ procedure TDrawObjJob.pTaskEnded(aTask: integer; aExcept: Exception);
begin
if Assigned(aExcept) then
FStates[aTask-1]:=3
Else
else
FStates[aTask-1]:=2;
end;
@ -277,11 +278,11 @@ begin
iObj:=aTask-1;
Obj:=FLst[iObj];
if Obj.InheritsFrom(TGPSTrack) then
Begin
Viewer.DrawTrk(FArea,TGPSTrack(Obj));
End;
begin
Viewer.DrawTrack(FArea,TGPSTrack(Obj));
end;
if Obj.InheritsFrom(TGPSPoint) then
Begin
begin
Viewer.DrawPt(FArea,TGPSPoint(Obj));
end;
end;
@ -467,8 +468,6 @@ begin
end;
procedure TMapView.MouseMove(Shift: TShiftState; X, Y: Integer);
var
aPt: TPoint;
begin
inherited MouseMove(Shift, X, Y);
if IsActive then
@ -552,7 +551,7 @@ begin
end;
end;
procedure TMapView.DrawTrk(const Area : TRealArea;trk : TGPSTrack);
procedure TMapView.DrawTrack(const Area : TRealArea;trk : TGPSTrack);
var Old,New : TPoint;
i : integer;
aPt : TRealPoint;
@ -641,11 +640,10 @@ Begin
end;
procedure TMapView.DrawObjects(const TileId: TTileId; aLeft, aTop,aRight,aBottom: integer);
var aPt : TPoint;
Area : TRealArea;
lst : TGPSObjList;
i : integer;
trk : TGPSTrack;
var
aPt: TPoint;
Area: TRealArea;
lst: TGPSObjList;
begin
aPt.X:=aLeft;
aPt.Y:=aTop;
@ -660,11 +658,11 @@ begin
Engine.Jobqueue.AddJob(TDrawObjJob.Create(self,lst,Area),Engine)
else
begin
freeAndNil(Lst);
FreeAndNil(Lst);
CallAsyncInvalidate;
end;
end
Else
else
CallAsyncInvalidate;
end;
@ -676,15 +674,12 @@ end;
procedure TMapView.DoDrawTile(const TileId: TTileId; X, Y: integer;
TileImg: TLazIntfImage);
{$IFDEF USE_RGBGRAPHICS}
var
{$IFDEF USE_RGBGRAPHICS}
temp : TRGB32Bitmap;
ri : TRawImage;
BuffLaz : TLazIntfImage;
{$ENDIF}
{$IFDEF USE_LAZINTFIMAGE}
temp: TBitmap;
{$ENDIF}
{$ENDIF}
begin
if Assigned(Buffer) then
begin