-
Notifications
You must be signed in to change notification settings - Fork 0
/
gallery.bas
169 lines (110 loc) · 5.3 KB
/
gallery.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=6.3
@EndOfDesignText@
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#Extends: androidx.appcompat.app.AppCompatActivity
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim startCSS As String
Private lv1 As ListView
Dim bbbd As BitmapDrawable
Dim ABHelper As ACActionBar
Dim ac As AppCompat
Dim xml1 As XmlLayoutBuilder
Dim back_btn , act_title As Label
Private slider As WebView
Private Actionbar As ACToolBarDark
Dim mt As KJ_MaterialToast
End Sub
Sub Activity_Create(FirstTime As Boolean)
startCSS = "<link href='http:https://vjs.zencdn.net/5.16.0/video-js.css' rel='stylesheet'><script src='http:https://vjs.zencdn.net/ie8/1.1.2/videojs-ie8.min.js'></script><script src='http:https://vjs.zencdn.net/5.16.0/video.js'></script> <Style>img,video{width:100%;float:right;}iframe{border:0;}</style>"
Activity.LoadLayout("gallery")
slider.Color=Colors.Transparent
slider.LoadHtml(startCSS&File.ReadString(File.DirAssets,"one.html") & " <div class='item'><audio id='my-video' class='video-js' controls preload='auto' style='width:100%; min-height:133px;float:right' poster='http:https://s9.picofile.com/file/8286336400/photo_2017_02_14_12_49_49.jpg' data-setup='{}'><source src='http:https://bookal.ir/wp-content/uploads/2017/02/%D8%AA%DB%8C%D8%B1-%D8%AE%D9%84%D8%A7%D8%B5%DB%8C-1.mp3' type='audio/mp3'></audio></div><div class='item'><img src='"&File.Combine(library.dir,"slider1.jpg")&"'></div><div class='item'><audio id='my-video' class='video-js' controls preload='auto' style='width:100%; min-height:133px;float:right' poster='http:https://www.aviny.com/Album/defa-moghadas/Shakhes/aviny/wallpaper/KAMEL/69.jpg' data-setup='{}'><source src='http:https://bookal.ir/wp-content/uploads/2017/02/%D8%A7%D9%88%DB%8C%D9%86%DB%8C.mp3' type='audio/mp3'></audio></div><div class='item'><div id='1487068568809046'><script type='text/JavaScript' src='https://www.aparat.com/embed/dwNE3?data[rnddiv]=1487068568809046&data[responsive]=yes'></script></div></div>" & File.ReadString(File.DirAssets,"two.html"))
Actionbar.SetAsActionBar
ABHelper.Initialize
Actionbar.SetLayout( 0, 0, 100%x, ac.GetMaterialActionBarHeight)
lv1.SetLayout( 0 , ac.GetMaterialActionBarHeight , 100%x , 100%y-ac.GetMaterialActionBarHeight )
Actionbar.SetVisibleAnimated(200, True)
ac.SetElevation(Actionbar,8dip)
Activity.Title=""
back_btn.Initialize("back_btn")
bbbd=xml1.GetDrawable("ic_action_navigation_arrow_back")
back_btn.SetBackgroundImage(bbbd.Bitmap)
back_btn.Gravity = Gravity.CENTER
back_btn.Text=""
Actionbar.AddView(back_btn,ac.GetMaterialActionBarHeight / 1.5 ,ac.GetMaterialActionBarHeight / 1.5 ,Bit.Or(Gravity.LEFT,Gravity.TOP))
act_title.Initialize("act_title")
act_title.Text="گالری سرخ"
act_title.Typeface = library.font
act_title.TextColor = Colors.White
act_title.Gravity = Bit.Or(Gravity.CENTER_HORIZONTAL,Gravity.CENTER_VERTICAL)
act_title.TextSize = 20
Actionbar.AddView(act_title,-2,ac.GetMaterialActionBarHeight , Bit.Or(Gravity.CENTER_HORIZONTAL,Gravity.CENTER_VERTICAL))
lv1.SingleLineLayout.ItemHeight=120dip
' lv1.SingleLineLayout.Label.Top=0dip
lv1.SingleLineLayout.Label.Left = 30dip
bbbd.Initialize(LoadBitmap(File.DirAssets,"list.png"))
' bbbd.Gravity=Gravity.NO_GRAVITY
lv1.SingleLineLayout.Background=bbbd
lv1.ScrollingBackgroundColor=Colors.Transparent
lv1.SingleLineLayout.Label.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.CENTER_HORIZONTAL)
lv1.SingleLineLayout.Label.Typeface=library.font_tanha
lv1.SingleLineLayout.Label.Color=Colors.Transparent
lv1.SingleLineLayout.Label.TextSize=14
If library.selectedcat =="ویژه ها" Then
Main.cu1 = Main.sql1.ExecQuery("SELECT * FROM content WHERE star = '1'" )
Else
Main.cu1 = Main.sql1.ExecQuery("SELECT * FROM content WHERE cat = 'گالری'" )
End If
Dim t1 As String
For i = 0 To Main.cu1.RowCount-1
Main.cu1.Position = i
t1=Main.cu1.GetString("name")
If t1.Length > 32 Then t1 = t1.SubString2(0,32) & "..."
lv1.AddSingleLine2( t1 ,Main.cu1.GetString("id"))
Next
Main.cu1.Close
SetDivider(lv1,Colors.Blue,0dip)
library.SetStatusBarColor(library.colorDark)
Actionbar.SetLayoutAnimated(200, 0, 0, 100%x, ac.GetMaterialActionBarHeight)
slider.SetLayoutAnimated(200, 0, ac.GetMaterialActionBarHeight, 100%x, 45%y-ac.GetMaterialActionBarHeight)
lv1.SetLayoutAnimated(200, 0, 45%y, 100%x, 55%y)
If library.CheckConnection Then
mt.Initialize("شما به اینترنت متصل هستید",mt.LENGTH_LONG,mt.TYPE_SUCCESS)
Else
mt.Initialize("برای این بخش نیاز به اینترنت دارید",mt.LENGTH_LONG,mt.TYPE_WARNING)
End If
End Sub
Sub Activity_Resume
Main.media.Play
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Main.media.Play
End Sub
Sub lv1_ItemClick ( Position As Int , Value As Object )
library.selectedContent = Value
StartActivity(content_old)
End Sub
Sub back_btn_Click
Activity.Finish
End Sub
Sub SetDivider(lv As ListView, Color As Int, Height As Int)
Try
Dim r As Reflector
r.Target = lv
Dim CD As ColorDrawable
CD.Initialize(Color, 0)
r.RunMethod4("setDivider", Array As Object(CD), Array As String("android.graphics.drawable.Drawable"))
r.RunMethod2("setDividerHeight", Height, "java.lang.int")
Catch
Log(LastException.Message)
End Try
End Sub