Search Results

The gravity was set in the designer to "fill" so you have to do the same in the code. ImageView2.Initialize("ImageView2") ImageView2.Gravity = Gravity.FILL ImageView2.Bitmap = aqrc.render 140283
link: 0dip,ivwidth,ivheight) iv.Gravity = Gravity.FILL iv.Bitmap = qrc.render pnl.AddView(iv,0dip,0dip,ivwidth,ivheight) Return pnl End Sub

I do load the bitmaps as follow: btnOpdracht.SetBackgroundImage(LoadBitmapResize(File.DirAssets,"opdracht.png",btnMessages.Height-3dip,btnMessages.Height-3dip,True)).Gravity=Gravity.CENTER_HORIZONTAL+Gravity.TOP btnSysteem.SetBackgroundImage(LoadBitmapResize(File.DirAssets,"instellingen.png"

Mit lblText.Gravity = Bit.Or(Gravity.LEFT, Gravity.TOP) Auch mit Gravity.Top bleibt ein kleiner Rand oben. Wenn Du den Text ganz an den Rand bringen willst kannst Du für das Padding minus Werte verwenden.
link: Das Padding kannst Du im Designer ändern: 57241 CKicke auf default und ändere Werte 57242. Oder per Code, siehe HIER. Das isr etwas anders, lblTex
link: Wie ist es denn Möglich einen Text ohne Padding (oben und unten) in einen Label anzuzeigen? Ich finde immer nur die Möglichkeit von Top, Center oder B

edPart.Gravity = Bit.OR(Gravity.CENTER, Gravity.TOP)
link: Come faccio ad impostare la proprietà "Gravity", di un EditText, TOP + CENTER? Questo non mi va: edPart.Gravity = Gravity.TOP + Gravity.CENTER

Or:lblCard1.Gravity = Gravity.CENTER
link: Best solution is to use B4XView Dim lblCard1 As B4XView 'in Globals lblCard1.SetTextAlignment("CENTER", "CENTER") Or: lblCard1.Gravity = Bit.Or(G
link: Hi - In the designer I've set the padding, horiz align to "center_horizontal", and vert align to "center_vertical". And in my activity_create: '.

White CustomAcceptButton.Gravity = Gravity.CENTER CustomAcceptButton.TextSize = 13 Dim CustomBorder As ColorDrawable CustomBorder.initialize2(Colors.ARGB(255,53,110,218),20dip,1dip,Colors.ARGB(0,0, 0, 0)) CustomAcceptButton.Background = CustomBorder Dim CustomCancelButto
link: Just another example how to create a Custom PopUp: Google Idea: 140583 With BMPopUp: 140584 Public PopUp As BMPopUp PopUp.Initialize(Ac

This should work: EditText1.Gravity = 8388611 'Gravity.START

Gravity = Gravity.CENTER lblAccueilLeaveReview.Text = "Review" lblAccueilLeaveReview.TextSize = TaillePoliceSmall lblAccueilLeaveReview.TextColor = Colors.White lblAccueilLeaveReview.Padding = Array As Int (0,0,0,0) lblAccueilLeaveReview.Typeface = Typeface.DEFAULT lblAccuei

try img.gravity=gravity.fill the roundings of that circle are probably beyond what you see (outside of that square)

Initialize("") l.Gravity = Gravity.CENTER l.TextColor = Colors.Red l.TextSize = 20 l.Text = myText Return l End Sub Sub GenerateViewShadow( P As B4XView, cornerRadius As Int, insetPercentage As Float) Dim BigWW As Int = P.Width Dim BigHH As Int = P.Height
link: Initialize("") l.Gravity = Gravity.CENTER l.TextColor = Colors.White l.TextSize = 20 l.Text = myText Return l End Sub Su
link: Initialize("") l.Gravity = Gravity.CENTER l.TextColor = Colors.White l.TextSize = 20 l.Text = myText Return l End Sub Su
link: Change that sub, "createLabel", to something like: Sub createLabel(myText As String, EventName As String) As Label Dim l As Label l.Initialize(Ev

Powered by ColBERT