Visual Basic

by 1 pixels step

Case HDN_TRACKA, HDN_TRACKW
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                '/* Get HD_ITEM from tHDN.lPtrHDItem.  Don't use a HD_ITEM
                '/* structure - you will crash...
                '/* Here we only need up to the second long (HD_ITEM.cxy)
                ReDim lHDI(0 To 1) As Long
                CopyMemory lHDI(0), ByVal tHDN.lPtrHDItem, 8
                RaiseEvent ColumnWidthChanging(tHDN.iItem, lHDI(1), bCancel)
                If bCancel Then
                    lReturn = 1
                    bHandled = True
                End If

Private Sub m_cHeader_ColumnWidthChanging(ByVal lColumn As Long, _
                                          lWidth As Long, _
                                          bCancel As Boolean)

Dim iCol    As Long
Dim iIntCol As Long
Dim tR      As RECT
Dim tClipRect     As RECT
Dim iCurrentCol As Long

    For iCol = 1 To m_iCols
        If (m_tCols(iCol).lHeaderColIndex = lColumn + 1) Then
            iCurrentCol = iCol
        End If
    Next

    If Not m_tCols(iCurrentCol).lMaxWidth = -1 Then
         If lWidth > m_tCols(iCurrentCol).lMaxWidth Then
             ClipCursorRect tClipRect
         End If
    End If
    If Not m_tCols(iCurrentCol).lMinWidth = -1 Then
         If lWidth < m_tCols(iCurrentCol).lMinWidth Then
             ClipCursorRect tClipRect
         End If
    End If
   
    pGetDragImageRect lColumn, lWidth, tR, False
    DrawDragImage tR, False, False
    RaiseEvent ColumnWidthChanging(lColumn, lWidth, bCancel)
    If bCancel Then
        DrawDragImage tR, False, True
    End If
  
End Sub

Private Sub pGerClipColRect(ByVal lCol As Long, _
                                   ByVal lMaxWidth As Long, _
                                   ByVal lMinWidth As Long, _
                                   ByRef tR As RECT)

Dim iCol  As Long
Dim iGCol As Long
Dim tP    As POINTAPI

'/* Find RECT for header column with Max and Min Width to stop sizing when out of boundary:

    If lCol > 0 Then
        '/* Add the width:

        If Not m_tCols(lCol).lMinWidth = -1 Then
            tR.left = m_tCols(lCol).lStartX + m_tCols(lCol).lMinWidth
        Else
            tR.left = m_tCols(lCol).lStartX
        End If
       
        If Not m_tCols(lCol).lMaxWidth = -1 Then
            tR.right = m_tCols(lCol).lStartX + m_tCols(lCol).lMaxWidth
        Else
            tR.right = m_tCols(lCol).lStartX
        End If
       
        With tR
            .left = .left - m_lStartX
            .top = 0   'start from top of usercontrol 'm_cHeader.Height + m_cHeader.top
            .bottom = UserControl.ScaleHeight \ Screen.TwipsPerPixelY
            '/* Return the rectangle relative to the screen:
            tP.x = .left
            tP.y = .top
        End With

        '//Return the rectangle left and top relative to the screen:
        ClientToScreen UserControl.hwnd, tP
        With tR
            .left = tP.x
            .top = tP.y
            tP.x = .right
            tP.y = .bottom
        End With

        '//Return the rectangle right and bottom relative to the screen:
        ClientToScreen UserControl.hwnd, tP
        tR.right = tP.x
        tR.bottom = tP.y
    End If

End Sub

C#Coudou wrote:

typeof(frmEntry)