مشکل ست کردن عکس از دیتابیس در imageview

[احمد وفا 13]

با سلام من هر کاری می کنم عکس در imageview به درستی ست نمی شه.تو تالار هم از دیشب دارم سرچ کردم ولی توفیقی در اصلاح نیافتم لطفا کمک کنید؟ممنون

تصویر مشکل 

می بینید که  در ایمیج نصفه می افته

Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("image")
	
	 
	 
	
	label1.Initialize("label1")
	
	If File.Exists(File.DirInternal,"bn.db")= False  Then
		File.Copy(File.DirAssets,"bn.db",File.DirInternal,"bn.db")
	End If
	 
	If Fehrest.sql1.IsInitialized=False   Then
		 
		Fehrest.sql1.Initialize(File.DirInternal,"bn.db",False)
		
	End If
 
	
	
	cur2=Fehrest.sql1.ExecQuery("SELECT * FROM TblMatn  WHERE ID="& Fehrest.textmatn)

	For i=0 To cur2.RowCount-1
	cur2.Position=0
 
		 
		img.Initialize("")
		img.Width=ScrollView2.Width/2
		img.Height=ScrollView2.Height/2
		img.Gravity=Gravity.FILL
		
		bitmap.Initialize("img")
 
		img.Bitmap = LoadBitmap(File.DirRootExternal,cur2.GetString("Img"))
		

		ScrollView2.Panel.AddView(img,15%x,30%y,bitmap.getWidth(img.Bitmap),bitmap.getHeight(img.Bitmap))
		img.Height=(ScrollView2.Height*img.Width)/ScrollView2.Width
		
		p.Initialize(img,"img1",Null,1,3,1,True,Me)
		p.CanZoom=True
		p.CanMove=True
		p.LimitArea=True
		 
		
		 
		
Next

مشکل کجاست؟البته تصویر با استفاده کتابخانه PinchZoomAndMove (متغییر p) حرکت می کنه و دستی ست می شه ولی به صورت دیفالت نصف می افته

[mahdi tahan 723]

اینو

img.Width=ScrollView2.Width/2

اینطوری بنویس ببین درس نمیشه

img.Width=ScrollView2.Width

 

[احمد وفا 13]

مشکلم با این کتابخونه حل نشد ولی با کتابخونه TouchImageView 2.11 و کد ذیل بسیار جذاب شد کار

		TouchImageView1.Initialize("TouchImageView1")
		
		Activity.AddView(TouchImageView1, 0, 0, 100%x, 100%y)
	
		TouchImageView1.MinScale=0.25			'	default is 0.5
		TouchImageView1.MaxScale=3			'	default is 1.5
		TouchImageView1.TranslatePadding=128dip	'	default is 64dip
		TouchImageView1.Gravity=Gravity.FILL
		TouchImageView1.TouchEnabled=True
		TouchImageView1.RequestFocus
		TouchImageView1.SendToBack
		 
	
		Dim Bitmap1 As Bitmap
		Bitmap1.Initialize(File.DirInternal,cur2.GetString("Img"))
		TouchImageView1.SetBitmap(Bitmap1)
	
		If FirstTime Then
			'	Rect parameters are: left, top, right, bottom
			SourceImageRect.Initialize(0, 0, Bitmap1.Width, Bitmap1.Height)
			TouchImageViewRect.Initialize(0, 0, TouchImageView1.Width, TouchImageView1.Height)
		End If
	
		'	if the scaling process scales the image to less than the current MinScale or more than the current MaxScale then MinScale or MaxScale will be adjusted
		TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER")	'	make string a static constant in library