Codejock Developer Community : SOLVED: Left column

SOLVED: Left column : Hi, Yes you are right about...

Sat, 07 Jun 2008 05:46:49 +0000

Author: Aaron
Subject: 10912
Posted: 07 June 2008 at 5:46am

Hi,

Yes you are right about the moved columns, but Elvis can't move the position of the columns because of the labels at the top.

But it's nice to have your code when columns are going to be moved

Thanks

SOLVED: Left column : Yeah, your code works provided...

Sat, 07 Jun 2008 04:37:43 +0000

Author: ijwelch
Subject: 10912
Posted: 07 June 2008 at 4:37am

Yeah, your code works provided the user hasn't moved columns into different positions.

Also, the Left parameter will contain 0 when horizontal scrollbar is fully left (so your 'If l > 0 then' line will fail and the function return zero by default).

Anyway, I think CJ need to change the GetItemRect call to return negative values as opposed to zeros when item is not in view.

SOLVED: Left column : ijwelch wrote:Try something...

Sat, 07 Jun 2008 02:29:27 +0000

Author: Aaron
Subject: 10912
Posted: 07 June 2008 at 2:29am

ijwelch wrote:

Try something like this (VB6) which seems to work regardless of column order:

I've only just put this together so be careful

Hi Ian,

Elvis did a post Scrollbar Event and I made a sample for this and I included simular what did (well almost simular)

Private Function GetFirstVisibleColumn()

    Dim i As Integer
    Dim l As Long
    Dim t As Long
    Dim r As Long
    Dim b As Long

    For i = 0 To wndReportControlData.Columns.Count - 1
        wndReportControlData.Rows(wndReportControlData.FocusedRow.Index).GetItemRect wndReportControlData.FocusedRow.record(i), l, t, r, b
        If l > 0 Then
            GetFirstVisibleColumn = i - 1 'return column index
            Exit Function
        End If
    Next i

End Function

It's a little bit cheating but it works

SOLVED: Left column : Try something like this (VB6)...

Fri, 06 Jun 2008 23:29:09 +0000

Author: ijwelch
Subject: 10912
Posted: 06 June 2008 at 11:29pm

Try something like this (VB6) which seems to work regardless of column order:

Private Function GetFirstVisibleColumnIndex(Optional bFullyVisible As Boolean = True) As Long
Dim i As Long
Dim lColumnCount As Long
Dim lLeft As Long
Dim lRight As Long
Dim lTop As Long
Dim lBottom As Long
Dim lLeftmostIndex As Long
Dim lLeftmostLeft As Long

If rpt.Rows.Count Then
    lColumnCount = rpt.Columns.Count - 1
    lLeftmostLeft = 999999
    For i = 0 To lColumnCount
        rpt.Rows(1).GetItemRect rpt.Rows(1).Record.Item(i), lLeft, lTop, lRight, lBottom

        If lRight > 0 Then
            'it's at least partially visible
            If bFullyVisible Then
                If (lRight - lLeft) >= rpt.Columns.Column(i).Width Then
                    'it's fully visible
                    If lLeft < lLeftmostLeft Then
                        lLeftmostIndex = i
                        lLeftmostLeft = lLeft
                    End If
                End If
            Else
                If lLeft < lLeftmostLeft Then
                    lLeftmostIndex = i
                    lLeftmostLeft = lLeft
                End If
            End If
        End If
    Next
    GetFirstVisibleColumnIndex = lLeftmostIndex
Else
    GetFirstVisibleColumnIndex = -1
End If
End Function

I've only just put this together so be careful

SOLVED: Left column : Well, my really question is: There...

Fri, 06 Jun 2008 11:15:15 +0000

Author: ElvisM
Subject: 10912
Posted: 06 June 2008 at 11:15am

Well, my really question is: There is a way to know the left column's index in the report control?. Not the column's index where is the focus...

I don't know if you understandme.

When the user moves the horizontal scrollbar the report control changes the columns, and maybe the focused columns hides of the reportcontrol. But I wanna know the left columns index in every moment that the user moves the horizontal scrollbar...

Regards and excuseme by my bad english.

SOLVED: Left column : Hi, Did you set wndReportControl.FocusSubItems...

Thu, 05 Jun 2008 02:23:05 +0000

Author: Aaron
Subject: 10912
Posted: 05 June 2008 at 2:23am

Hi,

Did you set wndReportControl.FocusSubItems = true ?

If you mean the first visible column: see the sample in your other post

SOLVED: Left column : Hi friends. There's a way...

Wed, 04 Jun 2008 18:08:02 +0000

Author: ElvisM
Subject: 10912
Posted: 04 June 2008 at 6:08pm

Hi friends.

There's a way to know the left columns index in a reportcontrol?

I'm using the Focusedcolumn property, but it fails. Maybe because I'm using frozencolumns and allrowselected.

regards.