Sub Activity_Resume
Dim i As Int
Dim y As Float
Dim lines As Int
lines = pnltest.Height / 40
For i = 1 To lines
y = i * 0.08 * pnlTest.Height
iv(i).Initialize("pnltest")
Activity.AddView(iv(i), 0, y,20, 50) ' ltwh
iv(i).Bitmap = LoadBitmap(File.DirAssets, "checkbox_checked.png")
cvsTest.DrawLine(0, y, pnlTest.Width, y, Colors.Red, 3)
Next
End Sub
Sub Activity_Resume
Dim i As Int
Dim y As Float
Dim lines As Int
lines = pnltest.Height / 40
Dim x As Int
x = 10
For i = 1 To lines
y = i * 0.08 * pnlTest.Height
iv(i).Initialize("pnltest")
Activity.AddView(iv(i), 0, y,20, 50) ' ltwh
Dim Bitmap1 As Bitmap
Bitmap1.Initialize(File.DirAssets, "checkbox_checked.png")
Dim DestRect As Rect
DestRect.Initialize(0dip, x, 35dip, 300dip)'l,t,w, h
cvstest.DrawBitmap(Bitmap1, Null, DestRect)
'iv(i).Bitmap = LoadBitmap(File.DirAssets, "checkbox_checked.png")
cvsTest.DrawLine(0, y, pnlTest.Width, y, Colors.Red, 3)
x = x + 10
Next
End Sub
I'm not the Swiss Army Knife eitherYou should know by now I am not the sharpest knife in the drawer.
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?