luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

TerminalView: the minimal screen height is now 2 lines.

Browse source 
[GB.FORM.TERMINAL]
* NEW: TerminalView: the minimal screen height is now 2 lines.
This commit is contained in:
gambas 2019-03-21 23:18:54 +01:00
parent 107d4032fc
commit 3c9a861618
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
comp/src/gb.form.terminal/.src/TerminalView/FTestTerminalView.class
View file

@ -111,12 +111,14 @@ End
Public Sub Button6_Click()
Dim I As Integer
' Dim I As Integer
'
' TerminalView1.Print("Gambas")
' For I = &H2589 To &H258F
' TerminalView1.Print(String.Chr$(I))
' Next
TerminalView1.Print("Gambas")
For I = &H2589 To &H258F
TerminalView1.Print(String.Chr$(I))
Next
TerminalView1.Print(Chr$(254) & Chr$(254) & Chr$(88) & Chr$(224) & Chr$(03) & Chr$(253))
End

4
comp/src/gb.form.terminal/.src/TerminalView/TerminalView.class
View file

@ -206,14 +206,14 @@ Private Sub UpdateScreen()
H = Me.H
If Me.Border Then H -= 2
H = Max(1, H \ $LH)
H = Max(2, H \ $LH)
If $bAutoResize Then
W = Me.W
If Me.Border Then W -= 2
If $bShowScrollBar Then W -= $hScroll.W
W = Max(1, W \ $CW)
W = Max(2, W \ $CW)
Else