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

androidlcl: some work on button click

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1795 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-10 13:44:01 +00:00
parent af49267c60
commit a99857032f
2 changed files with 33 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
examples/androidlcl/android/src/com/pascal/androidlcl/AndroidAll.java
View File

@ -63,9 +63,9 @@ public class AndroidAll
static final int amkUI_TTextView_Create = 0x0010A000; static final int amkUI_TTextView_Create = 0x0010A000;
static final int amkUI_TTextView_setText = 0x0010A001; static final int amkUI_TTextView_setText = 0x0010A001;
static final int amkUI_TTextView_setOnClickListener = 0x0010A002; static final int amkUI_TTextView_setOnClickListener = 0x0010A002;
static final int amkUI_TTextView_OnClickListener_Start = 0x0010A002; static final int amkUI_TTextView_OnClickListener_Start = 0x0010A003;
static final int amkUI_TTextView_OnClickListener_Finished = 0x0010A002; static final int amkUI_TTextView_OnClickListener_Finished = 0x0010A004;
static final int amkUI_TTextView_setTextSize = 0x0010A002; static final int amkUI_TTextView_setTextSize = 0x0010A005;
// EditText // EditText
static final int amkUI_TEditText_Create = 0x0010B000; static final int amkUI_TEditText_Create = 0x0010B000;
static final int amkUI_TEditText_setText = 0x0010B001; static final int amkUI_TEditText_setText = 0x0010B001;
@ -336,6 +336,32 @@ public class AndroidAll
param_self_TextView.setText(lCharSequence_1); param_self_TextView.setText(lCharSequence_1);
MyAndroidPipesComm.SendResult(); MyAndroidPipesComm.SendResult();
break; break;
// callbacksettercaller setOnClickListener callOnClickListener OnClickListener = procedure (v: TView) of object;
case amkUI_TTextView_setOnClickListener:
DebugOut("amkUI_TTextView_setOnClickListener");
// Self
lInt = MyAndroidPipesComm.GetInt();
param_self_TextView = (TextView) ViewElements.get(lInt);
lPascalPointer = MyAndroidPipesComm.GetInt();
param_self_TextView.setTag(Integer.valueOf(lPascalPointer));
// Run the code
param_self_TextView.setOnClickListener(
new View.OnClickListener()
{
public void onClick(View v)
{
// Perform action
DebugOut("START TextView OnClickListener");
MyAndroidPipesComm.SendMessage(AndroidPipesComm.amkUICommand, amkUI_TTextView_OnClickListener_Start);
Integer lTag = (Integer) v.getTag();
MyAndroidPipesComm.SendInt(lTag.intValue());
MyAndroidPipesComm.WaitForPascalMessage(AndroidPipesComm.amkUICommand, amkUI_TTextView_OnClickListener_Finished);
DebugOut("END TextView OnClickListener");
}
});
MyAndroidPipesComm.SendResult();
break;
// method void setTextSize(int unit_; float size); // method void setTextSize(int unit_; float size);
case amkUI_TTextView_setTextSize: case amkUI_TTextView_setTextSize:
DebugOut("amkUI_TTextView_setTextSize"); DebugOut("amkUI_TTextView_setTextSize");
@ -373,14 +399,12 @@ public class AndroidAll
DebugOut("amkUI_TButton_Create"); DebugOut("amkUI_TButton_Create");
ViewElements.add(new Button(activity)); ViewElements.add(new Button(activity));
MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1); MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1);
DebugOut("amkUI_TButton_Create Self=" + Integer.toString(ViewElements.size() - 1));
break; break;
// method void setText(CharSequence AText); override; // method void setText(CharSequence AText); override;
case amkUI_TButton_setText: case amkUI_TButton_setText:
DebugOut("amkUI_TButton_setText"); DebugOut("amkUI_TButton_setText");
// Self // Self
lInt = MyAndroidPipesComm.GetInt(); lInt = MyAndroidPipesComm.GetInt();
DebugOut("amkUI_TButton_setText Self=" + Integer.toString(lInt));
param_self_Button = (Button) ViewElements.get(lInt); param_self_Button = (Button) ViewElements.get(lInt);
// params // params
lInt = MyAndroidPipesComm.GetInt(); lInt = MyAndroidPipesComm.GetInt();

8
examples/androidlcl/mainform.lfm
View File

@ -11,7 +11,7 @@ object Form2: TForm2
Left = 33 Left = 33
Height = 25 Height = 25
Top = 35 Top = 35
Width = 75 Width = 87
Caption = 'Button1' Caption = 'Button1'
TabOrder = 0 TabOrder = 0
end end
@ -40,10 +40,10 @@ object Form2: TForm2
TabOrder = 3 TabOrder = 3
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 151 Left = 136
Height = 27 Height = 27
Top = 84 Top = 88
Width = 100 Width = 112
ItemHeight = 0 ItemHeight = 0
TabOrder = 4 TabOrder = 4
Text = 'ComboBox1' Text = 'ComboBox1'