http://openoffice.org/bugzilla/show_bug.cgi?id=117891
Issue Type: DEFECT
Summary: The button face of Dialog/SpinButton is wrong in
XP-style.
Classification: Code
Product: framework
Version: OOo 3.3
Platform: PC
OS/Version: Windows XP
Status: UNCONFIRMED
Severity: enhancement
Priority: P3
Component: code
AssignedTo: [email protected]
ReportedBy: [email protected]
QAContact: [email protected]
In the case of "window-style : XP-style ",
the button face of SpinButton (com.sun.star.awt.UnoControlSpinButton) becomes
strange.
(1) Orientation = 0 (Horizontal)
The direction of the arrow is an inner direction.
(2) Orientation = 1 (Vertical)
The button face of the lower arrow is a striped pattern.
The direction of the striped pattern changes in blue and silver /
olive-green.
Please refer to an attached image.
Sub Main
Dim oDialog As Object
Dim oDialogModel As Object
Dim oSpin1 As Object
Dim oSpin1Model As Object
Dim oSpin2 As Object
Dim oSpin2Model As Object
Dim oSpinBase As Object
DialogLibraries.LoadLibrary("Standard")
oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
oDialogModel = oDialog.Model
oSpinBase = oDialog.getControl("Label1")
oSpin1Model = CreateUnoService("com.sun.star.awt.UnoControlSpinButtonModel")
oSpin1 = CreateUnoService("com.sun.star.awt.UnoControlSpinButton")
With oSpin1Model
.Orientation = 0 ' Horizontal
.SpinValueMin = 0
.SpinValueMax = 100
.SpinValue = 50
End With
oSpin1.setModel(oSpin1Model)
oSpin1.createPeer(oSpinBase.Peer.Toolkit, oSpinBase.Peer)
oSpin1.setPosSize( 0, 0, oSpinBase.PosSize.Width, _
oSpinBase.PosSize.Height, _
com.sun.star.awt.PosSize.POSSIZE )
oSpinBase = oDialog.getControl("Label2")
oSpin2Model = CreateUnoService("com.sun.star.awt.UnoControlSpinButtonModel")
oSpin2 = CreateUnoService("com.sun.star.awt.UnoControlSpinButton")
With oSpin2Model
.Orientation = 1 ' Vertical
.SpinValueMin = 0
.SpinValueMax = 100
.SpinValue = 50
End With
oSpin2.setModel(oSpin2Model)
oSpin2.createPeer(oSpinBase.Peer.Toolkit, oSpinBase.Peer)
oSpin2.setPosSize( 0, 0, oSpinBase.PosSize.Width, _
oSpinBase.PosSize.Height, _
com.sun.star.awt.PosSize.POSSIZE )
oDialog.Execute()
oDialog.dispose()
End Sub
--
Configure bugmail: http://openoffice.org/bugzilla/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the QA contact for the bug.
---------------------------------------------------------------------
Please do not reply to this automatically generated notification
from Bugzilla. Please log into the website and enter your comments.
---------------------------------------------------------------------
--
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help
--
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help
