SMOOTSARA Active Member Licensed User Longtime User Apr 17, 2021 #1 Hi How can I adjust this value? B4X: Dialog.Title = "testtttttttttttt" Dialog.TitleBarColor=Colors.Magenta Dialog.TitleBarHeight=7%y Dialog.BackgroundColor = Colors.White Dialog.BodyTextColor=Colors.Blue Dialog.BorderColor=Colors.Red Dialog.BorderCornersRadius=5%y Dialog.BorderWidth=1%y Dialog.ButtonsColor=Colors.Yellow Dialog.ButtonsHeight=5%y Dialog.ButtonsState = CreateMap("January": 1, "February": 2) Dialog.ButtonsTextColor=Colors.Green Dialog.ButtonsTextColorDisabled=Colors.Black
Hi How can I adjust this value? B4X: Dialog.Title = "testtttttttttttt" Dialog.TitleBarColor=Colors.Magenta Dialog.TitleBarHeight=7%y Dialog.BackgroundColor = Colors.White Dialog.BodyTextColor=Colors.Blue Dialog.BorderColor=Colors.Red Dialog.BorderCornersRadius=5%y Dialog.BorderWidth=1%y Dialog.ButtonsColor=Colors.Yellow Dialog.ButtonsHeight=5%y Dialog.ButtonsState = CreateMap("January": 1, "February": 2) Dialog.ButtonsTextColor=Colors.Green Dialog.ButtonsTextColorDisabled=Colors.Black
Erel B4X founder Staff member Licensed User Longtime User Apr 18, 2021 #2 You are not using ButtonsState correctly. Use SetButtonState instead. Use this code: Code: Dim rs As ResumableSub = Dialog.Show("aaa", "OK", "", "") AfterShow Wait For (rs) Complete (Result As Int) Sub AfterShow Dim jo As JavaObject = Dialog.Base jo.RunMethod("setClipToOutline", Array(True)) End Sub Upvote 0
You are not using ButtonsState correctly. Use SetButtonState instead. Use this code: Code: Dim rs As ResumableSub = Dialog.Show("aaa", "OK", "", "") AfterShow Wait For (rs) Complete (Result As Int) Sub AfterShow Dim jo As JavaObject = Dialog.Base jo.RunMethod("setClipToOutline", Array(True)) End Sub