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

android-sdk: Moves constants to the interface

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1794 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-10 12:17:34 +00:00
parent 1f4f513eed
commit af49267c60
3 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bindings/android-sdk/android_bindings_generator.lpi
View File

@ -57,7 +57,6 @@
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="mainform"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="6"/>
@ -118,10 +117,11 @@
<Filename Value="android_sdk_bindings_gen.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="android_sdk_bindings_gen"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="761"/>
<CursorPos X="1" Y="798"/>
<TopLine Value="560"/>
<CursorPos X="28" Y="574"/>
<UsageCount Value="34"/>
<Loaded Value="True"/>
</Unit8>
@ -201,8 +201,8 @@
<Filename Value="sdk_level_7/android_all.txt"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="58"/>
<CursorPos X="1" Y="105"/>
<TopLine Value="27"/>
<CursorPos X="1" Y="38"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="None"/>

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

@ -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;

2
bindings/android-sdk/sdk_level_7/android_all.txt
View File

@ -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);