Skip to content
Projeler
Gruplar
Parçacıklar
Yardım
Yükleniyor...
Oturum aç / Kaydol
Gezinmeyi değiştir
C
core
Proje
Proje
Ayrıntılar
Etkinlik
Cycle Analytics
Depo (repository)
Depo (repository)
Dosyalar
Kayıtlar (commit)
Dallar (branch)
Etiketler
Katkıda bulunanlar
Grafik
Karşılaştır
Grafikler
Konular (issue)
0
Konular (issue)
0
Liste
Pano
Etiketler
Kilometre Taşları
Birleştirme (merge) Talepleri
0
Birleştirme (merge) Talepleri
0
CI / CD
CI / CD
İş akışları (pipeline)
İşler
Zamanlamalar
Grafikler
Paketler
Paketler
Wiki
Wiki
Parçacıklar
Parçacıklar
Üyeler
Üyeler
Collapse sidebar
Close sidebar
Etkinlik
Grafik
Grafikler
Yeni bir konu (issue) oluştur
İşler
Kayıtlar (commit)
Konu (issue) Panoları
Kenar çubuğunu aç
LibreOffice
core
Commits
b0772418
Kaydet (Commit)
b0772418
authored
Agu 30, 2012
tarafından
Stephan Bergmann
Dosyalara gözat
Seçenekler
Dosyalara Gözat
İndir
Eposta Yamaları
Sade Fark
-Werror,-Wunused-private-field (Clang towards 3.2)
Change-Id: I2342c6fa614ffbd805c3606de20e080e677fce28
üst
07f44bfd
Hide whitespace changes
Inline
Side-by-side
Showing
8 changed files
with
10 additions
and
17 deletions
+10
-17
vbashaperange.hxx
vbahelper/inc/vbahelper/vbashaperange.hxx
+0
-1
vbacombobox.cxx
vbahelper/source/msforms/vbacombobox.cxx
+1
-1
vbacombobox.hxx
vbahelper/source/msforms/vbacombobox.hxx
+1
-2
vbacontrol.cxx
vbahelper/source/msforms/vbacontrol.cxx
+1
-1
vbacommandbar.cxx
vbahelper/source/vbahelper/vbacommandbar.cxx
+1
-1
vbacommandbar.hxx
vbahelper/source/vbahelper/vbacommandbar.hxx
+1
-2
vbacommandbars.cxx
vbahelper/source/vbahelper/vbacommandbars.cxx
+4
-8
vbashaperange.cxx
vbahelper/source/vbahelper/vbashaperange.cxx
+1
-1
No files found.
vbahelper/inc/vbahelper/vbashaperange.hxx
Dosyayı görüntüle @
b0772418
...
@@ -33,7 +33,6 @@ class VBAHELPER_DLLPUBLIC ScVbaShapeRange : public ScVbaShapeRange_BASE
...
@@ -33,7 +33,6 @@ class VBAHELPER_DLLPUBLIC ScVbaShapeRange : public ScVbaShapeRange_BASE
private
:
private
:
css
::
uno
::
Reference
<
css
::
drawing
::
XDrawPage
>
m_xDrawPage
;
css
::
uno
::
Reference
<
css
::
drawing
::
XDrawPage
>
m_xDrawPage
;
css
::
uno
::
Reference
<
css
::
drawing
::
XShapes
>
m_xShapes
;
css
::
uno
::
Reference
<
css
::
drawing
::
XShapes
>
m_xShapes
;
sal_Int32
m_nShapeGroupCount
;
protected
:
protected
:
css
::
uno
::
Reference
<
css
::
frame
::
XModel
>
m_xModel
;
css
::
uno
::
Reference
<
css
::
frame
::
XModel
>
m_xModel
;
virtual
rtl
::
OUString
getServiceImplName
();
virtual
rtl
::
OUString
getServiceImplName
();
...
...
vbahelper/source/msforms/vbacombobox.cxx
Dosyayı görüntüle @
b0772418
...
@@ -41,7 +41,7 @@ const static rtl::OUString TEXT( RTL_CONSTASCII_USTRINGPARAM("Text") );
...
@@ -41,7 +41,7 @@ const static rtl::OUString TEXT( RTL_CONSTASCII_USTRINGPARAM("Text") );
const
static
rtl
::
OUString
ITEMS
(
RTL_CONSTASCII_USTRINGPARAM
(
"StringItemList"
)
);
const
static
rtl
::
OUString
ITEMS
(
RTL_CONSTASCII_USTRINGPARAM
(
"StringItemList"
)
);
const
static
rtl
::
OUString
CONTROLSOURCEPROP
(
RTL_CONSTASCII_USTRINGPARAM
(
"DataFieldProperty"
)
);
const
static
rtl
::
OUString
CONTROLSOURCEPROP
(
RTL_CONSTASCII_USTRINGPARAM
(
"DataFieldProperty"
)
);
ScVbaComboBox
::
ScVbaComboBox
(
const
uno
::
Reference
<
XHelperInterface
>&
xParent
,
const
uno
::
Reference
<
uno
::
XComponentContext
>&
xContext
,
const
uno
::
Reference
<
uno
::
XInterface
>&
xControl
,
const
uno
::
Reference
<
frame
::
XModel
>&
xModel
,
AbstractGeometryAttributes
*
pGeomHelper
,
bool
bDialogType
)
:
ComboBoxImpl_BASE
(
xParent
,
xContext
,
xControl
,
xModel
,
pGeomHelper
),
mbDialogType
(
bDialogType
)
ScVbaComboBox
::
ScVbaComboBox
(
const
uno
::
Reference
<
XHelperInterface
>&
xParent
,
const
uno
::
Reference
<
uno
::
XComponentContext
>&
xContext
,
const
uno
::
Reference
<
uno
::
XInterface
>&
xControl
,
const
uno
::
Reference
<
frame
::
XModel
>&
xModel
,
AbstractGeometryAttributes
*
pGeomHelper
)
:
ComboBoxImpl_BASE
(
xParent
,
xContext
,
xControl
,
xModel
,
pGeomHelper
)
{
{
mpListHelper
.
reset
(
new
ListControlHelper
(
m_xProps
)
);
mpListHelper
.
reset
(
new
ListControlHelper
(
m_xProps
)
);
try
try
...
...
vbahelper/source/msforms/vbacombobox.hxx
Dosyayı görüntüle @
b0772418
...
@@ -37,10 +37,9 @@ class ScVbaComboBox : public ComboBoxImpl_BASE
...
@@ -37,10 +37,9 @@ class ScVbaComboBox : public ComboBoxImpl_BASE
std
::
auto_ptr
<
ListControlHelper
>
mpListHelper
;
std
::
auto_ptr
<
ListControlHelper
>
mpListHelper
;
rtl
::
OUString
sSourceName
;
rtl
::
OUString
sSourceName
;
rtl
::
OUString
msDftPropName
;
rtl
::
OUString
msDftPropName
;
bool
mbDialogType
;
public
:
public
:
ScVbaComboBox
(
const
css
::
uno
::
Reference
<
ov
::
XHelperInterface
>&
xParent
,
const
css
::
uno
::
Reference
<
css
::
uno
::
XComponentContext
>&
xContext
,
const
css
::
uno
::
Reference
<
css
::
uno
::
XInterface
>&
xControl
,
const
css
::
uno
::
Reference
<
css
::
frame
::
XModel
>&
xModel
,
ov
::
AbstractGeometryAttributes
*
pGeomHelper
,
bool
bDialogType
=
false
);
ScVbaComboBox
(
const
css
::
uno
::
Reference
<
ov
::
XHelperInterface
>&
xParent
,
const
css
::
uno
::
Reference
<
css
::
uno
::
XComponentContext
>&
xContext
,
const
css
::
uno
::
Reference
<
css
::
uno
::
XInterface
>&
xControl
,
const
css
::
uno
::
Reference
<
css
::
frame
::
XModel
>&
xModel
,
ov
::
AbstractGeometryAttributes
*
pGeomHelper
);
// Attributes
// Attributes
virtual
css
::
uno
::
Any
SAL_CALL
getListIndex
()
throw
(
css
::
uno
::
RuntimeException
);
virtual
css
::
uno
::
Any
SAL_CALL
getListIndex
()
throw
(
css
::
uno
::
RuntimeException
);
...
...
vbahelper/source/msforms/vbacontrol.cxx
Dosyayı görüntüle @
b0772418
...
@@ -621,7 +621,7 @@ void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 /*nTabIndex*/ ) throw (uno::R
...
@@ -621,7 +621,7 @@ void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 /*nTabIndex*/ ) throw (uno::R
xVBAControl
.
set
(
new
ScVbaButton
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
xVBAControl
.
set
(
new
ScVbaButton
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
}
}
else
if
(
xServiceInfo
->
supportsService
(
rtl
::
OUString
(
"com.sun.star.awt.UnoControlComboBoxModel"
)
)
)
else
if
(
xServiceInfo
->
supportsService
(
rtl
::
OUString
(
"com.sun.star.awt.UnoControlComboBoxModel"
)
)
)
xVBAControl
.
set
(
new
ScVbaComboBox
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
,
true
)
);
xVBAControl
.
set
(
new
ScVbaComboBox
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
else
if
(
xServiceInfo
->
supportsService
(
rtl
::
OUString
(
"com.sun.star.awt.UnoControlListBoxModel"
)
)
)
else
if
(
xServiceInfo
->
supportsService
(
rtl
::
OUString
(
"com.sun.star.awt.UnoControlListBoxModel"
)
)
)
xVBAControl
.
set
(
new
ScVbaListBox
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
xVBAControl
.
set
(
new
ScVbaListBox
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
else
if
(
xServiceInfo
->
supportsService
(
rtl
::
OUString
(
"com.sun.star.awt.UnoControlFixedTextModel"
)
)
)
else
if
(
xServiceInfo
->
supportsService
(
rtl
::
OUString
(
"com.sun.star.awt.UnoControlFixedTextModel"
)
)
)
...
...
vbahelper/source/vbahelper/vbacommandbar.cxx
Dosyayı görüntüle @
b0772418
...
@@ -29,7 +29,7 @@
...
@@ -29,7 +29,7 @@
using
namespace
com
::
sun
::
star
;
using
namespace
com
::
sun
::
star
;
using
namespace
ooo
::
vba
;
using
namespace
ooo
::
vba
;
ScVbaCommandBar
::
ScVbaCommandBar
(
const
uno
::
Reference
<
ov
::
XHelperInterface
>
xParent
,
const
uno
::
Reference
<
uno
::
XComponentContext
>
xContext
,
VbaCommandBarHelperRef
pHelper
,
const
uno
::
Reference
<
container
::
XIndexAccess
>&
xBarSettings
,
const
rtl
::
OUString
&
sResourceUrl
,
sal_Bool
bIsMenu
,
sal_Bool
bTemporary
)
throw
(
uno
::
RuntimeException
)
:
CommandBar_BASE
(
xParent
,
xContext
),
pCBarHelper
(
pHelper
),
m_xBarSettings
(
xBarSettings
),
m_sResourceUrl
(
sResourceUrl
),
m_bIsMenu
(
bIsMenu
),
m_bTemporary
(
bTemporary
)
ScVbaCommandBar
::
ScVbaCommandBar
(
const
uno
::
Reference
<
ov
::
XHelperInterface
>
xParent
,
const
uno
::
Reference
<
uno
::
XComponentContext
>
xContext
,
VbaCommandBarHelperRef
pHelper
,
const
uno
::
Reference
<
container
::
XIndexAccess
>&
xBarSettings
,
const
rtl
::
OUString
&
sResourceUrl
,
sal_Bool
bIsMenu
)
throw
(
uno
::
RuntimeException
)
:
CommandBar_BASE
(
xParent
,
xContext
),
pCBarHelper
(
pHelper
),
m_xBarSettings
(
xBarSettings
),
m_sResourceUrl
(
sResourceUrl
),
m_bIsMenu
(
bIsMenu
)
{
{
}
}
...
...
vbahelper/source/vbahelper/vbacommandbar.hxx
Dosyayı görüntüle @
b0772418
...
@@ -39,10 +39,9 @@ private:
...
@@ -39,10 +39,9 @@ private:
css
::
uno
::
Reference
<
css
::
container
::
XIndexAccess
>
m_xBarSettings
;
css
::
uno
::
Reference
<
css
::
container
::
XIndexAccess
>
m_xBarSettings
;
rtl
::
OUString
m_sResourceUrl
;
rtl
::
OUString
m_sResourceUrl
;
sal_Bool
m_bIsMenu
;
sal_Bool
m_bIsMenu
;
sal_Bool
m_bTemporary
;
public
:
public
:
ScVbaCommandBar
(
const
css
::
uno
::
Reference
<
ov
::
XHelperInterface
>
xParent
,
const
css
::
uno
::
Reference
<
css
::
uno
::
XComponentContext
>
xContext
,
VbaCommandBarHelperRef
pHelper
,
const
css
::
uno
::
Reference
<
css
::
container
::
XIndexAccess
>&
xBarSettings
,
const
rtl
::
OUString
&
sResourceUrl
,
sal_Bool
bIsMenu
,
sal_Bool
bTemporary
=
sal_True
)
throw
(
css
::
uno
::
RuntimeException
);
ScVbaCommandBar
(
const
css
::
uno
::
Reference
<
ov
::
XHelperInterface
>
xParent
,
const
css
::
uno
::
Reference
<
css
::
uno
::
XComponentContext
>
xContext
,
VbaCommandBarHelperRef
pHelper
,
const
css
::
uno
::
Reference
<
css
::
container
::
XIndexAccess
>&
xBarSettings
,
const
rtl
::
OUString
&
sResourceUrl
,
sal_Bool
bIsMenu
)
throw
(
css
::
uno
::
RuntimeException
);
sal_Bool
IsMenu
()
const
{
return
m_bIsMenu
;
}
sal_Bool
IsMenu
()
const
{
return
m_bIsMenu
;
}
...
...
vbahelper/source/vbahelper/vbacommandbars.cxx
Dosyayı görüntüle @
b0772418
...
@@ -62,7 +62,7 @@ public:
...
@@ -62,7 +62,7 @@ public:
if
(
sResourceUrl
.
indexOf
(
"private:resource/toolbar/"
)
!=
-
1
)
if
(
sResourceUrl
.
indexOf
(
"private:resource/toolbar/"
)
!=
-
1
)
{
{
uno
::
Reference
<
container
::
XIndexAccess
>
xCBarSetting
=
m_pCBarHelper
->
getSettings
(
sResourceUrl
);
uno
::
Reference
<
container
::
XIndexAccess
>
xCBarSetting
=
m_pCBarHelper
->
getSettings
(
sResourceUrl
);
uno
::
Reference
<
XCommandBar
>
xCommandBar
(
new
ScVbaCommandBar
(
m_xParent
,
m_xContext
,
m_pCBarHelper
,
xCBarSetting
,
sResourceUrl
,
sal_False
,
sal_False
)
);
uno
::
Reference
<
XCommandBar
>
xCommandBar
(
new
ScVbaCommandBar
(
m_xParent
,
m_xContext
,
m_pCBarHelper
,
xCBarSetting
,
sResourceUrl
,
sal_False
)
);
}
}
else
else
return
nextElement
();
return
nextElement
();
...
@@ -144,7 +144,7 @@ ScVbaCommandBars::createCollectionObject( const uno::Any& aSource )
...
@@ -144,7 +144,7 @@ ScVbaCommandBars::createCollectionObject( const uno::Any& aSource )
if
(
!
sResourceUrl
.
isEmpty
()
)
if
(
!
sResourceUrl
.
isEmpty
()
)
{
{
xBarSettings
=
m_pCBarHelper
->
getSettings
(
sResourceUrl
);
xBarSettings
=
m_pCBarHelper
->
getSettings
(
sResourceUrl
);
aRet
<<=
uno
::
Reference
<
XCommandBar
>
(
new
ScVbaCommandBar
(
this
,
mxContext
,
m_pCBarHelper
,
xBarSettings
,
sResourceUrl
,
bMenu
,
sal_False
)
);
aRet
<<=
uno
::
Reference
<
XCommandBar
>
(
new
ScVbaCommandBar
(
this
,
mxContext
,
m_pCBarHelper
,
xBarSettings
,
sResourceUrl
,
bMenu
)
);
}
}
if
(
!
aRet
.
hasValue
()
)
if
(
!
aRet
.
hasValue
()
)
...
@@ -155,7 +155,7 @@ ScVbaCommandBars::createCollectionObject( const uno::Any& aSource )
...
@@ -155,7 +155,7 @@ ScVbaCommandBars::createCollectionObject( const uno::Any& aSource )
// XCommandBars
// XCommandBars
uno
::
Reference
<
XCommandBar
>
SAL_CALL
uno
::
Reference
<
XCommandBar
>
SAL_CALL
ScVbaCommandBars
::
Add
(
const
css
::
uno
::
Any
&
Name
,
const
css
::
uno
::
Any
&
/*Position*/
,
const
css
::
uno
::
Any
&
/*MenuBar*/
,
const
css
::
uno
::
Any
&
Temporary
)
throw
(
css
::
script
::
BasicErrorException
,
css
::
uno
::
RuntimeException
)
ScVbaCommandBars
::
Add
(
const
css
::
uno
::
Any
&
Name
,
const
css
::
uno
::
Any
&
/*Position*/
,
const
css
::
uno
::
Any
&
/*MenuBar*/
,
const
css
::
uno
::
Any
&
/*Temporary*/
)
throw
(
css
::
script
::
BasicErrorException
,
css
::
uno
::
RuntimeException
)
{
{
// FIXME: only support to add Toolbar
// FIXME: only support to add Toolbar
// Position - MsoBar MenuBar - sal_Bool
// Position - MsoBar MenuBar - sal_Bool
...
@@ -176,13 +176,9 @@ ScVbaCommandBars::Add( const css::uno::Any& Name, const css::uno::Any& /*Positio
...
@@ -176,13 +176,9 @@ ScVbaCommandBars::Add( const css::uno::Any& Name, const css::uno::Any& /*Positio
sName
=
rtl
::
OUString
(
"Custom1"
);
sName
=
rtl
::
OUString
(
"Custom1"
);
}
}
sal_Bool
bTemporary
=
sal_False
;
if
(
Temporary
.
hasValue
()
)
Temporary
>>=
bTemporary
;
sResourceUrl
=
VbaCommandBarHelper
::
generateCustomURL
();
sResourceUrl
=
VbaCommandBarHelper
::
generateCustomURL
();
uno
::
Reference
<
container
::
XIndexAccess
>
xBarSettings
(
m_pCBarHelper
->
getSettings
(
sResourceUrl
),
uno
::
UNO_QUERY_THROW
);
uno
::
Reference
<
container
::
XIndexAccess
>
xBarSettings
(
m_pCBarHelper
->
getSettings
(
sResourceUrl
),
uno
::
UNO_QUERY_THROW
);
uno
::
Reference
<
XCommandBar
>
xCBar
(
new
ScVbaCommandBar
(
this
,
mxContext
,
m_pCBarHelper
,
xBarSettings
,
sResourceUrl
,
sal_False
,
bTemporary
)
);
uno
::
Reference
<
XCommandBar
>
xCBar
(
new
ScVbaCommandBar
(
this
,
mxContext
,
m_pCBarHelper
,
xBarSettings
,
sResourceUrl
,
sal_False
)
);
xCBar
->
setName
(
sName
);
xCBar
->
setName
(
sName
);
return
xCBar
;
return
xCBar
;
}
}
...
...
vbahelper/source/vbahelper/vbashaperange.cxx
Dosyayı görüntüle @
b0772418
...
@@ -47,7 +47,7 @@ public:
...
@@ -47,7 +47,7 @@ public:
};
};
ScVbaShapeRange
::
ScVbaShapeRange
(
const
uno
::
Reference
<
XHelperInterface
>&
xParent
,
const
uno
::
Reference
<
uno
::
XComponentContext
>&
xContext
,
const
uno
::
Reference
<
container
::
XIndexAccess
>&
xShapes
,
const
uno
::
Reference
<
drawing
::
XDrawPage
>&
xDrawPage
,
const
uno
::
Reference
<
frame
::
XModel
>&
xModel
)
:
ScVbaShapeRange_BASE
(
xParent
,
xContext
,
xShapes
),
m_xDrawPage
(
xDrawPage
),
m_
nShapeGroupCount
(
0
),
m_
xModel
(
xModel
)
ScVbaShapeRange
::
ScVbaShapeRange
(
const
uno
::
Reference
<
XHelperInterface
>&
xParent
,
const
uno
::
Reference
<
uno
::
XComponentContext
>&
xContext
,
const
uno
::
Reference
<
container
::
XIndexAccess
>&
xShapes
,
const
uno
::
Reference
<
drawing
::
XDrawPage
>&
xDrawPage
,
const
uno
::
Reference
<
frame
::
XModel
>&
xModel
)
:
ScVbaShapeRange_BASE
(
xParent
,
xContext
,
xShapes
),
m_xDrawPage
(
xDrawPage
),
m_xModel
(
xModel
)
{
{
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment