      / ,            (   -    ),             (/  ).      .

1.hflIss_DblClick -     
2.expHflIss -    (   )
3.colHflIss -   


Private Sub hflIss_DblClick()

Dim r As Integer, r1 As Integer

With hflIss

    '  
    r = .MouseRow:    If r < 1 Then Exit Sub
    
    '     
    While r > 0 And .TextArray(r * .Cols) = ""
        r = r - 1
    Wend

    '  /   
    If .TextArray(r * .Cols) = "-" Then
        r1 = r
        If r1 < (.Rows - 1) Then '      ( -)
           If .TextArray((r1 + 1) * .Cols) = "" Then _
              .TextArray(r * .Cols) = "+" '  -,  
        End If
        r1 = 0
    Else
       .TextArray(r * .Cols) = "-"
    End If
    
    '       -,    
    If r < .Rows - 1 Then r = r + 1
         
    If .RowHeight(r) = 0 Then '    
        Do While .TextArray(r * .Cols) = ""
           .RowHeight(r) = -1 ' 
           r = r + 1
           If r >= .Rows Then Exit Do
        Loop
    Else '    
        Do While .TextArray(r * .Cols) = ""
           .RowHeight(r) = 0 ' 
           r = r + 1
           If r >= .Rows Then Exit Do
        Loop
    End If

End With

End Sub

Public Sub expHflIss() ' 

Dim rRow As Integer: rRow = 1

With hflIss

     frmHealth.mnuCollapseGridAtem.Enabled = True ' "" 
     frmHealth.mnuExpandGridItem.Enabled = False  ' "" 

     .Row = rRow
     Do While rRow <= .Rows - 1
        If .TextArray(rRow * .Cols) <> "" Then
           .TextArray(rRow * .Cols) = "-"
        Else
           .RowHeight(rRow) = -1
        End If
        rRow = rRow + 1
     Loop

End With

End Sub

Public Sub colHflIss() ' 

Dim rRow As Integer:         rRow = 1
Dim hflSimvol As Boolean:    hflSimvol = False

With hflIss

     ' "" ,     
     frmHealth.mnuExpandGridItem.Enabled = IIf(.Rows - 1 = 0, False, True)
     frmHealth.mnuCollapseGridAtem.Enabled = False ' "" 
     
     .Row = rRow
     Do While rRow <= .Rows - 1
        If .TextArray(rRow * .Cols) <> "" Then
            hflSimvol = True
        Else
           .RowHeight(rRow) = 0
           If hflSimvol Then
             .TextArray((rRow - 1) * .Cols) = "+"
              hflSimvol = False
           End If
        End If
        rRow = rRow + 1
     Loop
    
End With

End Sub

