Sub BtnAddAccusedNew_Click
Dim CstmDigAddAcdNewPesrn As CustomDialog
Dim EditDlgAcusedName As EditText
Dim EditDlgAccPh As EditText
Dim LblDialogAccName As Label
Dim LblDialogAccPh As Label
Dim PnlDialogAccCmp As Panel
Dim LvDialogAccPerson As ListView
Dim BmpDialogAddPersn As Bitmap
LvDialogAccPerson.Initialize("LvDialogAccPerson")
If Acc > 0 Then
For NoAcused=0 To RangeForAcused-1
LvDialogAccPerson.AddSingleLine(AccusedStrName(NoAcused)&" "&AccusedPh(NoAcused))
Next
End If
EditDlgAcusedName.Initialize("EditDlgAcusedName")
EditDlgAccPh.Initialize("EditDlgAccPh")
EditDlgAcusedName.InputType=EditDlgAcusedName.INPUT_TYPE_NONE
EditDlgAccPh.InputType=EditDlgAccPh.INPUT_TYPE_PHONE
LblDialogAccPh.Initialize("LblDialogAccPh")
LblDialogAccName.Initialize("LblDialogAccName")
PnlDialogAccCmp.Initialize("Panel1")
LblDialogAccName.Text="Name"
LblDialogAccName.TextColor=Colors.White
LblDialogAccName.TextSize=20
LblDialogAccPh.Text="Phone"
LblDialogAccPh.TextColor=Colors.White
LblDialogAccPh.TextSize=20
' PnlDialogAccCmp.AddView(LblDialogAccName,10,0,60,18)
' PnlDialogAccCmp.AddView(EditDlgAcusedName,60,0,120,28)
' PnlDialogAccCmp.AddView(LblDialogAccPh,10,43,60,18)
' PnlDialogAccCmp.AddView(EditDlgAccPh,60,40,120,28)
' PnlDialogAccCmp.AddView(LvDialogAccPerson,10,65,190,70)
' CstmDigAddAcdNewPesrn.AddView(PnlDialogAccCmp,10,0, 77%x, 60%y )
'
PnlDialogAccCmp.AddView(LblDialogAccName,5%x,0%x,30%x,10%x)
PnlDialogAccCmp.AddView(EditDlgAcusedName,25%x,0%x,43%x,12%x)
PnlDialogAccCmp.AddView(LblDialogAccPh,5%x,18%x,30%x,10%x)
PnlDialogAccCmp.AddView(EditDlgAccPh,25%x,18%x,43%x,12%x)
PnlDialogAccCmp.AddView(LvDialogAccPerson,5%x,19%x,80%x,50%x)
CstmDigAddAcdNewPesrn.AddView(PnlDialogAccCmp,10,0, 77%x, 60%y
BmpDialogAddPersn.Initialize(File.DirAssets,"AddNewPerson.png")
ret = CstmDigAddAcdNewPesrn.Show("Add Contact", "Add", "Cancel","" , BmpDialogAddPersn)
If EditDlgAcusedName.Text <>"" AND EditDlgAccPh.Text <>"" Then
AccusedStrName(NoAcused)=EditDlgAcusedName.Text
AccusedPh(NoAcused)=EditDlgAccPh.Text
LvDialogAccPerson.AddSingleLine(AccusedStrName(NoAcused)&" "&AccusedPh(NoAcused))
NoAcused=NoAcused+1
RangeForAcused = NoAcused
Acc=Acc+1
End If
ScrollInitializeNewCase
End Sub