equal
deleted
inserted
replaced
24 uses SDLh, uFloat, GLunit; |
24 uses SDLh, uFloat, GLunit; |
25 |
25 |
26 {$INCLUDE "config.inc"} |
26 {$INCLUDE "config.inc"} |
27 |
27 |
28 const |
28 const |
|
29 HaltNoError = 0; |
|
30 HaltUsageError = 1; |
|
31 HaltFatalError = 2; |
|
32 HaltStartupError = 3; |
|
33 |
|
34 // for automatic tests |
|
35 HaltTestSuccess = 0; |
|
36 HaltTestFailed = 10; |
|
37 HaltTestLuaError = 11; |
|
38 |
|
39 |
29 sfMax = 1000; |
40 sfMax = 1000; |
30 |
41 |
31 // message constants |
42 // message constants |
32 errmsgCreateSurface = 'Error creating SDL surface'; |
43 errmsgCreateSurface = 'Error creating SDL surface'; |
33 errmsgTransparentSet = 'Error setting transparent color'; |
44 errmsgTransparentSet = 'Error setting transparent color'; |
300 NoPointX = Low(LongInt); |
311 NoPointX = Low(LongInt); |
301 cTargetPointRef : TPoint = (x: NoPointX; y: 0); |
312 cTargetPointRef : TPoint = (x: NoPointX; y: 0); |
302 |
313 |
303 kSystemSoundID_Vibrate = $00000FFF; |
314 kSystemSoundID_Vibrate = $00000FFF; |
304 |
315 |
305 rtnTestSuccess = $00000000; |
|
306 rtnTestFailed = $00000001; |
|
307 rtnTestLuaErr = $00000002; |
|
308 |
|
309 implementation |
316 implementation |
310 |
317 |
311 end. |
318 end. |