alirezafc

بینهایت ممنونم. فقط ببخشید من برای سوال دوم ، در قسمت کلیک اون آیتمی که روش کلیک شده ، رنگ پس زمینشو عوض می کنم. اما می خوام بار بعد اگه روی یه آیتم دیگه کلیک کردم، رنگ آیتمِ کلیک شده ی قبلی به حالت پیش فرض برگرده. یعنی در هر لحضه تنها اون آیتمی که انتخاب شده، رنگش عوض بشه و به حالت انتخاب دربیاد. این کد خودمه: Sub pr_OnItemClick(ItemTag As Object,viewclicked As Object,position As Int) Dim pnl As Panel=viewclicked 'پنلِ مربوط عنصر انتخاب شده pnl.Color=Colors.Blue 'تغییر رنگ 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("FoodMenu") Private Pr As PersianRecyclerLayout Pr.Builder("pr").NormalRecycler.BALayout.TurnLayoutManager.RecyclerView.Build Pr.PersianTurnLayout.withGravity(Pr.GRAVITY_START).withOrientation(Pr.Oriantation_Horizontal).withPeekDistance(200).withRadius(1000).withRotate Activity.AddView(Pr,10%x,0,80%x,40%y) Pr.ShowRecycler End Sub Sub pr_getItemCount As Int Return 5 End Sub Sub pr_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object Dim pnl As Panel=layoutitem pnl.Width=Pr.Width*0.35 pnl.Height=Pr.Height Dim Img As ImageView Img.Initialize("") pnl.AddView(Img,pnl.Width*0.2,pnl.Width*0.1,pnl.Width*0.6,pnl.Width*0.6) Dim lblname As Label lblname.Initialize("") pnl.AddView(lblname,0,pnl.Width*0.71,pnl.Width,pnl.Height*0.15) Return Null End Sub Sub pr_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int) Dim pnl As Panel=layoutitem Dim Img As ImageView=pnl.GetView(0) Img.Color=Colors.Black Img.Bitmap=LoadBitmap(File.DirAssets,"Pizza.png") Img.Gravity=Gravity.FILL Dim lblname As Label=pnl.GetView(1) lblname.Text="پیتزا" lblname.TextSize=auto.ReturnScaledSize(20) lblname.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_HORIZONTAL) lblname.TextColor=Colors.White End Sub حالا میخوام دو تا دکمه چپ و راست داشته باشم. در دو طرف لیست. وقتی روی دکمه چپ کلیک کردیم ، توی لیست یه محصول به سمت چپ اسکرول بخوره. و اگه روی راست کلیک کردیم یه محصول به سمت راست اسکرول بخوره.یعنی اسکرولِ محصولات رو بسپارم دستِ این دو تا دکمه. این کد رو برای کلیدِ اسکرولِ سمت راست نوشتم اما تا آخر اسکرول نمیخوره.یعنی یکی مونده به آیتمِ آخری دیگه اسکرول حرکت نمیکنه و عنصر آخر رو نشون نمیده: Sub Globals Dim ScrollAmount As int=0 End Sub Sub ScrollRight_Click ScrollAmount = ScrollAmount + 1 Pr.smoothscrollToPosition(ScrollAmount) End Sub می خواستم ببینم راهی هست اینو پیاده کنم؟ خیلی ببخشید یه سوال دیگه هم داشتم. میخواستم ببینم چطور میتونیم وقتی رویِ یکی از عناصر لیست کلیک می کنیم، به حالت انتخاب شده دربیاد. مثلا رنگ بک گراندش تغییر کنه. خیلی عذر میخوام که زیاد شد. اما اگر کمکم کنید بسیار ممنون میشم. باتشکر فراوان

سلام. ممنون از پاسختون. اما متاسفانه من هنوز به حد نصاب برای پیام خصوصی نرسیدم. میشه لطف کنید ایمیلتون رو بدید تا براتون بفرستم. یا همینجا بذارم.

با سلام خدمت شما و تشکر از کتابخانه بسیار مفیدتان مشکلی دارم اگه کمکم کنید بسیار ممنون میشم. یه لیست از نوع turnlayout ساختم که توش چند تا عکس هست. دو تا دکمه ی چپ و راست گذاشتم که میخوام مثلا وقتی روی دکمه چپ کلیک شد لیست یه دونه به سمت چپ اسکرول بشه. من این کد رو نوشتم اما تا انتهای لیست نمیره.یعنی تا یک آیتم ماقبل آیتم آخر اسکرول میخوره.و آیتم آخر رو اسکرول نمیکنه. کد هم اینه : Pr.smoothscrollToPosition(Pr.SCROLLBAR_POSITION_RIGHT+1) با تشکر