One more lil bugfix

This commit is contained in:
djes
2017-06-09 16:58:58 +02:00
parent bbb66d20b6
commit 1b903ffdc6

View File

@@ -1246,10 +1246,7 @@ Module PBMap
If PBMap\ThreadsNB < PBMap\Options\MaxThreads If PBMap\ThreadsNB < PBMap\Options\MaxThreads
Protected *NewTile.Tile = AllocateMemory(SizeOf(Tile)) Protected *NewTile.Tile = AllocateMemory(SizeOf(Tile))
If *NewTile If *NewTile
With *NewTile With *NewTile
*timg\Tile = *NewTile ; There's now a loading thread
*timg\Alpha = 0
; *timg\nImage = -1
; New tile parameters ; New tile parameters
\key = key \key = key
\URL = URL \URL = URL
@@ -1258,6 +1255,9 @@ Module PBMap
\Time = ElapsedMilliseconds() \Time = ElapsedMilliseconds()
\GetImageThread = CreateThread(@GetImageThread(), *NewTile) \GetImageThread = CreateThread(@GetImageThread(), *NewTile)
If \GetImageThread If \GetImageThread
*timg\Tile = *NewTile ; There's now a loading thread
*timg\Alpha = 0
; *timg\nImage = 0
MyDebug(" Creating get image thread nb " + Str(\GetImageThread) + " to get " + CacheFile, 3) MyDebug(" Creating get image thread nb " + Str(\GetImageThread) + " to get " + CacheFile, 3)
PBMap\ThreadsNB + 1 PBMap\ThreadsNB + 1
Else Else
@@ -2837,8 +2837,8 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf CompilerEndIf
; IDE Options = PureBasic 5.60 (Windows - x64) ; IDE Options = PureBasic 5.60 (Windows - x64)
; CursorPosition = 1241 ; CursorPosition = 1259
; FirstLine = 1233 ; FirstLine = 1229
; Folding = ------------------- ; Folding = -------------------
; EnableThread ; EnableThread
; EnableXP ; EnableXP