Adjusted this code:
https://www.b4x.com/android/forum/threads/b4x-xui-b4xdialog-custom-dialogs.99756/
So it can handle all I need. It all works well, except for the ime_HeightChanged event.
For some reason this makes my panels temporarily disappear. They are still visible on the screen,
but testing with IsInitialized produced False and Resize can't work.
Sub edtInput_Click runs just prior to the ime_HeightChanged event and in that Sub the panels
are still OK. Strangely when I try another event after the panels are gone, eg with
chkShowPW_Click the panels are fine again.
This is the full code of the adjusted class:
This is in the manifest:
'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: http://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="7" android:targetSdkVersion="26"/>
android:normalScreens="true"
android:smallScreens="true"
android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
SetApplicationAttribute(android:supportsRtl, "true")
'End of default text.
SetApplicationAttribute(android:theme, "@style/MyAppTheme")
SetActivityAttribute(Main, android:windowSoftInputMode, adjustResize)
CreateResource(values, themes.xml,
<resources>
<dimen name="action_button_padding">0dp</dimen>
<style name="MyAppTheme" parent="Theme.AppCompat.Light.DarkActionBar">
<item name="colorPrimary">#FF9800</item>
<item name="colorPrimaryDark">#F57C00</item>
<item name="colorAccent">#FFA726</item>
<item name="windowNoTitle">true</item>
<item name="windowActionBar">false</item>
<item name="windowActionModeOverlay">true</item>
<item name="android:actionButtonStyle">@style/ActionButton</item>
<item name="android:listPreferredItemHeightSmall">30dp</item>
</style>
<style name="ActionButton" parent="@android:style/Widget.ActionButton">
<item name="android
addingStart">0dp</item>
<item name="androidaddingEnd">2dp</item>
<item name="android:minWidth">2dp</item>
<item name="android:drawablePadding">@dimen/action_button_padding</item>
</style>
</resources>
)
RBS
https://www.b4x.com/android/forum/threads/b4x-xui-b4xdialog-custom-dialogs.99756/
So it can handle all I need. It all works well, except for the ime_HeightChanged event.
For some reason this makes my panels temporarily disappear. They are still visible on the screen,
but testing with IsInitialized produced False and Resize can't work.
Sub edtInput_Click runs just prior to the ime_HeightChanged event and in that Sub the panels
are still OK. Strangely when I try another event after the panels are gone, eg with
chkShowPW_Click the panels are fine again.
This is the full code of the adjusted class:
B4X:
'version 1.10
'Class module
'#RaisesSynchronousEvents: edtInput_TextChanged
Sub Class_Globals
Private xui As XUI
Private sUtils As StringUtils
Private ime As IME
Public ButtonHeight As Int = 42dip 'if we do 40 then underscore character won't show!
Public ButtonWidth As Int
Public bInput As Boolean
Private bPassWord As Boolean
Public bVerticalButtons As Boolean
Public Base As B4XView
Private miBackgroundColour As Int
Private miBorderColour As Int
Public miButtonsTextColour As Int
Private miButtonsColour As Int
Private mbHideCurrentScreen As Boolean
Public ButtonsTextSize As Int = 18
Private Background As B4XView
Private BlurImageView As B4XView
Public BlurBackground As Boolean
Private BlurReduceScale As Int
Private iButtonsToAdd As Int
Private mParent As Activity
Public mCSPrompt As CSBuilder
Private pnlDialog As B4XView
Private imgIcon As B4XView
Private lblTitle As B4XView
Private edtInput As B4XView
Private chkShowPW As B4XView
Private lblPrompt As B4XView
Private cvs As B4XCanvas
End Sub
Public Sub Initialize
If xui.IsB4i Then
BlurBackground = False
BlurReduceScale = 3
Else If xui.IsB4J Then
BlurBackground = True
BlurReduceScale = 1
Else If xui.IsB4A Then
'BlurBackground = False
BlurReduceScale = 1
End If
ime.Initialize("ime")
ime.AddHeightChangedEvent
End Sub
Public Sub Close (iResult As Int)
General.RunLog("Dialog.Close, iResult: " & iResult)
CallSubDelayed2(Me, "CloseMessage", iResult)
'bVisible = False
End Sub
'event handlers
'------------------------------------------------------------------------------------
Private Sub chkShowPW_Click()
Dim edt As EditText
General.RunLog("chkShowPW_Click, pnlDialog.IsInitialized: " & pnlDialog.IsInitialized) ' True
General.RunLog("chkShowPW_Click, Base.IsInitialized: " & Base.IsInitialized) ' True
edt = edtInput
chkShowPW.Visible = True
edt.PasswordMode = (chkShowPW.Checked = False)
End Sub
Private Sub edtInput_TextChanged (Old As String, New As String)
General.RunLog("edtInput_TextChanged, pnlDialog.IsInitialized: " & pnlDialog.IsInitialized) ' True
If Visible And bPassWord Then
Dim Yes As B4XView = GetButton(xui.DialogResponse_Positive)
Yes.Enabled = edtInput.Text.Length > 0
If Yes.Enabled Then
Yes.TextColor = miButtonsTextColour
Else
Yes.TextColor = Colors.RGB(128, 128, 128) 'better than light grey
End If
End If
End Sub
Private Sub ime_HandleAction As Boolean
Dim e As EditText
e = Sender
General.RunLog("ime_HandleAction, e.Tag: " & e.Tag)
If e.Tag = "edtInput" Then
Close (DialogResponse.POSITIVE)
General.RunLog("ime_HandleAction")
Return False 'will close the keyboard
End If
Return False
End Sub
Public Sub Visible As Boolean
General.RunLog("Visible, Base.IsInitialized: " & Base.IsInitialized)
Return Background.IsInitialized And Background.Parent.IsInitialized Or Base.IsInitialized And Base.Parent.IsInitialized
'Return Base.IsInitialized And mParent.IsInitialized
'Return bVisible
End Sub
Private Sub edtInput_Click
General.RunLog("edtInput_Click, Base.IsInitialized: " & Base.IsInitialized) '>> True
End Sub
Private Sub ime_HeightChanged (NewHeight As Int, OldHeight As Int)
General.RunLog("ime_HeightChanged, pnlDialog.IsInitialized: " & pnlDialog.IsInitialized) '>> False
General.RunLog("ime_HeightChanged, Base.IsInitialized: " & Base.IsInitialized) '>> False
General.RunLog("ime_HeightChanged, NewHeight: " & NewHeight & ", OldHeight: " & OldHeight)
'keyboard state
If Visible Then
Resize(100%x, NewHeight)
End If
End Sub
Public Sub Resize (Width As Int, Height As Int)
General.RunLog("Resize, pnlDialog.IsInitialized: " & pnlDialog.IsInitialized)
If mbHideCurrentScreen Then
Background.SetLayoutAnimated(0, 0, 0, Width, Height)
Base.SetLayoutAnimated(200, Background.Width / 2 - Base.Width / 2, Background.Height / 2 - Base.Height / 2, Base.Width, Base.Height)
Else
Base.SetLayoutAnimated(200, mParent.Width / 2 - Base.Width / 2, Height / 2 - Base.Height / 2, Base.Width, Base.Height)
End If
If xui.IsB4J Then
UpdateBlur
End If
End Sub
Private Sub Button_Click
Dim b As B4XView = Sender
General.RunLog("B4XDialog, Button_Click: " & b.Tag)
Close(b.Tag)
End Sub
#if B4J
Private Sub Background_MouseClicked (EventData As MouseEvent)
EventData.Consume
End Sub
#end if
Private Sub Background_Touch (Action As Int, X As Float, Y As Float)
General.RunLog("Background_Touch, pnlDialog.IsInitialized: " & pnlDialog.IsInitialized)
End Sub
Private Sub Base_Touch (Action As Int, X As Float, Y As Float)
'adding this Sub stops the dialog touch triggering an ime keyboard move!
'-----------------------------------------------------------------------
General.RunLog("Base_Touch, pnlDialog.IsInitialized: " & pnlDialog.IsInitialized)
End Sub
'------------------------------------------------------------------------------------
Private Sub DrawRect(oCanvas As B4XCanvas, iTop As Int, iLeft As Int, iBottom As Int, iRight As Int, iColour As Int, fWidth As Float)
' X1 , Y1, X2, Y2
oCanvas.DrawLine(iLeft, iTop, iRight, iTop, iColour, fWidth * 1dip)
oCanvas.DrawLine(iRight, iTop, iRight, iBottom, iColour, fWidth * 1dip)
oCanvas.DrawLine(iLeft, iBottom, iRight, iBottom, iColour, fWidth * 1dip)
oCanvas.DrawLine(iLeft, iTop, iLeft, iBottom, iColour, fWidth * 1dip)
End Sub
'note that Parent is Activity
Public Sub Show (Parent As B4XView, _
arrButtons() As Object, _
strTitle As String, strInput As String, strPrompt As String, _
iInputMode As Int, bBlurBackGround As Boolean, _
iTitleColour As Int, iTitleTextColour As Int, iInputTextColour As Int, iInPutLines As Int, iPromptTextColour As Int, _
iButtonsTextColour As Int, iButtonsColour As Int, iDialogColour As Int, _
iBorderColour As Int, iBackgroundColour As Int, csPrompt As CSBuilder, _
bHideCurrentScreen As Boolean) As ResumableSub
' iInputMode
'-----------------------
'-1 no inputbox
'0 no passsword
'1 password, not hidden
'2 password, hidden
Dim i As Int
Dim bInputSingleLine As Boolean
Dim fMaxButtonTextWidth As Float
Dim fPreferredButtonWidth As Float = (Parent.Width - 20dip) / 4
Dim arrButtonTextWidths(arrButtons.Length) As Float
Dim bVerticalButtons As Boolean
Dim edt As EditText 'as we need some properties not available with B4XView
Dim img As ImageView 'as bitmap won't show properly otherwise
Dim iInputHeight As Int
Dim iPromptHeight As Int
Dim iHeight As Int
Dim iWidth As Int
Log("start of Show")
iButtonsToAdd = arrButtons.Length 'number of buttons to add
mbHideCurrentScreen = bHideCurrentScreen
mParent = Parent
mCSPrompt = csPrompt
If bBlurBackGround Then
'as the background panel will hold the blurred screen image
bHideCurrentScreen = True
End If
'remove any existing dialog
If bHideCurrentScreen Then
For Each v As B4XView In Parent.GetAllViewsRecursive
If v.Tag <> Null And v.Tag = "b4xdialog_background" Then
v.RemoveViewFromParent
Exit
End If
Next
Else
For Each v As B4XView In Parent.GetAllViewsRecursive
If v.Tag <> Null And v.Tag = "b4xdialog_Base" Then
v.RemoveViewFromParent
General.RunLog("Dialog.Show, removed Dialog")
Exit
End If
Next
End If
'bVisible = False
'set all the default parameters
'could make a type for all the Show arguments,
'but I think this is simpler
'---------------------------------------------
If iDialogColour = 0 Then
If csPrompt.IsInitialized Then
iDialogColour = Colors.White
Else
iDialogColour = Colors.RGB(255, 255, 100) 'light yellow
End If
End If
If iBackgroundColour = 0 Then
miBackgroundColour = Colors.White
Else
miBackgroundColour = iBackgroundColour
End If
If iTitleColour = 0 Then
iTitleColour = iDialogColour
End If
If iTitleTextColour = 0 Then
iTitleTextColour = Colors.Black
End If
If iInPutLines = 0 Then
iInPutLines = 1
Else
If iInPutLines = 1 Then
bInputSingleLine = True
End If
End If
If iInputTextColour = 0 Then
iInputTextColour = Colors.Black
End If
If iPromptTextColour = 0 Then
iPromptTextColour = Colors.Black
End If
If iButtonsColour = 0 Then
iButtonsColour = Colors.White
End If
If iButtonsTextColour = 0 Then
iButtonsTextColour = Colors.RGB(255, 165, 0) 'orange
End If
If iBorderColour = 0 Then
iBorderColour = Colors.RGB(255, 165, 0) 'orange
End If
#if B4J
miBorderColour = 0xff000000
#else
miBorderColour = iBorderColour
#end if
miButtonsTextColour = iButtonsTextColour
miButtonsColour = iButtonsColour
'hide the keyboard
If iInputMode = -1 Then
ime.HideKeyboard
End If
'load the dialog and get all the views
'-------------------------------------
'Sleep(0) 'this is needed as otherwise next line won't run!!
pnlDialog = xui.CreatePanel("")
pnlDialog.Tag = "pnlDialog"
pnlDialog.SetLayoutAnimated(0, 0, 0, Parent.Width - 20dip, 170dip)
pnlDialog.LoadLayout("PasswordDialog")
BlurBackground = bBlurBackGround
'get all the button text widths, deals as well with linebreaks and csBuilder text
'--------------------------------------------------------------------------------
For i = 0 To iButtonsToAdd - 1
arrButtonTextWidths(i) = General.GetTextWidth(Parent, CStr(arrButtons(i)), ButtonsTextSize, Null, 4)
Next
'get the maximum button text width
For i = 0 To iButtonsToAdd - 1
If arrButtonTextWidths(i) > fMaxButtonTextWidth Then
fMaxButtonTextWidth = arrButtonTextWidths(i)
End If
Next
'see if we need vertical buttons
If fMaxButtonTextWidth * iButtonsToAdd + (iButtonsToAdd + 1) * 5dip + iButtonsToAdd * 4dip > Parent.Width - 20dip Then
bVerticalButtons = True
End If
If bVerticalButtons Then
ButtonWidth = fMaxButtonTextWidth + 20dip
Else
If fMaxButtonTextWidth < fPreferredButtonWidth - 4dip Then
ButtonWidth = fPreferredButtonWidth
Else
'max button width for horizontal buttons
ButtonWidth = (Base.Width - 10dip) / iButtonsToAdd - 2dip * (iButtonsToAdd - 1)
End If 'If fMaxButtonTextWidth < fPreferredButtonWidth - 4dip
End If
'set control colours
lblTitle.Color = iTitleColour
lblTitle.TextColor = iTitleTextColour
edtInput.TextColor = iInputTextColour
'set controls visibility
If csPrompt.IsInitialized Or strPrompt.Length > 0 Then
lblPrompt.Visible = True
Else
lblPrompt.Visible = False
End If
If lblPrompt.Visible Then
'set prompt text or csBuilder text
If csPrompt.IsInitialized Then
lblPrompt.Text = csPrompt
Else
lblPrompt.textcolor = iPromptTextColour
General.RunLog("Dialog.Show, lblPrompt.textcolor: " & lblPrompt.TextColor)
lblPrompt.Text = strPrompt
End If
End If
' iInputMode
'-----------------------
'-1 no inputbox
'0 no passsword
'1 password, not hidden
'2 password, hidden
If iInputMode > -1 Then
edtInput.Visible = True
Else
edtInput.Visible = False
End If
If iInPutLines > 1 Then
edtInput.SetTextAlignment("TOP", "LEFT")
End If
If iInputMode > 0 Then
chkShowPW.Visible = True
chkShowPW.Color = Colors.ARGB(0, 0, 0, 0) 'zero alpha, so transparent
bPassWord = True
Else
chkShowPW.Visible = False
bPassWord = False
End If
'set dialog controls size and position
'-------------------------------------
edt = edtInput
img = imgIcon
lblTitle.Width = pnlDialog.Width - 32dip
If iInputMode > 0 Then
edtInput.Width = pnlDialog.Width - 39dip
chkShowPW.Left = edtInput.Left + edtInput.Width + 1dip
Else
edtInput.Width = pnlDialog.Width - 10dip
End If
lblPrompt.Width = pnlDialog.Width - 10dip
lblTitle.Text = strTitle
If iInputMode = -1 Then
edt.Visible = False
edt.Height = 0
Else
edt.Top = lblTitle.Top + lblTitle.Height + 5dip
edtInput.SetColorAndBorder(Colors.White, 1dip, iBorderColour, 1dip)
'may need to set a maximum height
'--------------------------------
If iInPutLines > 1 Then
iInputHeight = GetInputHeightFromLines(iInPutLines)
edtInput.SetTextAlignment("TOP", "LEFT")
Else
iInputHeight = sUtils.MeasureMultilineTextHeight(edt, strInput)
End If
edtInput.Height = iInputHeight + 4dip
chkShowPW.Top = (edt.Top + edt.Height) - chkShowPW.Height
edtInput.Text = strInput
edt.PasswordMode = (iInputMode = 2)
End If
If csPrompt.IsInitialized Or strPrompt.Length > 0 Then
lblPrompt.Visible = True
Else
lblPrompt.Visible = False
End If
img.Bitmap = General.bmpIcon32
If iInputMode > 0 Then 'Password mode
chkShowPW.Visible = True
chkShowPW.Checked = (iInputMode = 1)
bInputSingleLine = True
Else
chkShowPW.Visible = False
edt.SingleLine = bInputSingleLine 'so we can specify this by setting iInputLines as 1
End If
If bInputSingleLine Then
ime.AddHandleActionEvent(edtInput) 'so Done button on the keyboard will do same as OK dialog button
End If
edt.SingleLine = bInputSingleLine
If lblPrompt.Visible Then
If iInputMode > -1 Then
lblPrompt.Top = edtInput.Top + edtInput.Height + 5dip
Else
lblPrompt.Top = lblTitle.Top + lblTitle.Height + 5dip
End If
If lblPrompt.Text.Length > 0 Then
If csPrompt.IsInitialized Then
iPromptHeight = sUtils.MeasureMultilineTextHeight(lblPrompt, csPrompt)
Else
iPromptHeight = sUtils.MeasureMultilineTextHeight(lblPrompt, lblPrompt.Text)
End If
General.RunLog("SetDialogControls, iPromptHeight: " & iPromptHeight)
lblPrompt.Height = iPromptHeight
End If
End If
General.RunLog("SetDialogControls, pnlDialog.Height: " & pnlDialog.Height)
'------------------------------------------------------------------------------------
'set dialog height
'------------------------------------------------------------------------------------------------------
Dim iButtonRows As Int
If bVerticalButtons Then
iButtonRows = iButtonsToAdd
Else
iButtonRows = 1
End If
If lblPrompt.Visible Then
pnlDialog.Height = lblPrompt.Top + lblPrompt.Height + 10dip + (ButtonHeight + 2dip) * iButtonRows
Else
If edtInput.Visible Then
pnlDialog.Height = edtInput.Top + edtInput.Height + 10dip + (ButtonHeight + 2dip) * iButtonRows
Else
pnlDialog.Height = lblTitle.Top + lblTitle.Height + 10dip + (ButtonHeight + 2dip) * iButtonRows
End If
End If
General.RunLog("SetDialogHeight, pnlDialog.Height: " & pnlDialog.Height)
'---------------------------------------------------------------------------------------------------------
If bHideCurrentScreen Then
Dim Background As B4XView = xui.CreatePanel("background")
Background.Tag = "b4xdialog_background"
If BlurBackground Then
Dim iv As ImageView
iv.Initialize("")
BlurImageView = iv
Background.AddView(BlurImageView, 0, 0, Background.Width, Background.Height)
Background.Color = xui.Color_Transparent
Else
Background.Color = miBackgroundColour
End If
#if B4A
Dim p As Panel = Background
p.Elevation = 4dip
#End If
Parent.AddView(Background, 0, 0, Parent.Width, Parent.Height)
If BlurBackground Then
UpdateBlur
End If
End If
Base = xui.CreatePanel("Base")
Base.Tag = "b4xdialog_Base"
Base.SetColorAndBorder(iDialogColour, 1dip, miBorderColour, 1dip)
Base.RequestFocus
iHeight = pnlDialog.Height + 3dip + 3dip
iWidth = pnlDialog.Width + 2dip
'add the base panel to screen hiding panel or activity
If bHideCurrentScreen Then
Background.AddView(Base, Background.Width / 2 - iWidth / 2, Background.Height / 2 - iHeight / 2, iWidth, iHeight)
Else
Parent.AddView(Base, Parent.Width / 2 - iWidth / 2, Parent.Height / 2 - iHeight / 2, iWidth, iHeight)
End If
bInput = iInputMode > -1
'bVisible = True
For i = 0 To iButtonsToAdd - 1
CreateButton(CStr(arrButtons(i)), -1 - i)
Next
cvs.Initialize(pnlDialog)
cvs.DrawLine(imgIcon.Left + img.Width + 10dip, imgIcon.Top + imgIcon.Height / 2, _
pnlDialog.Width - 10dip, imgIcon.Top + imgIcon.Height / 2, Colors.Blue, 0.5dip)
'cvs.Invalidate
If iInputMode > 0 Then
DrawRect(cvs, chkShowPW.Top + 2, chkShowPW.Left + 16, (chkShowPW.Top + chkShowPW.Height) - 2, (chkShowPW.Left + chkShowPW.Width) - 4, iBorderColour, 1)
End If
cvs.Invalidate
Base.Visible = False
'so pnlDialog gets added to the panel Base here. Could we do away with panel Base?
'---------------------------------------------------------------------------------
Base.AddView(pnlDialog, 1dip, 1dip, pnlDialog.Width, pnlDialog.Height)
Base.SetVisibleAnimated(100, True)
General.RunLog("Show, before Wait For CloseMessage, Base.IsInitialized: " & Base.IsInitialized)
'>>>>>>>>>>>>>>>>>>>>>>
General.RunLog("Dialog.Show, just before Wait For CloseMessage")
Wait For CloseMessage (Result As Int)
General.RunLog("Dialog.Show, just after Wait For CloseMessage")
'<<<<<<<<<<<<<<<<<<<<<<
General.RunLog("Show, after Wait For CloseMessage, Base.IsInitialized: " & Base.IsInitialized)
If bHideCurrentScreen Then
For Each v As B4XView In Background.GetAllViewsRecursive
General.RunLog("Dialog.Show, Background.GetAllViewsRecursive, v.Tag: " & v.Tag)
v.Enabled = False
Next
Else
For Each v As B4XView In Base.GetAllViewsRecursive
General.RunLog("Dialog.Show, Base.GetAllViewsRecursive, v.Tag: " & v.Tag)
v.Enabled = False
Next
End If
Base.SetVisibleAnimated(100, False)
Sleep(100) 'not sure this is needed
If bHideCurrentScreen Then
Background.RemoveViewFromParent
Else
Base.RemoveViewFromParent
End If
General.RunLog("Show, Base removed")
General.RunLog("Show, Result: " & Result)
If Result = xui.DialogResponse_Positive And bInput Then '-1
Return edt.Text
Else
General.RunLog("Show, CStr(arrButtons(" & (Result * -1 - 1) & ")): " & CStr(arrButtons(Result * -1 - 1)))
Return CStr(arrButtons(Result * -1 - 1))
End If
End Sub
Private Sub GetInputHeightFromLines(iLines As Int) As Int
Dim strLines As String
Dim iHeight As Int
strLines = General.MakeString(10, iLines - 1)
iHeight = sUtils.MeasureMultilineTextHeight(edtInput, strLines)
Return iHeight
End Sub
Private Sub CreateButton (Text As String, iCode As Int)
Dim btn As Button
Dim iLeft As Int
Dim iButtonDistance As Int
#if B4i
btn.Initialize("Button", btn.STYLE_SYSTEM)
#else
btn.Initialize("Button")
#End If
If bVerticalButtons Then
btn.Padding = Array As Int(4dip, 0, 4dip, 0)
End If
Dim xbtn As B4XView = btn
xbtn.Text = Text
xbtn.Tag = iCode
xbtn.SetColorAndBorder(miButtonsColour, 0dip, miBorderColour, 2dip)
xbtn.TextColor = miButtonsTextColour
xbtn.Font = xui.CreateDefaultFont(ButtonsTextSize)
If bVerticalButtons Then
xbtn.SetTextAlignment("CENTER", "LEFT")
Else
xbtn.SetTextAlignment("CENTER", "CENTER")
End If
Dim iButtons As Int = Base.NumberOfViews 'nothing was added yet except of buttons
General.RunLog("CreateButton, iButtons: " & iButtons)
If bVerticalButtons Then
Base.AddView(xbtn, 5dip, Base.Height - ((iButtonsToAdd - iButtons)) * (ButtonHeight + 4dip) , ButtonWidth, ButtonHeight)
Else
If iButtons = 0 Then
iLeft = 5dip
Else
iButtonDistance = (Base.Width - ButtonWidth - 10dip) / (iButtonsToAdd - 1)
General.RunLog("CreateButton2, iButtonDistance: " & iButtonDistance)
iLeft = 5dip + iButtonDistance * iButtons + 1
General.RunLog("CreateButton2, iButtonsToAdd - iButtons: " & (iButtonsToAdd - iButtons))
General.RunLog("CreateButton2, iLeft: " & iLeft)
End If
Base.AddView(xbtn, iLeft, Base.Height - ButtonHeight - 4dip, ButtonWidth, ButtonHeight)
End If
If bInput Then
Dim strOutput As String
strOutput = edtInput.Text
End If
If iCode = xui.DialogResponse_Positive And bPassWord Then
If strOutput.Length = 0 Then
'this is needed as .Enabled = False doesn't make it look disabled
xbtn.TextColor = Colors.RGB(128, 128, 128)
xbtn.Enabled = False
End If
End If
If strOutput.Length = 0 And bInput Then
edtInput.RequestFocus
Else
If iCode = xui.DialogResponse_Cancel Then
xbtn.RequestFocus 'does this do anything useful?
End If
End If
End Sub
'Returns one of the Yes, No or Cancel buttons.
Public Sub GetButton (ResultCode As Int) As B4XView
For Each b As B4XView In Base.GetAllViewsRecursive
If b.Tag = ResultCode Then Return b
Next
Return Null
End Sub
Private Sub UpdateBlur
If BlurBackground = False Then Return
Background.Visible = False
Dim source As B4XBitmap = Background.Parent.Snapshot
If source.Width > Background.Width Or source.Height > Background.Height Then
source = source.Crop(0, 0, Background.Width, Background.Height)
End If
Background.Visible = True
BlurImageView.SetLayoutAnimated(0, 0, 0, Background.Width, Background.Height)
Dim blurred As BitmapCreator = Blur(source)
blurred.SetBitmapToImageView(blurred.Bitmap, BlurImageView)
End Sub
Private Sub Blur (bmp As B4XBitmap) As BitmapCreator
Dim n As Long = DateTime.Now
Dim bc As BitmapCreator
Dim ReduceScale As Int = BlurReduceScale
bc.Initialize(bmp.Width / ReduceScale / bmp.Scale, bmp.Height / ReduceScale / bmp.Scale)
bc.CopyPixelsFromBitmap(bmp)
Dim count As Int = 2
Dim clrs(3) As ARGBColor
Dim temp As ARGBColor
Dim m As Int
For steps = 1 To count
For y = 0 To bc.mHeight - 1
For x = 0 To 2
bc.GetARGB(x, y, clrs(x))
Next
SetAvg(bc, 1, y, clrs, temp)
m = 0
For x = 2 To bc.mWidth - 2
bc.GetARGB(x + 1, y, clrs(m))
m = (m + 1) Mod 3
SetAvg(bc, x, y, clrs, temp)
Next
Next
For x = 0 To bc.mWidth - 1
For y = 0 To 2
bc.GetARGB(x, y, clrs(y))
Next
SetAvg(bc, x, 1, clrs, temp)
m = 0
For y = 2 To bc.mHeight - 2
bc.GetARGB(x, y + 1, clrs(m))
m = (m + 1) Mod 3
SetAvg(bc, x, y, clrs, temp)
Next
Next
Next
Log("Time: " & (DateTime.Now - n))
Return bc
End Sub
Private Sub SetAvg(bc As BitmapCreator, x As Int, y As Int, clrs() As ARGBColor, temp As ARGBColor)
temp.Initialize
For Each c As ARGBColor In clrs
temp.r = temp.r + c.r
temp.g = temp.g + c.g
temp.b = temp.b + c.b
Next
temp.a = 255
temp.r = temp.r / 3
temp.g = temp.g / 3
temp.b = temp.b / 3
bc.SetARGB(x, y, temp)
End Sub
Sub CStr(o As Object) As String
Return "" & o
End SubThis is in the manifest:
'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: http://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="7" android:targetSdkVersion="26"/>
android:normalScreens="true"
android:smallScreens="true"
android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
SetApplicationAttribute(android:supportsRtl, "true")
'End of default text.
SetApplicationAttribute(android:theme, "@style/MyAppTheme")
SetActivityAttribute(Main, android:windowSoftInputMode, adjustResize)
CreateResource(values, themes.xml,
<resources>
<dimen name="action_button_padding">0dp</dimen>
<style name="MyAppTheme" parent="Theme.AppCompat.Light.DarkActionBar">
<item name="colorPrimary">#FF9800</item>
<item name="colorPrimaryDark">#F57C00</item>
<item name="colorAccent">#FFA726</item>
<item name="windowNoTitle">true</item>
<item name="windowActionBar">false</item>
<item name="windowActionModeOverlay">true</item>
<item name="android:actionButtonStyle">@style/ActionButton</item>
<item name="android:listPreferredItemHeightSmall">30dp</item>
</style>
<style name="ActionButton" parent="@android:style/Widget.ActionButton">
<item name="android
addingStart">0dp</item><item name="android
addingEnd">2dp</item><item name="android:minWidth">2dp</item>
<item name="android:drawablePadding">@dimen/action_button_padding</item>
</style>
</resources>
)
RBS
