176 TWave = (waveRollup, waveSad, waveWave, waveHurrah, waveLemonade, waveShrug, waveJuggle); |
176 TWave = (waveRollup, waveSad, waveWave, waveHurrah, waveLemonade, waveShrug, waveJuggle); |
177 |
177 |
178 TRenderMode = (rmDefault, rmLeftEye, rmRightEye); |
178 TRenderMode = (rmDefault, rmLeftEye, rmRightEye); |
179 TStereoMode = (smNone, smRedCyan, smCyanRed, smRedBlue, smBlueRed, smRedGreen, smGreenRed, |
179 TStereoMode = (smNone, smRedCyan, smCyanRed, smRedBlue, smBlueRed, smRedGreen, smGreenRed, |
180 smHorizontal, smVertical); |
180 smHorizontal, smVertical); |
|
181 |
|
182 TWorldEdge = (weNone, weWrap, weBounce, weSea, weSky); |
181 |
183 |
182 THHFont = record |
184 THHFont = record |
183 Handle: PTTF_Font; |
185 Handle: PTTF_Font; |
184 Height: LongInt; |
186 Height: LongInt; |
185 style: LongInt; |
187 style: LongInt; |
422 cdeclPtr = procedure; cdecl; |
424 cdeclPtr = procedure; cdecl; |
423 cdeclIntPtr = procedure(num: LongInt); cdecl; |
425 cdeclIntPtr = procedure(num: LongInt); cdecl; |
424 funcDoublePtr = function: Double; |
426 funcDoublePtr = function: Double; |
425 |
427 |
426 TMobileRecord = record |
428 TMobileRecord = record |
427 getScreenDPI: funcDoublePtr; |
|
428 PerformRumble: cdeclIntPtr; |
429 PerformRumble: cdeclIntPtr; |
429 GameLoading: cdeclPtr; |
430 GameLoading: cdeclPtr; |
430 GameLoaded: cdeclPtr; |
431 GameLoaded: cdeclPtr; |
431 SaveLoadingEnded: cdeclPtr; |
432 SaveLoadingEnded: cdeclPtr; |
432 end; |
433 end; |
477 startTime : Longword; |
478 startTime : Longword; |
478 end; |
479 end; |
479 |
480 |
480 POnScreenWidget = ^TOnScreenWidget; |
481 POnScreenWidget = ^TOnScreenWidget; |
481 TOnScreenWidget = record |
482 TOnScreenWidget = record |
482 show : boolean; // if false widget will not be drawn |
483 show : boolean; // if false widget will not be drawn |
483 sprite : TSprite; // a convenience type |
484 sprite : TSprite; // a convenience type |
484 frame : TSDL_Rect; // graphical coordinates |
485 frame : TSDL_Rect; // graphical coordinates |
485 active : TSDL_Rect; // active touch region |
486 active : TSDL_Rect; // active touch region |
486 fadeAnimStart : Longword; // time the fade started, 0 means do not fade |
487 fadeAnimStart : Longword; // time the fade started |
487 moveAnim : TWidgetMovement; // the animation associated to the widget |
488 // (0 means do not fade) |
488 end; |
489 moveAnim : TWidgetMovement; // animation associated to widget |
489 |
490 end; |
490 {$IFDEF SDL13} |
491 |
491 PTouch_Data = ^TTouch_Data; |
492 PTouch_Data = ^TTouch_Data; |
492 TTouch_Data = record |
493 TTouch_Data = record |
493 id : TSDL_FingerId; |
494 id : TSDL_FingerId; |
494 x,y : LongInt; |
495 x,y : LongInt; |
495 dx,dy : LongInt; |
496 dx,dy : LongInt; |
496 historicalX, historicalY : LongInt; |
497 historicalX, historicalY : LongInt; |
497 timeSinceDown : Longword; |
498 timeSinceDown : Longword; |
498 pressedWidget : POnScreenWidget; |
499 pressedWidget : POnScreenWidget; |
499 end; |
500 end; |
500 {$ENDIF} |
|
501 |
501 |
502 implementation |
502 implementation |
503 |
503 |
504 end. |
504 end. |