Trying to using 10Tec iGrid OCX

[supersonic]

Hi -

I need faster listviews. I googled a bit and found 10Tec's iGrid OCX on the web: https://10tec.com/activex-grid/ . It's a commercial prodcut and more intended for VB rather than working togehter with AutoIt. Loading the OCX works fine:

expandcollapse popup

#include <GUIConstantsEx.au3>


Local $oTmp = ObjCreate("iGrid700_10Tec.iGrid")
If (Not @error) Then
    Local Const $hWnd = GUICreate("TEST", 500, 500)
    If (Not @error) Then
        Local $iObj = GUICtrlCreateObj($oTmp, 10, 10, 480, 400)

        With $oTmp
            .BeginUpdate
            ; .DefaultRowHeight = 40
            ; .ColCount = 50

            .AddCol(0, "Column1", 50)
            .AddCol(1, "Column2", 100)
            .AddCol(2, "Column3", 150)

            .RowCount = 100
            For $iRow = 1 To .RowCount
                .CellValue($iRow, 1) = "Test1"
                .CellValue($iRow, 2) = "Test2"
                .CellValue($iRow, 3) = "Test3"
            Next

            .SetCurCell(1, 1)
            .EndUpdate
        EndWith

        GUISetState(@SW_SHOW, $hWnd)

        Local $aMsg = 0
        While 1
            $aMsg = GUIGetMsg(1)
            Switch $aMsg[1]
                Case $hWnd
                    Switch $aMsg[0]
                        Case $GUI_EVENT_CLOSE
                            ExitLoop (1)
                    EndSwitch
            EndSwitch
        WEnd


        GUIDelete($hWnd)
    EndIf
    $oTmp = 0
EndIf

I am not very familiar with the propper syntax this OCX is needing. E. g. I don't get ".AddCol" to work. I am sure I missed something.

From the iGrid help file:

Sub AddRow( _
   Optional ByVal sKey As String, _
   Optional ByVal vRowBefore As Variant, _
   Optional ByVal bVisible As Boolean = True, _
   Optional ByVal lHeight As Long = -1, _
   Optional ByVal lNormalCellHeight As Long = -1, _
   Optional ByVal bGroupRow As Boolean = False, _
   Optional ByVal vRowParent As Variant, _
   Optional ByVal bExpanded As Boolean = True, _
   Optional ByVal btLevel As Byte = 0, _
   Optional ByVal eTreeButton As ERowTreeButton = igRowTreeButtonAbsent, _
   Optional ByVal bVisibleAsChild As Boolean = True, _
   Optional ByVal vTag As Variant, _
   Optional ByVal lCount As Long = 1 _
)

The installation package https://10tec.com/FS/Demos/iGrid/iGrid.ActiveX.7.0.Demo.Setup.exe provides several demo scripts, here's an abstract regarding .AddCol and .CellValue:

   With iGrid1
      .BeginUpdate
      
      .Editable = False
      
      .DynamicContentEvents = igDCEventCellDynamicText Or _
         igDCEventCellDynamicFormatting Or igDCEventRowDynamicFormatting
   
      ' Set grid font and special fonts to highlight cells
      .Font.Name = "Verdana"
      Set m_fntBold = .FontClone(sName:="Arial", bBold:=True, cSize:=9)
      Set m_fntItalic = .FontClone(bItalic:=True)
      
      ' Set the optimal row height taking into account all grid settings
      ' (font, focus rectnagle, etc) and the OS DPI scale factor
      lNormalRowsHeight = .GetOptimalCellHeight()
      lBoldRowsHeight = .GetOptimalCellHeight(oFont:=m_fntBold)
      .DefaultRowHeight = gflMaxLong(lNormalRowsHeight, lBoldRowsHeight)
      
      .AddCol sKey:="comp", sHeader:="Company Name", lWidth:=130
      .AddCol sKey:="cntryID", sHeader:="Country", lWidth:=100
      .AddCol(sKey:="sales", sHeader:="Total Sales", lWidth:=100).eAlignH = igAlignHRight
      
      .RowCount = 10000
   
      Randomize 11
      
      For iRow = 1 To .RowCount
         .CellValue(iRow, 1) = "Company #" & Format$(iRow, "00000")
         .CellValue(iRow, 2) = Int(Rnd * 5) + 1 ' we store the IDs
         .CellValue(iRow, 3) = CLng(Rnd * 1000) * 1000
      Next
      
      .EndUpdate
   End With

Is there anyone how can help me out to get this OCX working?

[FrancescoDiMuro]

Snip.

Edited January 28, 2019 by FrancescoDiMuro

[FrancescoDiMuro]

53 minutes ago, supersonic said:

I need faster listviews.

Why don't you use Virtual ListViews?
 

[mLipok]

Interesting.
Will look this week.
Currently I'm busy.

 

 

[mLipok]

small update:
 

expandcollapse popup

;~ https://www.autoitscript.com/forum/topic/197545-trying-to-using-10tec-igrid-ocx/

#include <GUIConstantsEx.au3>

_Example()
Func _Example()
    ; Error monitoring. This will trap all COM errors while alive.
    ; This particular object is declared as local, meaning after the function returns it will not exist.
    Local $oErrorHandler = ObjEvent("AutoIt.Error", _ErrFunc)
    #forceref $oErrorHandler

    Local $oTmp = ObjCreate("iGrid700_10Tec.iGrid")
    If (Not @error) Then
        MsgBox(0, '$iObj.RowCount', $oTmp.RowCount)
        MsgBox(0, '$iObj.ColCount', $oTmp.ColCount)
        Local Const $hWnd = GUICreate("TEST", 500, 500)
        If (Not @error) Then
            Local $iObj = GUICtrlCreateObj($oTmp, 10, 10, 480, 400)
            #forceref $iObj

            With $oTmp
                .BeginUpdate
                ; .DefaultRowHeight = 40
                ; .ColCount = 50

                Local $sKey1 = '', $sKey2, $sKey3
                #forceref $sKey1, $sKey2, $sKey3
                Local $sHeader1 = 'Column1', $sHeader2, $sHeader3
                #forceref $sHeader1, $sHeader2, $sHeader3
                Local $iWidth1 = 50, $iWidth2, $iWidth3
                #forceref $iWidth1, $iWidth2, $iWidth3
                .AddCol($sKey1, $sHeader1, $iWidth1)
                MsgBox(0, 'TEST', 'Check SciTE Output console')
                .AddCol('', "Column2", 100)
                .AddCol('', "Column3", 150)

                .RowCount = 100
                For $iRow = 1 To .RowCount
                    .CellValue($iRow, 1) = "Test1"
                    .CellValue($iRow, 2) = "Test2"
                    .CellValue($iRow, 3) = "Test3"
                Next

                .SetCurCell(1, 1)
                .EndUpdate
            EndWith

            GUISetState(@SW_SHOW, $hWnd)

            Local $aMsg = 0
            While 1
                $aMsg = GUIGetMsg(1)
                Switch $aMsg[1]
                    Case $hWnd
                        Switch $aMsg[0]
                            Case $GUI_EVENT_CLOSE
                                ExitLoop (1)
                        EndSwitch
                EndSwitch
            WEnd


            GUIDelete($hWnd)
        EndIf
        $oTmp = 0
    EndIf
EndFunc   ;==>_Example



; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

 

[supersonic]

@FrancescoDiMuro: I'm using many colors/icons/50+ cols./100+ rows/etc. Scrolling (left/right in particular) is very slow. Furthermore many cols. are rather wide (~ 300+ px). I know about LarsJ's UDF.

@mLipok: This will be great - currently I'm stuck.