قابلیت های کانواس

[امین مهدی نژاد 2,142]

توانایی های کانواس خیلی از نیازهای ما رو برطرف می کنه.ممکنه کتابخونه های بسیاری برای گرافیک ساخته شده باشه. ولی کانواس هم قابلیتیست که براحتی در دسترسه و می تونه در مواقع بسیاری و به سرعت کار مارو راه بندازه. و در کل یه قابلیت کارراه انداز مناسبه.

من خودم بشخصه توابع بسیاری رو دیدم که از کانواس استفاده کرده و خودم هم گاها ازش استفاده می کنم.به همین دلیل مناسب دیدم تا چند تا کد برای اون فراهم کنم. و قرار بدم تا دوستان استفاده بیشتری از این قابلیت بکنند.

برش قسمتی از تصویر

فعلا این ساب که مورد سوال یکی از دوستان بود. رو قرار می دم که قسمتی از تصویر رو جدا کرده و بر می گردونه

Sub Cliping(bmp As Bitmap,left As Int,top As Int,width As Int , height As Int)As Bitmap
	Dim p As Panel
	p.Initialize("")
	p.Visible=False
	Activity.AddView(p,0,0,width-left,height-top)
	Dim c As Canvas
	c.Initialize(p)
	Dim r2 As Rect
	r2.Initialize(-left,-top,bmp.Width,bmp.Height)
	c.DrawBitmap(bmp,Null,r2)
	Dim bmp2 As Bitmap=c.Bitmap
	Activity.RemoveViewAt(Activity.NumberOfViews-1)
	Return bmp2
End Sub

نحوه استفاده

	ImageView1.Bitmap =Cliping(LoadBitmap(File.DirAssets,"1.png"),20,20,70,70)

«موفق باشید.»

[vistamobile 1,700]

در در 1395/10/13, 22:02:54، امین مهدوی گفته است :

توانایی های کانواس خیلی از نیازهای ما رو برطرف می کنه.ممکنه کتابخونه های بسیاری برای گرافیک ساخته شده باشه. ولی کانواس هم قابلیتیست که براحتی در دسترسه و می تونه در مواقع بسیاری و به سرعت کار مارو راه بندازه. و در کل یه قابلیت کارراه انداز مناسبه.

من خودم بشخصه توابع بسیاری رو دیدم که از کانواس استفاده کرده و خودم هم گاها ازش استفاده می کنم.به همین دلیل مناسب دیدم تا چند تا کد برای اون فراهم کنم. و قرار بدم تا دوستان استفاده بیشتری از این قابلیت بکنند.

برش قسمتی از تصویر

فعلا این ساب که مورد سوال یکی از دوستان بود. رو قرار می دم که قسمتی از تصویر رو جدا کرده و بر می گردونه

Sub Cliping(bmp As Bitmap,left As Int,top As Int,width As Int , height As Int)As Bitmap
	Dim p As Panel

  ....

سلام. تشکر فراوان. عمل میکنه. برم تست بزنم. تـــــــشــــــکـــــــر

[امین مهدی نژاد 2,142]

استفاده از کانواس و irAPI برای ایجاد سایه

ایجاد سایه همراه blur در بیسیک نیاز خیلی از دوستان بوده که در اینجا کدی رو برای این کار فراهم نمودم

	Dim can As Canvas
	can.Initialize(Activity)
	Dim pen As AGPaint
	pen.setColor(Colors.rgb(151, 217, 69))
	pen.setShadowLayer(10.0f, 0.0f, 2.0f, Colors.Black)
	can.AGCanvas.drawRect(30.0,20.0,500.0,200.0,pen)

میزان بلور و موقعیت نسبت به تصویر اصلی و رنگ رو به متد زیر دادیم

	pen.setShadowLayer(10.0f, 10.0f, 20.0f, Colors.Black)

البته فیلد کانواس رو طبق روش زیر به بی فور اضافه کنید

«موفق باشید.»

[mohammad-alone 564]

مرسی دوست خوبم بابت آموزش عالیتون،

 

کتابخونه ای که معرفی کردید آیا با این همه تابع به حجم اپ افزوده میشه یا نه چون این خیلی مهمه ...

مرسی خیلی عالی بودش من چک کردم

[امین مهدی نژاد 2,142]

در در 1395/10/25, 23:55:00، mohammad-alone گفته است :

مرسی دوست خوبم بابت آموزش عالیتون،

 

کتابخونه ای که معرفی کردید آیا با این همه تابع به حجم اپ افزوده میشه یا نه چون این خیلی مهمه ...

مرسی خیلی عالی بودش من چک کردم

نه این کتابخونه رو ساختم ولی ننوشتمش

این کتابخونه لیستی از API پایه ای اندرویده و هیچ تاثیری در حجم برنامه نداره.حتی یه بایت

فقط امکان دسترسی به اونها رو فراهم می کنه. چون از سویچ کردن بین جاوا و بیسیک راضی نبودم گفتم کار خودمو راحت کنم و قابلیت هایی که لازم دارم برای بیسیک تعریف کنم همین.

«موفق باشید.»