mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

calcvba: #164410# improve VBA compatibility implementation in various areas: Excel symbols, MSForms symbols, document and forms event handling

Browse Source
This commit is contained in:
Daniel Rentz [dr]
2011-03-25 10:40:25 +01:00
parent 61879c218d
commit b46dab973c
103 changed files with 3911 additions and 1209 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
basic/source/runtime/methods1.cxx Executable file → Normal file
View File

@@ -1075,6 +1075,10 @@ sal_Bool lcl_ReadSbxVariable( SbxVariable& rVar, SvStream* pStrm,
{
sal_uInt8 aByte;
*pStrm >> aByte;
if( bBinary && SbiRuntime::isVBAEnabled() && aByte == 1 && pStrm->IsEof() )
aByte = 0;
rVar.PutByte( aByte );
}
break;
@@ -1185,7 +1189,8 @@ void PutGet( SbxArray& rPar, sal_Bool bPut )
}
sal_Int16 nFileNo = rPar.Get(1)->GetInteger();
SbxVariable* pVar2 = rPar.Get(2);
sal_Bool bHasRecordNo = (sal_Bool)(pVar2->GetType() != SbxEMPTY);
SbxDataType eType2 = pVar2->GetType();
sal_Bool bHasRecordNo = (sal_Bool)(eType2 != SbxEMPTY && eType2 != SbxERROR);
long nRecordNo = pVar2->GetLong();
if ( nFileNo < 1 || ( bHasRecordNo && nRecordNo < 1 ) )
{