set ta size in setsize

xulihang · Feb 14, 2021 · f442b1e · f442b1e
1 parent d6880da
commit f442b1e
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 6 deletions.
diff --git a/BasicCAT/BasicCAT.b4j b/BasicCAT/BasicCAT.b4j
@@ -207,11 +207,11 @@ Library8=jrandomaccessfile
 Library9=jb4xencryption
 Module1=FileChooserUtils
 Module10=RichTextArea
-Module11=xliffFilter
+Module11=TM
 Module12=FileUtils
-Module13=tikal
-Module14=Utils
-Module15=TM
+Module13=xliffFilter
+Module14=tikal
+Module15=Utils
 Module16=SearchAndReplaceRecorder
 Module17=searchAndReplaceDialog
 Module18=PathSaver

diff --git a/BasicCAT/BasicCAT.b4j.meta b/BasicCAT/BasicCAT.b4j.meta
@@ -244,6 +244,6 @@ ModuleClosedNodes8=
 ModuleClosedNodes80=
 ModuleClosedNodes81=
 ModuleClosedNodes9=
-NavigationStack=FileUtils,SetModifiedTime,113,0,RichTextArea,AreaHeight,536,6,RichTextArea,Class_Globals,32,0,RichTextArea,setAutoHeight,520,0,RichTextArea,DesignerCreateView,86,1,Main,ListViewParent_Resize,1265,0,Main,getProjectname,1224,0,RichTextArea,Base_MouseClicked,211,0,RichTextArea,SetSize,229,3,RichTextArea,BaseResized_Event,208,6
+NavigationStack=Main,getProjectname,1224,0,RichTextArea,Base_MouseClicked,211,0,RichTextArea,setUseTextArea,245,0,RichTextArea,getCaretMaxX,262,0,RichTextArea,totalHeight,539,0,RichTextArea,AreaHeight,532,2,RichTextArea,Class_Globals,31,0,RichTextArea,CreateLayout,192,0,RichTextArea,BaseResized_Event,209,6,RichTextArea,SetSize,240,3
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,15,12
+VisibleModules=1,2,3,4,5,6,7,8,9,10
diff --git a/BasicCAT/RichTextArea.bas b/BasicCAT/RichTextArea.bas
@@ -241,6 +241,9 @@ End Sub
 
 Public Sub SetSize(width As Double,height As Double)
 	mBase.SetSize(width,height)	
+	If mUseTextArea Then
+		ta.SetSize(width,height-1)
+	End If
 End Sub
 
 Public Sub setUseTextArea(use As Boolean)