paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:00:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Android: Updates the bindings file

Browse Source 
git-svn-id: trunk@31912 -
This commit is contained in:
sekelsenmat 2011-08-08 09:31:33 +00:00
parent cdbd6d7fc4
commit 5f0143992d
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lcl/interfaces/android/android_all.pas
View File

@ -11,7 +11,7 @@ type
TDisplayMetrics = class;
TDisplay = class;
TWindowManager = class;
TLayoutParams = class;
TViewGroup_LayoutParams = class;
TView = class;
TViewGroup = class;
TLinearLayout = class;
@ -54,14 +54,14 @@ type
function getDefaultDisplay(): TDisplay;
end;
TLayoutParams = class(TJavaObject)
TViewGroup_LayoutParams = class(TJavaObject)
public
constructor Create();
constructor Create(width: Integer; height: Integer);
end;
TView = class(TJavaObject)
public
procedure setLayoutParams(var params: TLayoutParams);
procedure setLayoutParams(var params: TViewGroup_LayoutParams);
procedure setVisibility(visibility: Integer);
end;
@ -79,9 +79,9 @@ type
constructor Create();
end;
TAbsoluteLayout_LayoutParams = class(TLayoutParams)
TAbsoluteLayout_LayoutParams = class(TViewGroup_LayoutParams)
public
constructor Create();
constructor Create(param_width: Integer; param_height: Integer; param_x: Integer; param_y: Integer);
end;
TTextView = class(TView)
@ -151,7 +151,7 @@ const
{ TDisplayMetrics }
{ TDisplay }
{ TWindowManager }
{ TLayoutParams }
{ TViewGroup_LayoutParams }
FILL_PARENT = $FFFFFFFF;
{ TView }
VISIBLE = 0;
@ -187,8 +187,8 @@ const
amkUI_TDisplay_getMetrics = $00102000;
// TWindowManager
amkUI_TWindowManager_getDefaultDisplay = $00103000;
// TLayoutParams
amkUI_TLayoutParams_Create = $00104000;
// TViewGroup_LayoutParams
amkUI_TViewGroup_LayoutParams_Create = $00104000;
// TView
amkUI_TView_setLayoutParams = $00105000;
amkUI_TView_setVisibility = $00105001;
@ -312,13 +312,15 @@ begin
Result := TDisplay(vAndroidPipesComm.WaitForIntReturn());
end;
constructor TLayoutParams.Create();
constructor TViewGroup_LayoutParams.Create(width: Integer; height: Integer);
begin
vAndroidPipesComm.SendByte(ShortInt(amkUICommand));
vAndroidPipesComm.SendInt(amkUI_TLayoutParams_Create);
vAndroidPipesComm.SendInt(amkUI_TViewGroup_LayoutParams_Create);
vAndroidPipesComm.SendInt(Integer(width));
vAndroidPipesComm.SendInt(Integer(height));
Index := vAndroidPipesComm.WaitForIntReturn();
end;
procedure TView.setLayoutParams(var params: TLayoutParams);
procedure TView.setLayoutParams(var params: TViewGroup_LayoutParams);
begin
vAndroidPipesComm.SendByte(ShortInt(amkUICommand));
vAndroidPipesComm.SendInt(amkUI_TView_setLayoutParams);
@ -348,10 +350,14 @@ begin
vAndroidPipesComm.SendInt(amkUI_TAbsoluteLayout_Create);
Index := vAndroidPipesComm.WaitForIntReturn();
end;
constructor TAbsoluteLayout_LayoutParams.Create();
constructor TAbsoluteLayout_LayoutParams.Create(param_width: Integer; param_height: Integer; param_x: Integer; param_y: Integer);
begin
vAndroidPipesComm.SendByte(ShortInt(amkUICommand));
vAndroidPipesComm.SendInt(amkUI_TAbsoluteLayout_LayoutParams_Create);
vAndroidPipesComm.SendInt(Integer(param_width));
vAndroidPipesComm.SendInt(Integer(param_height));
vAndroidPipesComm.SendInt(Integer(param_x));
vAndroidPipesComm.SendInt(Integer(param_y));
Index := vAndroidPipesComm.WaitForIntReturn();
end;
constructor TTextView.Create();