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

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

@ -15,7 +15,8 @@ type
private private
FSourceFile: TStringList; FSourceFile: TStringList;
FPasOutputTypes, FPasOutputClassesForward, FPasOutputClasses, FPasOutputTypes, FPasOutputClassesForward, FPasOutputClasses,
FPasOutputConsts, FPasOutputIDs, FPasOutputImpl, FPasOutputMessages: TStringList; FPasOutputConsts, FPasOutputIDs, FPasOutputImpl, FPasOutputMessages,
FPasOutputInterfaceConsts: TStringList;
FJavaOutputIDs, FJavaOutputMethods: TStringList; FJavaOutputIDs, FJavaOutputMethods: TStringList;
FClassName, FClassNamePas: string; // Class name of the class currently being parsed FClassName, FClassNamePas: string; // Class name of the class currently being parsed
FClassNum, FMethodNum: Integer; FClassNum, FMethodNum: Integer;
@ -75,12 +76,16 @@ begin
ADest.AddStrings(FPasOutputClasses); ADest.AddStrings(FPasOutputClasses);
ADest.Add(' end;'); ADest.Add(' end;');
ADest.Add(''); ADest.Add('');
ADest.Add('const');
ADest.Add(' { Interface Constants }');
ADest.AddStrings(FPasOutputInterfaceConsts);
ADest.Add('');
ADest.Add('function HandleMessage(AFirstInt: Integer): Boolean;'); ADest.Add('function HandleMessage(AFirstInt: Integer): Boolean;');
ADest.Add(''); ADest.Add('');
ADest.Add('implementation'); ADest.Add('implementation');
ADest.Add(''); ADest.Add('');
ADest.Add('const'); ADest.Add('const');
ADest.Add(' { Constants }'); ADest.Add(' { Implementation Constants }');
ADest.Add(''); ADest.Add('');
ADest.AddStrings(FPasOutputConsts); ADest.AddStrings(FPasOutputConsts);
ADest.Add(''); ADest.Add('');
@ -566,7 +571,7 @@ begin
lConstValue := GetNextWord(ASourceLine, lReaderPos); lConstValue := GetNextWord(ASourceLine, lReaderPos);
// Method type and name // Method type and name
FPasOutputConsts.Add(Format(' %s = %s;', [lConstName, lConstValue])); FPasOutputInterfaceConsts.Add(Format(' %s = %s;', [lConstName, lConstValue]));
end; end;
// callbacksettercaller setOnClickListener callOnClickListener OnClickCallback = procedure (v: TView) of object; // callbacksettercaller setOnClickListener callOnClickListener OnClickCallback = procedure (v: TView) of object;
@ -764,6 +769,7 @@ begin
FPasOutputIDs := TStringList.Create; FPasOutputIDs := TStringList.Create;
FPasOutputConsts := TStringList.Create; FPasOutputConsts := TStringList.Create;
FPasOutputMessages := TStringList.Create; FPasOutputMessages := TStringList.Create;
FPasOutputInterfaceConsts := TStringList.Create;
FJavaOutputIDs := TStringList.Create; FJavaOutputIDs := TStringList.Create;
FJavaOutputMethods := TStringList.Create; FJavaOutputMethods := TStringList.Create;
@ -782,6 +788,7 @@ begin
FPasOutputIDs.Free; FPasOutputIDs.Free;
FPasOutputConsts.Free; FPasOutputConsts.Free;
FPasOutputMessages.Free; FPasOutputMessages.Free;
FPasOutputInterfaceConsts.Free;
FJavaOutputIDs.Free; FJavaOutputIDs.Free;
FJavaOutputMethods.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 [ViewGroup.LayoutParams] TJavaObject
constructor Create(int width, int height); constructor Create(int width, int height);
const FILL_PARENT = $FFFFFFFF; const FILL_PARENT = $FFFFFFFF;
const MATCH_PARENT = $FFFFFFFF;
const WRAP_CONTENT = $FFFFFFFE;
[View] TJavaObject [View] TJavaObject
method void setLayoutParams(ViewGroup.LayoutParams params); method void setLayoutParams(ViewGroup.LayoutParams params);