مشکلی که دارم اینه که وقتی عکس و متن رو با هم به نمایش در میاد قسمتی از متن دیگه نمیاد.
یعنی عکسه کتن رو میبره پایین و اسکرول هم بزرگتر نمیشه.
چیکار کنم؟
Sub Process_Globals
Dim SQL1 As SQL
Dim Fasl As String
Dim cur As Cursor
End Sub
Sub Globals
Private ScrollView1 As ScrollView
Private Button1 As Button
Private checkme As EditText
Private lbltitr As Label
Dim PanelHeight As Int
Dim text As String
Dim StrUtil As StringUtils
Dim ht As Float
Dim myfont As Typeface
Dim lblmatn As Label
Dim ImageView1 As ImageView
Dim label1 As Label
Dim su As StringUtils
Dim TextSetting1 As TextSetting
Dim i As PhoneIntents
Private ListView1 As ListView
If File.Exists(File.DirInternal,"n.db")= False Then
File.Copy(File.DirAssets,"n.db",File.DirInternal,"n.db")
End If
If SQL1.IsInitialized=False Then SQL1.Initialize(File.DirInternal,"n.db",False)
cur=SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id")
cur.Position=0
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
If checkme.text="2" Then
Activity.removeallviews
Activity.LoadLayout("text_scroll")
ScrollView1.Panel.LoadLayout("text_feh")
checkme.text="1"
Return True
End If
End If
End Sub
Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float
Dim before,after As Float
Dim Obj1 As Reflector
leb.text=txt
leb.TextSize=size
leb.Gravity=Gravity.CENTER
leb.Left=leb.Left
leb.Typeface=font
ht = StrUtil.MeasureMultilineTextHeight(leb , txt)
Obj1.Target = leb
before = Obj1.RunMethod("getLineHeight")
Obj1.Target = leb
Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")
Obj1.Target = leb
after = Obj1.RunMethod("getLineHeight")
ht = ((after * ht)/before)
leb.Height = ht
Return ht
سوال
bahadorks 13
سلام
دوستان این کدهای منه
مشکلی که دارم اینه که وقتی عکس و متن رو با هم به نمایش در میاد قسمتی از متن دیگه نمیاد.
یعنی عکسه کتن رو میبره پایین و اسکرول هم بزرگتر نمیشه.
چیکار کنم؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.