peacemaker Expert Licensed User Longtime User Dec 2, 2017 #1 HI, All How to get (or better and change) the background color of the system part of the custom dialog - container of the title ? Buttons are controllable: Code: Copy Dim but As Button = DetailsDialog.GetButton(DialogResponse.POSITIVE) Dim container As Panel = but.Parent container.Color = Colors.White But what about the title ?
HI, All How to get (or better and change) the background color of the system part of the custom dialog - container of the title ? Buttons are controllable: Code: Copy Dim but As Button = DetailsDialog.GetButton(DialogResponse.POSITIVE) Dim container As Panel = but.Parent container.Color = Colors.White But what about the title ?
peacemaker Expert Licensed User Longtime User Dec 2, 2017 #2 SOLVED with a trick: Code: Copy Dim but As Button = DetailsDialog.GetButton(DialogResponse.POSITIVE) Dim container As Panel = but.Parent container.Color = Colors.White Color_All(container) Dim container1 As Panel = container.Parent container1.Color = Colors.White Color_All(container1) Dim container2 As Panel = container1.Parent container2.Color = Colors.White Color_All(container2) End sub Sub Color_All(p As Panel) For Each v As View In p.GetAllViewsRecursive v.Color = Colors.White Next End Sub Upvote 0
SOLVED with a trick: Code: Copy Dim but As Button = DetailsDialog.GetButton(DialogResponse.POSITIVE) Dim container As Panel = but.Parent container.Color = Colors.White Color_All(container) Dim container1 As Panel = container.Parent container1.Color = Colors.White Color_All(container1) Dim container2 As Panel = container1.Parent container2.Color = Colors.White Color_All(container2) End sub Sub Color_All(p As Panel) For Each v As View In p.GetAllViewsRecursive v.Color = Colors.White Next End Sub
Emme Developer Well-Known Member Licensed User Longtime User Dec 2, 2017 #3 peacemaker said: SOLVED with a trick: Click to expand... You can also do this: Code: Copy Dim cd As InputDialog ..... Dim sf As JavaObject = cd.ShowAsync("","","Ok","","Annulla",Null,True) Dim cs As CSBuilder sf.RunMethod("setTitle", Array(cs.Initialize.Color(Color.azzurro).Append("Title").PopAll)) Upvote 0
peacemaker said: SOLVED with a trick: Click to expand... You can also do this: Code: Copy Dim cd As InputDialog ..... Dim sf As JavaObject = cd.ShowAsync("","","Ok","","Annulla",Null,True) Dim cs As CSBuilder sf.RunMethod("setTitle", Array(cs.Initialize.Color(Color.azzurro).Append("Title").PopAll))