equal
deleted
inserted
replaced
1269 |
1269 |
1270 procedure FinishProgress; |
1270 procedure FinishProgress; |
1271 begin |
1271 begin |
1272 WriteLnToConsole('Freeing progress surface... '); |
1272 WriteLnToConsole('Freeing progress surface... '); |
1273 FreeTexture(ProgrTex); |
1273 FreeTexture(ProgrTex); |
1274 |
|
1275 {$IFDEF IPHONEOS} |
|
1276 // show overlay buttons |
|
1277 IPH_showControls; |
|
1278 {$ENDIF} |
|
1279 end; |
1274 end; |
1280 |
1275 |
1281 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean); |
1276 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean); |
1282 var y, x, i, j: LongInt; |
1277 var y, x, i, j: LongInt; |
1283 tmpPixel: Longword; |
1278 tmpPixel: Longword; |