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

androidlcl: Implements the combobox

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1815 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-19 13:29:34 +00:00
parent 044ff9395d
commit b439241148
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -598,6 +598,7 @@ public class AndroidAll
DebugOut("amkUI_TArrayAdapter_String__Create");
lint_1 = MyAndroidPipesComm.GetInt();
ViewElements.add(new ArrayAdapter<String>(activity, lint_1));
DebugOut("Result = " + (ViewElements.size() - 1));
MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1);
break;
// method void add(String aobject)
@ -618,6 +619,7 @@ public class AndroidAll
DebugOut("amkUI_TArrayAdapter_String__clear");
// Self
lInt = MyAndroidPipesComm.GetInt();
DebugOut("lInt = " + lInt);
param_self_ArrayAdapter_String_ = (ArrayAdapter<String>) ViewElements.get(lInt);
// params
//
@ -629,6 +631,7 @@ public class AndroidAll
DebugOut("amkUI_TArrayAdapter_String__insert");
// Self
lInt = MyAndroidPipesComm.GetInt();
DebugOut("lInt = " + lInt);
param_self_ArrayAdapter_String_ = (ArrayAdapter<String>) ViewElements.get(lInt);
// params
lInt = MyAndroidPipesComm.GetInt();

13
examples/androidlcl/android/src/com/pascal/androidlcl/AndroidPipesComm.java
View File

@ -48,13 +48,11 @@ public class AndroidPipesComm
public void DebugOut(String Str)
{
Log.v("AndroidPipesComm:", Str);
// tv.setText(tv.getText().toString() + Str);
}
public void ErrorOut(String Str)
{
Log.v("AndroidPipesComm:", Str);
// tv.setText(tv.getText().toString() + Str);
}
public void TerminateApplication()
@ -88,7 +86,7 @@ public class AndroidPipesComm
while (true)
{
WaitAndProcessPascalMessage();
DebugOut("MID_END WaitForPascalMessage lType=" + lType + " lSubtype=" + java.lang.Integer.toHexString(lSubtype));
//DebugOut("MID_END WaitForPascalMessage lType=" + lType + " lSubtype=" + java.lang.Integer.toHexString(lSubtype));
if ((lType == AExpectedMessageType) && (lSubtype == AExpectedMessageSubtype)) return;
if ((lType == amkActivityCallback) && (AExpectedMessageType == amkActivityCallback)) return;
}
@ -99,7 +97,7 @@ public class AndroidPipesComm
{
try
{
DebugOut("WaitAndProcessPascalMessage");
//DebugOut("WaitAndProcessPascalMessage");
byte Buffer = reader.readByte(); // blocking read
lType = Buffer;
lSubtype = 0;
@ -112,6 +110,13 @@ public class AndroidPipesComm
else if (Buffer == amkLog)
{
DebugOut("amkLog");
int lInt = GetInt(); // Length
char[] lChars = new char[lInt];
for (int i = 0; i < lInt; i++)
{
lChars[i] = (char) GetByte();
}
DebugOut(new String(lChars));
}
else if (Buffer == amkUICommand)
{