paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-17 12:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn-android: Improves a little the debug info

Browse Source 
git-svn-id: trunk@33911 -
This commit is contained in:
sekelsenmat 2011-12-02 18:14:27 +00:00
parent 6ac5285035
commit a736fd742e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawnobject_android.inc
View File

@ -111,6 +111,7 @@ end;
function Java_com_pascal_lclproject_LCLActivity_LCLOnCreate( function Java_com_pascal_lclproject_LCLActivity_LCLOnCreate(
env:PJNIEnv; this:jobject; alclactivity: jobject): jint; cdecl; env:PJNIEnv; this:jobject; alclactivity: jobject): jint; cdecl;
begin begin
__android_log_write(ANDROID_LOG_INFO, 'lclapp', 'LCLOnCreate called by LCLActivity.onCreate');
Result := 0; Result := 0;
javaActivityObject := alclactivity; javaActivityObject := alclactivity;
end; end;
@ -173,6 +174,7 @@ begin
javaMethod_LCLDoGetTextBounds := javaEnvRef^^.GetMethodID(javaEnvRef, javaActivityClass, 'LCLDoGetTextBounds', '()V'); javaMethod_LCLDoGetTextBounds := javaEnvRef^^.GetMethodID(javaEnvRef, javaActivityClass, 'LCLDoGetTextBounds', '()V');
javaMethod_LCLDoDrawText := javaEnvRef^^.GetMethodID(javaEnvRef, javaActivityClass, 'LCLDoDrawText', '()V'); javaMethod_LCLDoDrawText := javaEnvRef^^.GetMethodID(javaEnvRef, javaActivityClass, 'LCLDoDrawText', '()V');
__android_log_write(ANDROID_LOG_INFO, 'lclapp', 'JNI_OnLoad finished');
result:=JNI_VERSION_1_4;// 1_6 is another option result:=JNI_VERSION_1_4;// 1_6 is another option
end; end;

2
lcl/interfaces/customdrawn/customdrawnwinapi_android.inc
View File

@ -2174,8 +2174,6 @@ end;*)
Function: ExtTextOut Function: ExtTextOut
Params: none Params: none
Returns: Nothing Returns: Nothing
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TCDWidgetSet.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; function TCDWidgetSet.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;
Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean; Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;