office-gobmx/basic/source/runtime/inputbox.cxx
2011-03-29 21:40:28 +01:00

196 lines
6.1 KiB
C++

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*************************************************************************
*
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* Copyright 2000, 2010 Oracle and/or its affiliates.
*
* OpenOffice.org - a multi-platform office productivity suite
*
* This file is part of OpenOffice.org.
*
* OpenOffice.org is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License version 3
* only, as published by the Free Software Foundation.
*
* OpenOffice.org is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License version 3 for more details
* (a copy is included in the LICENSE file that accompanied this code).
*
* You should have received a copy of the GNU Lesser General Public License
* version 3 along with OpenOffice.org. If not, see
* <http://www.openoffice.org/license.html>
* for a copy of the LGPLv3 License.
*
************************************************************************/
// MARKER(update_precomp.py): autogen include statement, do not remove
#include "precompiled_basic.hxx"
#include <vcl/button.hxx>
#include <vcl/fixed.hxx>
#include <vcl/edit.hxx>
#include <vcl/dialog.hxx>
#include <vcl/svapp.hxx>
#include "runtime.hxx"
#include "stdobj.hxx"
#include "rtlproto.hxx"
class SvRTLInputBox : public ModalDialog
{
Edit aEdit;
OKButton aOk;
CancelButton aCancel;
FixedText aPromptText;
String aText;
void PositionDialog( long nXTwips, long nYTwips, const Size& rDlgSize );
void InitButtons( const Size& rDlgSize );
void PositionEdit( const Size& rDlgSize );
void PositionPrompt( const String& rPrompt, const Size& rDlgSize );
DECL_LINK( OkHdl, Button * );
DECL_LINK( CancelHdl, Button * );
public:
SvRTLInputBox( Window* pParent, const String& rPrompt, const String& rTitle,
const String& rDefault, long nXTwips = -1, long nYTwips = -1 );
String GetText() const { return aText; }
};
SvRTLInputBox::SvRTLInputBox( Window* pParent, const String& rPrompt,
const String& rTitle, const String& rDefault,
long nXTwips, long nYTwips ) :
ModalDialog( pParent,WB_3DLOOK | WB_MOVEABLE | WB_CLOSEABLE ),
aEdit( this, WB_LEFT | WB_BORDER ),
aOk( this ), aCancel( this ), aPromptText( this, WB_WORDBREAK )
{
SetMapMode( MapMode( MAP_APPFONT ) );
Size aDlgSizeApp( 280, 80 );
PositionDialog( nXTwips, nYTwips, aDlgSizeApp );
InitButtons( aDlgSizeApp );
PositionEdit( aDlgSizeApp );
PositionPrompt( rPrompt, aDlgSizeApp );
aOk.Show();
aCancel.Show();
aEdit.Show();
aPromptText.Show();
SetText( rTitle );
Font aFont( GetFont());
Color aColor( GetBackground().GetColor() );
aFont.SetFillColor( aColor );
aEdit.SetFont( aFont );
aEdit.SetText( rDefault );
aEdit.SetSelection( Selection( SELECTION_MIN, SELECTION_MAX ) );
}
void SvRTLInputBox::InitButtons( const Size& rDlgSize )
{
aOk.SetSizePixel( LogicToPixel( Size( 45, 15) ));
aCancel.SetSizePixel( LogicToPixel( Size( 45, 15) ));
Point aPos( rDlgSize.Width()-45-10, 5 );
aOk.SetPosPixel( LogicToPixel( Point(aPos) ));
aPos.Y() += 16;
aCancel.SetPosPixel( LogicToPixel( Point(aPos) ));
aOk.SetClickHdl(LINK(this,SvRTLInputBox, OkHdl));
aCancel.SetClickHdl(LINK(this,SvRTLInputBox,CancelHdl));
}
void SvRTLInputBox::PositionDialog(long nXTwips, long nYTwips, const Size& rDlgSize)
{
SetSizePixel( LogicToPixel(rDlgSize) );
if( nXTwips != -1 && nYTwips != -1 )
{
Point aDlgPosApp( nXTwips, nYTwips );
SetPosPixel( LogicToPixel( aDlgPosApp, MAP_TWIP ) );
}
}
void SvRTLInputBox::PositionEdit( const Size& rDlgSize )
{
aEdit.SetPosPixel( LogicToPixel( Point( 5,rDlgSize.Height()-35)));
aEdit.SetSizePixel( LogicToPixel( Size(rDlgSize.Width()-15,12)));
}
void SvRTLInputBox::PositionPrompt(const String& rPrompt,const Size& rDlgSize)
{
if ( rPrompt.Len() == 0 )
return;
String aText_( rPrompt );
aText_.ConvertLineEnd( LINEEND_CR );
aPromptText.SetPosPixel( LogicToPixel(Point(5,5)));
aPromptText.SetText( aText_ );
Size aSize( rDlgSize );
aSize.Width() -= 70;
aSize.Height() -= 50;
aPromptText.SetSizePixel( LogicToPixel(aSize));
}
IMPL_LINK_INLINE_START( SvRTLInputBox, OkHdl, Button *, pButton )
{
(void)pButton;
aText = aEdit.GetText();
EndDialog( 1 );
return 0;
}
IMPL_LINK_INLINE_END( SvRTLInputBox, OkHdl, Button *, pButton )
IMPL_LINK_INLINE_START( SvRTLInputBox, CancelHdl, Button *, pButton )
{
(void)pButton;
aText.Erase();
EndDialog( 0 );
return 0;
}
IMPL_LINK_INLINE_END( SvRTLInputBox, CancelHdl, Button *, pButton )
// *********************************************************************
// *********************************************************************
// Syntax: String InputBox( Prompt, [Title], [Default] [, nXpos, nYpos ] )
RTLFUNC(InputBox)
{
(void)pBasic;
(void)bWrite;
sal_uIntPtr nArgCount = rPar.Count();
if ( nArgCount < 2 )
StarBASIC::Error( SbERR_BAD_ARGUMENT );
else
{
String aTitle;
String aDefault;
sal_Int32 nX = -1, nY = -1; // zentrieren
const String& rPrompt = rPar.Get(1)->GetString();
if ( nArgCount > 2 && !rPar.Get(2)->IsErr() )
aTitle = rPar.Get(2)->GetString();
if ( nArgCount > 3 && !rPar.Get(3)->IsErr() )
aDefault = rPar.Get(3)->GetString();
if ( nArgCount > 4 )
{
if ( nArgCount != 6 )
{
StarBASIC::Error( SbERR_BAD_ARGUMENT );
return;
}
nX = rPar.Get(4)->GetLong();
nY = rPar.Get(5)->GetLong();
}
SvRTLInputBox *pDlg=new SvRTLInputBox(GetpApp()->GetDefDialogParent(),
rPrompt,aTitle,aDefault,nX,nY);
pDlg->Execute();
rPar.Get(0)->PutString( pDlg->GetText() );
delete pDlg;
}
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */