pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

android-sdk: Minor improvements

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1817 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-19 13:33:19 +00:00
parent ff3668aa67
commit 692a0346c5
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bindings/android-sdk/android_sdk_bindings_gen.pas
View File

@ -60,7 +60,9 @@ begin
ADest.Add(''); ADest.Add('');
ADest.Add('interface'); ADest.Add('interface');
ADest.Add(''); ADest.Add('');
ADest.Add('uses javalang, androidpipescomm;'); ADest.Add('uses SysUtils, javalang, androidpipescomm;');
ADest.Add('');
ADest.Add('{$INTERFACES CORBA}');
ADest.Add(''); ADest.Add('');
ADest.Add('type'); ADest.Add('type');
ADest.Add(''); ADest.Add('');
@ -326,7 +328,7 @@ begin
if AIsInterface then if AIsInterface then
lParentClassName := 'IJavaInterface' lParentClassName := 'IJavaInterface'
else else
lParentClassName := 'TInterfacedObject'; lParentClassName := 'TJavaObject';
if AIsInterface then if AIsInterface then
FPasOutputClasses.Add(Format(' %s = interface(%s)', [FClassNamePas, lParentClassName])) FPasOutputClasses.Add(Format(' %s = interface(%s)', [FClassNamePas, lParentClassName]))