Hi,
I try in v8 oreo and 9 pie anD only crash in v9 when run ResizeItem
specifically in InsertAtImpl function from xcustomlistview v1.71.
Any idea?
Exacly crash here
thanks
I try in v8 oreo and 9 pie anD only crash in v9 when run ResizeItem
specifically in InsertAtImpl function from xcustomlistview v1.71.
Any idea?
B4X:
Sub Search_QueryChanged(Query As String)
Try
'CargadadosPendentsFast
If Query<>"" Then
For i=0 To CLV3XCUS.Size-1
Dim p As Panel = CLV3XCUS.GetPanel(i)
If p.Tag<>"fecha" Then
Dim cd As AveriaData = CLV3XCUS.GetValue(i)
If cd.L_coment.Contains(Query.ToLowerCase) Or cd.L_coment.Contains(Query.ToUpperCase) Then
If p.Height=0 Then
CLV3XCUS.ResizeItem(i,valu)
End If
Log(valu)
else If cd.L_Averia.Contains(Query.ToLowerCase) Or cd.L_Averia.Contains(Query.ToUpperCase) Then
If p.Height=0 Then
CLV3XCUS.ResizeItem(i,valu)
End If
Log(valu)
else If cd.L_NumAveria.Contains(Query.ToLowerCase) Or cd.L_NumAveria.Contains(Query.ToUpperCase) Then
If p.Height=0 Then
CLV3XCUS.ResizeItem(i,valu)
End If
Log(valu)
else If cd.L_nomCruce.Contains(Query.ToLowerCase) Or cd.L_nomCruce.Contains(Query.ToUpperCase) Then
If p.Height=0 Then
CLV3XCUS.ResizeItem(i,valu)
End If
Log(valu)
else If cd.L_NumCruce.Contains(Query.ToLowerCase) Or cd.L_NumCruce.Contains(Query.ToUpperCase) Then
If p.Height=0 Then
CLV3XCUS.ResizeItem(i,valu)
End If
Log(valu)
Else
If p.Height>0 Then
CLV3XCUS.ResizeItem(i,0)'---> CRASH
End If
End If
End If
Next
Log(Query)
Else
For i=0 To CLV3XCUS.Size-1
Dim p As Panel = CLV3XCUS.GetPanel(i)
If p.Tag<>"fecha" Then
If p.Height=0 Then
CLV3XCUS.ResizeItem(i,valu)
End If
End If
Next
End If
Catch
Log(LastException)
End Try
Log(Query)
End SubExacly crash here
B4X:
Private Sub InsertAtImpl(Index As Int, Pnl As B4XView, ItemSize As Int, Value As Object, InitialSize As Int)
'create another panel to handle the click event
Dim p As B4XView = CreatePanel("Panel")
p.Color = Pnl.Color
Pnl.Color = xui.Color_Transparent
If horizontal Then
p.AddView(Pnl, 0, 0, ItemSize, sv.ScrollViewContentHeight)
Else
p.AddView(Pnl, 0, 0, sv.ScrollViewContentWidth, ItemSize)
End If
p.Tag = Index
Dim IncludeDividierHeight As Int
If InitialSize = 0 Then IncludeDividierHeight = mDividerSize Else IncludeDividierHeight = 0
Dim NewItem As CLVItem
NewItem.Panel = p
NewItem.Size = ItemSize
NewItem.Value = Value
NewItem.Color = p.Color
If Index = items.Size And InitialSize = 0 Then
items.Add(NewItem)
Dim offset As Int
If Index = 0 Then
offset = mDividerSize
Else
offset = GetScrollViewContentSize
End If
NewItem.Offset = offset
If horizontal Then
sv.ScrollViewInnerPanel.AddView(p, offset, 0, ItemSize, sv.Height)
Else
sv.ScrollViewInnerPanel.AddView(p, 0, offset, sv.Width, ItemSize)
End If
Else
Dim offset As Int
If Index = 0 Then
offset = mDividerSize
Else
Dim PrevItem As CLVItem = items.Get(Index - 1)
offset = PrevItem.Offset + PrevItem.Size + mDividerSize
End If
For i = Index To items.Size - 1
Dim It As CLVItem = items.Get(i)
Dim NewOffset As Int = It.Offset + ItemSize - InitialSize + IncludeDividierHeight
If Min(NewOffset, It.Offset) - GetScrollViewOffset < GetScrollViewVisibleSize Then
It.Offset = NewOffset
If horizontal Then
It.Panel.SetLayoutAnimated(AnimationDuration, NewOffset, 0, It.Size, It.Panel.Height)
Else
It.Panel.SetLayoutAnimated(AnimationDuration, 0, NewOffset, It.Panel.Width, It.Size)
End If
Else
SetItemOffset(It, NewOffset)
End If
It.Panel.Tag = i + 1
Next
items.InsertAt(Index, NewItem)
NewItem.Offset = offset
If horizontal Then
sv.ScrollViewInnerPanel.AddView(p, offset, 0, InitialSize, sv.Height)
p.SetLayoutAnimated(AnimationDuration, offset, 0, ItemSize, p.Height)
Else
sv.ScrollViewInnerPanel.AddView(p, 0, offset, sv.Width, InitialSize)
p.SetLayoutAnimated(AnimationDuration, 0, offset, p.Width, ItemSize) ''->>> CRASH ITEMSIZE=0
End If
End If
SetScrollViewContentSize(GetScrollViewContentSize + ItemSize - InitialSize + IncludeDividierHeight)
If items.Size = 1 And Index = 0 Then SetScrollViewContentSize(ItemSize + mDividerSize * 2)
If Index < mLastVisibleIndex Or GetRawListItem(mLastVisibleIndex).Offset + _
GetRawListItem(mLastVisibleIndex).Size + mDividerSize < GetScrollViewVisibleSize Then
UpdateVisibleRange
End If
End Subthanks
Last edited:
