forked from amazingfate/loongoffice
106ea87205
...which was introduced with 3ead3ad52f9bb2f9d1d6cf8dfc73a0a25e6778ed "Gradually typed Link" to distinguish the new, typed versions from the old, untyped ones, but is no longer necessary since 382eb1a23c390154619c385414bdbe6f6e461173 "remove untyped Link<>" removed the old versions. Change-Id: I494025df486a16a45861fcd8192dfe0275b1103c
404 lines
13 KiB
C++
404 lines
13 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
*/
|
|
|
|
#include <sfx2/dispatch.hxx>
|
|
#include <svl/zforlist.hxx>
|
|
#include <svl/undo.hxx>
|
|
#include <comphelper/random.hxx>
|
|
#include "rangelst.hxx"
|
|
#include "scitems.hxx"
|
|
#include "docsh.hxx"
|
|
#include "document.hxx"
|
|
#include "uiitems.hxx"
|
|
#include "reffact.hxx"
|
|
#include "strload.hxx"
|
|
#include "docfunc.hxx"
|
|
#include "StatisticsDialogs.hrc"
|
|
|
|
#include "SamplingDialog.hxx"
|
|
|
|
ScSamplingDialog::ScSamplingDialog(
|
|
SfxBindings* pSfxBindings, SfxChildWindow* pChildWindow,
|
|
vcl::Window* pParent, ScViewData* pViewData ) :
|
|
ScAnyRefDlg ( pSfxBindings, pChildWindow, pParent,
|
|
"SamplingDialog", "modules/scalc/ui/samplingdialog.ui" ),
|
|
mpActiveEdit ( nullptr ),
|
|
mViewData ( pViewData ),
|
|
mDocument ( pViewData->GetDocument() ),
|
|
mInputRange ( ScAddress::INITIALIZE_INVALID ),
|
|
mAddressDetails ( mDocument->GetAddressConvention(), 0, 0 ),
|
|
mOutputAddress ( ScAddress::INITIALIZE_INVALID ),
|
|
mCurrentAddress ( pViewData->GetCurX(), pViewData->GetCurY(), pViewData->GetTabNo() ),
|
|
mDialogLostFocus( false )
|
|
{
|
|
get(mpInputRangeLabel, "input-range-label");
|
|
get(mpInputRangeEdit, "input-range-edit");
|
|
get(mpInputRangeButton, "input-range-button");
|
|
mpInputRangeEdit->SetReferences(this, mpInputRangeLabel);
|
|
mpInputRangeButton->SetReferences(this, mpInputRangeEdit);
|
|
|
|
get(mpOutputRangeLabel, "output-range-label");
|
|
get(mpOutputRangeEdit, "output-range-edit");
|
|
get(mpOutputRangeButton, "output-range-button");
|
|
mpOutputRangeEdit->SetReferences(this, mpOutputRangeLabel);
|
|
mpOutputRangeButton->SetReferences(this, mpOutputRangeEdit);
|
|
|
|
get(mpSampleSize, "sample-size-spin");
|
|
get(mpPeriod, "period-spin");
|
|
|
|
get(mpRandomMethodRadio, "random-method-radio");
|
|
get(mpPeriodicMethodRadio, "periodic-method-radio");
|
|
|
|
get(mpButtonOk, "ok");
|
|
|
|
Init();
|
|
GetRangeFromSelection();
|
|
}
|
|
|
|
ScSamplingDialog::~ScSamplingDialog()
|
|
{
|
|
disposeOnce();
|
|
}
|
|
|
|
void ScSamplingDialog::dispose()
|
|
{
|
|
mpInputRangeLabel.clear();
|
|
mpInputRangeEdit.clear();
|
|
mpInputRangeButton.clear();
|
|
mpOutputRangeLabel.clear();
|
|
mpOutputRangeEdit.clear();
|
|
mpOutputRangeButton.clear();
|
|
mpSampleSize.clear();
|
|
mpPeriod.clear();
|
|
mpRandomMethodRadio.clear();
|
|
mpPeriodicMethodRadio.clear();
|
|
mpButtonOk.clear();
|
|
mpActiveEdit.clear();
|
|
ScAnyRefDlg::dispose();
|
|
}
|
|
|
|
void ScSamplingDialog::Init()
|
|
{
|
|
mpButtonOk->SetClickHdl( LINK( this, ScSamplingDialog, OkClicked ) );
|
|
mpButtonOk->Enable(false);
|
|
|
|
Link<Control&,void> aLink = LINK( this, ScSamplingDialog, GetFocusHandler );
|
|
mpInputRangeEdit->SetGetFocusHdl( aLink );
|
|
mpInputRangeButton->SetGetFocusHdl( aLink );
|
|
mpOutputRangeEdit->SetGetFocusHdl( aLink );
|
|
mpOutputRangeButton->SetGetFocusHdl( aLink );
|
|
|
|
aLink = LINK( this, ScSamplingDialog, LoseFocusHandler );
|
|
mpInputRangeEdit->SetLoseFocusHdl( aLink );
|
|
mpInputRangeButton->SetLoseFocusHdl( aLink );
|
|
mpOutputRangeEdit->SetLoseFocusHdl( aLink );
|
|
mpOutputRangeButton->SetLoseFocusHdl( aLink );
|
|
|
|
Link<Edit&,void> aLink2 = LINK( this, ScSamplingDialog, RefInputModifyHandler);
|
|
mpInputRangeEdit->SetModifyHdl( aLink2);
|
|
mpOutputRangeEdit->SetModifyHdl( aLink2);
|
|
|
|
mpSampleSize->SetModifyHdl( LINK( this, ScSamplingDialog, SamplingSizeValueModified ));
|
|
|
|
mpPeriodicMethodRadio->SetToggleHdl( LINK( this, ScSamplingDialog, ToggleSamplingMethod ) );
|
|
mpRandomMethodRadio->SetToggleHdl( LINK( this, ScSamplingDialog, ToggleSamplingMethod ) );
|
|
|
|
mpSampleSize->SetMin( 0 );
|
|
mpSampleSize->SetMax( SAL_MAX_INT64 );
|
|
|
|
mpOutputRangeEdit->GrabFocus();
|
|
mpPeriodicMethodRadio->Check();
|
|
|
|
ToggleSamplingMethod();
|
|
}
|
|
|
|
void ScSamplingDialog::GetRangeFromSelection()
|
|
{
|
|
mViewData->GetSimpleArea(mInputRange);
|
|
OUString aCurrentString(mInputRange.Format(ScRefFlags::RANGE_ABS_3D, mDocument, mAddressDetails));
|
|
mpInputRangeEdit->SetText(aCurrentString);
|
|
}
|
|
|
|
void ScSamplingDialog::SetActive()
|
|
{
|
|
if ( mDialogLostFocus )
|
|
{
|
|
mDialogLostFocus = false;
|
|
if( mpActiveEdit )
|
|
mpActiveEdit->GrabFocus();
|
|
}
|
|
else
|
|
{
|
|
GrabFocus();
|
|
}
|
|
RefInputDone();
|
|
}
|
|
|
|
bool ScSamplingDialog::Close()
|
|
{
|
|
return DoClose( ScSamplingDialogWrapper::GetChildWindowId() );
|
|
}
|
|
|
|
void ScSamplingDialog::SetReference( const ScRange& rReferenceRange, ScDocument* pDocument )
|
|
{
|
|
if ( mpActiveEdit )
|
|
{
|
|
if ( rReferenceRange.aStart != rReferenceRange.aEnd )
|
|
RefInputStart( mpActiveEdit );
|
|
|
|
OUString aReferenceString;
|
|
|
|
if ( mpActiveEdit == mpInputRangeEdit )
|
|
{
|
|
mInputRange = rReferenceRange;
|
|
aReferenceString = mInputRange.Format(ScRefFlags::RANGE_ABS_3D, pDocument, mAddressDetails);
|
|
mpInputRangeEdit->SetRefString( aReferenceString );
|
|
}
|
|
else if ( mpActiveEdit == mpOutputRangeEdit )
|
|
{
|
|
mOutputAddress = rReferenceRange.aStart;
|
|
|
|
ScRefFlags nFormat = ( mOutputAddress.Tab() == mCurrentAddress.Tab() ) ?
|
|
ScRefFlags::ADDR_ABS :
|
|
ScRefFlags::ADDR_ABS_3D;
|
|
aReferenceString = mOutputAddress.Format(nFormat, pDocument, pDocument->GetAddressConvention());
|
|
mpOutputRangeEdit->SetRefString( aReferenceString );
|
|
|
|
// Change sampling size according to output range selection
|
|
sal_Int64 aSelectedSampleSize = rReferenceRange.aEnd.Row() - rReferenceRange.aStart.Row() + 1;
|
|
if (aSelectedSampleSize > 1)
|
|
mpSampleSize->SetValue(aSelectedSampleSize);
|
|
SamplingSizeValueModified(*mpSampleSize);
|
|
}
|
|
}
|
|
|
|
// Enable OK if both, input range and output address are set.
|
|
if (mInputRange.IsValid() && mOutputAddress.IsValid())
|
|
mpButtonOk->Enable();
|
|
}
|
|
|
|
ScRange ScSamplingDialog::PerformPeriodicSampling(ScDocShell* pDocShell)
|
|
{
|
|
ScAddress aStart = mInputRange.aStart;
|
|
ScAddress aEnd = mInputRange.aEnd;
|
|
|
|
SCTAB outTab = mOutputAddress.Tab();
|
|
SCROW outRow = mOutputAddress.Row();
|
|
|
|
sal_Int64 aPeriod = mpPeriod->GetValue();
|
|
|
|
for (SCROW inTab = aStart.Tab(); inTab <= aEnd.Tab(); inTab++)
|
|
{
|
|
SCCOL outCol = mOutputAddress.Col();
|
|
for (SCCOL inCol = aStart.Col(); inCol <= aEnd.Col(); inCol++)
|
|
{
|
|
sal_Int64 i = 0;
|
|
outRow = mOutputAddress.Row();
|
|
for (SCROW inRow = aStart.Row(); inRow <= aEnd.Row(); inRow++)
|
|
{
|
|
if (i % aPeriod == aPeriod - 1 ) // Sample the last of period
|
|
{
|
|
double aValue = mDocument->GetValue(ScAddress(inCol, inRow, inTab));
|
|
pDocShell->GetDocFunc().SetValueCell(ScAddress(outCol, outRow, outTab), aValue, true);
|
|
outRow++;
|
|
}
|
|
i++;
|
|
}
|
|
outCol++;
|
|
}
|
|
outTab++;
|
|
}
|
|
|
|
return ScRange(mOutputAddress, ScAddress(outTab, outRow, outTab) );
|
|
}
|
|
|
|
ScRange ScSamplingDialog::PerformRandomSampling(ScDocShell* pDocShell)
|
|
{
|
|
ScAddress aStart = mInputRange.aStart;
|
|
ScAddress aEnd = mInputRange.aEnd;
|
|
|
|
SCTAB outTab = mOutputAddress.Tab();
|
|
SCROW outRow = mOutputAddress.Row();
|
|
|
|
SCROW inRow;
|
|
|
|
sal_Int64 aSampleSize = mpSampleSize->GetValue();
|
|
|
|
for (SCROW inTab = aStart.Tab(); inTab <= aEnd.Tab(); inTab++)
|
|
{
|
|
SCCOL outCol = mOutputAddress.Col();
|
|
for (SCCOL inCol = aStart.Col(); inCol <= aEnd.Col(); inCol++)
|
|
{
|
|
SCROW aPopulationSize = (aEnd.Row() - aStart.Row()) + 1;
|
|
|
|
outRow = mOutputAddress.Row();
|
|
inRow = aStart.Row();
|
|
|
|
while ((outRow - mOutputAddress.Row()) < aSampleSize)
|
|
{
|
|
double aRandomValue = comphelper::rng::uniform_real_distribution();
|
|
|
|
if ( (aPopulationSize - (inRow - aStart.Row())) * aRandomValue >= aSampleSize - (outRow - mOutputAddress.Row()) )
|
|
{
|
|
inRow++;
|
|
}
|
|
else
|
|
{
|
|
double aValue = mDocument->GetValue( ScAddress(inCol, inRow, inTab) );
|
|
pDocShell->GetDocFunc().SetValueCell(ScAddress(outCol, outRow, outTab), aValue, true);
|
|
inRow++;
|
|
outRow++;
|
|
}
|
|
}
|
|
outCol++;
|
|
}
|
|
outTab++;
|
|
}
|
|
|
|
return ScRange(mOutputAddress, ScAddress(outTab, outRow, outTab) );
|
|
}
|
|
|
|
void ScSamplingDialog::PerformSampling()
|
|
{
|
|
OUString aUndo( SC_STRLOAD( RID_STATISTICS_DLGS, STR_SAMPLING_UNDO_NAME));
|
|
ScDocShell* pDocShell = mViewData->GetDocShell();
|
|
svl::IUndoManager* pUndoManager = pDocShell->GetUndoManager();
|
|
|
|
ScRange aModifiedRange;
|
|
|
|
pUndoManager->EnterListAction( aUndo, aUndo, 0, mViewData->GetViewShell()->GetViewShellId() );
|
|
|
|
if (mpRandomMethodRadio->IsChecked())
|
|
{
|
|
aModifiedRange = PerformRandomSampling(pDocShell);
|
|
}
|
|
else if (mpPeriodicMethodRadio->IsChecked())
|
|
{
|
|
aModifiedRange = PerformPeriodicSampling(pDocShell);
|
|
}
|
|
|
|
pUndoManager->LeaveListAction();
|
|
pDocShell->PostPaint(aModifiedRange, PaintPartFlags::Grid);
|
|
}
|
|
|
|
IMPL_LINK_NOARG( ScSamplingDialog, OkClicked, Button*, void )
|
|
{
|
|
PerformSampling();
|
|
Close();
|
|
}
|
|
|
|
IMPL_LINK( ScSamplingDialog, GetFocusHandler, Control&, rCtrl, void )
|
|
{
|
|
mpActiveEdit = nullptr;
|
|
|
|
if( (&rCtrl == static_cast<Control*>(mpInputRangeEdit)) || (&rCtrl == static_cast<Control*>(mpInputRangeButton)) )
|
|
mpActiveEdit = mpInputRangeEdit;
|
|
else if( (&rCtrl == static_cast<Control*>(mpOutputRangeEdit)) || (&rCtrl == static_cast<Control*>(mpOutputRangeButton)) )
|
|
mpActiveEdit = mpOutputRangeEdit;
|
|
|
|
if( mpActiveEdit )
|
|
mpActiveEdit->SetSelection( Selection( 0, SELECTION_MAX ) );
|
|
}
|
|
|
|
IMPL_LINK_NOARG(ScSamplingDialog, LoseFocusHandler, Control&, void)
|
|
{
|
|
mDialogLostFocus = !IsActive();
|
|
}
|
|
|
|
IMPL_LINK_NOARG(ScSamplingDialog, SamplingSizeValueModified, Edit&, void)
|
|
{
|
|
sal_Int64 aPopulationSize = mInputRange.aEnd.Row() - mInputRange.aStart.Row() + 1;
|
|
if (mpSampleSize->GetValue() > aPopulationSize)
|
|
mpSampleSize->SetValue(aPopulationSize);
|
|
}
|
|
|
|
IMPL_LINK_NOARG(ScSamplingDialog, ToggleSamplingMethod, RadioButton&, void)
|
|
{
|
|
ToggleSamplingMethod();
|
|
}
|
|
|
|
void ScSamplingDialog::ToggleSamplingMethod()
|
|
{
|
|
if (mpRandomMethodRadio->IsChecked())
|
|
{
|
|
mpPeriod->Enable(false);
|
|
mpSampleSize->Enable();
|
|
}
|
|
else if (mpPeriodicMethodRadio->IsChecked())
|
|
{
|
|
mpPeriod->Enable();
|
|
mpSampleSize->Enable(false);
|
|
}
|
|
}
|
|
|
|
IMPL_LINK_NOARG(ScSamplingDialog, RefInputModifyHandler, Edit&, void)
|
|
{
|
|
if ( mpActiveEdit )
|
|
{
|
|
if ( mpActiveEdit == mpInputRangeEdit )
|
|
{
|
|
ScRangeList aRangeList;
|
|
bool bValid = ParseWithNames( aRangeList, mpInputRangeEdit->GetText(), mDocument);
|
|
const ScRange* pRange = (bValid && aRangeList.size() == 1) ? aRangeList[0] : nullptr;
|
|
if (pRange)
|
|
{
|
|
mInputRange = *pRange;
|
|
// Highlight the resulting range.
|
|
mpInputRangeEdit->StartUpdateData();
|
|
}
|
|
else
|
|
{
|
|
mInputRange = ScRange( ScAddress::INITIALIZE_INVALID);
|
|
}
|
|
}
|
|
else if ( mpActiveEdit == mpOutputRangeEdit )
|
|
{
|
|
ScRangeList aRangeList;
|
|
bool bValid = ParseWithNames( aRangeList, mpOutputRangeEdit->GetText(), mDocument);
|
|
const ScRange* pRange = (bValid && aRangeList.size() == 1) ? aRangeList[0] : nullptr;
|
|
if (pRange)
|
|
{
|
|
mOutputAddress = pRange->aStart;
|
|
|
|
// Crop output range to top left address for Edit field.
|
|
if (pRange->aStart != pRange->aEnd)
|
|
{
|
|
ScRefFlags nFormat = ( mOutputAddress.Tab() == mCurrentAddress.Tab() ) ?
|
|
ScRefFlags::ADDR_ABS :
|
|
ScRefFlags::ADDR_ABS_3D;
|
|
OUString aReferenceString = mOutputAddress.Format(nFormat, mDocument, mDocument->GetAddressConvention());
|
|
mpOutputRangeEdit->SetRefString( aReferenceString );
|
|
}
|
|
|
|
// Change sampling size according to output range selection
|
|
sal_Int64 aSelectedSampleSize = pRange->aEnd.Row() - pRange->aStart.Row() + 1;
|
|
if (aSelectedSampleSize > 1)
|
|
mpSampleSize->SetValue(aSelectedSampleSize);
|
|
SamplingSizeValueModified(*mpSampleSize);
|
|
|
|
// Highlight the resulting range.
|
|
mpOutputRangeEdit->StartUpdateData();
|
|
}
|
|
else
|
|
{
|
|
mOutputAddress = ScAddress( ScAddress::INITIALIZE_INVALID);
|
|
}
|
|
}
|
|
}
|
|
|
|
// Enable OK if both, input range and output address are set.
|
|
if (mInputRange.IsValid() && mOutputAddress.IsValid())
|
|
mpButtonOk->Enable();
|
|
else
|
|
mpButtonOk->Disable();
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|