paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: Fixed recursive loop when loading TMapView component with UseThreads=true.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9551 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alpine-a110 2024-12-25 22:40:12 +00:00
parent 8457b3b34a
commit 200f5209e3
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -684,7 +684,7 @@ var
begin
TimeOut := 0;
mThread := IsMainThread;
if FUseThreads then
if FUseThreads and (Length(lstJob) > 0) then
begin
repeat
OneFound := False;
@ -701,13 +701,15 @@ begin
finally
LeaveCriticalSection;
end;
if OneFound and (TimeOut > 200) then
raise Exception.Create('TimeOut');
if mThread then
Application.ProcessMessages;
if OneFound then
begin
if (TimeOut > 200) then
raise Exception.Create('TimeOut');
if mThread then
Application.ProcessMessages;
Sleep(100);
Inc(TimeOut);
Inc(TimeOut);
end;
until not OneFound;
end;
end;