From 0e116e7159d84b2fa92ada7c8804a25cdfbdfc22 Mon Sep 17 00:00:00 2001 From: Dimitris Papadimitriou Date: Wed, 6 Jun 2018 18:17:14 +0300 Subject: [PATCH] Started building a modern menu. Removed settings button from the right side. Long tapping on the "Hamburger" icon will open the settings menu. Bumped version from 18 to 19 --- Files/main.bal | Bin 6844 -> 8037 bytes Objects/AndroidManifest.xml | 2 +- steenfo.b4a | 42 ++++++++++++++++++++++++++++++------ 3 files changed, 37 insertions(+), 7 deletions(-) diff --git a/Files/main.bal b/Files/main.bal index 4215fb58e4570c348e18a035fea0d6983fe8aca5..b3710695e8c9c05960f86c4adc357cda569cd608 100644 GIT binary patch literal 8037 zcmc&&O>i8=6`qZ?CL2r)*iL{zycpsLTWl-|>|h{xEv>O&wX&tfPMichyW7$ZjAyoH zMiS=af(r$qLh+l*$-s>QZX75oryOFtd?P1Lces*?8Mv4}(RXy|O zb@%)E`s;o(n>P&OA3rdRAK`vG+7Hpn&A?i+g7Y^*E=3QgJ+sqM9{U@CbHcNl>c{Lq zx)=nm6ZUR}Mk{C!<2*I*DZfp9)odtx^ajomF`SZ*y5ccou{6FNop!?(Z&lZ9SX zt(rSJIng$q1$BM=ETiZbGv=(8YM34)Lr_pkuOQzpQ&*&qW=tVN~jbs89$&4(LNr6aaOw4iz+RiTh zt}gvgApaEY7PMQ@ZbSPS8h>ZecE8L>naAAh^3}^HhaVrgQoXwWo>RlM(v^|ne|aPK zUfy1-U7gB5=8cYBIP${Zw!Hea@#4q-{Cn}ru9vQ#eSQ41vDe@E{DYl;dS%d3a> zrSfy`_4J~ru z;b*LtPXZqx6SCGp&VjxYVKifO1f@prv=y``To23XM;#=2!}VIqlXQ~D(+rnrHD$sq z4v|G)K(=kG<6F-OT(y~6h2blQOWPtg$tgl(^R5$=mzD48Md2goa$vh`gIebRGdVL+ zsnsj9PaU6`ojNm9tCy?H4=hpu)Sha(j!!JVeET)J>zFN`X|&?wZmX*0C}QUa=WSWP z+RW^9xhh0e&jyS;z+H0WI+4Berap?NLnlS?LYqr*WZctXWTz^#^{I(+l`AvKy_vN# z;W3nPNYQI_hS9_rw|JHbT?hJW#Bj#=Xce(d=gmbsh@MHDWaspBGQ*_A2&(VAC#a(2 z_^QR|#u;u@uVl!(f2RJv)hH?FeP1Qed{Iks2#5<^0lC9;U86LG)t;KT8&ciu6iw&+ za$9+-7`VkI%SJJ1tD@!1yTuNR49!edj+LLN)=4nZ?dYTw6}nH=C@w=-{=`73RO&5* z{gsYs-X8}z#^m9E+JmunoLrOYNc|!Dfny0G^hf4ZE63`L>C3m@Eb1bR0C;9bG06nz zXjj+CpF_$bMN$j1>m@DddP+NiRVtM0HUF z7Dwq~g%o=%kNF%6;}#ZzTniVLM-fOv5x9#);Et3`SiHiN5YQcX+Co%y4!a>q4n+t_ zYIjEJI5jAYJ!o5**Ij60GESCcO`QA!Pldg>{1Ppn6A-vv@1dS)?n8s=v*rENjNlT7 zD+zG0pj3n)*?tY-UbI397r~8VeucJ8z$3;7(DKG8u7xpN$PDo|9trnB5G(~ZrgJ~L z4&ri%!mn|O;nH}=z$U&c#JKG z%}dY-791&9FnWQ2gVPYiIZK8Yuq1I5UHQ;tMm|hK^1)r_LqVcpsA7o%e>$IsA?bX6 z14;6E1VTcjBaylcfxn?FZX89&nz=#V3m)_&c$g4`8xs%&7#d6iGYL(8y$tyXlLo^O z@-fX2?v{9MAcu%nAPoS~V=yxaL?4A6L6io+M?}eVp)~HAqiaU=IA&->ryvPOAA^u^ z^v+0)6G@-rJmdDDWgT`<-;KuQli$$exN&CpF0SHnm0e8V!rBjELZIc~G_>hm{5<+& zrpPYV2n=Eue;4K8@W@CSp{y-Gjih=BT3mZMn8S40@~kF;A`K=e64S17P{U&ks+5Bn zXwv22uh7V5KLKGwJm62mXD{#@Dy}rRD)9Zq^|u(FK58~x zT!&#Y&3JyqUaPqN4*i=AJn1n|;AwCj!2ce@2Lt>?SQ5s^z(b)K|82nk0RuN1_&>sD zFYw`8&6DU7p5UHrS^0u2LL=|uZ$OYU{wWCC(F!!UD)9YpHD@tA4g9Cj{6A;BgLwix zi-a(qn%mHFT#9Qk9^K*lO>*c=LC2S%!bZM%R#tjmEVI6OOn6D-d0B}wO+kf z(7y*Q>#ML2p{~Dl_yQ4!BEc~Wg_ipUcnCuDEllKxix7~r5`>6X8lnF{lSU{fY*_`N zVGNgk+b~B_doGpWzhft literal 6844 zcmc&&OK=ob6zwq?bR>Wx2!0tAFhCed!cY9bBr}-6WCD|c2!5b5^O9-pbWe465@AK@ z#zHNr0>yF_bgS-MSe7d{K(W)6D_yyxWakdgxjo&JP9~UNg;c%Q_ucp2{hWK>y#sMg z(@s60X%FMO0plTzbjdTu4e#6|pi{wO(9x?^<#2z=TQ`ok9&NjsyR~E6$<}=8W?SoDPTS5KYx4P9z40SX zd&h-CAN|sF>5lgCkH7z#yt)43%EIN&-#RW|`{TQHpMKV|J=fOaT}+=JUG1MT}lPK{LBc#Ta<>mEJMSX#>4A=0O zX%3Ver7Q-?uuA4wSrrY>l#}o2<2v1@TNZ8;h^p>D76?fPPamNok2fe!2(gs`95-A8 zj#25j?ijk|?V>1C4SUQb&#v&e06|3G`oN=k9=_rVfo1j&>wa_ilHJ4Rp@dbx#-%5I*1GuV8>pJOS&_3kI zH=mQgd$zQZ0z9KM`!QAHQUOGTU&Hyl{5C_X7xC%s-VCa!SChJRZla;No9N0&lc4%Y*C6z@79;{vsnqmVM4W>=e(#~1dqM*{ z=sXmVyEo)^GEt;ok-v|6AY^LGW7_1hhl{l7_SG+vej|hdESP~!asfOF(XWjeFDO8#r`H6W5wNn{=JK@*33{Rh!Wk7YcwXV(Pa@z zvt^eyC4&AV1e=g-u@i|rwxf8A4XKGmIabEBF(8-~!eLSi!MY`$u#wbUfEL!tsOuj!`Kyfdz6;nM_F9z%|RA6XSw1RQk zh9MAz!P_2i@YR}kU`n)Mnu5?yEK}q&Y%gIz^x5<-a#*XQ;8Bx+N3#UHJ0LnR5}lX? zMGB0fxEq|fwuh(oVhTasM-J8Q$B^6*m>Gtbxpe^3D!1YqgCOd_9}3uM5d3S1WfwN)j3td1EU8Jb)IkWA-5>-@3XEcz z0Vl4_6VV@VX(5ObHVFy7KB6>lPKai4a0w7S3^7ZA=o^qDh*IEvM3g~aAfi3E>Lc0< zN^E6i zP*9}6I*P<}%45%C8G4aDmx4C^}e-yz!zZL zk^)bG^8lVtCYtdJ1%48eq%wuTgE2SYvpBfi8DE6XMF7v%6U}%EoCokTf2pyeFDm0t zL%{qpz6Up!8~78@xun2T;C%sp5{f0`L*T)fTgIQn!Q}>i5IUy=zo_O)fwKai$L3lL z`6r1q*Eg|>mYPL3*YH=(BxFmC=Raca)m%?uf4PBYdMqjM6gUsy-@@^w0e%vaB;!Ni z!I&HHZ{y%{1OE diff --git a/steenfo.b4a b/steenfo.b4a index 3c1a311..305c277 100644 --- a/steenfo.b4a +++ b/steenfo.b4a @@ -65,7 +65,7 @@ Version=8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: SteemiAPP - #VersionCode: 18 + #VersionCode: 19 #VersionName: Amberdawn 'SupportedOrientations possible values: unspecified, landscape or portrait. @@ -86,7 +86,8 @@ Sub Process_Globals Dim manager As AHPreferenceManager Dim screen As AHPreferenceScreen Dim ChosenPostBody, ChosenPostTitle, ChosenPostPPV, ChosenPostAuthor, ChosenPostCreated, ChosenPostURL, ChosenUpvotedBy As String - Dim appver As Int = 18 + Dim appver As Int = 19 + Dim Animator As Timer End Sub Sub Globals @@ -104,6 +105,11 @@ Sub Globals Dim TotalSBD, TotalSP, TotalAuthSP, TotalAuthSBD, TotalAuthSTEEM As Double = 0 Dim pnPrice As Panel Private lblPriceLoading As Label + Private lblSidebar As Label + Private pnMenu As Panel + Private svMenu As ScrollView + Dim SideBarWidth As Int + Private pnMenuClose As Label End Sub Sub Activity_Create(FirstTime As Boolean) @@ -278,6 +284,21 @@ Sub DynGlobalProps(Props As String) TVS = TempTVS.SubString2(0, TempTVS.Length - TempTVSPrecision) & "." & TempTVS.SubString(TempTVS.Length - TempTVSPrecision) End Sub +Sub lblSidebar_Click + Dim ScreenWidth As Int = GetDeviceLayoutValues.Width + SideBarWidth = ScreenWidth - (ScreenWidth * 40 / 100) + Log(SideBarWidth) + pnMenu.Visible = True + Animator.Initialize("pnAnimator", 1) + Animator.Enabled = True +End Sub + +Sub lblSidebar_LongClick + StartActivity(screen.CreateIntent) +End Sub + + + Sub lvAuthor_ItemClick (Position As Int, Value As Object) ProgressDialogShow("Loading post, please wait...") Dim PostArray() As String @@ -643,6 +664,19 @@ Sub ParseUserPost(PostHistory As String) uPosts.Clear End Sub +Sub pnAnimator_tick + If pnMenu.Width < SideBarWidth Then + pnMenu.Width = pnMenu.Width + 35 + Else + Animator.Enabled = False + End If +End Sub + +Sub pnMenuClose_Click + pnMenu.Visible = False + pnMenu.Width = 0 +End Sub + Sub pnPrice_Click pnPrice.Visible = False End Sub @@ -728,8 +762,4 @@ Sub TimeStampConvert(Timestamp As String, When As String) As String End If Return Elapsed & TimeUnit & TimeHappens -End Sub - -Sub lblMenu_Click - StartActivity(screen.CreateIntent) End Sub \ No newline at end of file