Re: SortableGridDataModel cannot be notified for changes

[Oliver Brinzing]

Am 23.11.2024 um 17:26 schrieb Pierre Vacher:

I try to use the SortableGridDataModel
<https://www.openoffice.org/api/docs/common/ref/com/sun/star/awt/grid/SortableGridDataModel.html>
service with the help of my own XMutableGridDataModel

some time ago I created a basic demo

HTH
Oliver

OPTION EXPLICIT

Dim oDialogControl as Object
Dim oGridControl as Object
Dim oBtnControl as Object

Sub GridControlTest()

        Dim oColumnModel as Object
        Dim oColumn1 as Object
        Dim oColumn2 as Object
        Dim oColumn3 as Object

        Dim oGridModel as Object
        Dim oDataModel as Object
        Dim oDataListener as Object

        Dim oListener as Object

        Dim oBtnModel as Object
        Dim oBtnListener as Object

        Dim oDialog as Object
        Dim oDialogModel as Object
        Dim oWinListener as Object

        Dim i as Integer

        oDialogModel = 
createUnoService("com.sun.star.awt.UnoControlDialogModel")
        oDialogModel.Title = "GridControl Test"
        oDialogModel.sizeable = True

        oDialogControl = createUnoService("com.sun.star.awt.UnoControlDialog")
        oDialogControl.setModel( oDialogModel )
        oDialogControl.setPosSize( 100, 100, 300, 200, 
com.sun.star.awt.PosSize.POSSIZE)

        oGridModel = 
oDialogModel.createInstance("com.sun.star.awt.grid.UnoControlGridModel")
        oGridModel.Name = "MyGrid"

        ' oDataModel = 
createUnoService("com.sun.star.awt.grid.DefaultGridDataModel")
        oDataModel = oGridModel.GridDataModel
        For i = 0 To 10
                oDataModel.addRow (""&i, Array(Chr(97+i), Chr(65+i), ""&i*10))
        Next i

        oDataListener = CreateUnoListener("XGridData_", 
"com.sun.star.awt.grid.XGridDataListener")
        oDataModel.addGridDataListener(oDataListener)

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

        oColumn1 = createUnoService("com.sun.star.awt.grid.GridColumn")
        oColumn1.Title = "City"
        oColumn1.ColumnWidth = 20
        oColumn1.MinWidth = 10
        oColumn1.MaxWidth = 50
        oColumn1.Resizeable = True
'       oColumn1.Flexibility = 1

        oColumn2 = createUnoService("com.sun.star.awt.grid.GridColumn")
        oColumn2.Title = "Country"
        oColumn2.ColumnWidth = 50
        oColumn2.MinWidth = 20
        oColumn2.MaxWidth = 80
        oColumn2.Resizeable = True
'       oColumn2.Flexibility = 1

        oColumn3 = createUnoService("com.sun.star.awt.grid.GridColumn")
        oColumn3.Title = "Test"
        oColumn3.ColumnWidth = 30
        oColumn3.MinWidth = 10
        oColumn3.MaxWidth = 50
        oColumn3.Resizeable = True
'       oColumn3.Flexibility = 1

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

        oGridModel.ShowColumnHeader = True
        oGridModel.ShowRowHeader = True
        oGridModel.HScroll = True
        oGridModel.VScroll = True
        oGridModel.Sizeable = True

        oDialogModel.insertByName("MyGrid", oGridModel)
        oGridControl = oDialogControl.getControl("MyGrid")

        oDialogControl.addControl("MyGrid", oGridControl)
        oGridControl.setPosSize(10, 10, 280, 140, 
com.sun.star.awt.PosSize.POSSIZE)

        oListener = CreateUnoListener("XGridSelection_", 
"com.sun.star.awt.grid.XGridSelectionListener")
        oGridControl.addSelectionListener(oListener)

        oBtnModel = createUnoService("com.sun.star.awt.UnoControlButtonModel")
        oBtnModel.setPropertyValues( Array("Label", "Name"), Array("Close", 
"TestBtn"))
        oBtnControl = createUnoService("com.sun.star.awt.UnoControlButton")

        oBtnControl.setModel(oBtnModel)
    oBtnControl.setPosSize(10, 160, 290, 30, com.sun.star.awt.PosSize.POSSIZE)
        oDialogControl.addControl("MyButton", oBtnControl)

        oBtnListener = CreateUnoListener("close_", 
"com.sun.star.awt.XActionListener")
        oBtnControl.addActionListener(oBtnListener)

        oWinListener = createUnoListener("win_", 
"com.sun.star.awt.XWindowListener")
        oDialogControl.addWindowListener(oWinListener)

        oDialogControl.setVisible(True)
        oDialogControl.execute()
End Sub

Sub win_windowShown(oEvt)
End Sub

Sub win_windowResized(oEvt)
        If Not isNull(oEvt) Then
                If Not isNull(oBtnControl) Then
                        oBtnControl.setPosSize(10, oEvt.Height - 40, oEvt.Width 
-20, 30, com.sun.star.awt.PosSize.POSSIZE)
                EndIf

                If Not isNull(oGridControl) Then
                        oGridControl.setPosSize(10, 10, oEvt.Width -20, 
oEvt.Height-60, com.sun.star.awt.PosSize.POSSIZE)
                        oGridControl.setVisible(False)
                        Wait(1)
                        oGridControl.setVisible(True)
                EndIf
        EndIf
End Sub

Sub win_windowMoved(oEvt)
End Sub

Sub win_windowHidden(oEvt)
End Sub

Sub close_actionPerformed(oEvt)
        oDialogControl.endExecute()
End Sub

Sub XGridSelection_selectionChanged(oEvt)

Dim oSrc as Object
Dim r as Long
Dim c as Long
Dim sData as String

        oSrc = oEvt.Source
        r = oSrc.getCurrentRow
        c = oSrc.getCurrentColumn
        sData = oSrc.getModel().GridDataModel.getCellData(c,r)

        MsgBox(r & "," & c & " - " & sData)

        oSrc.getModel().GridDataModel.sortByColumn ( c, false )

End Sub

Sub XGridSelection_disposing(oEvt)
End Sub

Sub XGridData_rowsInserted(oEvt)
        Msgbox "XGridData_rowsInserted"
End Sub

Sub XGridData_rowsRemoved(oEvt)
        Msgbox "XGridData_rowsRemoved"
End Sub

Sub XGridData_dataChanged(oEvt)
        Msgbox "XGridData_dataChanged"
End Sub

Sub XGridData_rowHeadingChanged(oEvt)
        Msgbox "XGridData_rowHeadingChanged"
End Sub

Sub XGridData_disposing(oEvt)
End Sub