From 3c9a861618f479b9541f039f0061339b2516bc38 Mon Sep 17 00:00:00 2001 From: gambas Date: Thu, 21 Mar 2019 23:18:54 +0100 Subject: [PATCH] TerminalView: the minimal screen height is now 2 lines. [GB.FORM.TERMINAL] * NEW: TerminalView: the minimal screen height is now 2 lines. --- .../.src/TerminalView/FTestTerminalView.class | 12 +++++++----- .../.src/TerminalView/TerminalView.class | 4 ++-- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/comp/src/gb.form.terminal/.src/TerminalView/FTestTerminalView.class b/comp/src/gb.form.terminal/.src/TerminalView/FTestTerminalView.class index 18c953788..b09e36831 100644 --- a/comp/src/gb.form.terminal/.src/TerminalView/FTestTerminalView.class +++ b/comp/src/gb.form.terminal/.src/TerminalView/FTestTerminalView.class @@ -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 diff --git a/comp/src/gb.form.terminal/.src/TerminalView/TerminalView.class b/comp/src/gb.form.terminal/.src/TerminalView/TerminalView.class index f9a0ac582..42b6c8058 100644 --- a/comp/src/gb.form.terminal/.src/TerminalView/TerminalView.class +++ b/comp/src/gb.form.terminal/.src/TerminalView/TerminalView.class @@ -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