#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim s As SQL
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim sc As ScrollView
Dim ts As TextSetting
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("InfoJK_Matlab")
If File.Exists(File.DirInternal,"Joke-db.db") = False Then
File.Copy(File.DirAssets,"Joke-db.db",File.DirInternal,"Joke-db.db")
End If
If s.IsInitialized=False Then
s.Initialize(File.DirInternal,"Joke-db.db",False)
End If
sc.Initialize(800dip)
Dim cur1 As Cursor
cur1 = s.ExecQuery("SELECT * FROM Mytable where id="&InfoJK.fasl)
cur1.Position=0
Activity.AddView(sc,0,0,100%x,100%y)
Dim l As Label
l.Initialize("l")
l.Text=cur1.GetString("matn")
l.TextColor=Colors.Black
l.Typeface=Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt") & ".ttf")
ts.LongText(l,l.Text,File.ReadString(File.DirInternal,"FontSize.txt"),sc,File.ReadString(File.DirInternal,"lineheight.txt"))
sc.Panel.AddView(l,10dip,0,95%x,sc.Height)
sc.Color=Colors.ARGB(255,191, 85, 236)
Dim su As StringUtils
Dim f As Float
f=su.MeasureMultilineTextHeight(l,l.Text)
l.Height=f
sc.Height=sc.Panel.Height
sc.Panel.Height=f+80%y
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
Assassin-Wolf 13
سلام . من وقتی این خط رو
به سورس ام اضافه میکنم این مشکل به وجود میاد
این هم سورس اون قسمت هست
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.