1*d1766043SAndrew Rist/************************************************************** 2cdf0e10cSrcweir * 3*d1766043SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 4*d1766043SAndrew Rist * or more contributor license agreements. See the NOTICE file 5*d1766043SAndrew Rist * distributed with this work for additional information 6*d1766043SAndrew Rist * regarding copyright ownership. The ASF licenses this file 7*d1766043SAndrew Rist * to you under the Apache License, Version 2.0 (the 8*d1766043SAndrew Rist * "License"); you may not use this file except in compliance 9*d1766043SAndrew Rist * with the License. You may obtain a copy of the License at 10*d1766043SAndrew Rist * 11*d1766043SAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 12*d1766043SAndrew Rist * 13*d1766043SAndrew Rist * Unless required by applicable law or agreed to in writing, 14*d1766043SAndrew Rist * software distributed under the License is distributed on an 15*d1766043SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*d1766043SAndrew Rist * KIND, either express or implied. See the License for the 17*d1766043SAndrew Rist * specific language governing permissions and limitations 18*d1766043SAndrew Rist * under the License. 19*d1766043SAndrew Rist * 20*d1766043SAndrew Rist *************************************************************/ 21*d1766043SAndrew Rist 22*d1766043SAndrew Rist 23cdf0e10cSrcweir#ifndef __com_sun_star_form_XFormsSupplier_idl__ 24cdf0e10cSrcweir#define __com_sun_star_form_XFormsSupplier_idl__ 25cdf0e10cSrcweir 26cdf0e10cSrcweir#ifndef __com_sun_star_uno_XInterface_idl__ 27cdf0e10cSrcweir#include <com/sun/star/uno/XInterface.idl> 28cdf0e10cSrcweir#endif 29cdf0e10cSrcweir 30cdf0e10cSrcweir#ifndef __com_sun_star_container_XNameContainer_idl__ 31cdf0e10cSrcweir#include <com/sun/star/container/XNameContainer.idl> 32cdf0e10cSrcweir#endif 33cdf0e10cSrcweir 34cdf0e10cSrcweir 35cdf0e10cSrcweir//============================================================================= 36cdf0e10cSrcweir 37cdf0e10cSrcweir module com { module sun { module star { module form { 38cdf0e10cSrcweir 39cdf0e10cSrcweir//============================================================================= 40cdf0e10cSrcweir 41cdf0e10cSrcweir/** provides the access to a collection of forms. 42cdf0e10cSrcweir */ 43cdf0e10cSrcweirpublished interface XFormsSupplier: com::sun::star::uno::XInterface 44cdf0e10cSrcweir{ 45cdf0e10cSrcweir //------------------------------------------------------------------------- 46cdf0e10cSrcweir 47cdf0e10cSrcweir /** accesses the forms. 48cdf0e10cSrcweir 49cdf0e10cSrcweir @example StarBASIC 50cdf0e10cSrcweir <listing> 51cdf0e10cSrcweir REM ***** BASIC ***** 52cdf0e10cSrcweir 53cdf0e10cSrcweir Sub createColorSelectionBox 54cdf0e10cSrcweir ' create a new shape 55cdf0e10cSrcweir xShape = thisComponent.createInstance( "com.sun.star.drawing.ControlShape" ) 56cdf0e10cSrcweir Dim aPos as new com.sun.star.awt.Point 57cdf0e10cSrcweir aPos.X = 200 58cdf0e10cSrcweir aPos.Y = 100 59cdf0e10cSrcweir xShape.Position = aPos 60cdf0e10cSrcweir Erase aPos 61cdf0e10cSrcweir Dim aSize as new com.sun.star.awt.Size 62cdf0e10cSrcweir aSize.Width = 2500 63cdf0e10cSrcweir aSize.Height = 5000 64cdf0e10cSrcweir xShape.Size = aSize 65cdf0e10cSrcweir Erase aSize 66cdf0e10cSrcweir 67cdf0e10cSrcweir ' create a combo box model 68cdf0e10cSrcweir xControlModel = thisComponent.createInstance( "com.sun.star.form.component.ComboBox" ) 69cdf0e10cSrcweir xControlModel.Name = "ColorSelection" 70cdf0e10cSrcweir xControlModel.Text = "red" 71cdf0e10cSrcweir 72cdf0e10cSrcweir ' marry the shape and the model 73cdf0e10cSrcweir xShape.Control = xControlModel 74cdf0e10cSrcweir 75cdf0e10cSrcweir if ( 0 = thisComponent.DrawPage.Forms.getCount() ) Then 76cdf0e10cSrcweir xForm = thisComponent.createInstance( "com.sun.star.form.component.DataForm" ) 77cdf0e10cSrcweir xForm.Name = "SampleForm" 78cdf0e10cSrcweir thisComponent.DrawPage.Forms.insertByIndex( 0, xForm ) 79cdf0e10cSrcweir End If 80cdf0e10cSrcweir ' insert the control model into the first form of the forms collection of the 81cdf0e10cSrcweir ' draw page of the document 82cdf0e10cSrcweir thisComponent.DrawPage.Forms.getByIndex(0).insertByIndex( 0, xControlModel ) 83cdf0e10cSrcweir thisComponent.DrawPage.add( xShape ) 84cdf0e10cSrcweir End Sub 85cdf0e10cSrcweir </listing> 86cdf0e10cSrcweir 87cdf0e10cSrcweir @returns 88cdf0e10cSrcweir the container of all the top-level forms belonging to the component. 89cdf0e10cSrcweir */ 90cdf0e10cSrcweir com::sun::star::container::XNameContainer getForms(); 91cdf0e10cSrcweir 92cdf0e10cSrcweir}; 93cdf0e10cSrcweir 94cdf0e10cSrcweir//============================================================================= 95cdf0e10cSrcweir 96cdf0e10cSrcweir}; }; }; }; 97cdf0e10cSrcweir 98cdf0e10cSrcweir/*============================================================================= 99cdf0e10cSrcweir 100cdf0e10cSrcweir=============================================================================*/ 101cdf0e10cSrcweir#endif 102