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
ffaa20a1
Kaydet (Commit)
ffaa20a1
authored
Şub 20, 2014
tarafından
Matúš Kukan
Dosyalara gözat
Seçenekler
Dosyalara Gözat
İndir
Eposta Yamaları
Sade Fark
ScVbaButton -> VbaButton in vbahelper, the same name is in sc/source/ui/vba.
Change-Id: Id85002ba80335a2a7c662cb1189ecabb05bbf8b9
üst
6dd1da10
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
23 additions
and
23 deletions
+23
-23
vbabutton.cxx
vbahelper/source/msforms/vbabutton.cxx
+19
-19
vbabutton.hxx
vbahelper/source/msforms/vbabutton.hxx
+2
-2
vbacontrol.cxx
vbahelper/source/msforms/vbacontrol.cxx
+2
-2
No files found.
vbahelper/source/msforms/vbabutton.cxx
Dosyayı görüntüle @
ffaa20a1
...
...
@@ -25,13 +25,13 @@ using namespace ooo::vba;
const
static
OUString
LABEL
(
"Label"
);
ScVbaButton
::
Sc
VbaButton
(
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
)
:
ButtonImpl_BASE
(
xParent
,
xContext
,
xControl
,
xModel
,
pGeomHelper
)
VbaButton
::
VbaButton
(
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
)
:
ButtonImpl_BASE
(
xParent
,
xContext
,
xControl
,
xModel
,
pGeomHelper
)
{
}
// Attributes
OUString
SAL_CALL
Sc
VbaButton
::
getCaption
()
throw
(
css
::
uno
::
RuntimeException
)
VbaButton
::
getCaption
()
throw
(
css
::
uno
::
RuntimeException
)
{
OUString
Label
;
m_xProps
->
getPropertyValue
(
LABEL
)
>>=
Label
;
...
...
@@ -39,85 +39,85 @@ ScVbaButton::getCaption() throw (css::uno::RuntimeException)
}
void
SAL_CALL
Sc
VbaButton
::
setCaption
(
const
OUString
&
_caption
)
throw
(
::
com
::
sun
::
star
::
uno
::
RuntimeException
)
VbaButton
::
setCaption
(
const
OUString
&
_caption
)
throw
(
::
com
::
sun
::
star
::
uno
::
RuntimeException
)
{
m_xProps
->
setPropertyValue
(
LABEL
,
uno
::
makeAny
(
_caption
)
);
}
sal_Bool
SAL_CALL
Sc
VbaButton
::
getAutoSize
()
throw
(
uno
::
RuntimeException
)
sal_Bool
SAL_CALL
VbaButton
::
getAutoSize
()
throw
(
uno
::
RuntimeException
)
{
return
ScVbaControl
::
getAutoSize
();
}
void
SAL_CALL
Sc
VbaButton
::
setAutoSize
(
sal_Bool
bAutoSize
)
throw
(
uno
::
RuntimeException
)
void
SAL_CALL
VbaButton
::
setAutoSize
(
sal_Bool
bAutoSize
)
throw
(
uno
::
RuntimeException
)
{
ScVbaControl
::
setAutoSize
(
bAutoSize
);
}
sal_Bool
SAL_CALL
Sc
VbaButton
::
getLocked
()
throw
(
uno
::
RuntimeException
)
sal_Bool
SAL_CALL
VbaButton
::
getLocked
()
throw
(
uno
::
RuntimeException
)
{
return
ScVbaControl
::
getLocked
();
}
void
SAL_CALL
Sc
VbaButton
::
setLocked
(
sal_Bool
bLocked
)
throw
(
uno
::
RuntimeException
)
void
SAL_CALL
VbaButton
::
setLocked
(
sal_Bool
bLocked
)
throw
(
uno
::
RuntimeException
)
{
ScVbaControl
::
setLocked
(
bLocked
);
}
sal_Bool
SAL_CALL
Sc
VbaButton
::
getCancel
()
throw
(
uno
::
RuntimeException
)
sal_Bool
SAL_CALL
VbaButton
::
getCancel
()
throw
(
uno
::
RuntimeException
)
{
return
sal_False
;
}
void
SAL_CALL
Sc
VbaButton
::
setCancel
(
sal_Bool
/*bCancel*/
)
throw
(
uno
::
RuntimeException
)
void
SAL_CALL
VbaButton
::
setCancel
(
sal_Bool
/*bCancel*/
)
throw
(
uno
::
RuntimeException
)
{
// #STUB
}
sal_Bool
SAL_CALL
Sc
VbaButton
::
getDefault
()
throw
(
uno
::
RuntimeException
)
sal_Bool
SAL_CALL
VbaButton
::
getDefault
()
throw
(
uno
::
RuntimeException
)
{
// #STUB
return
sal_False
;
}
void
SAL_CALL
Sc
VbaButton
::
setDefault
(
sal_Bool
/*bDefault*/
)
throw
(
uno
::
RuntimeException
)
void
SAL_CALL
VbaButton
::
setDefault
(
sal_Bool
/*bDefault*/
)
throw
(
uno
::
RuntimeException
)
{
// #STUB
}
sal_Int32
SAL_CALL
Sc
VbaButton
::
getBackColor
()
throw
(
uno
::
RuntimeException
)
sal_Int32
SAL_CALL
VbaButton
::
getBackColor
()
throw
(
uno
::
RuntimeException
)
{
return
ScVbaControl
::
getBackColor
();
}
void
SAL_CALL
Sc
VbaButton
::
setBackColor
(
sal_Int32
nBackColor
)
throw
(
uno
::
RuntimeException
)
void
SAL_CALL
VbaButton
::
setBackColor
(
sal_Int32
nBackColor
)
throw
(
uno
::
RuntimeException
)
{
ScVbaControl
::
setBackColor
(
nBackColor
);
}
sal_Int32
SAL_CALL
Sc
VbaButton
::
getForeColor
()
throw
(
uno
::
RuntimeException
)
sal_Int32
SAL_CALL
VbaButton
::
getForeColor
()
throw
(
uno
::
RuntimeException
)
{
return
ScVbaControl
::
getForeColor
();
}
void
SAL_CALL
Sc
VbaButton
::
setForeColor
(
sal_Int32
/*nForeColor*/
)
throw
(
uno
::
RuntimeException
)
void
SAL_CALL
VbaButton
::
setForeColor
(
sal_Int32
/*nForeColor*/
)
throw
(
uno
::
RuntimeException
)
{
// #STUB
}
uno
::
Reference
<
msforms
::
XNewFont
>
SAL_CALL
Sc
VbaButton
::
getFont
()
throw
(
uno
::
RuntimeException
)
uno
::
Reference
<
msforms
::
XNewFont
>
SAL_CALL
VbaButton
::
getFont
()
throw
(
uno
::
RuntimeException
)
{
return
new
VbaNewFont
(
this
,
mxContext
,
m_xProps
);
}
OUString
Sc
VbaButton
::
getServiceImplName
()
VbaButton
::
getServiceImplName
()
{
return
OUString
(
"
Sc
VbaButton"
);
return
OUString
(
"VbaButton"
);
}
uno
::
Sequence
<
OUString
>
Sc
VbaButton
::
getServiceNames
()
VbaButton
::
getServiceNames
()
{
static
uno
::
Sequence
<
OUString
>
aServiceNames
;
if
(
aServiceNames
.
getLength
()
==
0
)
...
...
vbahelper/source/msforms/vbabutton.hxx
Dosyayı görüntüle @
ffaa20a1
...
...
@@ -26,10 +26,10 @@
typedef
cppu
::
ImplInheritanceHelper1
<
ScVbaControl
,
ov
::
msforms
::
XCommandButton
>
ButtonImpl_BASE
;
class
Sc
VbaButton
:
public
ButtonImpl_BASE
class
VbaButton
:
public
ButtonImpl_BASE
{
public
:
Sc
VbaButton
(
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
);
VbaButton
(
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
virtual
OUString
SAL_CALL
getCaption
()
throw
(
css
::
uno
::
RuntimeException
);
virtual
void
SAL_CALL
setCaption
(
const
OUString
&
_caption
)
throw
(
css
::
uno
::
RuntimeException
);
...
...
vbahelper/source/msforms/vbacontrol.cxx
Dosyayı görüntüle @
ffaa20a1
...
...
@@ -624,7 +624,7 @@ void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 /*nTabIndex*/ ) throw (uno::R
if
(
bToggle
)
return
new
ScVbaToggleButton
(
xVbaParent
,
xContext
,
xControlShape
,
xModel
,
xGeoHelper
.
release
()
);
else
return
new
Sc
VbaButton
(
xVbaParent
,
xContext
,
xControlShape
,
xModel
,
xGeoHelper
.
release
()
);
return
new
VbaButton
(
xVbaParent
,
xContext
,
xControlShape
,
xModel
,
xGeoHelper
.
release
()
);
}
case
form
:
:
FormComponentType
::
FIXEDTEXT
:
return
new
ScVbaLabel
(
xVbaParent
,
xContext
,
xControlShape
,
xModel
,
xGeoHelper
.
release
()
);
...
...
@@ -672,7 +672,7 @@ void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 /*nTabIndex*/ ) throw (uno::R
if
(
bToggle
)
xVBAControl
.
set
(
new
ScVbaToggleButton
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
else
xVBAControl
.
set
(
new
Sc
VbaButton
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
xVBAControl
.
set
(
new
VbaButton
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
}
else
if
(
xServiceInfo
->
supportsService
(
"com.sun.star.awt.UnoControlComboBoxModel"
)
)
xVBAControl
.
set
(
new
ScVbaComboBox
(
xVbaParent
,
xContext
,
xControl
,
xModel
,
xGeoHelper
.
release
()
)
);
...
...
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