xref: /aoo41x/main/toolkit/workben/controls.cxx (revision cdf0e10c)

/*************************************************************************
 *
 * 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_toolkit.hxx"
#include <tools/debug.hxx>

#include <vcl/window.hxx>
#include <vcl/svapp.hxx>
#include <vcl/wrkwin.hxx>
#include <vcl/msgbox.hxx>


#include <stardiv/uno/awt/window.hxx>
#include <stardiv/uno/awt/vclwin.hxx>
#include <stardiv/uno/awt/printer.hxx>
#include <stardiv/uno/repos/serinfo.hxx>
#include <stardiv/uno/lang/factory.hxx>


#include <unoctrl.hxx>
// #include <unoctrl2.hxx>

#include <svtools/unoiface.hxx>	// InitExtToolkit

UsrAny UsrAny_UINT16( UINT16 n )
{
	UsrAny aVal;
	aVal.setUINT16( n );
	return aVal;
}

// -----------------------------------------------------------------------

class MyApp : public Application
{
public:
    void        Main();
};

MyApp aMyApp;

// -----------------------------------------------------------------------

class MyWin : public WorkWindow
{
	XControlRef				xCtrl;
	XPropertySetRef			xCtrlModel;
	XControlContainerRef	xCont;
	XPropertySetRef			xContModel;
	XControlRef				xDrawCtrl;
	XGraphicsRef			xG;

public:
                MyWin( Window* pParent, WinBits nWinStyle );
                ~MyWin();

    void        MouseButtonDown( const MouseEvent& rMEvt );
    void        Resize();
    void        Paint( const Rectangle& r );
};

// -----------------------------------------------------------------------

void MyApp::Main()
{
	createAndSetDefaultServiceManager();

    MyWin aMainWin( NULL, WB_APP | WB_STDWORK );
    aMainWin.SetText( "Uno-Controls - Workbench" );
    aMainWin.Show();
    Execute();
}

// -----------------------------------------------------------------------

MyWin::MyWin( Window* pParent, WinBits nWinStyle ) :
    WorkWindow( pParent, nWinStyle )
{
}

// -----------------------------------------------------------------------
MyWin::~MyWin()
{
	XComponentRef xC1( xCont, USR_QUERY );
	xC1->dispose();
	XComponentRef xC2( xContModel, USR_QUERY );
	xC2->dispose();
}

// -----------------------------------------------------------------------

void MyWin::MouseButtonDown( const MouseEvent& rMEvt )
{
	if( rMEvt.GetClicks() == 2 )
	{
		XViewRef xV( xDrawCtrl, USR_QUERY );
		XWindowRef xC( xDrawCtrl, USR_QUERY );
		xV->draw( xC->getPosSize().Left(), xC->getPosSize().Top() );

		// Printer Testen...
/*
		XServiceManagerRef xProv = getGlobalServiceManager();
		XServiceProviderRef xSSI = xProv->queryServiceProvider( L"stardiv.vcl.PrinterServer" );
		XPrinterServerRef xPrinterServer( xSSI->createInstance(), USR_QUERY );

		Sequence< UString >	aPrinterNames = xPrinterServer->getPrinterNames();
		USHORT nPrinters = aPrinterNames.getLen();
		String aInfo( "Printers: " );
		aInfo += nPrinters;
		if ( nPrinters )
		{
			for ( USHORT n = 0; n < nPrinters; n++ )
			{
				aInfo += '\n';
				aInfo += OUStringToString( aPrinterNames.getConstArray()[n], CHARSET_SYSTEM );
			}

			XPrinterRef xPrinter = xPrinterServer->createPrinter( aPrinterNames.getConstArray()[0] );
			xPrinter->start( L"UNOPrinterTest", 1, TRUE );
			XDeviceRef xDev = xPrinter->startPage();
			XGraphicsRef xGraphics = xDev->createGraphics();
			xGraphics->drawText( 200, 200, L"Printed with UNO"  );
			xPrinter->endPage();
			xPrinter->end();
		}
		InfoBox( this, aInfo ).Execute();
*/
	}
	else if( rMEvt.GetClicks() == 1 )
	{
		if( xContModel )
		{
			static INT32 nColor = 0x001788ab;
 			xContModel->setPropertyValue( L"BackgroundColor", UsrAny( nColor ) );
			nColor += 0x00111111;
			nColor &= 0xFFFFFF;
		}
		else
		{
			XServiceManagerRef xProv = getGlobalServiceManager();

			XMultiServiceFactoryRef xMSF = NAMESPACE_USR( getProcessServiceManager )();

			XServiceProviderRef xSSI = xProv->queryServiceProvider( L"stardiv.vcl.VclToolkit" );
			XToolkitRef xToolkit( xMSF->createInstance( L"stardiv.vcl.VclToolkit" ), USR_QUERY );
			DBG_ASSERT( xToolkit, "No Toolkit!" );

			// Uno Container + Model erzeugen
			XServiceProviderRef xModelProv; // = xProv->queryServiceProvider( L"stardiv.vcl.controlmodel.ControlContainer" );
			XInterfaceRef xCMRef( xMSF->createInstance(L"stardiv.vcl.controlmodel.ControlContainer") );
			xCMRef->queryInterface( XPropertySet::getSmartUik(), xContModel );
 			xContModel->setPropertyValue( L"Border", UsrAny_UINT16( 1 ) );
 			xContModel->setPropertyValue( L"BackgroundColor", UsrAny( (UINT32)0x00CCCCCC) );

			xModelProv = xProv->queryServiceProvider( L"stardiv.vcl.control.ControlContainer" );
			XInterfaceRef xCCRef( xModelProv->createInstance(), USR_QUERY );
			xCCRef->queryInterface( XControlContainer::getSmartUik(), xCont );

			XControlModelRef xCM( xContModel, USR_QUERY );
			XControlRef xContControl( xCont, USR_QUERY );
			xContControl->setModel( xCM );
			XWindowRef xContComp( xCont, USR_QUERY );
			xContComp->setPosSize( 0, 0, 500, 600, PosSize_POSSIZE );

			// Zwei EditControls auf einem Model...
//			xModelProv = xProv->queryServiceProvider( L"stardiv.uno.awt.UnoControlEditModel" );
			XInterfaceRef xModel( xMSF->createInstance(L"stardiv.uno.awt.UnoControlEditModel") );
			DBG_ASSERT( xModel, "No Model!" );

			XPropertySetRef xPSet( xModel, USR_QUERY );
			xPSet->setPropertyValue( L"Text", UsrAny( UString( L"Hallo!" ) ) );
			xPSet->setPropertyValue( L"FontName", UsrAny( UString( L"Times New Roman" ) ) );
//			xPSet->setPropertyValue( L"FontWeight", UsrAny( 200 ) );

			XServiceProviderRef xEditCtrlProv = xProv->queryServiceProvider( L"stardiv.uno.awt.UnoControlEdit" );
			// Edit1
			XControlRef xEdit1( xMSF->createInstance(L"stardiv.uno.awt.UnoControlEdit"), USR_QUERY );
			xModel->queryInterface( XControlModel::getSmartUik(), xCM );
			xEdit1->setModel( xCM );
			XWindowRef xEditCmp1( xEdit1, USR_QUERY );
			xEditCmp1->setPosSize( 50, 50, 100, 60, PosSize_POSSIZE );
			xCont->addControl( L"", xEdit1 );
			// Edit2
			XControlRef xEdit2( xMSF->createInstance(L"stardiv.uno.awt.UnoControlEdit"), USR_QUERY );
			xModel->queryInterface( XControlModel::getSmartUik(), xCM );
			xEdit2->setModel( xCM );
			XWindowRef xEditCmp2( xEdit2, USR_QUERY );
			XLayoutConstrainsRef xL( xEdit2, USR_QUERY );
			if ( xL.is() )
			{
				Size aSz = xL->getPreferredSize();
				xEditCmp2->setPosSize( 100, 180, aSz.Width(), aSz.Height(), PosSize_POSSIZE );
			}
			else
				xEditCmp2->setPosSize( 100, 180, 100, 40, PosSize_POSSIZE );
			xCont->addControl( L"", xEdit2 );

			xModelProv = xProv->queryServiceProvider( L"stardiv.vcl.controlmodel.NumericField" );
			XInterfaceRef xNumModel( xModelProv->createInstance(), USR_QUERY );
			DBG_ASSERT( xNumModel, "No Model!" );


			XServiceProviderRef xNumFieldProv = xProv->queryServiceProvider( L"stardiv.vcl.control.NumericField" );
			XControlRef xNumField( xNumFieldProv->createInstance(), USR_QUERY );
			xNumModel->queryInterface( XControlModel::getSmartUik(), xCM );
			xNumField->setModel( xCM );
			XWindowRef xNumFieldWin( xNumField, USR_QUERY );
			xNumFieldWin->setPosSize( 50, 250, 100, 60, PosSize_POSSIZE );
			xCont->addControl( L"", xNumField );

			XMultiPropertySetRef xPSet2( xNumModel, USR_QUERY );
			Sequence<UString> Names( 2 );
			Names.getArray()[0] = L"Value";
			Names.getArray()[1] = L"ValueMin";
			Sequence<UsrAny> Values( 2 );
			Values.getArray()[0] = UsrAny( -2000000.0 );
			Values.getArray()[1] = UsrAny( -2000000.0 );
			xPSet2->setPropertyValues( Names, Values );


			// Button...
			xModelProv = xProv->queryServiceProvider( L"stardiv.vcl.controlmodel.Button" );
			xModelProv->createInstance()->queryInterface( XInterface::getSmartUik(), xModel );
			DBG_ASSERT( xModel, "No Model!" );

			xModel->queryInterface( XPropertySet::getSmartUik(), xPSet );
			xPSet->setPropertyValue( L"Label", UsrAny( L"Press!" ) );

			XServiceProviderRef xButtonCtrlProv = xProv->queryServiceProvider( L"stardiv.vcl.control.Button" );
			XControlRef xButton1( xButtonCtrlProv->createInstance(), USR_QUERY );
			xModel->queryInterface( XControlModel::getSmartUik(), xCM );
			xButton1->setModel( xCM );
			XWindowRef xButtonCmp1( xButton1, USR_QUERY );
			xButtonCmp1->setPosSize( 170, 80, 80, 80, PosSize_POSSIZE );
			// Unsichtbar, nur im MBDown mit DrawRoutine bei Doppel-Klick...
			xButtonCmp1->setVisible( FALSE );
			xDrawCtrl = xButton1;

			xCont->addControl( L"", xButton1 );

/*

			// ListBox...
			xModelProv = xProv->queryServiceProvider( L"stardiv.vcl.controlmodel.ListBox" );
			xModel = (XInterface*)xModelProv->createInstance()->queryInterface( XInterface::getSmartUik() );

			xPSet = (XPropertySet*)xModel->queryInterface( XPropertySet::getSmartUik() );
			Sequence<UString> aSeq( 7 );
			aSeq.getArray()[0] = L"Item1";
			aSeq.getArray()[1] = L"Item2";
			aSeq.getArray()[2] = L"Item3";
			aSeq.getArray()[3] = L"Item4";
			aSeq.getArray()[4] = L"Item5";
			aSeq.getArray()[5] = L"Item6";
			aSeq.getArray()[6] = L"Item7";
			xPSet->setPropertyValue( L"StringItemList", UsrAny( &aSeq, Sequence<UString>::getReflection() ) );
			xPSet->setPropertyValue( L"LineCount", UsrAny_UINT16( 4 ) );
			xPSet->setPropertyValue( L"Dropdown", UsrAny( (BOOL)TRUE ) );

			XServiceProviderRef xListBoxCtrlProv = xProv->queryServiceProvider( L"stardiv.vcl.control.ListBox" );
			XControlRef xListBox1 = (XControl*)xListBoxCtrlProv->createInstance()->queryInterface( XControl::getSmartUik() );
			xListBox1->setModel( (XControlModel*)xModel->queryInterface( XControlModel::getSmartUik() ) );
			XWindowRef xListBoxCmp1 = (XWindow*)xListBox1->queryInterface( XWindow::getSmartUik() );
			xListBoxCmp1->setPosSize( 20, 250, 200, 20, PosSize_POSSIZE );
			xCont->addControl( L"", xListBox1 );

			// FixedText...
			xModelProv = xProv->queryServiceProvider( L"stardiv.vcl.controlmodel.FixedText" );
			xModel = (XInterface*)xModelProv->createInstance()->queryInterface( XInterface::getSmartUik() );
			DBG_ASSERT( xModel, "No Model!" );

			xPSet = (XPropertySet*)xModel->queryInterface( XPropertySet::getSmartUik() );
			xPSet->setPropertyValue( L"Label", UsrAny( L"Label:" ) );
 			xPSet->setPropertyValue( L"BackgroundColor", UsrAny( (UINT32)0x00888888) );

			Font_Attribs aFontAttrs;
			aFontAttrs.Italic = ITALIC_NORMAL;
			xPSet->setPropertyValue( L"Font_Attribs", UsrAny( &aFontAttrs, Font_Attribs_getReflection() ) );

			XPropertyStateRef xState = (XPropertyState*)xPSet->queryInterface( XPropertyState::getSmartUik() );
			xState->getPropertyState( L"Font_Attribs" );
			xState->getPropertyState( L"Font_Size" );

			XServiceProviderRef xFixedTextCtrlProv = xProv->queryServiceProvider( L"stardiv.vcl.control.FixedText" );
			XControlRef xFixedText1 = (XControl*)xFixedTextCtrlProv->createInstance()->queryInterface( XControl::getSmartUik() );
			DBG_ASSERT( xFixedText1, "No FixedText!" );
			xFixedText1->setModel( (XControlModel*)xModel->queryInterface( XControlModel::getSmartUik() ) );
			XWindowRef xFixedTextCmp1 = (XWindow*)xFixedText1->queryInterface( XWindow::getSmartUik() );
			xFixedTextCmp1->setPosSize( 20, 20, 120, 20, PosSize_POSSIZE );
			xCont->addControl( L"", xFixedText1 );

			// TabTest...
			xModelProv = xProv->queryServiceProvider( L"stardiv.vcl.controlmodel.GroupBox" );
			xModel = (XInterface*)xModelProv->createInstance()->queryInterface( XInterface::getSmartUik() );
			xPSet = (XPropertySet*)xModel->queryInterface( XPropertySet::getSmartUik() );
			xPSet->setPropertyValue( L"Label", UsrAny( L"Radio-Test:" ) );
			XServiceProviderRef xGroupBoxCtrlProv = xProv->queryServiceProvider( L"stardiv.vcl.control.GroupBox" );
			XControlRef xGroupBox1 = (XControl*)xGroupBoxCtrlProv->createInstance()->queryInterface( XControl::getSmartUik() );
			xGroupBox1->setModel( (XControlModel*)xModel->queryInterface( XControlModel::getSmartUik() ) );
			XWindowRef xGroupBoxCmp1 = (XWindow*)xGroupBox1->queryInterface( XWindow::getSmartUik() );
			xGroupBoxCmp1->setPosSize( 30, 410, 100, 130, PosSize_POSSIZE );
			xCont->addControl( L"", xGroupBox1 );

			XServiceProviderRef xRadioButtonModelProv = xProv->queryServiceProvider( L"stardiv.vcl.controlmodel.RadioButton" );
			XServiceProviderRef xRadioButtonCtrlProv = xProv->queryServiceProvider( L"stardiv.vcl.control.RadioButton" );

			xModel = (XInterface*)xRadioButtonModelProv->createInstance()->queryInterface( XInterface::getSmartUik() );
			XControlRef xT1 = (XControl*)xRadioButtonCtrlProv->createInstance()->queryInterface( XControl::getSmartUik() );
			xT1->setModel( (XControlModel*)xModel->queryInterface( XControlModel::getSmartUik() ) );
			XWindowRef xTC1 = (XWindow*)xT1->queryInterface( XWindow::getSmartUik() );
			xTC1->setPosSize( 40, 430, 80, 20, PosSize_POSSIZE );
			xCont->addControl( L"", xT1 );
			xPSet = (XPropertySet*)xModel->queryInterface( XPropertySet::getSmartUik() );
			xPSet->setPropertyValue( L"Label", UsrAny( L"Radio1" ) );
			xPSet->setPropertyValue( L"State", UsrAny_UINT16( 1 ) );

			xModel = (XInterface*)xRadioButtonModelProv->createInstance()->queryInterface( XInterface::getSmartUik() );
			XControlRef xT2 = (XControl*)xRadioButtonCtrlProv->createInstance()->queryInterface( XControl::getSmartUik() );
			xT2->setModel( (XControlModel*)xModel->queryInterface( XControlModel::getSmartUik() ) );
			XWindowRef xTC2 = (XWindow*)xT2->queryInterface( XWindow::getSmartUik() );
			xTC2->setPosSize( 40, 470, 80, 20, PosSize_POSSIZE );
			xCont->addControl( L"", xT2 );
			xPSet = (XPropertySet*)xModel->queryInterface( XPropertySet::getSmartUik() );
			xPSet->setPropertyValue( L"Label", UsrAny( L"Radio2" ) );

			xModel = (XInterface*)xRadioButtonModelProv->createInstance()->queryInterface( XInterface::getSmartUik() );
			XControlRef xT3 = (XControl*)xRadioButtonCtrlProv->createInstance()->queryInterface( XControl::getSmartUik() );
			xT3->setModel( (XControlModel*)xModel->queryInterface( XControlModel::getSmartUik() ) );
			XWindowRef xTC3 = (XWindow*)xT3->queryInterface( XWindow::getSmartUik() );
			xTC3->setPosSize( 40, 510, 80, 20, PosSize_POSSIZE );
			xCont->addControl( L"", xT3 );
			xPSet = (XPropertySet*)xModel->queryInterface( XPropertySet::getSmartUik() );
			xPSet->setPropertyValue( L"Label", UsrAny( L"Radio3" ) );

			xModel = (XInterface*)xRadioButtonModelProv->createInstance()->queryInterface( XInterface::getSmartUik() );
			XControlRef xT4 = (XControl*)xRadioButtonCtrlProv->createInstance()->queryInterface( XControl::getSmartUik() );
			xT4->setModel( (XControlModel*)xModel->queryInterface( XControlModel::getSmartUik() ) );
			XWindowRef xTC4 = (XWindow*)xT4->queryInterface( XWindow::getSmartUik() );
			xTC4->setPosSize( 40, 550, 80, 20, PosSize_POSSIZE );
			xCont->addControl( L"", xT4 );
			xPSet = (XPropertySet*)xModel->queryInterface( XPropertySet::getSmartUik() );
			xPSet->setPropertyValue( L"Label", UsrAny( L"Radio4 - no" ) );
    		xPSet->setPropertyValue( L"Tabstop", UsrAny( (BOOL)TRUE ) );

			// TabController:
			xModelProv = xProv->queryServiceProvider( L"stardiv.vcl.controlmodel.TabController" );
			xModel = (XInterface*)xModelProv->createInstance()->queryInterface( XInterface::getSmartUik() );
			XTabControllerModelRef xTCModel = (XTabControllerModel*)xModel->queryInterface( XTabControllerModel::getSmartUik() );

			XServiceProviderRef xTCProv = xProv->queryServiceProvider( L"stardiv.vcl.control.TabController" );
			XTabControllerRef xTC = (XTabController*)xTCProv->createInstance()->queryInterface( XTabController::getSmartUik() );
			xTC->setModel( (XTabControllerModel*)xModel->queryInterface( XTabControllerModel::getSmartUik() ) );
			XUnoControlContainerRef xUCC = (XUnoControlContainer*)xCont->queryInterface( XUnoControlContainer::getSmartUik() );
			xUCC->addTabController( xTC );

			Sequence<XControlModelRef> aControls( 5 );
			aControls.getArray()[0] = xGroupBox1->getModel();
			aControls.getArray()[1] = xT1->getModel();
			aControls.getArray()[2] = xT3->getModel();
			aControls.getArray()[3] = xT2->getModel();
			aControls.getArray()[4] = xT4->getModel();
			xTCModel->setControls( aControls );

			Sequence<XControlModelRef> aGroup( 3 );
			aGroup.getArray()[0] = xT1->getModel();
			aGroup.getArray()[1] = xT3->getModel();
			aGroup.getArray()[2] = xT2->getModel();
			xTCModel->setGroup( aGroup, L"test" );
*/
			// Container anzeigen...
			// Als Child zu diesem Fenster
			xContControl->createPeer( XToolkitRef(), GetComponentInterface( TRUE ) );

			XDeviceRef xD( xContControl->getPeer(), USR_QUERY );
			xG = xD->createGraphics();
			XViewRef xV ( xDrawCtrl, USR_QUERY );
			xV->setGraphics( xG );

//		((UnoControl*)(XControl*)xNumField))->updateFromModel();

/*
			// TEST:
			WindowDecriptor aDescr;
			aDescr.ComponentServiceName = "window";
			aDescr.Type = VCLCOMPONENTTYPE_CONTAINER;
			aDescr.Parent = GetComponentInterface( TRUE );
			aDescr.WindowAttributes = WA_SHOW|WA_BORDER;
			aDescr.Bounds = Rectangle( Point( 500, 50 ), Size( 300, 200 ) );
			XVclWindowPeerRef xSPWin = xToolkit->createComponent( aDescr );

			WindowDecriptor aDescr2;
			aDescr2.ComponentServiceName = "scrollbar";
			aDescr2.Type = VCLCOMPONENTTYPE_SIMPLE;
			aDescr2.Parent = xSPWin;
			aDescr2.WindowAttributes = WA_SHOW|WA_BORDER|WA_VSCROLL;
			aDescr2.Bounds = Rectangle( Point( 250, 0 ), Size( 50, 200 ) );
			XVclWindowPeerRef xSB = xToolkit->createComponent( aDescr2 );
*/
		}
		return;
	}
    WorkWindow::MouseButtonDown( rMEvt );
}


// -----------------------------------------------------------------------

void MyWin::Resize()
{
    WorkWindow::Resize();
}

void MyWin::Paint( const Rectangle& r )
{
	// Muss ueber PaintListener geschehen...
	if ( xDrawCtrl.is() )
	{
		XViewRef xV( xDrawCtrl, USR_QUERY );
		XWindowRef xC( xDrawCtrl, USR_QUERY );
		xV->draw( xC->getPosSize().Left(), xC->getPosSize().Top() );
	}

}