equal
deleted
inserted
replaced
42 uses uVariables, uConsole; |
42 uses uVariables, uConsole; |
43 |
43 |
44 // this function is just to determine whether we are running on a limited screen device |
44 // this function is just to determine whether we are running on a limited screen device |
45 function isPhone: Boolean; inline; |
45 function isPhone: Boolean; inline; |
46 begin |
46 begin |
|
47 isPhone:= false; |
47 {$IFDEF IPHONEOS} |
48 {$IFDEF IPHONEOS} |
48 exit(isApplePhone()); |
49 isPhone:= isApplePhone(); |
49 {$ENDIF} |
50 {$ENDIF} |
50 {$IFDEF ANDROID} |
51 {$IFDEF ANDROID} |
51 //nasty nasty hack. TODO: implement callback to java to have a unified way of determining if it is a tablet |
52 //nasty nasty hack. TODO: implement callback to java to have a unified way of determining if it is a tablet |
52 if (cScreenWidth < 1000) and (cScreenHeight < 500) then |
53 if (cScreenWidth < 1000) and (cScreenHeight < 500) then |
53 begin |
54 isPhone:= true; |
54 exit(true); |
|
55 end |
|
56 else exit(false); |
|
57 {$ENDIF} |
55 {$ENDIF} |
58 exit(false); |
|
59 end; |
56 end; |
60 |
57 |
61 // this function should make the device vibrate in some way |
58 // this function should make the device vibrate in some way |
62 procedure performRumble; inline; |
59 procedure performRumble; inline; |
63 const kSystemSoundID_Vibrate = $00000FFF; |
60 const kSystemSoundID_Vibrate = $00000FFF; |