مشکل تصویر درScrollView

[حسینh 50]

سلام به دوستان  در اسکرول ویو عکس را بطور کامل نشان نمیدهد یعنی 4 طرف ان را قطع میکند کدها را قرار دادم تعداد عکس هاهم10 تایی هست در همه همین طوره

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Private ScrollView1 As ScrollView
	
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Act_2")

	If File.Exists(File.DirInternal,"d1.db")=False Then
	File.Copy(File.DirAssets,"d1.db",File.DirInternal,"d1.db")
	End If
	
	If s.IsInitialized=False Then
	 s.Initialize(File.DirInternal,"d1.db",False)
	End If
    
	
	
	
	Dim sh As Int
	sh=0
Dim cur As Cursor
cur=s.ExecQuery("Select * FROM Tbl")

Dim h As Int
h=2%y
For i = 0 To cur.RowCount-1
cur.Position=i

If cur.GetInt("t")=0 Then
Dim lbl As Label
lbl.Initialize("")
lbl.Text=cur.GetString("i")
lbl.Gravity=Gravity.CENTER

 If File.Exists(File.DirInternal,"Settings.stg")=True Then
 Dim list1 As List
	list1=File.ReadList(File.DirInternal,"Settings.stg")
	Tanzimat2.font=list1.Get(0)
	Tanzimat2.size=list1.Get(1)
	Tanzimat2.color=list1.Get(2)
	
	Else
	Tanzimat2.font="font3"
	Tanzimat2.size=18
	lbl.TextColor=Colors.Black
 
 
 
End If
lbl.Typeface=Typeface.LoadFromAssets(Tanzimat2.font & ".ttf")
lbl.TextSize=Tanzimat2.size

 ScrollView1.Panel.AddView(lbl,2%x,h,96%x,0)
 Dim su As StringUtils
 lbl.Height=su.MeasureMultilineTextHeight(lbl,lbl.Text)
 h= h + lbl.Height +2%y
 sh=sh+lbl.Height
   ScrollView1.Panel.Height=sh
Else
Dim img As ImageView
img.Initialize("")
img.Bitmap=Namayesh(i)
Dim bp As BitmapExtended
bp.Initialize("")
ScrollView1.Panel.AddView(img,5%x,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))
h= h + bp.getHeight(img.Bitmap) + 2%y

sh=sh+bp.getHeight(img.Bitmap)
ScrollView1.Panel.Height=sh
End If
ScrollView1.Panel.Height=ScrollView1.Panel.Height+100%y

 
  Select Case Tanzimat2.color
 Case 1
lbl.TextColor=Colors.Green
  Case 2
lbl.TextColor=Colors.red
  Case 3
lbl.TextColor=Colors.Black
  End Select
Next
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Namayesh(Position As String) As Bitmap
Dim cur As Cursor
cur=s.ExecQuery("select i FROM Tbl")
cur.Position=Position

Dim bytes() As Byte
bytes=cur.GetBlob("i")

Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)


Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub

[Farzad Musavi 576]

این کد رو زیر کد بالایی که دادم بنویس ببین درست میشه

img.Gravity=Gravity.FILL

[Farzad Musavi 576]

لطفا یه اسکرین بزار بفهمیم چ مشکلی داره خروجی کار

[حسینh 50]

توموبایل بدتر میشه

[Farzad Musavi 576]

خب تو دیزاینر اسکریپت عرض عکسارو با درصد x بزار دگ

[حسینh 50]

تو دیزاینر فقط اسکرول ویو هست من دیتابیسم رو باعکس متن درست کردم

[sajad8888 819]

نمیدونم درسته یا نه ولی تا اینجاش یادمه تست کن جواب بده

 

 
Sub show
Dim sh As Int
sh=0

Dim cur As Cursor
cur=s.ExecQuery("SELECT * FROM "&Tbl)


