diff --git a/BasicCAT/BasicCAT.b4j.meta b/BasicCAT/BasicCAT.b4j.meta index 59f269b..9360376 100644 --- 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 index fdee25a..71b8448 100644 --- 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