paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 14:58:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDeviceAPIs: Adds an API to read the screen orientation

Browse Source 
git-svn-id: trunk@40797 -
This commit is contained in:
sekelsenmat 2013-04-12 12:59:35 +00:00
parent c48f864fc6
commit ca38c244cf
3 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
lcl/interfaces/customdrawn/customdrawnwslazdeviceapis.pas
View File

@ -55,6 +55,7 @@ type
// TLazDevice
class function GetDeviceManufacturer: string; override;
class function GetDeviceModel: string; override;
class function GetScreenRotation(AScreenIndex: Integer): TScreenRotation; override;
class procedure Vibrate(ADurationMS: Cardinal); override;
end;
@ -179,6 +180,55 @@ begin
javaEnvRef^^.ReleaseStringUTFChars(javaEnvRef, lJavaString, lNativeString);
end;
class function TCDWSLazDeviceAPIs.GetScreenRotation(AScreenIndex: Integer
): TScreenRotation;
var
windowManagerClass, displayClass : jclass;
javaMethodId_WindowService, javaMethodId_getDefaultDisplay, javaMethodId_getRotation : JMethodID;
windowManagerObject, displayObject: JObject;
javaString_WINDOW_SERVICE, javaString_getDefaultDisplay : JString;
lRotation: Jint;
const
ROTATION_0 = 0;
ROTATION_180 = 2;
ROTATION_270 = 3;
ROTATION_90 = 1;
begin
windowManagerClass := javaEnvRef^^.FindClass(javaEnvRef, 'android/view/WindowManager');
displayClass := javaEnvRef^^.FindClass(javaEnvRef, 'android/view/Display');
// get the string Context.WINDOW_SERVICE remember that NewStringUTF does not require ReleaseStringUTFChars
javaString_WINDOW_SERVICE := javaEnvRef^^.NewStringUTF(javaEnvRef, pchar('getWindowManager'));
// get method id for WindowManager object
javaMethodId_WindowService := javaEnvRef^^.GetMethodID(javaEnvRef, javaAndroidAppActivityClass, 'getWindowManager', '()Landroid/view/WindowManager;');
// Get the WindowManager object
// Window w = (Window) getSystemService(Context.WINDOW_SERVICE);
windowManagerObject := javaEnvRef^^.CallObjectMethod(javaEnvRef, javaActivityObject, javaMethodId_WindowService);
javaString_getDefaultDisplay := javaEnvRef^^.NewStringUTF(javaEnvRef, pchar('getDefaultDisplay'));
// Get method id for Display object
javaMethodId_getDefaultDisplay := javaEnvRef^^.GetMethodID(javaEnvRef, windowManagerClass, 'getDefaultDisplay', '()Landroid/view/Display;');
// Get the display object
displayObject := javaEnvRef^^.CallObjectMethod(javaEnvRef, windowManagerObject, javaMethodId_getDefaultDisplay);
// Get method id for method: getRotation
javaMethodId_getRotation := javaEnvRef^^.GetMethodID(javaEnvRef, displayClass, 'getRotation', '()I');
// Now call getRotation method in the display object
lRotation := javaEnvRef^^.CallIntMethod(javaEnvRef, displayObject, javaMethodId_getRotation);
case lRotation of
ROTATION_180: Result := srRotation_180;
ROTATION_270: Result := srRotation_270;
ROTATION_90: Result := srRotation_90;
else
Result := srRotation_0;
end;
end;
class procedure TCDWSLazDeviceAPIs.Vibrate(ADurationMS: Cardinal);
var
lVibratorObject: JObject;

11
lcl/lazdeviceapis.pas
View File

@ -126,12 +126,15 @@ type
// TLazDevice
TScreenRotation = (srRotation_0, srRotation_90, srRotation_180, srRotation_270);
TLazDevice = class
private
function GetDeviceManufacturer: string;
function GetDeviceModel: string;
public
procedure Vibrate(ADurationMS: Cardinal);
function GetScreenRotation(AScreenIndex: Integer): TScreenRotation;
property Manufacturer: string read GetDeviceManufacturer;
property Model: string read GetDeviceModel;
end;
@ -172,6 +175,14 @@ begin
WidgetsetClass.Vibrate(ADurationMS);
end;
function TLazDevice.GetScreenRotation(AScreenIndex: Integer): TScreenRotation;
var
WidgetsetClass: TWSLazDeviceAPIsClass;
begin
WidgetsetClass := TWSLazDeviceAPIsClass(GetWSLazDeviceAPIs());
Result := WidgetsetClass.GetScreenRotation(AScreenIndex);
end;
{ TLazAccelerometer }
procedure TLazAccelerometer.StartReadingAccelerometerData;

7
lcl/widgetset/wslazdeviceapis.pas
View File

@ -63,6 +63,7 @@ type
// TLazDevice
class function GetDeviceManufacturer: string; virtual;
class function GetDeviceModel: string; virtual;
class function GetScreenRotation(AScreenIndex: Integer): TScreenRotation; virtual;
class procedure Vibrate(ADurationMS: Cardinal); virtual;
end;
@ -118,6 +119,12 @@ begin
Result := '';
end;
class function TWSLazDeviceAPIs.GetScreenRotation(AScreenIndex: Integer
): TScreenRotation;
begin
Result := srRotation_0;
end;
class procedure TWSLazDeviceAPIs.Vibrate(ADurationMS: Cardinal);
begin