fix userform data aware control import
Change-Id: I86f5cc0c60bba48eaaf40a3471cc0fb22e5e4b9c
This commit is contained in:
@@ -73,7 +73,8 @@ public:
|
|||||||
const ControlConverter& rConv,
|
const ControlConverter& rConv,
|
||||||
ApiControlType eCtrlType,
|
ApiControlType eCtrlType,
|
||||||
sal_Int32 nCtrlIndex ) const;
|
sal_Int32 nCtrlIndex ) const;
|
||||||
|
inline ::rtl::OUString getControlSource() { return maControlSource; }
|
||||||
|
inline ::rtl::OUString getRowSource() { return maRowSource; }
|
||||||
protected:
|
protected:
|
||||||
OUString maName; ///< Name of the control.
|
OUString maName; ///< Name of the control.
|
||||||
OUString maTag; ///< User defined tag.
|
OUString maTag; ///< User defined tag.
|
||||||
|
@@ -493,6 +493,7 @@ bool VbaFormControl::convertProperties( const Reference< XControlModel >& rxCtrl
|
|||||||
// convert all properties
|
// convert all properties
|
||||||
PropertyMap aPropMap;
|
PropertyMap aPropMap;
|
||||||
mxSiteModel->convertProperties( aPropMap, rConv, mxCtrlModel->getControlType(), nCtrlIndex );
|
mxSiteModel->convertProperties( aPropMap, rConv, mxCtrlModel->getControlType(), nCtrlIndex );
|
||||||
|
rConv.bindToSources( rxCtrlModel, mxSiteModel->getControlSource(), mxSiteModel->getRowSource() );
|
||||||
mxCtrlModel->convertProperties( aPropMap, rConv );
|
mxCtrlModel->convertProperties( aPropMap, rConv );
|
||||||
mxCtrlModel->convertSize( aPropMap, rConv );
|
mxCtrlModel->convertSize( aPropMap, rConv );
|
||||||
PropertySet aPropSet( rxCtrlModel );
|
PropertySet aPropSet( rxCtrlModel );
|
||||||
|
Reference in New Issue
Block a user