mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
c25ec0608a167bcf1d891043f02273761c351701
libreoffice/basic/source/app/dialogs.cxx
Jens-Heiner Rechtien c25ec0608a initial import
2000-09-18 15:18:56 +00:00

1065 lines
32 KiB
C++
Raw Blame History

/*************************************************************************
*
* $RCSfile: dialogs.cxx,v $
*
* $Revision: 1.1.1.1 $
*
* last change: $Author: hr $ $Date: 2000-09-18 16:12:09 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
*
* - GNU Lesser General Public License Version 2.1
* - Sun Industry Standards Source License Version 1.1
*
* Sun Microsystems Inc., October, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library 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 for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
*
* Sun Industry Standards Source License Version 1.1
* =================================================
* The contents of this file are subject to the Sun Industry Standards
* Source License Version 1.1 (the "License"); You may not use this file
* except in compliance with the License. You may obtain a copy of the
* License at http://www.openoffice.org/license.html.
*
* Software provided under this License is provided on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
* See the License for the specific provisions governing your rights and
* obligations concerning the Software.
*
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
*
* Copyright: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************/
#ifndef _SOLAR_H
#include <tools/solar.h>
#endif
HACK( #define protected public )
#define protected public // Kleine Schweinerei um an FreeResource ranzukommen
#ifndef _TOOLS_RC_HXX //autogen
#include <tools/rc.hxx>
#endif
#undef protected
#ifndef _DIALOG_HXX //autogen
#include <vcl/dialog.hxx>
#endif
#ifndef _BUTTON_HXX //autogen
#include <vcl/button.hxx>
#endif
#ifndef _FIXED_HXX //autogen
#include <vcl/fixed.hxx>
#endif
#ifndef _EDIT_HXX //autogen
#include <vcl/edit.hxx>
#endif
#ifndef _CONFIG_HXX //autogen
#include <vcl/config.hxx>
#endif
#ifndef _MSGBOX_HXX //autogen
#include <vcl/msgbox.hxx>
#endif
#ifndef _TOOLS_DEBUG_HXX //autogen
#include <tools/debug.hxx>
#endif
#ifndef _SV_FILEDLG_HXX //autogen
#include <svtools/filedlg.hxx>
#endif
#ifndef _STREAM_HXX //autogen
#include <tools/stream.hxx>
#endif
#ifndef _FSYS_HXX //autogen
#include <tools/fsys.hxx>
#endif
#ifndef _SV_CLIP_HXX //autogen
#include <vcl/clip.hxx>
#endif
#ifndef _SV_SPLITWIN_HXX //autogen
#include <vcl/splitwin.hxx>
#endif
#ifndef _ZFORLIST_HXX //autogen
#include <svtools/zformat.hxx>
#endif
#include <svtools/pver.hxx>
// Ohne Includeschutz
#include <svtools/svtdata.hxx>
#include <svtools/solar.hrc>
#ifndef _BASIC_DISPDEFS_HXX
#include "dispdefs.hxx"
#endif
#include "testtool.hxx"
#include "dialogs.hxx"
#include "resids.hrc"
#include "basic.hrc"
#include "app.hxx"
AboutDialog::AboutDialog( Window* pParent, const ResId& id )
: ModalDialog( pParent, id )
, a1( this, ResId( 1 ) )
, a3( this, ResId( 3 ) )
, a4( this, ResId( 4 ) )
, aVersionString( this, ResId( RID_VERSIONSTRING ) )
//, aIcon( this, ResId( RID_ICON ) )
, aOk ( this, ResId( RID_OK ) )
{
aVersionString.SetText( ProductVersion::GetMajorVersion().Append( ProductVersion::GetMinorVersion() )
.AppendAscii( " BUILD:" ).Append( ProductVersion::GetBuildNumber() ) );
FreeResource();
}
////////////////////////////////////////////////////////////////////
FindDialog::FindDialog( Window* pParent, const ResId& id, String& Text )
: ModalDialog( pParent, id )
, aFT1( this, ResId( RID_FIXEDTEXT1 ) )
, aFind( this, ResId( RID_FIND ) )
, aOk( this, ResId( RID_OK ) )
, aCancel( this, ResId( RID_CANCEL ) )
{
FreeResource();
pFind = &Text;
// Button-Handler:
aOk.SetClickHdl( LINK( this, FindDialog, ButtonClick ) );
aCancel.SetClickHdl( LINK( this, FindDialog, ButtonClick ) );
aFind.SetText( Text );
}
IMPL_LINK_INLINE_START( FindDialog, ButtonClick, Button *, pB )
{
if( pB == &aOk ) {
*pFind = aFind.GetText();
EndDialog( TRUE );
} else EndDialog( FALSE );
return TRUE;
}
IMPL_LINK_INLINE_END( FindDialog, ButtonClick, Button *, pB )
ReplaceDialog::ReplaceDialog(Window* pParent, const ResId& id, String& Old, String& New )
: ModalDialog( pParent, id )
, aFT1( this, ResId( RID_FIXEDTEXT1 ) )
, aFT2( this, ResId( RID_FIXEDTEXT2 ) )
, aFind( this, ResId( RID_FIND ) )
, aReplace(this, ResId( RID_REPLACE ) )
, aOk( this, ResId( RID_OK ) )
, aCancel( this, ResId( RID_CANCEL ) )
{
FreeResource();
pFind = &Old;
pReplace = &New;
// Button-Handler:
aOk.SetClickHdl( LINK( this, ReplaceDialog, ButtonClick ) );
aCancel.SetClickHdl( LINK( this, ReplaceDialog, ButtonClick ) );
aFind.SetText( Old );
aReplace.SetText( New );
}
IMPL_LINK( ReplaceDialog, ButtonClick, Button *, pB )
{
if( pB == &aOk ) {
*pFind = aFind.GetText();
*pReplace = aReplace.GetText();
EndDialog( TRUE );
} else EndDialog( FALSE );
return TRUE;
}
////////////////////////////////////////////////////////////////////
ConfEdit::ConfEdit( Window* pParent, USHORT nResText, USHORT nResEdit, USHORT nResButton, const ByteString& aKN )
: PushButton( pParent, ResId(nResButton) )
, aText( pParent, ResId(nResText) )
, aEdit( pParent, ResId(nResEdit) )
, aKeyName(aKN)
{
Config aConf(Config::GetConfigName( Config::GetDefDirectory(), CUniString("testtool") ));
aConf.SetGroup("Path");
String aTemp = UniString( aConf.ReadKey( aKeyName ), RTL_TEXTENCODING_UTF8 );
aEdit.SetText( aTemp );
}
void ConfEdit::Save()
{
Config aConf(Config::GetConfigName( Config::GetDefDirectory(), CUniString("testtool") ));
aConf.SetGroup("Path");
aConf.WriteKey( aKeyName, ByteString( aEdit.GetText(), RTL_TEXTENCODING_UTF8 ) );
}
void ConfEdit::Click()
{
PathDialog aPD( this );
aPD.SetPath( aEdit.GetText() );
aPD.Execute();
aEdit.SetText( aPD.GetPath() );
}
OptionsDialog::OptionsDialog( Window* pParent, const ResId& aResId )
: ModelessDialog( pParent, aResId )
, aTabCtrl( this, ResId( RES_TC_OPTIONS ) )
, aOK( this, ResId( RID_OK ) )
, aCancel( this, ResId( RID_CANCEL ) )
{
aTabCtrl.FreeResource();
FreeResource();
aTabCtrl.SetActivatePageHdl( LINK( this, OptionsDialog, ActivatePageHdl ) );
aTabCtrl.SetCurPageId( RID_TP_GEN );
ActivatePageHdl( &aTabCtrl );
aOK.SetClickHdl( LINK( this, OptionsDialog, OKClick ) );
}
OptionsDialog::~OptionsDialog()
{
for ( USHORT i = 0; i < aTabCtrl.GetPageCount(); i++ )
delete aTabCtrl.GetTabPage( aTabCtrl.GetPageId( i ) );
};
BOOL OptionsDialog::Close()
{
if ( ModelessDialog::Close() )
{
delete this;
return TRUE;
}
else
return FALSE;
}
IMPL_LINK( OptionsDialog, ActivatePageHdl, TabControl *, pTabCtrl )
{
USHORT nId = pTabCtrl->GetCurPageId();
// Wenn TabPage noch nicht erzeugt wurde, dann erzeugen
if ( !pTabCtrl->GetTabPage( nId ) )
{
TabPage *pNewTabPage = NULL;
switch ( nId )
{
case RID_TP_SPE:
pNewTabPage = new SpecialOptions( pTabCtrl );
break;
case RID_TP_GEN:
pNewTabPage = new GenericOptions( pTabCtrl );
break;
default: DBG_ERROR( "PageHdl: Unbekannte ID!" );
}
DBG_ASSERT( pNewTabPage, "Keine Page!" );
pTabCtrl->SetTabPage( nId, pNewTabPage );
}
return 0;
}
IMPL_LINK( OptionsDialog, OKClick, Button *, pButton )
{
SpecialOptions *pSpecial;
pSpecial = (SpecialOptions*)aTabCtrl.GetTabPage( RID_TP_SPE );
if ( pSpecial )
pSpecial->Save();
GenericOptions *pGeneric;
pGeneric = (GenericOptions*)aTabCtrl.GetTabPage( RID_TP_GEN );
if ( pGeneric )
pGeneric->Save();
Close();
return 0;
}
SpecialOptions::SpecialOptions( Window* pParent )
: TabPage( pParent, ResId( RID_TP_SPECIAL ) )
, aDirs( this, ResId(GB_DIRECTORIES) )
, aLog( this, LOG_TEXT, LOG_NAME, LOG_SET ,"LogBasisverzeichnis" )
, aBasis( this, BASIS_TEXT, BASIS_NAME, BASIS_SET ,"Basisverzeichnis" )
, aHID( this, HID_TEXT, HID_NAME, HID_SET ,"HIDVerzeichnis" )
, aOther( this, ResId(GB_OTHER) )
, aTimeoutText( this, ResId(TIMEOUT_TEXT) )
, aServerTimeout( this, ResId(SERVER_TIMEOUT) )
, aAutoReload( this, ResId(CB_AUTORELOAD) )
{
FreeResource();
Config aConf(Config::GetConfigName( Config::GetDefDirectory(), CUniString("testtool") ));
aConf.SetGroup("Misc");
ByteString aTemp = aConf.ReadKey( "ServerTimeout", "10000" ); // Vorgabe 1 Minute
aServerTimeout.SetTime( Time(aTemp.ToInt32()) );
aTemp = aConf.ReadKey( "AutoReload", "0" );
aAutoReload.Check( aTemp.CompareTo("1") == COMPARE_EQUAL );
}
void SpecialOptions::Save()
{
aLog.Save();
aBasis.Save();
aHID.Save();
Config aConf(Config::GetConfigName( Config::GetDefDirectory(), CUniString("testtool") ));
aConf.SetGroup("Misc");
aConf.WriteKey( "ServerTimeout", ByteString::CreateFromInt32( aServerTimeout.GetTime().GetTime() ) );
aConf.WriteKey( "AutoReload", aAutoReload.IsChecked()?"1":"0" );
((BasicApp*)GetpApp())->LoadIniFile();
}
GenericOptions::GenericOptions( Window* pParent )
: TabPage( pParent, ResId( RID_TP_GENERIC ) )
, aConf( Config::GetConfigName( Config::GetDefDirectory(), CUniString("testtool") ) )
, aGbArea( this, ResId( RID_GB_AREA ) )
, aCbArea( this, ResId( RID_CB_AREA ) )
, aPbNewArea( this, ResId( RID_PB_NEW_AREA ) )
, aPbDelArea( this, ResId( RID_PD_DEL_AREA ) )
, aGbValue( this, ResId( RID_GB_VALUE ) )
, aCbValue( this, ResId( RID_CB_VALUE ) )
, aPbNewValue( this, ResId( RID_PB_NEW_VALUE ) )
, aPbDelValue( this, ResId( RID_PB_DEL_VALUE ) )
{
FreeResource();
DirEntry aDE;
aTempConfName = aDE.TempName().GetFull();
pTempConf = new Config( aTempConfName );
pTempConf->SetGroup("Main");
LoadData();
aCbArea.EnableAutocomplete( TRUE );
aCbValue.EnableAutocomplete( TRUE );
aCbArea.SetSelectHdl( LINK( this, GenericOptions, LoadGroup ) );
aPbNewArea.SetClickHdl( LINK( this, GenericOptions, NewGroup ) );
aPbDelArea.SetClickHdl( LINK( this, GenericOptions, DelGroup ) );
aPbNewValue.SetClickHdl( LINK( this, GenericOptions, NewValue ) );
aPbDelValue.SetClickHdl( LINK( this, GenericOptions, DelValue ) );
aCbArea.SetModifyHdl( LINK( this, GenericOptions, CheckButtonsHdl ) );
aCbValue.SetModifyHdl( LINK( this, GenericOptions, CheckButtonsHdl ) );
aCbValue.SetSelectHdl( LINK( this, GenericOptions, CheckButtonsHdl ) );
}
GenericOptions::~GenericOptions()
{
pTempConf->DeleteGroup("Main");
delete pTempConf;
}
StringList* GenericOptions::GetAllGroups()
{
StringList* pGroups = new StringList();
for ( USHORT i = 0 ; i < aConf.GetGroupCount() ; i++ )
{
String *pGroup = new String( aConf.GetGroupName( i ), RTL_TEXTENCODING_UTF8 );
pGroups->Insert( pGroup );
}
return pGroups;
}
void GenericOptions::LoadData()
{
StringList* pGroups = GetAllGroups();
String* pGroup;
while ( pGroup = pGroups->First() )
{
pGroups->Remove( pGroup );
aConf.SetGroup( ByteString( *pGroup, RTL_TEXTENCODING_UTF8 ) );
if ( HasKey( aConf, C_KEY_AKTUELL ) )
{
aCbArea.InsertEntry( *pGroup );
}
delete pGroup;
}
aCbArea.SetText( aCbArea.GetEntry( 0 ) );
CheckButtons( aCbArea, aPbNewArea, aPbDelArea );
// Und auch die Daten laden
LINK( this, GenericOptions, LoadGroup ).Call( NULL );
}
String GenericOptions::ReadKey( const ByteString &aGroup, const ByteString &aKey )
{
ByteString aGroupKey( aGroup );
aGroupKey.Append( aKey );
if ( HasKey( *pTempConf, aGroupKey ) )
return UniString( pTempConf->ReadKey( aGroupKey ), RTL_TEXTENCODING_UTF8 );
else
{
aConf.SetGroup( aGroup );
return UniString( aConf.ReadKey( aKey ), RTL_TEXTENCODING_UTF8 );
}
}
BOOL GenericOptions::HasKey( Config &aConfig, const ByteString &aKey )
{
return ! ( aConfig.ReadKey( aKey ).Len() == 0 && aConfig.ReadKey( aKey, "Default" ).Len() != 0 );
}
IMPL_LINK( GenericOptions, LoadGroup, ComboBox*, EMPTYARG )
{
String aCurrentValue;
String aAllValues;
if ( aLastGroupName.Len() )
{ // Werte zwischenspeichern?
aCurrentValue = aCbValue.GetText();
if ( aCbValue.GetEntryPos( aCurrentValue ) == COMBOBOX_ENTRY_NOTFOUND )
{ // Dann legen wir mal einen neuen Wert an
LINK( this, GenericOptions, NewValue ).Call( NULL );
}
pTempConf->WriteKey( ByteString( aLastGroupName ).Append( C_KEY_AKTUELL ), ByteString( aCurrentValue, RTL_TEXTENCODING_UTF8 ) );
USHORT i;
for ( i=0 ; i < aCbValue.GetEntryCount() ; i++ )
{
if ( i ) // ab Entry 1
aAllValues += ';';
aAllValues += aCbValue.GetEntry( i );
}
pTempConf->WriteKey( ByteString( aLastGroupName ).Append( C_KEY_ALLE ), ByteString( aAllValues, RTL_TEXTENCODING_UTF8 ) );
}
aCbValue.Clear();
ByteString aGroupName = ByteString( aCbArea.GetText(), RTL_TEXTENCODING_UTF8 );
aCurrentValue = ReadKey( aGroupName, C_KEY_AKTUELL );
aAllValues = ReadKey( aGroupName, C_KEY_ALLE );
xub_StrLen i;
for ( i=0 ; i < aAllValues.GetTokenCount() ; i++ )
{
aCbValue.InsertEntry( aAllValues.GetToken( i ) );
}
aCbValue.SetText( aCurrentValue );
aLastGroupName = aGroupName;
CheckButtons( aCbArea, aPbNewArea, aPbDelArea );
CheckButtons( aCbValue, aPbNewValue, aPbDelValue );
return 0;
}
IMPL_LINK( GenericOptions, DelGroup, Button*, EMPTYARG )
{
String aGroup = aCbArea.GetText();
if ( aCbArea.GetEntryPos( aGroup ) != COMBOBOX_ENTRY_NOTFOUND )
{
aCbArea.RemoveEntry( aGroup );
ByteString aByteGroup( aGroup, RTL_TEXTENCODING_UTF8 );
pTempConf->WriteKey( C_KEY_DELETE, pTempConf->ReadKey( C_KEY_DELETE ).Append( aByteGroup ) );
pTempConf->DeleteKey( ByteString( aByteGroup ).Append( C_KEY_AKTUELL ) );
pTempConf->DeleteKey( ByteString( aByteGroup ).Append( C_KEY_ALLE ) );
}
aCbArea.SetText( aCbArea.GetEntry( 0 ) );
LINK( this, GenericOptions, LoadGroup ).Call( NULL );
return 0;
}
IMPL_LINK( GenericOptions, NewGroup, Button*, EMPTYARG )
{
aCbArea.InsertEntry( aCbArea.GetText() );
LINK( this, GenericOptions, LoadGroup ).Call( NULL );
return 0;
}
IMPL_LINK( GenericOptions, DelValue, Button*, EMPTYARG )
{
String aValue = aCbValue.GetText();
if ( aCbValue.GetEntryPos( aValue ) != COMBOBOX_ENTRY_NOTFOUND )
{
aCbValue.RemoveEntry( aValue );
}
aCbValue.SetText( aCbValue.GetEntry( 0 ) );
CheckButtons( aCbValue, aPbNewValue, aPbDelValue );
return 0;
}
IMPL_LINK( GenericOptions, NewValue, Button*, EMPTYARG )
{
aCbValue.InsertEntry( aCbValue.GetText() );
CheckButtons( aCbValue, aPbNewValue, aPbDelValue );
return 0;
}
IMPL_LINK( GenericOptions, CheckButtonsHdl, ComboBox*, pCB )
{
if ( pCB == &aCbArea )
CheckButtons( aCbArea, aPbNewArea, aPbDelArea );
if ( pCB == &aCbValue )
CheckButtons( aCbValue, aPbNewValue, aPbDelValue );
return 0;
}
void GenericOptions::CheckButtons( ComboBox &aCB, Button &aNewB, Button &aDelB )
{
aNewB.Enable( aCB.GetEntryPos( aCB.GetText() ) == COMBOBOX_ENTRY_NOTFOUND && aCB.GetText().Len() );
}
void GenericOptions::Save()
{
xub_StrLen i;
// Erstmal eventuelle <20>nderungen Speichern
LINK( this, GenericOptions, LoadGroup ).Call( NULL );
// Zuerst alles was wir Gel<65>scht haben raushauen
ByteString aDelete = pTempConf->ReadKey( C_KEY_DELETE );
for ( i=0 ; i < aDelete.GetTokenCount() ; i++ )
{
aConf.DeleteGroup( aDelete.GetToken( i ) );
}
// Dann alles aus der Tempor<6F>ren in die Echte ini kopieren.
for ( i=0 ; i < aCbArea.GetEntryCount() ; i++ )
{
ByteString aGroup = ByteString( aCbArea.GetEntry( i ), RTL_TEXTENCODING_UTF8 );
ByteString aGroupKeyAktuell( aGroup );
aGroupKeyAktuell.Append( C_KEY_AKTUELL );
if ( HasKey( *pTempConf, aGroupKeyAktuell ) )
{
ByteString aCurrentValue = pTempConf->ReadKey( aGroupKeyAktuell );
aConf.SetGroup( ByteString( aCbArea.GetEntry( i ), RTL_TEXTENCODING_UTF8 ) );
aConf.WriteKey( C_KEY_AKTUELL, aCurrentValue );
aConf.WriteKey( C_KEY_ALLE, pTempConf->ReadKey( ByteString( aGroup ).Append( C_KEY_ALLE ) ) );
}
}
aConf.Flush();
}
class TextAndWin : public DockingWindow
{
FixedText *pFt;
Window *pWin;
Window* pFtOriginalParent;
Window* pWinOriginalParent;
long nSpace; // Standardabstand
BOOL bAlignTop;
public:
TextAndWin( Window *pParent, FixedText *pFtP, Window *pWinP, long nSpaceP, BOOL bAlignTopP );
~TextAndWin();
virtual void Resize();
};
TextAndWin::TextAndWin( Window *pParent, FixedText *pFtP, Window *pWinP, long nSpaceP, BOOL bAlignTopP )
: DockingWindow( pParent )
, pFt( pFtP )
, pWin( pWinP )
, nSpace( nSpaceP )
, bAlignTop( bAlignTopP )
{
pFtOriginalParent = pFt->GetParent();
pWinOriginalParent = pWin->GetParent();
pFt->SetParent( this );
pWin->SetParent( this );
}
TextAndWin::~TextAndWin()
{
pFt->SetParent( pFtOriginalParent );
pWin->SetParent( pWinOriginalParent );
}
void TextAndWin::Resize()
{
long nTopSpace = bAlignTop ? 0 : nSpace;
long nBottomSpace = bAlignTop ? nSpace : 0;
long nFixedTextOffset;
if ( GetOutputSizePixel().Height() < 3 * pFt->GetSizePixel().Height() )
{
pFt->Hide();
nFixedTextOffset = 0;
}
else
{
pFt->Show();
nFixedTextOffset = pFt->GetSizePixel().Height() + nSpace;
// FixedText Positionieren
pFt->SetPosPixel( Point( 0, nTopSpace ) );
}
// Window Positionieren
long nWinPosY = nFixedTextOffset;
nWinPosY += nTopSpace;
pWin->SetPosPixel( Point( 0, nWinPosY ) );
// Gr<47><72>e des Window anpassen
long nWinHeight = GetOutputSizePixel().Height();
nWinHeight -= nWinPosY;
nWinHeight -= nBottomSpace;
pWin->SetSizePixel( Size( GetOutputSizePixel().Width(), nWinHeight ) );
}
DisplayHidDlg::DisplayHidDlg( Window * pParent )
: FloatingWindow( pParent, ResId( IDD_DISPLAY_HID ) )
, aTbConf( this, ResId( RID_TB_CONF ) )
, aFtControls( this, ResId( RID_FT_CONTROLS ) )
, aMlbControls( this, ResId( RID_MLB_CONTROLS ) )
, aFtSlots( this, ResId( RID_FT_SLOTS ) )
, aMlbSlots( this, ResId( RID_MLB_SLOTS ) )
, aPbKopieren( this, ResId( RID_PB_KOPIEREN ) )
, aPbBenennen( this, ResId( RID_PB_BENENNEN ) )
, aPbSelectAll( this, ResId( RID_PB_SELECTALL ) )
, aOKClose( this, ResId( RID_OK_CLOSE ) )
, nDisplayMode( DH_MODE_KURZNAME | DH_MODE_LANGNAME ) // Falls wir ein altes Office haben diesen Default verwenden
{
FreeResource();
ResMgr* pRM = CREATERESMGR( svt );
ToolBox aOrig( this, ResId( 12345, pRM ) );
delete pRM;
aTbConf.CopyItem( aOrig, 4 );
aTbConf.InsertSeparator();
aTbConf.CopyItem( aOrig, 5 );
aTbConf.CopyItem( aOrig, 6 );
aTbConf.CopyItem( aOrig, 7 );
aTbConf.SetOutStyle( TOOLBOX_STYLE_FLAT );
#ifndef DEBUG
aTbConf.Hide();
#endif
pSplit = new SplitWindow( this );
pControls = new TextAndWin( pSplit, &aFtControls, &aMlbControls, aMlbControls.GetPosPixel().X(), TRUE );
pSlots = new TextAndWin( pSplit, &aFtSlots, &aMlbSlots, aMlbControls.GetPosPixel().X(), FALSE );
pSplit->SetPosPixel( aFtControls.GetPosPixel() );
pSplit->InsertItem( 1, pControls, 70, SPLITWINDOW_APPEND, 0, SWIB_PERCENTSIZE );
pSplit->InsertItem( 2, pSlots, 30, SPLITWINDOW_APPEND, 0, SWIB_PERCENTSIZE );
pSplit->Show();
aTbConf.SetBorderStyle( WINDOW_BORDER_NORMAL );
aPbKopieren.SetClickHdl( LINK( this, DisplayHidDlg, CopyToClipboard ) );
aPbSelectAll.SetClickHdl( LINK( this, DisplayHidDlg, SelectAll ) );
aMlbControls.SetSelectHdl( LINK( this, DisplayHidDlg, Select ) );
aMlbSlots.SetSelectHdl( LINK( this, DisplayHidDlg, Select ) );
Select( NULL );
}
DisplayHidDlg::~DisplayHidDlg()
{
delete pControls;
delete pSlots;
delete pSplit;
}
IMPL_LINK( DisplayHidDlg, CopyToClipboard, void*, EMPTYARG )
{
String aSammel;
USHORT i;
for ( i=0 ; i < aMlbControls.GetSelectEntryCount() ; i++ )
{
if ( aSammel.Len() )
aSammel += '\n';
aSammel += aMlbControls.GetSelectEntry( i );
}
for ( i=0 ; i < aMlbSlots.GetSelectEntryCount() ; i++ )
{
if ( aSammel.Len() )
aSammel += '\n';
aSammel += aMlbSlots.GetSelectEntry( i );
}
Clipboard::Clear();
Clipboard::CopyString( aSammel );
return 0;
}
IMPL_LINK( DisplayHidDlg, SelectAll, PushButton*, pButton )
{
if ( pButton->GetState() != STATE_CHECK )
{
USHORT i;
for ( i=0 ; i < aMlbControls.GetEntryCount() ; i++ )
aMlbControls.SelectEntryPos( i );
for ( i=0 ; i < aMlbSlots.GetEntryCount() ; i++ )
aMlbSlots.SelectEntryPos( i );
}
else
{
aMlbControls.SetNoSelection();
aMlbControls.Invalidate();
aMlbSlots.SetNoSelection();
aMlbSlots.Invalidate();
}
Select( NULL );
return 0;
}
IMPL_LINK( DisplayHidDlg, Select, void*, EMPTYARG )
{
if ( !aMlbControls.GetSelectEntryCount() && !aMlbSlots.GetSelectEntryCount() )
aPbSelectAll.SetState( STATE_NOCHECK );
else if ( aMlbControls.GetSelectEntryCount() == aMlbControls.GetEntryCount()
&& aMlbSlots.GetSelectEntryCount() == aMlbSlots.GetEntryCount() )
aPbSelectAll.SetState( STATE_CHECK );
else
aPbSelectAll.SetState( STATE_DONTKNOW );
return 0;
}
void DisplayHidDlg::AddData( WinInfoRec* pWinInfo )
{
if ( pWinInfo->bIsReset )
{
aMlbControls.Clear();
aMlbSlots.Clear();
if ( pWinInfo->nUId & DH_MODE_DATA_VALID ) // kein altes Office
nDisplayMode = pWinInfo->nUId; // Wird im Reset zur <20>bermittlung des Modus verwendet
return;
}
String aMsg;
if ( ( nDisplayMode & DH_MODE_KURZNAME ) )
{
if ( pWinInfo->aKurzname.Len() > 0 )
aMsg += pWinInfo->aKurzname;
else
{
aMsg.AppendAscii( "--" );
aMsg += String::CreateFromInt64( pWinInfo->nUId );
aMsg.AppendAscii( ": " );
aMsg += pWinInfo->aRName;
}
aMsg.Expand(20);
}
else
{
aMsg += String::CreateFromInt64( pWinInfo->nUId );
aMsg.Expand(13);
}
aMsg.AppendAscii( " " ); // Mindestens 3 Blanks sollten schon sein.
if ( nDisplayMode & DH_MODE_LANGNAME )
{
if ( pWinInfo->aLangname.Len() > 0 )
aMsg += pWinInfo->aLangname;
else
aMsg += String( ResId( IDS_NO_LONGNAME ) );
}
aMlbControls.InsertEntry( aMsg );
// Haben wir noch einen Slotname?
if ( ( nDisplayMode & DH_MODE_KURZNAME ) && pWinInfo->aSlotname.Len() > 0 )
{
aMsg = pWinInfo->aSlotname;
aMsg.Expand(20);
aMsg.AppendAscii( " " ); // Mindestens 3 Blanks sollten schon sein.
if ( nDisplayMode & DH_MODE_LANGNAME )
{
if ( pWinInfo->aLangname.Len() > 0 )
aMsg += pWinInfo->aLangname;
else
aMsg += String( ResId( IDS_NO_LONGNAME ) );
}
aMlbSlots.InsertEntry( aMsg );
}
}
void DisplayHidDlg::Resize()
{
if ( IsRollUp() )
{
// Wir wollen nur die Toolbox sehen
SetOutputSizePixel( aTbConf.GetSizePixel() );
}
else
{
// SetUpdateMode( FALSE );
// Minimalgr<67><72>e
Size aSize( GetOutputSizePixel() );
aSize.Width() = max( aSize.Width(), aOKClose.GetSizePixel().Width() * 3 );
aSize.Height() = max( aSize.Height(), aOKClose.GetSizePixel().Height() * 8 );
SetOutputSizePixel( aSize );
// Standardabstand
long nSpace = pSplit->GetPosPixel().X();
// ToolBox Breite anpassen
aTbConf.SetSizePixel( Size ( GetSizePixel().Width(), aTbConf.CalcWindowSizePixel().Height() ) );
aTbConf.SetSizePixel( Size() ); // Vorerst verstecken!
// SplitWindow Positionieren
pSplit->SetPosPixel( Point( nSpace, nSpace + aTbConf.GetPosPixel().Y() + aTbConf.GetSizePixel().Height() ) );
// Breite des SplitWindows bestimmen
long nSplitWidth = GetSizePixel().Width();
nSplitWidth -= aPbBenennen.GetSizePixel().Width();
nSplitWidth -= 3 * nSpace; // Die Zwischenr<6E>ume
nSplitWidth -= nSpace / 2; // Etwas mehr Platz am rechten Rand
// H<>he des SplitWindows bestimmen
long nSplitHeight = GetOutputSizePixel().Height();
nSplitHeight -= pSplit->GetPosPixel().Y();
nSplitHeight -= nSpace; // der Abstand unten
// Gr<47><72>e des SplitWindows setzen
pSplit->SetSizePixel( Size( nSplitWidth, nSplitHeight ) );
Point aPos;
// Button "Kopieren" Positionieren
aPos = pSplit->GetPosPixel();
aPos.Move( nSplitWidth, 0 );
aPos.Move( nSpace, 0 );
aPbKopieren.SetPosPixel( aPos );
// Button "Alles W<>hlen" gleich darunter positionieren
aPos.Move( 0, aPbKopieren.GetSizePixel().Height() );
aPos.Move( 0, nSpace );
aPbSelectAll.SetPosPixel( aPos );
// Button "Benennen" gleich darunter positionieren
aPos.Move( 0, aPbSelectAll.GetSizePixel().Height() );
aPos.Move( 0, nSpace );
aPbBenennen.SetPosPixel( aPos );
// Und zum Schlu<6C> noch den "Close" Button positionieren
aPos = pSplit->GetPosPixel();
aPos.Move( nSpace, -aOKClose.GetSizePixel().Height() );
aPos.Move( pSplit->GetSizePixel().Width(), pSplit->GetSizePixel().Height() );
aOKClose.SetPosPixel( aPos );
// SetUpdateMode( TRUE );
// Invalidate();
}
FloatingWindow::Resize();
}
VarEditDialog::VarEditDialog( Window * pParent, SbxVariable *pPVar )
: ModelessDialog( pParent, ResId( IDD_EDIT_VAR ) )
, aFixedTextRID_FT_NAME( this, ResId( RID_FT_NAME ) )
, aFixedTextRID_FT_CONTENT( this, ResId( RID_FT_CONTENT ) )
, aFixedTextRID_FT_NEW_CONTENT( this, ResId( RID_FT_NEW_CONTENT ) )
, aFixedTextRID_FT_NAME_VALUE( this, ResId( RID_FT_NAME_VALUE ) )
, aFixedTextRID_FT_CONTENT_VALUE( this, ResId( RID_FT_CONTENT_VALUE ) )
, aRadioButtonRID_RB_NEW_BOOL_T( this, ResId( RID_RB_NEW_BOOL_T ) )
, aRadioButtonRID_RB_NEW_BOOL_F( this, ResId( RID_RB_NEW_BOOL_F ) )
, aNumericFieldRID_NF_NEW_INTEGER( this, ResId( RID_NF_NEW_INTEGER ) )
, aNumericFieldRID_NF_NEW_LONG( this, ResId( RID_NF_NEW_LONG ) )
, aEditRID_ED_NEW_STRING( this, ResId( RID_ED_NEW_STRING ) )
, aOKButtonRID_OK( this, ResId( RID_OK ) )
, aCancelButtonRID_CANCEL( this, ResId( RID_CANCEL ) )
, pVar( pPVar )
{
aFixedTextRID_FT_NAME_VALUE.SetText( pVar->GetName() );
aFixedTextRID_FT_CONTENT_VALUE.SetText( pVar->GetString() );
SbxDataType eType = pVar->GetType();
if ( ( eType & ( SbxVECTOR | SbxARRAY | SbxBYREF )) == 0 )
{
switch ( eType )
{
case SbxBOOL:
aRadioButtonRID_RB_NEW_BOOL_T.Show();
aRadioButtonRID_RB_NEW_BOOL_F.Show();
if ( pVar->GetBool() )
aRadioButtonRID_RB_NEW_BOOL_T.Check();
else
aRadioButtonRID_RB_NEW_BOOL_F.Check();
break;
// case SbxCURRENCY:
// case SbxDATE:
break;
case SbxINTEGER:
aNumericFieldRID_NF_NEW_INTEGER.Show();
aNumericFieldRID_NF_NEW_INTEGER.SetText( pVar->GetString() );
aNumericFieldRID_NF_NEW_INTEGER.Reformat();
break;
case SbxLONG:
aNumericFieldRID_NF_NEW_LONG.Show();
aNumericFieldRID_NF_NEW_LONG.SetText( pVar->GetString() );
aNumericFieldRID_NF_NEW_LONG.Reformat();
// M<>ssen hart gesetzt werden, da der Rsc Compiler damit nicht klar kommt.
aNumericFieldRID_NF_NEW_LONG.SetMin( -aNumericFieldRID_NF_NEW_LONG.GetMax()-1 );
aNumericFieldRID_NF_NEW_LONG.SetFirst( -aNumericFieldRID_NF_NEW_LONG.GetLast()-1 );
break;
// case SbxOBJECT: // kann nicht editiert werden
break;
case SbxSINGLE:
case SbxDOUBLE:
case SbxSTRING:
case SbxVARIANT: // Taucht wohl auch nicht auf. stattdessen SbxEMPTY
case SbxEMPTY:
aEditRID_ED_NEW_STRING.Show();
aEditRID_ED_NEW_STRING.SetText( pVar->GetString() );
break;
}
}
aOKButtonRID_OK.SetClickHdl( LINK( this, VarEditDialog, OKClick ) );
}
IMPL_LINK( VarEditDialog, OKClick, Button *, pButton )
{
BOOL bWasError = SbxBase::IsError(); // Da eventuell ein Fehler geschmissen wird.
SbxDataType eType = pVar->GetType();
/*
Boolean
Currency
Date
Double
Integer
Long
Object
Single
String
Variant
atof
ecvt
f
gcvt
SvNumberformat::
static double StringToDouble( const xub_Unicode* pStr,
const International& rIntl,
int& nErrno,
const xub_Unicode** ppEnd = NULL );
// Konvertiert analog strtod einen dezimalen String in einen double,
// Dezimalseparator und Tausenderseparator werden aus International
// genommen, fuehrende Leerzeichen werden weggeparst.
// Ist ppEnd!=NULL wird *ppEnd hinter das Weggeparste gesetzt.
// Enthaelt pStr nur den zu parsenden String, ist also bei Erfolg
// **ppEnd=='\0' und *ppEnd-pStr==strlen(pStr).
// Bei Ueberlauf wird fVal=+/-HUGE_VAL gesetzt, bei Unterlauf 0,
// nErrno wird in diesen Faellen auf ERANGE gesetzt, sonst 0.
// "+/-1.#INF" werden als +/-HUGE_VAL erkannt.
*/
String aContent( aEditRID_ED_NEW_STRING.GetText() );
BOOL bError = FALSE;
switch ( eType )
{
case SbxBOOL:
pVar->PutBool( aRadioButtonRID_RB_NEW_BOOL_T.IsChecked() );
break;
// case SbxCURRENCY:
// pVar->PutCurrency( aContent );
break;
// case SbxDATE:
// pVar->PutDate( aContent );
break;
case SbxINTEGER:
pVar->PutInteger( aNumericFieldRID_NF_NEW_INTEGER.GetValue() );
break;
case SbxLONG:
pVar->PutLong( aNumericFieldRID_NF_NEW_LONG.GetValue() );
break;
case SbxDOUBLE:
case SbxSINGLE:
bError = !pVar->PutStringExt( aContent );
break;
case SbxSTRING:
pVar->PutString( aContent );
break;
case SbxVARIANT:
case SbxEMPTY:
bError = !pVar->PutStringExt( aContent );
break;
}
// pVar->PutStringExt( aEditRID_ED_NEW_STRING.GetText() );
if ( !bWasError && SbxBase::IsError() )
{
bError = TRUE;
SbxBase::ResetError();
}
if ( bError )
{
// ErrorBox( this, WB_OK | WB_DEF_OK, "Der Wert ist ung<6E>ltig und kann daher nicht gesetzt werden" ).Execute();
ErrorBox( this, ResId( IDS_INVALID_VALUE ) ).Execute();
return 1;
}
// if ( aEditRID_ED_NEW_STRING.GetText().Compare( pVar->GetString() ) != COMPARE_EQUAL )
// {
// aFixedTextRID_FT_CONTENT_VALUE.SetText( pVar->GetString() );
// aEditRID_ED_NEW_STRING.SetText( pVar->GetString() );
// return 1;
// }
Close();
return 0;
}
Reference in New Issue View Git Blame Copy Permalink