https://issues.apache.org/ooo/show_bug.cgi?id=123516
Bug ID: 123516 Issue Type: DEFECT Summary: Undocumented and cumbersome css.ui.dialogs.ColorPicker Product: App Dev Version: 3.4.0 Hardware: All OS: All Status: CONFIRMED Severity: normal Priority: P3 Component: api Assignee: issues@openoffice.apache.org Reporter: arie...@apache.org CC: issues@openoffice.apache.org Since 3.4.0 there is a color picker that can be "used" from the API, but it is undocumented and cumbersome, as the following OO Basic code shows: REM ***** BASIC ***** Option Explicit Sub Main Dim oParent as Object Dim oDialog as Object oParent = ThisComponent.getCurrentController().getFrame().getContainerWindow() oDialog = CreateUnoService("com.sun.star.ui.dialogs.ColorPicker") 'the dialog must be initialized with the Parent window oDialog.initialize(Array(oParent)) 'the dialog implements css.beans.XPropertyAccess Dim aProps(1) as new com.sun.star.beans.PropertyValue ' the original selected color aProps(0).Name = "Color" aProps(0).Value = RGB(255,0,0) ' the "mode" is an implementation detail! ' 2 = show control with previous color aProps(1).Name = "Mode" aProps(1).Value = 2 oDialog.setPropertyValues(aProps) 'this is broken oDialog.setTitle("Color Picker API Demo") If oDialog.execute() = com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then ' retrieving the selected color is cumbersome Dim nSelectedColor as Long Dim aPropVals() aPropVals = oDialog.getPropertyValues() Dim n as Long For n = 0 To UBound(aPropVals) If aPropVals(n).Name = "Color" Then nSelectedColor = aPropVals(n).Value Exit For End If Next MsgBox "Selected color: RGB( " & _ CStr(Red(nSelectedColor)) & ", " & _ CStr(Green(nSelectedColor)) & ", " & _ CStr(Blue(nSelectedColor)) & " )" End If End Sub -- You are receiving this mail because: You are on the CC list for the bug. You are the assignee for the bug. You are watching all bug changes.