diff --git a/bindings/android-sdk/android_bindings_generator.lpi b/bindings/android-sdk/android_bindings_generator.lpi
index d067bac05..387253b6b 100644
--- a/bindings/android-sdk/android_bindings_generator.lpi
+++ b/bindings/android-sdk/android_bindings_generator.lpi
@@ -57,7 +57,6 @@
-
@@ -118,10 +117,11 @@
+
-
-
+
+
@@ -201,8 +201,8 @@
-
-
+
+
diff --git a/bindings/android-sdk/android_sdk_bindings_gen.pas b/bindings/android-sdk/android_sdk_bindings_gen.pas
index 6e4ba0e5d..02353c448 100644
--- a/bindings/android-sdk/android_sdk_bindings_gen.pas
+++ b/bindings/android-sdk/android_sdk_bindings_gen.pas
@@ -15,7 +15,8 @@ type
private
FSourceFile: TStringList;
FPasOutputTypes, FPasOutputClassesForward, FPasOutputClasses,
- FPasOutputConsts, FPasOutputIDs, FPasOutputImpl, FPasOutputMessages: TStringList;
+ FPasOutputConsts, FPasOutputIDs, FPasOutputImpl, FPasOutputMessages,
+ FPasOutputInterfaceConsts: TStringList;
FJavaOutputIDs, FJavaOutputMethods: TStringList;
FClassName, FClassNamePas: string; // Class name of the class currently being parsed
FClassNum, FMethodNum: Integer;
@@ -75,12 +76,16 @@ begin
ADest.AddStrings(FPasOutputClasses);
ADest.Add(' end;');
ADest.Add('');
+ ADest.Add('const');
+ ADest.Add(' { Interface Constants }');
+ ADest.AddStrings(FPasOutputInterfaceConsts);
+ ADest.Add('');
ADest.Add('function HandleMessage(AFirstInt: Integer): Boolean;');
ADest.Add('');
ADest.Add('implementation');
ADest.Add('');
ADest.Add('const');
- ADest.Add(' { Constants }');
+ ADest.Add(' { Implementation Constants }');
ADest.Add('');
ADest.AddStrings(FPasOutputConsts);
ADest.Add('');
@@ -566,7 +571,7 @@ begin
lConstValue := GetNextWord(ASourceLine, lReaderPos);
// Method type and name
- FPasOutputConsts.Add(Format(' %s = %s;', [lConstName, lConstValue]));
+ FPasOutputInterfaceConsts.Add(Format(' %s = %s;', [lConstName, lConstValue]));
end;
// callbacksettercaller setOnClickListener callOnClickListener OnClickCallback = procedure (v: TView) of object;
@@ -764,6 +769,7 @@ begin
FPasOutputIDs := TStringList.Create;
FPasOutputConsts := TStringList.Create;
FPasOutputMessages := TStringList.Create;
+ FPasOutputInterfaceConsts := TStringList.Create;
FJavaOutputIDs := TStringList.Create;
FJavaOutputMethods := TStringList.Create;
@@ -782,6 +788,7 @@ begin
FPasOutputIDs.Free;
FPasOutputConsts.Free;
FPasOutputMessages.Free;
+ FPasOutputInterfaceConsts.Free;
FJavaOutputIDs.Free;
FJavaOutputMethods.Free;
diff --git a/bindings/android-sdk/sdk_level_7/android_all.txt b/bindings/android-sdk/sdk_level_7/android_all.txt
index 792140067..6ebcb66d1 100644
--- a/bindings/android-sdk/sdk_level_7/android_all.txt
+++ b/bindings/android-sdk/sdk_level_7/android_all.txt
@@ -33,6 +33,8 @@ method Display getDefaultDisplay()
[ViewGroup.LayoutParams] TJavaObject
constructor Create(int width, int height);
const FILL_PARENT = $FFFFFFFF;
+const MATCH_PARENT = $FFFFFFFF;
+const WRAP_CONTENT = $FFFFFFFE;
[View] TJavaObject
method void setLayoutParams(ViewGroup.LayoutParams params);