equal
deleted
inserted
replaced
1320 {$ENDIF} |
1320 {$ENDIF} |
1321 inc(Step); |
1321 inc(Step); |
1322 |
1322 |
1323 end; |
1323 end; |
1324 |
1324 |
1325 |
1325 {$IFDEF IPHONEOS} |
|
1326 procedure spinningWheelDone; cdecl; external; |
|
1327 {$ENDIF} |
1326 procedure FinishProgress; |
1328 procedure FinishProgress; |
1327 begin |
1329 begin |
1328 WriteLnToConsole('Freeing progress surface... '); |
1330 WriteLnToConsole('Freeing progress surface... '); |
1329 FreeTexture(ProgrTex); |
1331 FreeTexture(ProgrTex); |
|
1332 {$IFDEF IPHONEOS} |
|
1333 spinningWheelDone(); |
|
1334 {$ENDIF} |
1330 end; |
1335 end; |
1331 |
1336 |
1332 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean); |
1337 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean); |
1333 var y, x, i, j: LongInt; |
1338 var y, x, i, j: LongInt; |
1334 tmpPixel: Longword; |
1339 tmpPixel: Longword; |