To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=103210


User tbo changed the following:

                What    |Old value                 |New value
================================================================================
                  Status|RESOLVED                  |VERIFIED
--------------------------------------------------------------------------------




------- Additional comments from t...@openoffice.org Thu Aug 13 17:07:30 +0000 
2009 -------
A grid comes up with:

Sub Main
oDoc = thisComponent
oDialogModel = createUnoService( "com.sun.star.awt.UnoControlDialogModel" )
oDialogModel.Title = "GridControl Test"
oDialogControl = createUnoService( "com.sun.star.awt.UnoControlDialog" )
oDialogControl.setModel( oDialogModel )
oDialogControl.setPosSize( 0, 0, 800, 600, com.sun.star.awt.PosSize.POSSIZE)


oColumnModel = createUnoService( "com.sun.star.awt.grid.DefaultGridColumnModel")

oColumn1 = createUnoService( "com.sun.star.awt.grid.GridColumn")
oColumn1.Title( "City" )

oColumn2 = createUnoService( "com.sun.star.awt.grid.GridColumn")
oColumn2.Title( "Land" )

oColumnModel.addColumn( oColumn1 )
oColumnModel.addColumn( oColumn2 )

oDataModel = createUnoService( "com.sun.star.awt.grid.DefaultGridDataModel")
oDataModel.addRow ( "", Array( "Hamburg", "Germany") )
oDataModel.addRow ( "", Array("Brisbane", "Australia") )

oModel = oDialogModel.createInstance( 
"com.sun.star.awt.grid.UnoControlGridModel" )
oModel.Name="Grid1"
oModel.GridDataModel = oDataModel
oModel.ColumnModel = oColumnModel
oDialogModel.insertByName("Grid1", oModel )

oControl = oDialogControl.getControl("Grid1")
oControl.setPosSize(600, 0,200, 200, com.sun.star.awt.PosSize.POSSIZE)

oDialogControl.setVisible( True )
oDialogControl.execute
End Sub 

verified

---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification

---------------------------------------------------------------------
To unsubscribe, e-mail: issues-unsubscr...@framework.openoffice.org
For additional commands, e-mail: issues-h...@framework.openoffice.org


---------------------------------------------------------------------
To unsubscribe, e-mail: allbugs-unsubscr...@openoffice.org
For additional commands, e-mail: allbugs-h...@openoffice.org

Reply via email to