27 const css::uno::Reference< css::uno::XComponentContext >& xContext,
28 uno::Reference< drawing::XShape > xShape )
39 throw uno::RuntimeException(
"Parameter out of range, value is too small." );
43 throw uno::RuntimeException(
"Parameter out of range, value is too high." );
51 sal_Int16 nLuminance = 0;
52 m_xPropertySet->getPropertyValue(
"AdjustLuminance" ) >>= nLuminance;
53 double fBrightness =
static_cast< double >( nLuminance );
54 fBrightness = ( fBrightness +100 ) / 200;
62 double fLuminance = _brightness * 200 - 100;
63 sal_Int16 nLuminance =
static_cast< sal_Int16
>( fLuminance );
70 sal_Int16 nContrast = 0;
71 m_xPropertySet->getPropertyValue(
"AdjustContrast" ) >>= nContrast;
72 double fContrast =
static_cast< double >( nContrast );
73 fContrast = ( fContrast + 100 ) / 200;
81 double fContrast = _contrast * 200 - 100;
82 sal_Int16 nContrast =
static_cast< sal_Int16
>( fContrast );
92 fBrightness += increment;
108 nContrast += increment;
123 return "ScVbaPictureFormat";
126uno::Sequence< OUString >
131 "ooo.vba.msform.PictureFormat"
Sequence< OUString > aServiceNames