diff --git a/comp/src/gb.web.gui/.src/Test/Webform4.webform b/comp/src/gb.web.gui/.src/Test/Webform4.webform index f48a6b256..ac9bc789c 100644 --- a/comp/src/gb.web.gui/.src/Test/Webform4.webform +++ b/comp/src/gb.web.gui/.src/Test/Webform4.webform @@ -1,12 +1,12 @@ # Gambas Form File 3.0 { WebForm WebForm - #MoveScaled(0,0,89,56) + #MoveScaled(0,0,102,92) Width = "40em" Arrangement = Arrange.Vertical - Border = True + Spacing = True { WebContainer1 WebContainer - #MoveScaled(1,1,87,25) + #MoveScaled(1,1,100,25) Arrangement = Arrange.Row Margin = True Spacing = True @@ -30,27 +30,38 @@ Image = "icon:/huge/cancel" } { WebButton4 WebButton - #MoveScaled(1,8,23,6) + #MoveScaled(71,1,23,6) Width = "12em" Height = "1em" Text = ("test") Image = "icon:/32/cancel" } { WebButton5 WebButton - #MoveScaled(25,8,21,6) + #MoveScaled(1,8,21,6) Width = "12em" Height = "2em" Image = "icon:/32/cancel" } { WebButton6 WebButton - #MoveScaled(47,8,23,6) + #MoveScaled(23,8,23,6) Width = "12em" Height = "4em" Text = ("Agence") Image = "icon:/huge/emote-laugh" } { WebTextBox1 WebTextBox - #MoveScaled(1,15,24,4) + #MoveScaled(47,8,24,4) + } + } + { WebScrollView1 WebScrollView + #MoveScaled(1,27,100,23) + Arrangement = Arrange.Horizontal + Margin = True + { WebButton7 WebButton + #MoveScaled(1,1,54,21) + } + { WebComboBox1 WebComboBox + #MoveScaled(55,1,23,21) } } } diff --git a/comp/src/gb.web.gui/.src/WebScrollView.class b/comp/src/gb.web.gui/.src/WebScrollView.class index 88e5ba71a..17d7f2ce3 100644 --- a/comp/src/gb.web.gui/.src/WebScrollView.class +++ b/comp/src/gb.web.gui/.src/WebScrollView.class @@ -5,7 +5,7 @@ Inherits WebContainer Public Const _Similar As String = "WebContainer" Public Const _Properties As String = "*,ScrollBar{Scroll.*}=Both" -Public Const _DrawWith As String = "ScrollView" +Public Const _DrawWith As String = "ScrollView:Border=False" Event Scroll