sleep before calling ListViewParent_Resize when text is changed

xulihang · Jan 21, 2021 · 3d33abc · 3d33abc
1 parent 5703977
commit 3d33abc
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/BasicCAT/BasicCAT.b4j.meta b/BasicCAT/BasicCAT.b4j.meta
@@ -244,6 +244,6 @@ ModuleClosedNodes8=
 ModuleClosedNodes80=
 ModuleClosedNodes81=
 ModuleClosedNodes9=
-NavigationStack=RichTextArea,BaseResized_Event,217,0,Main,dividerPosition_changed,1711,0,Main,lbl_MouseClicked,1737,0,RichTextArea,setAutoHeight,525,0,RichTextArea,totalHeight,533,0,RichTextArea,AreaHeight,526,6,RichTextArea,mi_Action,725,0,RichTextArea,DesignerCreateView,123,0,RichTextArea,Base_MouseClicked,220,0,Main,ListViewParent_Resize,1272,6
+NavigationStack=RichTextArea,BaseResized_Event,217,0,Main,dividerPosition_changed,1711,0,Main,lbl_MouseClicked,1737,0,RichTextArea,setAutoHeight,525,0,RichTextArea,totalHeight,533,0,RichTextArea,AreaHeight,526,6,RichTextArea,mi_Action,725,0,RichTextArea,DesignerCreateView,123,0,RichTextArea,Base_MouseClicked,220,0,Main,ListViewParent_Resize,1272,6,Project,targetTextArea_TextChanged,1029,1
 SelectedBuild=0
 VisibleModules=1,2,3,4,5,6,7,8,9,10,13
diff --git a/BasicCAT/Project.bas b/BasicCAT/Project.bas
@@ -1033,6 +1033,8 @@ Sub targetTextArea_TextChanged (Old As String, New As String)
 	End If
 
 	If Old="" And New.Length>1 Then
+		Sleep(20)
+		CallSubDelayed(Main, "ListViewParent_Resize")
 		Return
 	End If
 	If New.Contains(CRLF) Or Old.Contains(CRLF) Then
@@ -1110,6 +1112,7 @@ Sub targetTextArea_TextChanged (Old As String, New As String)
 	'Log(ta.SelectionStart)
 	ShowITPContextMenu(ta,lastString)
 	#end region
+	Sleep(20)
 	CallSubDelayed(Main, "ListViewParent_Resize")
 End Sub