Dim h As Int
h = 2%y
For i = 0 To cur.RowCount-1
cur.Position=i
If cur.GetInt("type")=0 Then
Dim Lbl As Label
Lbl.Initialize("")
Lbl.Text=cur.GetString("value")
Lbl.Gravity=Gravity.RIGHT
Lbl.TextSize=20
Lbl.TextColor=Colors.RGB(99,137,168)
Lbl.Typeface = Typeface.LoadFromAssets("IRAN Sans Light.ttf")
ScrollView1.Panel.AddView(Lbl,2%x,h,96%x,0)
Dim su As StringUtils
Lbl.Height=su.MeasureMultilineTextHeight(Lbl,Lbl.Text)
h = h + Lbl.Height + 2%y
sh=sh+Lbl.Height
ScrollView1.Panel.Height=sh
Else

Dim img As ImageView
img.Initialize("")
img.Bitmap=Namayesh(i)
Dim bp As BitmapExtended
bp.Initialize("")
ScrollView1.Panel.AddView(img,0,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))
img.Left=50%x-img.Width/2
h= h + bp.getHeight(img.Bitmap) + 0%y

sh=sh+bp.getHeight(img.Bitmap)
ScrollView1.Panel.Height=h
End If

Next

ScrollView1.Panel.Height=ScrollView1.Panel.Height+10%y
 
End Sub

[Farzad Musavi 576]

خب دارید تو ایمیج ویو لود میکنید دگ حالا یا از دیزاین با کد نویسی فرقی نداره عرض ایمیج ویو رو با درصد x بزار

[sajad8888 819]

خب دارید تو ایمیج ویو لود میکنید دگ حالا یا از دیزاین با کد نویسی فرقی نداره عرض ایمیج ویو رو با درصد x بزار

فک کنم منظوره دوستمون رو نفهمیدید ایشون  از دیتابیس که عکس و متن رو باهم داره استفاده میکنه و فقط اسکرول ویو داره و ایمیج ویو در کار نیست

[مهدی ایزدی 9,203]

فک کنم منظوره دوستمون رو نفهمیدید ایشون  از دیتابیس که عکس و متن رو باهم داره استفاده میکنه و فقط اسکرول ویو داره و ایمیج ویو در کار نیست

ببخشید پس این عکس رو که قراره از دیتابیس بخونه میخواد توی صورت بنده Load کنه؟   ImageView داره دیگه !!!

[Farzad Musavi 576]

فک کنم منظوره دوستمون رو نفهمیدید ایشون  از دیتابیس که عکس و متن رو باهم داره استفاده میکنه و فقط اسکرول ویو داره و ایمیج ویو در کار نیست

میشه کدی که باهاش میشه عکس رو تو اسکرول ویو لود کرد رو بدین منم یاد بگیرم؟

[sajad8888 819]

میشه کدی که باهاش میشه عکس رو تو اسکرول ویو لود کرد رو بدین منم یاد بگیرم؟

الان یه سوء تفاهم پیش اومده بله شما درست میگید و شما استادید ما چیکاره ایم

ایشون این کدی که گذاشتن رو مشکل داشتند

[Farzad Musavi 576]

الان یه سوء تفاهم پیش اومده بله شما درست میگید و شما استادید ما چیکاره ایم

خواهش میکنم

این کد رو نمیدونم خودتون نوشتین یا کپی کردین ولی تو این قسمت منظورمه

ScrollView1.Panel.AddView(img,5%x,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))

اینو بنویس بجای کد بالا

ScrollView1.Panel.AddView(img,5%x,h,95%ط,bp.getHeight(img.Bitmap))

[sajad8888 819]

اون کدی که من گذاشتم مشکلی نداره تستش هم کردم!!!

[حسینh 50]

 

خواهش میکنم

این کد رو نمیدونم خودتون نوشتین یا کپی کردین ولی تو این قسمت منظورمه

ScrollView1.Panel.AddView(img,5%x,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))

اینو بنویس بجای کد بالا

ScrollView1.Panel.AddView(img,5%x,h,95%ط,bp.getHeight(img.Bitmap))

دوست عزیز تو بلو استپس مشگل نداره تو موبایل مشکل داره بازم حل نشد ممکنه مشکل سایز عکس باشه؟

[حسینh 50]

کسی کمک نمیکنه

[حسینh 50]

ممنون