--- a/hedgewars/uTypes.pas Fri Jul 19 04:51:08 2013 +0300
+++ b/hedgewars/uTypes.pas Sat Jul 27 17:23:26 2013 +0300
@@ -413,10 +413,8 @@
cdeclPtr = procedure; cdecl;
cdeclIntPtr = procedure(num: LongInt); cdecl;
- functionDoublePtr = function: Double;
TMobileRecord = record
- getScreenDPI: functionDoublePtr;
PerformRumble: cdeclIntPtr;
GameLoading: cdeclPtr;
GameLoaded: cdeclPtr;
@@ -469,15 +467,15 @@
POnScreenWidget = ^TOnScreenWidget;
TOnScreenWidget = record
- show : boolean; // if false widget will not be drawn
- sprite : TSprite; // a convenience type
- frame : TSDL_Rect; // graphical coordinates
- active : TSDL_Rect; // active touch region
- fadeAnimStart : Longword; // time the fade started, 0 means don't fade
- moveAnim : TWidgetMovement; // the animation associated to the widget
+ show : boolean; // if false widget will not be drawn
+ sprite : TSprite; // a convenience type
+ frame : TSDL_Rect; // graphical coordinates
+ active : TSDL_Rect; // active touch region
+ fadeAnimStart : Longword; // time the fade started
+ // (0 means do not fade)
+ moveAnim : TWidgetMovement; // animation associated to widget
end;
-{$IFDEF SDL13}
PTouch_Data = ^TTouch_Data;
TTouch_Data = record
id : TSDL_FingerId;
@@ -487,7 +485,6 @@
timeSinceDown : Longword;
pressedWidget : POnScreenWidget;
end;
-{$ENDIF}
implementation