equal
deleted
inserted
replaced
1233 |
1233 |
1234 cScaleFactor:= f; |
1234 cScaleFactor:= f; |
1235 end; |
1235 end; |
1236 |
1236 |
1237 //////////////////////////////////////////////////////////////////////////////// |
1237 //////////////////////////////////////////////////////////////////////////////// |
1238 {$IFDEF IPHONEOS} |
|
1239 procedure startSpinning; cdecl; external; |
|
1240 procedure stopSpinning; cdecl; external; |
|
1241 {$ENDIF} |
|
1242 procedure AddProgress; |
1238 procedure AddProgress; |
1243 var r: TSDL_Rect; |
1239 var r: TSDL_Rect; |
1244 texsurf: PSDL_Surface; |
1240 texsurf: PSDL_Surface; |
1245 begin |
1241 begin |
1246 if Step = 0 then |
1242 if Step = 0 then |