OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

The Structure of Drawings 158
Y-coordinate at which the color gradient begins, specified in hundredths of a
millimeter
StartIntensity (Short)
intensity of StartColor as a percentage (in OpenOffice.org Basic, you can also specify
values higher than 100 percent)
EndIntensity (Short)
intensity of EndColor as a percentage (in OpenOffice.org Basic, you can also specify
values higher than 100 percent)
StepCount (Short)
number of color graduations which OpenOffice.org is to calculate for the gradients
The following example demonstrates the use of color gradients with the aid of the
com.sun.star.awt.Gradient
structure:
Dim Doc As Object
Dim Page As Object
Dim RectangleShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Dim Gradient As New com.sun.star.awt.Gradient
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
RectangleShape =
Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
RectangleShape.Position = Point
Gradient.Style = com.sun.star.awt.GradientStyle.LINEAR
Gradient.StartColor = RGB(255,0,0)
Gradient.EndColor = RGB(0,255,0)
Gradient.StartIntensity = 150
Gradient.EndIntensity = 150
Gradient.Angle = 450
Gradient.StepCount = 100
RectangleShape.FillStyle = com.sun.star.drawing.FillStyle.GRADIENT
RectangleShape.FillGradient = Gradient