Making gradients able to use theme colors

[Regina Henschel]

Hi Tomaž,

you have started to replace css.rendering.RGBColor by 
css.util.XComplexColor in struct ColorStop in API. I don't see how I can 
then generate a gradient as it is done in the macro example below. How 
does the macro then need to be changed?

Kind regards,
Regina

function getLongColorFromDecColor(aDecColor as 
com.sun.star.rendering.RGBColor) as long
     dim nRed as integer: nRed = CInt(aDecColor.Red * 255.0)
     dim nGreen as integer: nGreen = CInt(aDecColor.Green * 255.0)
     dim nBlue as integer: nBlue = CInt(aDecColor.Blue * 255.0)
     getLongColorFromDecColor = RGB(nRed,nGreen,nBlue)
end function

function createDecColor(nRed as integer, nGreen as integer, nBlue as 
integer) _
             as com.sun.star.rendering.RGBColor
     dim aNewColor as new com.sun.star.rendering.RGBColor
     aNewColor.Red = nRed / 255.0
     aNewColor.Green = nGreen / 255.0
     aNewColor.Blue = nBlue / 255.0
     createDecColor = aNewColor
end function

sub createExampleGradient _
         (oGradient as com.sun.star.awt.Gradient2)
rem Creates a Gradient with three colors
     'Define the colors
     dim aDecStartColor as new com.sun.star.rendering.RGBColor
     aDecStartColor = createDecColor(0, 192, 0)
     dim aDecBetweenColor as new com.sun.star.rendering.RGBColor
     aDecBetweenColor = createDecColor(255, 255, 0)
     dim aDecEndColor as new com.sun.star.rendering.RGBColor
     aDecEndColor = createDecColor(255, 0, 0)

     'Create ColorStops array
     dim aColorStops(2) as new com.sun.star.awt.ColorStop
     dim aStop as new com.sun.star.awt.ColorStop
     aStop.StopColor = aDecStartColor
     aStop.StopOffset = 0
     aColorStops(0) = aStop
     aStop.StopColor = aDecBetweenColor
     aStop.StopOffset = 0.6
     aColorStops(1) = aStop
     aStop.StopColor = aDecEndColor
     aStop.StopOffset = 1
     aColorStops(2) = aStop

     'For start and end we need the 'long' data type in addition
     dim nStartColor as long
     nStartColor = getLongColorFromDecColor(aDecStartColor)
     dim nEndColor as long
     nEndColor = getLongColorFromDecColor(aDecEndColor)

     'Create gradient
     With oGradient
         .ColorStops = aColorStops
         .Style = com.sun.star.awt.GradientStyle.LINEAR
         .StartColor = nStartColor: 'long
         .EndColor = nEndColor: 'long
         .Angle = 0: '1/10 degree
         .Border = 0: 'percent
         .XOffset = 0: 'percent
         .YOffset = 0: 'percent
         .StartIntensity = 100: 'percent
         .EndIntensity = 100: 'percent
         .StepCount = 0: '0=automatic, otherwise in range 3..255
     End With
end sub