• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 6 رای - 1.17 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: padding و mergin كردن ليبل ؟
حالت خطی
#2
سلام با گشت و گذار فراوان دو تا كد پيدا كردم اما هنوز تست نكردم اگه كسي تست كرد لطف كن نمونه كارش بزاره

کد:
1. You can set the padding of any view with this code:
Code:
Sub SetPadding(v As View, Left As Int, Top As Int, Right As Int, Bottom As Int)
 Dim jo As JavaObject = v
 jo.RunMethod("setPadding", Array As Object(Left, Top, Right, Bottom))
End Sub

2. You can use the Reflection library to set the padding to a minimum value.
Try the following code:
Code:
Sub Globals
   Dim txt1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
   txt1.Initialize("txt1")
   Dim c As Canvas
   Dim b As Bitmap
   b.InitializeMutable(1, 10)
   c.Initialize2(b)
   txt1.Text = "Hello"
  
   Dim size As Float
   size = c.MeasureStringHeight(txt1.Text, txt1.Typeface, txt1.TextSize)
   txt1.Gravity = Bit.Or(Gravity.TOP, Gravity.LEFT) 'Set gravity to top left
   Activity.AddView(txt1, 10dip, 10dip, 100dip, size + 6dip)

   txt1.Color = Colors.White 'Removes the view edges
   Dim r As Reflector
   r.Target = txt1
   'Set padding to minimum
   r.RunMethod4("setPadding", Array As Object(0, 1dip, 0, 0), _
      Array As String("java.lang.int", "java.lang.int", "java.lang.int", "java.lang.int"))
End Sub



 
 
پاسخ
  


پیام‌های این موضوع
padding و mergin كردن ليبل ؟ - توسط hamaz - 01-20-2014، 10:52 AM
RE: padding و mergin كردن ليبل ؟ - توسط hamaz - 01-22-2014، 01:06 PM

پرش به انجمن:


Browsing: 1 مهمان