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

MavViewer: Easier usage of GpsPoint and GpsTracks. Less hints and warnings. GpxReader LoadFromFile/Stream returns the ID of the items loaded.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8078 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-08-20 10:23:04 +00:00
parent 6312921fac
commit b10c38f5d7
7 changed files with 54 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazmapviewer/source/mvjobqueue.pas
View File

@ -485,6 +485,7 @@ function TJobQueue.pFindJobByName(const aName: string;
var
iRes, i: integer;
begin
Result := nil;
SetLength(Result, Jobs.Count);
iRes := 0;
for i := 0 to pred(Jobs.Count) do
@ -621,7 +622,7 @@ function TJobQueue.CancelAllJob(ByLauncher: TObject): TJobArray;
var
i, iJob: integer;
begin
SetLength(Result, 0);
Result := nil;
if FUseThreads then
begin
EnterCriticalSection;
@ -758,7 +759,7 @@ end;
procedure TJob.Cancel;
var
lst: Array of TRestartTask;
lst: Array of TRestartTask = nil;
i, idx: integer;
begin
Queue.EnterCriticalSection;